XAS, Xml Server, Xml Services, XML Kiosk, Administration des emails, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des emails, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Jeudi 1 Avril 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Vendredi 2 Avril 2010	Par	Support France
Thème	Administration des emails, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmMail.PicSend_Click

Prototype

Sub PicSend_Click ()

Usage
Administration-des-emails.PicSend_Click(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Sub PicSend_Click ()

Sub PicSend_Click ()
Dim Ret%
Dim i%
Dim s$

For i = 0 To 11
    Lb(i).ForeColor = 0
Next i
Lb(12).Caption = ""
s = txt(1).Text
Ret = InStr(1, txt(1).Text, "@")
If Ret <= 0 Then
    Lb(12).Caption = MsgErreur(0)
    Lb(1).ForeColor = 255
    Exit Sub
End If
s = txt(3).Text
If s = "" Then
    Lb(12).Caption = MsgErreur(1)
    Lb(3).ForeColor = 255
    Exit Sub
End If
i = Val(Trim$(Right(cb(0).Text, 5)))
Ret = Val(Trim$(Right(cb(2).Text, 5)))
If Ret > i Then
    Lb(12).Caption = MsgErreur(2)
    Lb(6).ForeColor = 255
    Exit Sub
End If
s = txt(4).Text
If s = "" Then
    Lb(12).Caption = MsgErreur(3)
    Exit Sub
End If
txt(4).Visible = False
Lb(13).Visible = True
Lb(13).Caption = MsgErreur(4)

'        s2 = Chr$(13) + Chr$(10)
'        s2 = s2 + Chr$(13) + Chr$(10)
'        s2 = s2 + Chr$(13) + Chr$(10)
'        s2 = s2 + s
'        Txt(4).Text = s2
s = txt(4).Text + Chr$(13) + Chr$(10)
s = s + StrURI + Chr$(13) + Chr$(10)
'CStr(Txt(2).Text)
Ret = sLibSendMail(CStr(txt(0).Text), CStr(txt(1).Text), "", CStr(txt(3).Text), s)
PicSend.Visible = False
End Sub

Références XAS.Technology

InStr , Val , Trim , Right , Chr , Cstr ,

Audience

Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs.
Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet.