IF OnTestMode() THEN
gpc_cte_Usermail is string ="abc@abc.com"
sGpc_cte_passwordmail is string ="abc"
gpc_cte_compteSMTP is string="stmp.abc.com"
END
IF EmailStartSMTPSession(gpc_cte_Usermail, gpc_cte_compteSMTP) = False THEN
Info("fail connect 2 smtp")
ELSE
Email.Recipient = "vvicheka@yahoo.com"
Email.Sender = "vvicheka@yahoo.com"

Email.Subject ="test subject"
Email.NbRecipient = 1
EmailImportHTML("Hello ", "")
////Envoie le Mail
IF EmailSendMessage(gpc_cte_Usermail) = False THEN
Info("Mail send fail")
END

FIN