envoi d'un e-mail avec VBA

salut,

regarde sur ce fil :

http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=94532&t=94527

je donne 2-3 renseignements qui devrais t'aider.

Bonjour Elhich, le Forum

Oui c'est Possible si tu as Outlook d'Office (pas Outlook Express) tu fais ce genre de code :

Const FilePathDaily As String = "I:\PROD\Reports\Daily\Report-"
Const MailTo As String = "Toto@Toto.com"
Const MailCC As String = "Zaza@Toto.com"


Dim OL As Outlook.Application, MyItem As Outlook.MailItem
Dim Message As String
Dim A As Byte, i As Byte

Message = "Good Morning," & vbCrLf & vbCrLf & _
"= = = This is an automatic generated email = = =" & vbCrLf & vbCrLf & _
"Please Please find enclosed the Report" & vbCrLf & _
"Best Regards" & vbCrLf & "Thierry" & vbCrLf & vbCrLf


Set OL = CreateObject("Outlook.Application")
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = MailTo
.CC = MailCC
.Importance = olImportanceNormal
.Subject = "Daily Transactions Summary Reports (" & Format(Now, "YYYY-MM-DD") & ")"
.Body = Message
.Attachments.Add FilePathDaily & Format(Now, "YYYY-MM-DD") & ".rar"
.Categories = "Banking-Info"
.OriginatorDeliveryReportRequested = True
.ReadReceiptRequested = True
'.Send '<<<<<<<<<<<<<<<TO SEND DIRECTLY
.Display '<<<<<<<<<<<<<TO SEE THE MAIL FIRST
End With

End Sub

Bon Après Midi
@+Thierry