Bonjour, dans une macro Excel, je créée un brouillon dans Outlook pour chaque mail, je remplis tous les champs, mais j'ai un problème pour le corps du message (body) : je voudrais y insérer le texte d'un document word enregistré dans un rpertoire connu, en gardant la mise en forme telle quelle, comment faire ?
Voici le début de mon code à compléter ou modifier:
'Fichier Word à copier dans le corps du mail
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = False
Set wrdDoc = wrdApp.Documents.Open("C:Texte.doc")
'Peut-être est-ce possible en copiant tout le texte ?
wrdApp.Selection.WholeStory
wrdApp.Selection.Copy
'Création du mail
Dim OutlookApp As New Outlook.Application
Dim NewMail As Outlook.MailItem
Dim myDestFolder As Outlook.MAPIFolder
Dim myNameSpace As Outlook.Namespace
Set NewMail = OutlookApp.CreateItem(olMailItem)
NewMail.Recipients.Add ("destinataire")
NewMail.Subject = "Sujet"
NewMail.Body '<-- Fichier Word
NewMail.Attachments.Add ("C:\Pièce jointe")
NewMail.CC = "Destinataire en copie"
'Création du brouillon
Set myNameSpace = OutlookApp.GetNamespace("MAPI")
Set myDestFolder = myNameSpace.GetDefaultFolder(olFolderDrafts)
NewMail.Move myDestFolder