A voir également:
- Texte page Word active sur Outlook body
- Supprimer une page word - Guide
- Word numéro de page 1/2 - Guide
- Espace insécable word - Guide
- Organigramme word - Guide
- Transcription audio en texte word gratuit - Guide
1 réponse
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
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
