[..] _INetSmtpMail, comment régler l'erreur.

[legend]

Bonjour,
ça fait un moment que j'essaye d'envoyer des mails avec autoit . . .
j'ai essayé pleins d'udf, mais a chaque fois sa échoue.
Aujourd'hui je veut essayer de régler ce probleme
donc j'ai simplement re-essayé _INetSmtpMail et un msgbox @error.
l'erreur est 3 = "Unable to resolve IP"
j'ai rien compris . . . je connais même pas ce que c'est "resolve" =S
il y a il un moyen de résoudre cela?
merci et bonne journée.

[sylvanie]

une erreur de résolution de nom (resolve) indique que le script n'arrive pas à établir de correspondance entre le nom du serveur smtp entré en argument et son adresse IP.
Ceci peut être dû à plusieurs causes, dont les 2 grandes sont :
- Erreur dans le nom du serveur smtp.
- Problème d'accès à un serveur DNS qui peut établir cette correspondance.

[legend]

C'est "smtp.live.com (Port 25 avec connexion SSL)"
l'adresse c'est : legendzz@hotmail.fr

[sylvanie]

ok pour le smtp
Maintenant est qu' Autoit n'a pas été bloqué un jour par ton firewall quand il essaye de se connecter à un serveur DNS ?
Dans le doute désactive le un moment pour tester.

[legend]

j'ai pas de firewall ni d'anti virus (juste plein de virus!!!)
sinon j'ai pas essayer le truc DNS (c'est dans quelles fonctions?)
merci et bonne journée

[sylvanie]

C'est bizarre, j'avais posté un autre message entre temps ???
Bon je le refais ....

suite à un test sur mon adresse perso, j'ai rencontré une errer de type "pas authentifié".
Comme cette fonction ne gère pas d’authentification, il faut passer par une autre fonction :

► Afficher le texte

Code : Tout sélectionner

#Include <File.au3>

$s_SmtpServer="smtp.live.com"
$s_FromName="toto@hotmail.fr"
$s_FromAddress="toto@hotmail.fr"
$s_ToAddress="toto@hotmail.fr"
$s_Subject = "test"
$as_Body = ""
$s_AttachFiles = ""
$s_CcAddress = ""
$s_BccAddress = ""
$s_Username = "toto@hotmail.fr"
$s_Password = "mon_super_mot_de_passe^^"
$IPPort = 25
$ssl = 1
$s_Importance="Normal"

_INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body , $s_AttachFiles , $s_CcAddress, $s_BccAddress, $s_Importance, $s_Username, $s_Password , $IPPort , $ssl)

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
    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[$x] & @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
    $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom



 

[legend]

C:\Documents and Settings\Administrateur\Bureau\Nouveau AutoIt v3 Script (6).au3 (68) : ==> The requested action with this object has failed.:
$objEmail.Send
$objEmail.Send^ ERROR
=S

[sylvanie]

Ceci arrive quand un des paramètre n'est pas bon.
A voir en priorité :
- le password
- $s_Username qui doit être ton adresse hotmail

[legend]

les 2sont corrects . . .

[sylvanie]

c'est la loose !

si on revient à ton soucis de base (l'histoire de pb de resolve) il faudrait tenter de remplacer
smtp.live.com par son adresse IP directe : 65.55.162.200
(en continuant d'utiliser la 2eme solution)

[legend]

sa marche tjr pas

[sylvanie]

t'as bien laissé :
$IPPort = 25
$ssl = 1

?

Là j'avoue que le désespoir me gagne

[legend]

Je pense que je peut le faire avec les fonctions _IEForm . . .
Quelqu'un connait un e-mail sans javascript ni flash etc . . . (les trucs importants avec html)
enfin quoi un e-mail pourris de l'an 2000
merci et bonne journée