Sauter une ligne dans mail envoyé par VBA

HUGS · 9 Janvier 2008

Bonjour,
J'ai le script suivant qui ne me permet pas de sauter une ligne dans le mail généré entre Bonjour et Aurevoir :
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & "Bonjour,"
Msg = Msg & Chr(13) & Chr(10) ' comment sauter une ligne ?
Msg = Msg & vbNewLine & "Au revoir"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Si quelqu'un a une idée ?

Par avance merci.

MichelXld · 10 Janvier 2008

Re : Sauter une ligne dans mail envoyé par VBA

bonjour

Tu peux tester

Code:

Sub EnvoiUnMail()
    Dim MailAd As String
    Dim Msg As String
    Dim Subj As String
    Dim URLto As String
    
    MailAd = Range("d1")
    Subj = Range("d2")
    Msg = Msg & "Bonjour,%0D%0A %0D%0A %0D%0A"
    Msg = Msg & "Au revoir"
    
    URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Bonne journée
MichelXld

JNP · 10 Janvier 2008

Re : Sauter une ligne dans mail envoyé par VBA

Bonjour Hugues, Michel ,
essaie

Code:

"Bonjour," & vbCrLf & "Au revoir"

Bonne journée

HUGS · 10 Janvier 2008

Re : Sauter une ligne dans mail envoyé par VBA

Merci Michel, ton code marche nickel

& vbCrLf & "Au revoir" ne fonctionne pas sur mon PC (peut-être un problème de versions Outlook) merci qd même à JNP.

PROBLEME RESOLUS

HUGS

Sauter une ligne dans mail envoyé par VBA

HUGS

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

HUGS

XLDnaute Nouveau

Discussions similaires