Aller à la ligne dans mail [Mozilla thunderbird]

**gilles171** · 29/01/2015, 09h36

Bonjour,

Dans ma macro suivante j'essaie d'aller à la ligne avec & Chr(13)

Code :

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

1
2
3
 
 
body = "Bonjour," & Chr(13) & "Merci de bien vouloir trouver en PJ le document." & Chr(13) & " A votre disposition pour en discuter"

Cela ne marche pas et je ne trouve pas de solution, quelqu'un aurait une idée ?

Merci beaucoup.

Invité · 29/01/2015, 10h06

Bonjour,

Et avec Chr(10) ?

Cordialement.

**gilles171** · 29/01/2015, 10h13

Merci pour la réponse, mais avec des Chr(10) je n'ai que le "bonjour"

Invité · 29/01/2015, 10h17

Envoyé par gilles171

Merci pour la réponse, mais avec des Chr(10) je n'ai que le "bonjour"

Alors tu mets ton message dans une variable string et body = Tavariable.

Cordialement.

**gilles171** · 29/01/2015, 10h22

Désolé mais je ne sais pas comment faire... à quel niveau je dois le faire ?

Code :

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

1
2
3
4
5
6
7
 
Sub Test()
Dim destinataire, sujet, fichierjoint As String
destinataire = "xx@gmail.com"
sujet = "XX"
 
body = "Bonjour," & Chr(10) & "Merci de bien vouloir trouver en PJ le document." & Chr(10) & " A votre disposition pour en discuter"

Invité · 29/01/2015, 10h26

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Sub Test()
 
Dim destinataire, sujet, fichierjoint As String
Dim Message As String
 
 
destinataire = "xx@gmail.com"
sujet = "XX"
Message = "Bonjour," & Chr(10) & "Merci de bien vouloir trouver en PJ le document." & Chr(10) & " A votre disposition pour en discuter"
body = Message
 
 
End Sub

**gilles171** · 29/01/2015, 10h38

Merci, mais je n'ai que le "bonjour " avec Chr(13) ou Chr(10)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Test()
 
Dim destinataire, sujet, fichierjoint As String
Dim Message As String
 
 
destinataire = "xx@gmail.com"
sujet = "XX"
Message = "Bonjour," & Chr(13) & "Merci de bien vouloir trouver en PJ le document." & Chr(13) & " A votre disposition pour en discuter"
body = Message

Invité · 29/01/2015, 11h02

Je n'arrive pas à reproduire. Peux-tu mettre tout le code depuis la création de l'item du mail jusqu'au lancement ?

Cordialement.

**gilles171** · 29/01/2015, 11h06

Voici le code complet, merci ! ( je précise que c'est sur Mozilla Thunderbird mail)

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
19
20
21
22
23
 
Sub Test()
 
Dim destinataire, sujet, fichierjoint As String
Dim Message As String
 
 
destinataire = "xx@gmail.com"
sujet = "XX"
Message = "Bonjour," & Chr(13) & "Merci de bien vouloir trouver en PJ le document." & Chr(13) & " A votre disposition pour en discuter"
body = Message
 
fichierjoint = "--"
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
 
Call Shell(strcommand, vbNormalFocus)
End Sub

Invité · 29/01/2015, 11h34

A partir d'une solution de Rdurupt :

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
19
20
21
Sub Test()
 
Dim destinataire, sujet, fichierjoint As String
 
destinataire = "xx@gmail.com"
sujet = "XX"
Body = "Bonjour," & retourChariot
Body = Body & "Merci de bien vouloir trouver en PJ le document." & retourChariot & retourChariot
Body = Body & " A votre disposition pour en discuter."
 
fichierjoint = "--"
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & Body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
 
Call Shell(strcommand, vbNormalFocus)
End Sub

**gilles171** · 29/01/2015, 11h45

Merci, mais je n'ai encore que "bonjour" dans le corps du mail ..

**DenisHen** · 29/01/2015, 13h01

Bonjour à tous,

Et en remplaçant les chr$() par un VbCrLf ? Ca fonctionnerait ? Ou en faisant

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
19
20
21
Sub Test()
 
Dim destinataire, sujet, fichierjoint As String
Const retourChariot = "%0A" 'Remplace VbCrLf ou Chr$()
destinataire = "xx@gmail.com"
sujet = "XX"
Body = "Bonjour," & retourChariot
Body = Body & "Merci de bien vouloir trouver en PJ le document." & retourChariot & retourChariot
Body = Body & " A votre disposition pour en discuter."
 
fichierjoint = "--"
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & Body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
MsgBox strcommand
 
Call Shell(strcommand, vbNormalFocus)
End Sub

Denis...

Invité · 29/01/2015, 13h12

Bonjour,
je pense que tu exécute par ligne de commande, via une url!
le caractère de retour ligne, dans ce cas précis, n'est chr(10) mais "%10"

Code :

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

body = "Bonjour,%10Merci de bien vouloir trouver en PJ le document.%10 A votre disposition pour en discuter"

Invité · 29/01/2015, 13h12

Envoyé par DenHen

Et en remplaçant les chr$() par un VbCrLf ? Ca fonctionnerait ? Ou en faisant

Code :

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

1
2
Sub Test()
 Const retourChariot = "%0A" 'Remplace VbCrLf ou Chr$()

Denis...

Bonjour Denis,

J'avais pompé le code dans ton post mais visiblement j'avais oublié la constante RetourChariot dans ma réponse.

Cordialement.

**gilles171** · 29/01/2015, 13h53

Merci à tous,
J'ai tout essayé ca ne fonctionne pas, je n'ai que la première ligne 'Bonjour" ...

Et impossible de trouver sur le net un corps de mail sur mozilla

Invité · 29/01/2015, 13h57

oui exact c'est de l’hexadécimale

"%0A"

bien vue DenHen

**gilles171** · 02/02/2015, 10h02

Bonjour,

Je me permets de remonter la file pour votre aide, merci et bonne journée à tous

Invité · 02/02/2015, 11h18

Bonjour,

A tester :

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
19
20
21
22
Sub Test()
 
Dim destinataire, sujet, fichierjoint As String
 
destinataire = "xx@gmail.com"
sujet = "XX"
 
Body = "<HTML><BODY>Bonjour" & "," _
    & "<br>" & "<br>" & "Merci de bien vouloir trouver en PJ le document." _
    & "<br>" & " A votre disposition pour en discuter." & "</BODY></HTML>"
 
fichierjoint = "--"
 
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject='" & sujet & "',format='1',"
strcommand = strcommand & "body='" & Body & "'"
strcommand = strcommand & "," & "attachment='file:///" & fichierjoint & "'"
 
Call Shell(strcommand, vbNormalFocus)
 
End Sub

Cordialement.

Aller à la ligne dans mail [Mozilla thunderbird] [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager