Sauter une ligne et écriture italique dans le texte (body) d'un mail

**francky74** · 28/07/2011, 12h16

Bonjour,

J'ai créé un email qui est envoyé par macro directement depuis Excel. Je souhaite sauter une ligne dans le texte de l'email. Par exemple :
"Bonjour,
. <-- ici un saut de ligne
blablabla ...."

Code :

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

1
2
3
4
5
6
7
8
 
set a = Outlook.createItem(olMailItem)
With a
     .To = "xxx@xx.fr"
     .Subject = "le sujet du mail"
     .Body = "Bonjour, blablabla ..."
     .send
End With

Merci !

**MarcelG** · 28/07/2011, 12h22

Bonjour Franky74,

As-tu essayé le retour "Chr 13".

Code :

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

1
2
3
4
5
6
7
set a = Outlook.createItem(olMailItem)
With a
     .To = "xxx@xx.fr"
     .Subject = "le sujet du mail"
     .Body = "Bonjour" & Chr(13) &"blablabla ..."
     .send
End With

(non testé)

**francky74** · 28/07/2011, 12h25

Bonjour !

Super, ca marche nickel !
En fait, cette commande active des touches du clavier ?

Comment faire si je veux souligner, mettre en gras ou en italique ?

Merci beaucoup,

**MarcelG** · 28/07/2011, 13h04

Salut Francky74,

Je ne suis pas un "pro" de ce type d'écriture.
Cela dit, dans ces conditions, il te faut définir ton corps de mail en format HTML et en utiliser les fonctionnalités.

Ainsi, tu remplaces dans ton code

Code :

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

.Body =

par

Code :

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

1
2
3
.BodyFormat = olFormatHTML
 
.HTMLBody = "<HTML><B>Bonjour mon petit</B><BODY>Francky74. </BODY></HTML>"

au début et à la fin : partie du texte mise en gras

 au débutet à la fin : partie du texte soulignée

 au début et à la fin : partie du texte mise en italique

**francky74** · 28/07/2011, 13h11

Re !

Très bonne idée ! C'est ce que j'avais fait au début. Mais j'ai laissé tombé au moment ou j'ai eu une variable à passer dans le texte !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim strgVariable as string
strgvariable = "blabla"
 
Set a = Outlook.CreateItem(olMailItem)
 
With a
     .To = "xxx@xxx.fr"
     .Subject = "le sujet"
     .Body = "Bonjour," & Chr(13) & "blablabla" & strgvariable & Chr(13) & "Aurevoir,"
     .send
End With

**francky74** · 28/07/2011, 13h15

En HTML, cela donnerai :

Envoyé par francky74

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim strgVariable as string
strgvariable = "blabla"
 
Set a = Outlook.CreateItem(olMailItem)
 
With a
     .To = "xxx@xxx.fr"
     .Subject = "le sujet"
     .BodyFormat = olFormatHTML
     .HTMLBody = "Bonjour<br>blablabla" & strgvariable & "Aurevoir,"
     .send
End With

Mais cela ne marche pas

**MarcelG** · 28/07/2011, 13h22

Salut Francky,

Je pense qu'il faut respecter la syntaxe précédente et utiliser la concaténation comme pour une chaîne de caractères classique.

Code :

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

.HTMLBody = "<HTML><B>" & la variable &" Bonjour mon petit</B><BODY>Francky74. </BODY></HTML>"

**francky74** · 28/07/2011, 13h52

Yeehoooo !

Ca fonctionne !

Sauter une ligne et écriture italique dans le texte (body) d'un mail

Macros et VBA Excel

Discussions similaires

Partager

Partager