[..] Tester le mail de l'expéditeur avec _INetSmtpMailCom

[cortexx]

Bonjour à tous,

Depuis peu j'ai trouvé l'UDF _INetSmtpMailCom qui fonctionne trés bien et même trop bien puisque quand j'envoie un mail avec une adresse mail d'expéditeur erroné, la fonction me dit que le mail est bien parti (me retourne aucune erreur), mais je ne reçois rien (se qui est normal vu que le mail de l'expéditeur n'est pas le bon).
Alors j'en viens à poser cette question : a ton la possibilité de tester l'adresse mail de l'expéditeur ? avec cette fonction ou une autre.

► Afficher le texte

Code : Tout sélectionner

#include <INet.au3>

Local $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
GUICtrlSetData($LabelConfiguration_WaitTest, "")
If @error Then
    MsgBox(0, "Erreur", "Code erreur : " & @error & @LF & " Description : " & $rc)
Else
    MsgBox(0, "Information", "Envoie du mail test réussi." & @LF & "Code erreur : " & @error & @LF & "  Description : " & $rc)
EndIf

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    $objEmail.DSNOptions = 2
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
    EndIf
    $objEmail = ""
EndFunc

[TT22]

Tu peux d'abord essayer d'envoyer un mail à l’expéditeur et voir si il existe avec un truc du genre :

► Afficher le texte

Code : Tout sélectionner

If @error Then
 MsgBox(16,"Erreur","Impossible d'envoyer le message")
Endif

[cortexx]

Oui c'est vrai, mais je vais faire mon "chieur" , je ne voudrait pas que l'adresse de l'expéditeur que je test reçoit de mail, quand sa fonctione bien sur .

[TT22]

Ou alors t'envoie un mail sans objet, sans message et sans expéditeur et peut-être (je suis pas sure) qu'il te dira si le déstinataire (donc l'expediteur du vrai mail) éxiste ou pas et je suppose que le mail n'apparaiterat pas vu qu'il n'y a pas d'expediteur, d'objet et de message.

[cortexx]

hummmm mouais à tester, je vais voir sa tout de suite.

[cortexx]

Non ça fonctionne pas il envoie toujours le mail, je luis donne pourtant une adresse mail complètement fausse, il me dit que sa passe

[TT22]

Ouai, là j'ai épuisé mon stock d'idées

[cortexx]

La fonction _INetSmtpMail fonctionne et me dit bien que l'adresse mail erroné que donne n'est pas bonne.
Se que je comprend pas c'est pourquoi ils on arreter cette fonction en cour de route, il lui manque juste l'authentification avec ou sans SSL, les pièces jointe et le changement du port. J'ai regarder cette fonction, pas compliquer de changer le port mais pour l'authentification et la pièce jointe je voit pas du tout comment faire.

Si quelqu'un a une piste pour m'aider à faire évoluer cette fonction.