Discussion :

[Rag02700]

Hello le forum,

J'aimerais récupérer le contenu d'un document word (même mise ne forme) dans le corps d'un mail outlook.

Apparemment lorsque l'on fait dans outlook. Insertion-objet - créer à partir du fichier, ça fonctionne plutot bien.

Je voudrais donc faire cette manipulation en vba mais je ne trouve pas beaucoup d'infos...

Pourriez-vous m'aider svp ?

Merci pour votre aide.

[Oliv-]

SALUT,

C'est presque le même code VBA que pour WORD.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Paste_wordeditor()
 
    Dim outlookwordeditor
    Dim appOutlook As Outlook.Application
    Dim oMail As Outlook.MailItem
 
    ' Set appOutlook = CreateObject("Outlook.Application")
    Set appOutlook = Application
    Set oMail = appOutlook.ActiveInspector.CurrentItem
    Set outlookwordeditor = oMail.GetInspector.WordEditor
 
    'ICI on utilise les intructions WORD précédée de outlookwordeditor.
    Set wordSelection = outlookwordeditor.Application.Selection
    wordSelection.PasteAndFormat Type:=wdFormatOriginalFormatting
 
End Sub