Bonjour à tous,
Je n'arrive pas à résoudre un sujet et donc je vous le propose. Je souhaiterai envoyer un email au traves d'Excel. Pas de problème à ce niveau. Par contre je souhaiterai que le corps du message .HTMLBody = soit un fichier .mht ou .htlm provenant d'une source comme word.
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = Range("B1").Value
.Subject = Range("B2").Value
.HTMLBody = XXXXXXX("C:\Newsleters.mht")
' .Attachments.Add "c:\data\essai.doc"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
Voila le code en cours. Que pensez vous du XXXXXXX ?
Merci par avance pour votre aide.
Cordialement
Kitof
Je n'arrive pas à résoudre un sujet et donc je vous le propose. Je souhaiterai envoyer un email au traves d'Excel. Pas de problème à ce niveau. Par contre je souhaiterai que le corps du message .HTMLBody = soit un fichier .mht ou .htlm provenant d'une source comme word.
Sub SendMail_Outlook()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String
Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = Range("B1").Value
.Subject = Range("B2").Value
.HTMLBody = XXXXXXX("C:\Newsleters.mht")
' .Attachments.Add "c:\data\essai.doc"
.Display '.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
Voila le code en cours. Que pensez vous du XXXXXXX ?
Merci par avance pour votre aide.
Cordialement
Kitof
