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?
