[R] Envoyer un .txt par e-mail .

mangaskiff · #1

Bonjour voila j'aimerai envoyer un .txt qui se trouve sur mon autre ordinateur pas e-mail vers mon

adresse toute les 3h et sans que cela affect se qu'il se passe sur mon ordinateur ( en gros je veux pas

avoir affaire à des Mousemouve ou des choses du genre).Bien sur seulement si c'est possible

Merci d'avance.

#2

voir la fonction _INetSmtpMail

mangaskiff · #3

Merci mais je ne la trouve pas sur la doc et je ne sais pas comment elle fonctionne je pourrais avoir plus

de détaille sur cette fonction ?

#4

Vous la trouverez dans le fichier d'aide autoit dans votre dossier autoit

mangaskiff · #5

Bon disons que mon code soit sa :

Code : Tout sélectionner

#include <INet.au3>

$s_SmtpServer = "smtp.free.fr"
$s_FromName = "xxxxxxx"
$s_FromAddress = "xxxxxxx@hotmail.fr"
$s_ToAddress = "yyyyyyyy@hotmail.fr"
$s_Subject = "My Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$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

Que cela fera-il ?

#6

Et bien celà va se connecter sur le serveur smtp sité, puis envoyé un mail construit avec les infos données par protocole smtp

#7

http://www.autoitscript.fr/smtp.php

Pour savoir votre smtp

mangaskiff · #8

J'ai tester et cela ne fait rien ...

Je ne comprend vraiment pas.

Si on pouvais m'expliquer, sa serait cool

.

#9

bien le bonjour,
alors plusieur possibilité (2 en faite ^^')
avec la fonction proposé : mais un peu plus complexe au lieu d'attacher le fichier, vous devriez le lire (fileread), obtenir le nombre de ligne pour l'envoier dans le Sous array nommé $Body.

Ou plus simple avec la fonction INetSmtpMailCom, qui vous permet de faire un attache dee fichier

voici la fonction

► Afficher le texte

Code : Tout sélectionner

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $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])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                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
    $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
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom

il doit exister des exemples avec inetsmtpmailcom

et me semble que le smtp free a changé aussi

(a vérifier)

bonne continuation

#10

sinon, pour revenir à la première, ce conseille l'activation des logs pour contrôler :

$trace = 1
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body,"EHLO "&@ComputerName,-1,$trace)

mangaskiff · #11

Merci beaucoup pour votre aide.

Karl · #12

Bonsoir,

J'ai mis en application la fonction proposée pour du mail avec pièces jointes; mais des zones d'ombre persistent.

Je recherche un nom pour les propriétés du message :
.From
.To
.Subject.......

Je demande cela car je ne parviens pas à les retrouver à la page
http://msdn.microsoft.com/en-us/library ... 10%29.aspx

Il s'agit peut-être d'une question de vocabulaire. Sur la page de microsoft, on nous dit, par exemple:

AddressEntries collection : c'est un objet
Application, Class, Count,Filter,Item,Parent,Session.. : sont des propriétés de l'objet AddressEntries
Add,Delete,GetFirst.....: sont des méthodes de l'objet pré-cité.

J'ai fouillé dans toutes les propriétés sans jamais y trouver les Form, To.....

A quoi servent les choses du genre :
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/config ... /sendusing") ?

Merci

#13

Sinon : QUICKMAIL

Karl · #14

Merci pour la suggestion. Mais j'aimerai bien comprendre ce que sont les .From, .To......

zelda2 · #15

From= email de l expéditeur ( donc toi)
to =l'email de la personne a qui tu envoie.

Karl · #16

Merci Zelda2 pour cette réponse.
Je dispose d'un minimum de bagage en anglais et en informatique pour comprendre la signification des .From, .To et autres attributs.. Mon problème est que je ne trouve pas une doc sur le CDO "CDO.message" qui me listerait ces attributs. Voir mon message du lundi 26 18:00

A+

zelda2 · #17

ani a écrit :bien le bonjour,
alors plusieur possibilité (2 en faite ^^')
avec la fonction proposé : mais un peu plus complexe au lieu d'attacher le fichier, vous devriez le lire (fileread), obtenir le nombre de ligne pour l'envoier dans le Sous array nommé $Body.

Ou plus simple avec la fonction INetSmtpMailCom, qui vous permet de faire un attache dee fichier

voici la fonction

► Afficher le texte

Code : Tout sélectionner

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $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])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                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
    $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
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom

il doit exister des exemples avec inetsmtpmailcom

et me semble que le smtp free a changé aussi

(a vérifier)

bonne continuation

Ani il faudrait que tu nous donne des exemples avec cette fonction stp, aucune sur internet n'est disponible , et la donné comme sa nous éclaire pas trops. et ça en aiderais plus d'un de savoir l'utilisé ( dont moi) .Merci
et le smtp de free est toujours smtp.free.fr

AutoIt Français

[R] Envoyer un .txt par e-mail .

[R] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .

Re: [R] Envoyer un .txt par e-mail .

Re: [R] Envoyer un .txt par e-mail .

Re: [R] Envoyer un .txt par e-mail .

Re: [R] Envoyer un .txt par e-mail .

Re: [R] Envoyer un .txt par e-mail .

Re: [..] Envoyer un .txt par e-mail .