[VBA-E] Insertion d'un saut de ligne dans un mail automatique

**alex_95** · 10/05/2006, 12h24

Bonjour,

Voila, je cherche a ecrire un mail automatique avec outlook depuis Excel avec en debut de courrier : bonjour X, puis un saut de ligne et la suite du corps de texte.
Pour se faire j'ai essayé via les caractères de retour chariot :
- Chr(13) + Chr(10) mais aussi par
- vbCrLf ou
- vbNewLine

mais rien n'y fait, je n'ai toujours pas de saut de ligne ... Quelqu'un a une idée ?

Merci d avance

**jmfmarques** · 10/05/2006, 12h40

mais rien n'y fait, je n'ai toujours pas de saut de page ... Quelqu'un a une idée ?

Saut de ligne ou saut de page ?
faut savoir ...

**AlainTech** · 10/05/2006, 12h41

As-tu essayé VbLf?

**illight** · 10/05/2006, 12h49

En allant sur l'aide :

vbCrLfChr(13) + Chr(10) Combinaison des caractères de retour chariot et de saut de ligne

vbCrChr(13) Caractère de saut de paragraphe

vbLfChr(10) Caractère de saut de ligne

**alex_95** · 10/05/2006, 13h56

Merci pour votre aide, cela dit, ces codes ne marchent pas dans le corps du Msg du mail.
En effet, mon texte ne prend pas en compte le saut de ligne, il ecrit mon mail tout collé :

"Bonjour X, voici le fichier d'analyse..."

Avez vous 1 idée ?

Merci d avance

**AlainTech** · 10/05/2006, 14h04

Quel est le format du mail?

Plain Text ou HTML?

**alex_95** · 10/05/2006, 14h10

C'est du Outlook classique, en fait quand je lance ma macro, j'ai Outlook qui se lance et le mail qui est ecrit, mais toujours pas de saut de ligne apres bonjour (en gras ci-dessous), voici le code ci dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Envoimail(etude)
prenom = Range("K" & etude + 4)
Application.ScreenUpdating = False
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Fichier As String
Dim Msg As String
Dim HLink As String
Subj = "Analyse " & Range("D" & etude + 4) & " éffectuée"
EmailAddr = "" & Range("I" & etude + 4) & "@XXX.com"
Msg = "Bonjour " & prenom & ", " & vbLf & "L'analyse est faite"
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink HLink
Sleep (20)
SendKeys "%s", True

Merci d'avance