Texte page Word active sur Outlook body

sormick -  
 sormick -
Bonjour,
J'ai un fichier Word comprenant plusieurs pages. Pour chaque page il y a un texte different.
Je souhaiterais si c'est possible que lorsqu'une page est active qu'il me mette le message de cette page active directement sur Outlook dans le (body)
Est ce possible ?

1 réponse

  1. sormick
     
    et Voici la solution pour mettre la page word active sur outlook!!!

    Dim OutApp As Object
    Dim OutMail As Object

    'ActiveDocument.Range.Copy

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
    .To = "EmailAddressHere"
    .Subject = "SubjectHere"
    .HTMLBody = ActiveDocument.Bookmarks("\page").Range.FormattedText
    .Display
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
    0