[R] Envoyer un mail automatiquement

[bozo65535]

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.

[Vins83]

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

[ani]

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

[Tlem]

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

Merci.

[arrkhan]

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

[Vins83]

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

[ani]

Code : Tout sélectionner

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