XL 2016 Excel et mail

Hasco

XLDnaute Barbatruc

Repose en paix

• 8 Juin 2021

• #2

scrib à dit:

Bonjour a tout le forum,

Je voudrais envoyer un texte par mail (en THML) via Excel et VBA.
J'ai un TextBox multiligne, qui est le corps de mon message, j'aimerais l'envoyer tel que (c'est dire écrit sur plusieurs lignes). Mais quand j'écrit:

VB:

message = "Cest message est : " & me.TextBox1.text

le message s'écrit sur une seule ligne dans Outlook. Pouvez-vous m'aider?
Merci d'avance à toutes et à tous.

Cliquez pour agrandir...

Avec saut de ligne simple :

VB:

message = "Cest message est : " & VbLf & me.TextBox1.text

Ou avec retour à la ligne (retour chariot ou carriage return)

Code:

message = "Cest message est : " & VbCrlLf &  me.TextBox1.text

Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Juin 2021

• #3

Bonjour à tous
ne pas confondre le wrap et le Multi lignes
si ton texte dans le textbox contient plusieurs ligne par le wraptext il ressort en une ligne c'est normal

 

Vote positif 0 Vote négatif

S

scrib

XLDnaute Nouveau

• 8 Juin 2021

• #4

Bonjour et merci Roblochon,
Je me suis mal exprimé. Je voudrais que ce qui est dans la TextBox soit retransmit avec les retours à la ligne, exactement comme dans la TextBox. Mais quand je copie la TXB dans le mail, tout s'écrit sur la même ligne. exemple
Dans la TXB:
Cher amis,
blabla blabla?
blabla blabla.

Retranscrit dans le mail:
Cher amis, blabla blabla? blabla blabla.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Juin 2021

• #5

re
le mail tu l'envoie avec quoi

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Juin 2021

• #6

re
si il ya vraiment des sauts de lignes dans ton textbox et que ce n'est pas le wraptext qui s'en charge et que que tu envoie ton mail avec outlook ou cdo
dans la ligne htmlbody= tu met
=replace (textbox1.text,vbcrlf,"<br>")

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 8 Juin 2021

• #7

Re,

Alors si c'est du HTML

VB:

message =  "Cest message est : </BR>" & me.TextBox1.text

Cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Juin 2021

• #8

Bonjour @Roblochon
les sauts de ligne sont dans le texte du textbox

VB:

message =  "Cest message est : </BR>" & replace(me.TextBox1.text,vbcrlf,"<Br>")

 

Vote positif 0 Vote négatif

Solution

S

scrib

XLDnaute Nouveau

• 9 Juin 2021

• #9

Bonjour,
Merci à tous pour vos réponses. Mon problème est résolu avec:

message = "Cest message est : </BR>" & replace(me.TextBox1.text,vbcrlf,"<Br>")

Cliquez pour agrandir...

Bonne journée

 

Vote positif 0 Vote négatif