Word Insérer contenu Word dans corps mail Outlook

[bast0504]

Bonjour

Je possède un fichier word et je souhaiterais intégrer son contenu dans le corps d'un email outlook 2013 mais sans que le format ne change à savoir que les images restent disposer comme dans l'origine word et que les paragraphes soient justifiés comme dans l'origine word ?

est ce faisable ?

Merci
Cordialement

 

[mromain]

Bonjour bast0504, le forum,

La réponse est un peu tardive, mais peut-être servira-t-elle encore.
Voici un bout de code à adapter :

'récupérer le premier document de l'application Word ouverte
Set l_o_wdApp = GetObject(, "Word.Application")      'si bug, l'application Word n'est pas ouverte
Set l_o_wdDoc = l_o_wdApp.Documents(1)                  'si bug, aucun document n'est ouvert

'créer et afficher un nouveau mail
Set l_o_mail = Application.CreateItem(olMailItem)
l_o_mail.Display

'copier/coller le contenu du document Word dans le corp du nouveau mail
With l_o_mail.GetInspector
    If .IsWordMail() And .EditorType = olEditorWord Then
        l_o_wdDoc.Range().Copy
        l_o_mail.GetInspector.WordEditor.Range().Paste
   End If
End With

A+