outlook remonter du texte dans le body Fermé

Question

Bonjour, 

j'ai une macro qui me mets du texte qui est à l'origine dans un document word il me le mets dans outlook dans le body.
le problème est que souvent ce texte est bien trop bas.je souhaiterais pouvoir le remonter tout en haut du body.Est ce possible?
je ne veux pas utiliser le htmlbody car c'est vrai il me mets le texte en haut du body mais il me suprime tous les espaces dans le texte.
Voici mon code:
Sub Emaildoc()

Dim OutApp As Object
    Dim OutMail As Object

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

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

Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub




Configuration: Windows XP / Chrome 36.0.1985.125

pijaku · Answer

Bonjour,

Essayons ceci :
1- placez le texte dans une variable String,
2- supprimez tous les espaces en début de chaine
3- collez cette variable String dans le Body (curieuse cette tournure de phrase ;-)

Ce qui nous donne ce code :
Sub Emaildoc()

Dim OutApp As Object
    Dim OutMail As Object
    Dim strTexte As String

Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    strTexte = ActiveDocument.Bookmarks("\page").Range.Text
    strTexte = LTrim(strTexte)
    With OutMail
        .To = "EmailAddressHere"
        .Subject = "SubjectHere"
        .Body = strTexte
        .Display
    End With

Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub
 
Cordialement,
Franck

Outlook remonter du texte dans le body

1 réponse

Discussions similaires

Newsletters