Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Contenu doc Word dans corps Outlook


Sujet :

VBA Outlook

  1. #1
    Membre à l'essai
    Contenu doc Word dans corps Outlook
    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.

  2. #2
    Expert éminent
    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

###raw>template_hook.ano_emploi###