UDF > Inet >


_INetSmtpMail

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]]]]] )

Paramètres

$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

Valeur de retour

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

Remarque

Cette fonction envoie un e-mail directement via un serveur SMTP sans l'utilisation d'un client de messagerie tiers.

En relation

_INetMail

Exemple

#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