Page 1 sur 1
[R] Smtp eMail: Corp du texte qui n'est pas...
Posté : mar. 20 mai 2008 20:37
par Yoyo86220
Bonjour à tous
je voudrai envoyer automatiquement un mail via le bloc note (enfin pas tout a fait) je veux juste que dans le corp de mon texte il y ai tous se qui y a dans le bloc note... je m'explique mieu:
j'écri quelque chose dans un bloc note et je veux que tous se qu'il ya dans ce bloc note se copie automatiquement dans mon mail... j'ai essayé avc FileRead... ect mais marche pas besoin d'aide...
Re: [..] Smtp eMail: Corp du texte qui n'est pas...
Posté : mar. 20 mai 2008 21:29
par timmalos
une question: tu cherche plutot a recuperer ton texte de ton bloc note ou un script pour envoyer ton message? dans le 2eme cas ya ce code:
Code : Tout sélectionner
#include <INet.au3>
$s_SmtpServer = ""
$s_FromName = "My Name"
$s_FromAddress = ""
$s_ToAddress = ""
$s_Subject = "Test"
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!", "Message envoyé)
Else
MsgBox(0, "Error!", "Echec: Erreur " & $err)
EndIf
Et si vraiment tu trouve pas il y a la méthode d'envoyer ton fichier .txt en pièce jointe je ne sais pas si cela peut correspondre a tes besoins je te met le code si ca peut le faire(vient du forum anglais):
► Afficher le texte
Code : Tout sélectionner
;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$s_SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED
$s_FromName = "..." ; name from who the email was sent
$s_FromAddress = "" ; address from where the mail should come
$s_ToAddress = "" ; destination address of the email - REQUIRED
$s_Subject = "sujet" ; subject from the email - can be anything you want it to be
$as_Body = "Corps du message" ; the messagebody from the mail - can be left blank but then you get a blank mail
$s_AttachFiles = "texte.txt" ; the file you want to attach- leave blank if not needed
$s_CcAddress = "" ; address for cc - leave blank if not needed
$s_BccAddress = "" ; address for bcc - leave blank if not needed
$s_Username = "*******s" ; username for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$s_Password = "*******" ; password for the account used from where the mail gets sent - Optional (Needed for eg GMail)
$IPPort = 17 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS
;##################################
; Script
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Rc:" & $rc)
EndIf
;
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
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc
Re: [..] Smtp eMail: Corp du texte qui n'est pas...
Posté : mer. 21 mai 2008 21:15
par Yoyo86220
Solution :
Code : Tout sélectionner
#Include <File.au3>
#Include <Array.au3>
_FileReadToArray("Ton fichier texte", $as_Body)
Re: [R] Smtp eMail: Corp du texte qui n'est pas...
Posté : mer. 21 mai 2008 22:11
par Tlem
@Yoyo86220 les deux includes ne servent à rien en la circonstance.