AutoIt Français

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
 

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