voyez vous autre chose que ceci pour envoyer un email a coup sur ? :
Code : Tout sélectionner
InitNetwork()
If CreateMail(0, "", "test d'envoi de mail")
SetMailBody(0, "Envoyé par "+ComputerName())
AddMailRecipient(0, "isabelle.nopi@laposte.net", #PB_Mail_To)
; For i=0 To cmb
; AddMailAttachment(0, "save", "save", "")
; Next
Resultat = SendMail(0, "smtp.orange.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.free.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.cegetel.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.alice.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.sfr.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.neuf.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.noos.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.tele2.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.tiscali.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.wanadoo.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.numericable.fr", 25, 0)
If resultat=0
Resultat = SendMail(0, "smtp.ovh.fr", 25, 0)
If resultat=0
MessageRequester("erreur","Email non envoyé")
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;