Discussion :

[m3t4linux]

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

[Hagendorf]

Bonjour,

Si tu veux insérer des sauts de ligne, il est préférable que tu ai une idée de la façon dont doit être mis en forme ton message;

Par exemple, si tu inserér un saut après Msg & Range("C1") dans la balise body, il faut ajouter la balise <br> tu aura donc quelque chose du genre,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Msg & Range("C1")& "<BR>" & Range("C2") & Range("C3") & Range("C4")

Les balises utilisées sont celles du HTML pour les messages.

[m3t4linux]

merci pour ta réponse

j'avais déjà tenté cette solution mais le problème est qu'il me reporte <br> dans le corps de l'email

Apparemment, il le considère simplement comme du texte, une valeur saisie et pas comme une balise HTML.

Il n'est peut être pas possible de faire ce que je demande...

[neupont]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C1") & vbCrLf & Range("C2")

[m3t4linux]

Merci pour ta réponse

Lors de mes recherches sur le web, j'ai tenté ce retour chariot mais rien n'y fait...

J'espère ne pas avoir tout épuisé...

D'autres idées??

Merci

[oOVaveOo]

Bonjour,

Peut-être en ASCII ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("C1") & Chr(10) & Range("C2")
'ou
Range("C1") & Chr(13) & Chr(10) & Range("C2")

[jolop35]

Bonjour

Et avec vbNewline ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Msg = Msg & Range("C1") & _
vbNewLine & Range("C2") & _
vbNewLine & Range("C3") & _
vbNewLine & Range("C4")

J.L