Word Insérer contenu Word dans corps mail Outlook

bast0504

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour bast0504, le forum,

La réponse est un peu tardive, mais peut-être servira-t-elle encore.
Voici un bout de code à adapter :
VB:
'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+
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof