AutoIt Français

Bonjour, voilà je suis un gros noob à ce soft et j'essaie tant bien que mal à lancer un script qui m'envoie un mail sans que je sois obligé de taper mon message dans une boite mail (ma boite est Lotus note)

Code : Tout sélectionner

#include <INet.au3>

$s_SmtpServer = "smptdemaboite"
$s_FromName = "Bozo"
$s_FromAddress = "bozo@bozo.com"
$s_ToAddress = "bozo@bozo.com"
$s_Subject = "Salut"
$as_Body = "Hello world"

$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)

$err = @error
If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf

et là j'obtient un code erreur 50.
Donc si vous pouviez m'aider sur ce logiciels je vous en remercie d'avance.

j'ai hélas le meme probleme que toi et je n'ai pas encore trouver la solution,et pourtant mon smtp est bon .. arf

bonjour bozo65535

y a ce post qui en parle erreur 50

j'avais testé l'exemple mais sans succés et je n'ai pas retesté depuis

http://autoitscript.fr/forum/viewtopic.php?f=3&t=595

Merci.

si je peux apporter ma petite pierre a l'edifice, j'ai beaucoup teste cette fonction, il faut que l adresse d emetteur soit valide genre si bozo.com n'existe pas, ton mail ne partira pas

ci dessous, le mailer que j'utilise a partir de mon pc, sachant que par soucis de securite (80% des attaques virales se font par mail), je releve et envoie mon courrier a partir de mac os x, ne faite pas attention au design de l'appli, ya que moi qui l utilise alors osef ^^, je l'utilise egalement a partir de ma cle usb, d'ou la recherche du smtp par un script php sur mon serveur (en cours de debugage), a savoir que l'envoie de mail a partir d'un ordi derriere un proxy ne fonctionnera pas

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version:    3.2.10.0
 Author:            Arrkhan
 
 Script Function:   Envoi de mail de maniere autonome

#ce ----------------------------------------------------------------------------
#include<GuiConstants.au3>
#include<Inet.au3>
#NoTrayIcon

Dim $Body
Dim $as_Body[1]
$APPTitle = "ATP_Mailer"

$MailerGUI = GUICreate($APPTitle & " - Envoyer un courriel à …qui on veut ^^ by arrkhan…", 480, 300, -1, -1)

GUICtrlCreateLabel("De  :", 10, 10, 40, 20)
$FromName = GUICtrlCreateInput("", 50, 7, 170, 20)

GUICtrlCreateLabel("@  :", 10, 35, 40, 20)
$FromAddress = GUICtrlCreateInput("", 50, 32, 170, 20)

GUICtrlCreateLabel("À  :", 10, 55, 40, 20)
$s_ToAddress = GUICtrlCreateInput("", 50, 52, 170, 20)

GUICtrlCreateLabel("Sujet  :", 10, 75, 40, 20)
$Subject = GUICtrlCreateInput("", 50, 72, 170, 20)
$Body = GUICtrlCreateEdit("", 10, 102, 460, 165)
GUICtrlSetFont($Body, 9)

$Send = GUICtrlCreateButton("Envoyer", 420, 270, 50, 20)
GUICtrlSetState($Send, $GUI_DEFBUTTON)

$answer = _VerifNetSilent()
If $answer = 1 Then
    MsgBox(0, $APPTitle & " - Erreur", "Impossible de se connecter à internet, certaines fonctions ont été grisées.")
    GUICtrlSetState($Send, $GUI_DISABLE)
EndIf

GUISetState()
While 1
    $msg = GUIGetMsg()
    If $msg = -3 Then
        DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
        GUIDelete($MailerGUI)
        ExitLoop
    EndIf
    If $msg = $Send Then
        $answer = _VerifNetSilent()
        If $answer = 1 Then
            MsgBox(0, $APPTitle & " - Erreur", "Impossible de se connecter à internet")
            ExitLoop
        Else
            DirCreate(@TempDir & "\ATP\ATP_Mailer")
            InetGet("http://arrkhan.free.fr/fai.php", @TempDir & "\ATP\ATP_Mailer\smtp")
        EndIf
        GUICtrlSetState($Send, $GUI_DISABLE)
        $s_SmtpServer = FileRead(@TempDir & "\ATP\ATP_Mailer\smtp")
        If GUICtrlRead($FromName) = "" Then
            $s_FromName = "OSEF"
        Else
            $s_FromName = GUICtrlRead($FromName)
        EndIf
        If GUICtrlRead($FromAddress) = "" Then
            MsgBox(0,$APPTitle, "Veuillez choisir entrer votre adresse email…",5)
        Else
            $s_FromAddress = GUICtrlRead($FromAddress)
        EndIf
        If GUICtrlRead($s_ToAddress) = "" Then
            MsgBox(0,$APPTitle, "Veuillez choisir un destinataire…",5)
        Else
            $s_ToAddress = GUICtrlRead($s_ToAddress)
        EndIf
        If GUICtrlRead($Subject) = "Choisissez un sujet…" Then
            MsgBox(0, $APPTitle, "Veuillez choisir un sujet svp…", 5)
            GUICtrlSetState($Send, $GUI_ENABLE)
            ContinueLoop
        EndIf
        $s_Subject = GUICtrlRead($Subject)
        $as_Body[0] = GUICtrlRead($Body)
        If GUICtrlRead($Body) = "" Then
            MsgBox(0, $APPTitle, "Veuillez entrer un message…", 5)
            GUICtrlSetState($Send, $GUI_ENABLE)
            ContinueLoop
        EndIf
        $Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
        If $Response = 1 Then
            MsgBox(0, "Réussi !", "Courriel envoyé.", 2)
            DirRemove(@TempDir & "\ATP\ATP_Mailer", 1)
            GUIDelete($MailerGUI)
            ExitLoop
        Else
            MsgBox(0, "Echec de l'envoi !", "Impossible d'envoyer le courriel." & @CR & "Code d'erreur : " & @error, 5)
            GUICtrlSetState($Send, $GUI_ENABLE)
        EndIf
        Sleep(10)
    EndIf
WEnd
Exit

Func _VerifNetSilent()
    Ping("arrkhan.free.fr", 250)
    If @error = 0 Then
        Return 0 ; net ok
    Else
        Return 1 ; pas le net
    EndIf
EndFunc   ;==>_VerifNetSilent

J'ai toujours le meme probleme erreur 50 arf...

Code : Tout sélectionner

$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"",-1)

AutoIt Français

[R] Envoyer un mail automatiquement

[R] Envoyer un mail automatiquement

Re: Envoyer un mail automatiquement

Re: Envoyer un mail automatiquement

Re: [..] Envoyer un mail automatiquement

Re: [..] Envoyer un mail automatiquement

Re: [..] Envoyer un mail automatiquement

Re: [..] Envoyer un mail automatiquement