Sub MailFeuilleOE()
'd'apres une macro de Laurent LONGRE transmise par MICHELXLD
Dim Dest As String, Sujt As String, Msg As String
Dim RepName As String
Dim copie As String
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:="C:\temp\test.xls"
RepName = "C:\temp\test.xls"
Dest = "[EMAIL="mon.adresse@free.fr"]mon.adresse@free.fr[/EMAIL]"
'noter le &cc= entre les differentes adresses en copie
copie = "[EMAIL="mon.adresse1@free.fr&cc=monadresse2@free.fr"]mon.adresse1@free.fr&cc=monadresse2@free.fr[/EMAIL]"
Sujt = "Test d'envoi d'une feuille avec Excel"
Msg = "Bonjour, Excel vous envoie une feuille avec Outlook Express"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?cc=" & copie & "&subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
ActiveWorkbook.Close
End Sub
Sub MailFichierOE()
'd'apres une macro de Laurent LONGRE transmise par MICHELXLD
Dim Dest As String, Sujt As String, Msg As String
Dim RepName As String
Dim copie As String
ActiveWorkbook.SaveCopyAs "C:\temp\test.xls"
RepName = "C:\temp\test.xls"
Dest = "[EMAIL="mon.adresse@free.fr"]mon.adresse@free.fr[/EMAIL]"
'noter le &cc= entre les differentes adresses en copie
copie = "[EMAIL="sec.adresse@free.fr&cc=tri.adresse@free.fr"]sec.adresse@free.fr&cc=tri.adresse@free.fr[/EMAIL]"
Sujt = "Test d'envoi d'un fichier avec Excel"
Msg = "Bonjour, Excel vous envoie un fichier avec Outlook Express"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?cc=" & copie & "&subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & RepName & "~" & "%s"
End Sub
Sub envoimail()
Workbooks("Mail.xls").HasRoutingSlip = True
With Workbooks("Mail.xls").RoutingSlip
.Delivery = xlAllAtOnce
.Recipients = Array("[EMAIL="adresse1@free.fr"]adresse1@free.fr[/EMAIL]", _
"[EMAIL="adresse2@free.fr"]adresse2@free.fr[/EMAIL]", "[EMAIL="adresse3@free.fr"]adresse3@free.fr[/EMAIL]")
.Subject = "Le fichier"
.message = "comment allez vous ?? "
End With
ActiveWorkbook.Route
End Sub