[R] L'envoi de Mail

[Sh4dows]

Repli les champs Expéditeur et Destinataire !
et montre ton code !

[amouna98]

Code : Tout sélectionner

#include <INet.au3>
SENDFILE() ; Appelle de la fonction.
Func SENDFILE()
   $SH4_SMTPSERVER = _INetGetSource("http://www.autoitscript.fr/smtp.php") ;SMTP Automatique
   $SH4_FROMNAME = "emi" ; Nom de l'expéditeur
   $SH4_FROMADDRESS = "user@gmail.com" ; Mail de l'expéditeur
   $SH4_TOADDRESS = "user@gmail.com" ; Mail du destinataire
   Dim $ASQ_BODY[2]
   $SH4_SUBJECT = "Sujet2" ; Sujet du mail
   $ASQ_BODY[0] = "Text" ;Contenu du mail
   $RESPONSE = _INetSmtpMail($SH4_SMTPSERVER, $SH4_FROMNAME, $SH4_FROMADDRESS, $SH4_TOADDRESS, $SH4_SUBJECT, $ASQ_BODY)
   MsgBox(0,"",$RESPONSE)
    MsgBox(0,"err", @error)
   
EndFunc
 

voila ce que j utilise

rep.JPG (2.65 Kio) Vu 7527 fois

err.JPG (2.58 Kio) Vu 7527 fois

[Sh4dows]

Si mes souvenirs sont bon, avec Gmail cela ne fonctionne pas

[DDleroutier]

Bonjour ,bonjour,

Essayer ce code, il fonctionne dans mon infrastructure ( Exchange )

Code : Tout sélectionner

#include <INet.au3>

$s_SmtpServer = "192.168.98.9"
$s_FromName = "My Name"
$s_FromAddress = "DDleroutier@domain.fr"
$s_ToAddress = "KKleplombier@domain.fr"
$s_Subject = "My Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
MsgBox(0,"title",$s_SmtpServer&"  "&$s_FromName&"  "&$s_FromAddress&"  "&$s_ToAddress&"  "&$s_Subject&"  "&$as_Body[0])
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,@computername, -1)
$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

[lolajune]

Après peux être que la liste d'email que tu as n'est plus bonne je te conseille pour trouver une adresse email et vérifier d'utiliser des logiciels externes.

[jchd]

Déterrer un sujet vieux de 13 ans : un record !

[mikell]

C'est l'âge de mon chat. Il est comme moi, il commence à se faire vieux