Conserver espaces texte word sur outlook
Résolu
sormick
-
sormick -
sormick -
Bonjour,
j'ai un code vba qui me permet de mettre du texte word sur la boite d'envoi de mail outlook.
Voici le code:
Selection.GoTo What:=wdGoToPage, Count:="1"
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application.14")
Set OutMail = OutApp.CreateItem(0)
With OutMail
Dim exWb As Object
On Error Resume Next
Set exWb = GetObject(ActiveDocument.Path & "\TAGUEUR bv.xls")
.To = exWb.Sheets("macros").Range("bn100").Value
.Subject = "Message France"
.HTMLBody = ActiveDocument.Bookmarks("\page").Range.FormattedText
End With
Set OutMail = Nothing
Set OutApp = Nothing
Comment faire pour conserver les retours à la ligne et les espaces?
j'ai un code vba qui me permet de mettre du texte word sur la boite d'envoi de mail outlook.
Voici le code:
Selection.GoTo What:=wdGoToPage, Count:="1"
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application.14")
Set OutMail = OutApp.CreateItem(0)
With OutMail
Dim exWb As Object
On Error Resume Next
Set exWb = GetObject(ActiveDocument.Path & "\TAGUEUR bv.xls")
.To = exWb.Sheets("macros").Range("bn100").Value
.Subject = "Message France"
.HTMLBody = ActiveDocument.Bookmarks("\page").Range.FormattedText
End With
Set OutMail = Nothing
Set OutApp = Nothing
Comment faire pour conserver les retours à la ligne et les espaces?
A voir également:
- Conserver espaces texte word sur outlook
- Espace insécable word - Guide
- Word 2013 - Télécharger - Traitement de texte
- Transcription audio en texte word gratuit - Guide
- Comment supprimer une page sur word - Guide
- Tableau word - Guide