Envoie un e-mail sans utiliser de programme de messagerie externe
#include <Inet.au3>
_INetSmtpMail ( $sSMTPServer, $sFromName, $sFromAddress, $sToAddress [, $sSubject = "" [, $aBody = "" [, $sEHLO = "" [, $sFirst = "" [, $bTrace = 0]]]]] )
$sSMTPServer | Le serveur SMTP de l'expéditeur doit être envoyé sous la forme d'une chaîne ou d'une adresse IP numérique. Afin de lutter contre les spam, de nombreux FAI exigent que ce soit leur propre serveur. Par exemple "smtp.ispdomain.com", "mail.ispdomain.com" ou "192.168.1.1" |
$sFromName | Le nom sous lequel le message sera envoyé. Par exemple "Bob Smith" |
$sFromAddress | L'adresse email sous laquelle le message sera envoyé. Par exemple "bob.smith@mydomain.com". |
$sToAddress | L'adresse e-mail du destinataire. Par exemple "jane.brown@yourdomain.com" |
$sSubject | [optionnel] L'objet de l'email. |
$aBody | [optionnel] Le corps de l'email comme tableau à une dimension contenant des chaînes. Chaque valeur du tableau se terminera par un CRLF dans l'e-mail. |
$sEHLO | [optionnel] L'identifiant de la connexion au serveur SMTP (par défaut @ComputerName). Si le serveur SMTP requiert une chaîne "EHLO", utilisez la chaîne "EHLO" & @ComputerName. |
$sFirst | [optionnel] Chaîne envoyée avant EHLO pour obtenir la connexion au serveur SMTP (par défaut {SPACE}). Pour ne pas envoyer de, ce paramètre doit être égal à -1, des serveurs SMTP l'exigent. |
$bTrace | [optionnel] Trace le dialogue dans une fenêtre d'accueil |
Succès: | Retourne 1. |
Échec: | Retourne 0 et définit @error <> 0. |
@error: | 1 2 - Impossible de démarrer TCP 3 - Impossible de résoudre l'IP 4 - Impossible de créer la socket 5x - Impossible d'ouvrir une session SMTP. x indique le numéro d'index de la dernière commande émise sur le serveur SMTP. 50x - Impossible d'envoyer le corps du message. x indique le numéro de la ligne de $aBody (la première ligne est 0). 5000 - Impossible de fermer la session SMTP |
Cette fonction envoie un e-mail directement via un serveur SMTP sans l'utilisation d'un client de messagerie tiers.
#include <Inet.au3> #include <MsgBoxConstants.au3> Local $s_SmtpServer = "mysmtpserver.com.au" Local $s_FromName = "My Name" Local $s_FromAddress = "From eMail Address" Local $s_ToAddress = "To eMail Address" Local $s_Subject = "My Test UDF" Local $as_Body[2] $as_Body[0] = "Testing the new email udf" $as_Body[1] = "Second Line" Local $iResponse = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body) Local $iErr = @error If $iResponse = 1 Then MsgBox($MB_SYSTEMMODAL, "Success!", "Mail sent") Else MsgBox($MB_SYSTEMMODAL, "Error!", "Mail failed with error code " & $iErr) EndIf