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 "[email protected]". |
| $sToAddress | L'adresse e-mail du destinataire. Par exemple "[email protected]" |
| $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