Bonjour,

J'ai fais une macro permettant d'envoyer le contenu d'un classeur par email via lotus notes v7.0.

Malheureusement, le texte (une fois importé dans le corps de l'email) n'est pas mis en forme.

Je voudrais ajouter des saut de lignes par exemple.

Voici le code de la macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("B1")
Subj = Range("B2")
Msg = Msg & Range("C1") & Range("C2") & Range("C3") & Range("C4") ....
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Merci