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	Mercredi 23 Juin 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Dimanche 27 Juin 2010	Par	Support France
Thème	Administration des emails, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmMail.Form_EvtRobot

Prototype

Sub Form_EvtRobot (P1 As Integer, P2 As Integer, p3 As Integer, sMsg As String)

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

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Sub Form_EvtRobot (P1 As Integer, P2 As Integer, p3 As Integer, sMsg As String)

Sub Form_EvtRobot (P1 As Integer, P2 As Integer, p3 As Integer, sMsg As String)
Dim Ret%
Dim s$
Dim sFile$

Select Case P1
    Case 1 'Connect
	XasTrace "MAIL Form_EvtRobot Connect (" + CStr(P2) + ") " + sMsg
    Case 3 'Recv
	XasTrace "MAIL Form_EvtRobot Recev (" + CStr(P2) + ") " + sMsg + " ->" + CStr(GlobIdXmlLoc)
	sFile = GetCharByIndice(sMsg,";",1)
	Kill sFile
	Ret = XasSystemUnConnectUser(P2)
    Case 4 'Error
	XasTrace "MAIL Form_EvtRobot Error (" + CStr(P2) + ") " + sMsg
    Case 5 'UnConnect
	XasTrace "MAIL Form_EvtRobot UnConnect (" + CStr(P2) + ") " + sMsg
End Select

End Sub

Références XAS.Technology

XasTrace , Cstr , GetCharByIndice , Kill , XasSystemUnConnectUser ,

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.