XL 2016 Excel et mail

[scrib]

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:

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.

 

[Hasco]

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:

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.

Avec saut de ligne simple :

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

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

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

Cordialement

 

[patricktoulon]

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

 

[scrib]

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.

 

[patricktoulon]

re
le mail tu l'envoie avec quoi

 

[patricktoulon]

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>")

 

[Hasco]

Re,

Alors si c'est du HTML

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

Cordialement

 

[patricktoulon]

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

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

 

[scrib]

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>")

Bonne journée