envoi d'un e-mail avec VBA

[elhich]

salut forum
je trouve pas comment envoyer un e-mail avec ficher attaché (.rar)
a l'aide de VBA
est ce que c'est possible?
j'ai reussi a envoyer un fichier attaché (.xls) de cette façon
*****
ActiveWorkbook.SendForReview _
Recipients:="hichem_2000@voila.fr", _
Subject:="book1" , _
ShowMessage:=True, _
IncludeAttachment:=True
*****
mais on ne peut pas l'utiliser qu'avec EXCEL

y a t-il une methode pour envoyé un fichier compréssé .rar par exemple

j'ai besoin de vos idées
merci à tous

 

[Arnaud]

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.

 

[@+Thierry]

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