Page 1 sur 1
[R] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 18:47
par mangaskiff
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.
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 19:11
par sylvanie
voir la fonction _INetSmtpMail
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 19:17
par mangaskiff
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 ?
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 19:32
par jbnh
Vous la trouverez dans le fichier d'aide autoit dans votre dossier autoit
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 19:42
par mangaskiff
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 ?
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 19:59
par sylvanie
Et bien celà va se connecter sur le serveur smtp sité, puis envoyé un mail construit avec les infos données par protocole smtp
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 20:04
par jbnh
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 20:06
par mangaskiff
J'ai tester et cela ne fait rien ...
Je ne comprend vraiment pas.
Si on pouvais m'expliquer, sa serait cool
.
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 20:10
par ani
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
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 20:14
par sylvanie
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)
Re: [..] Envoyer un .txt par e-mail .
Posté : ven. 09 oct. 2009 20:42
par mangaskiff
Merci beaucoup pour votre aide.
Re: [R] Envoyer un .txt par e-mail .
Posté : lun. 26 oct. 2009 18:00
par Karl
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
Re: [R] Envoyer un .txt par e-mail .
Posté : lun. 26 oct. 2009 22:24
par jbnh
Re: [R] Envoyer un .txt par e-mail .
Posté : lun. 26 oct. 2009 23:18
par Karl
Merci pour la suggestion. Mais j'aimerai bien comprendre ce que sont les .From, .To......
Re: [R] Envoyer un .txt par e-mail .
Posté : mar. 27 oct. 2009 11:51
par zelda2
From= email de l expéditeur ( donc toi)
to =l'email de la personne a qui tu envoie.
Re: [R] Envoyer un .txt par e-mail .
Posté : mar. 27 oct. 2009 12:14
par Karl
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+
Re: [..] Envoyer un .txt par e-mail .
Posté : mar. 27 oct. 2009 18:36
par zelda2
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