Conserver espaces texte word sur outlook [Résolu/Fermé]

Signaler
-
 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?

1 réponse

J'ai trouvé!!

il suffit de remplacer .HTMLbody par .body

et le format ainsi que les sauts de ligne et les espaces sont maintenus!!!