XL 2016 Textbox et envoi mail depuis Excel

[jozerebel]

Bonjour à tous,

J'ai créé un Userform pour piloter Outlook depuis Excel.

J'ai cependant 2 pbs :

1- Le texte du mail est saisi dans une Textbox : Je n'ai pas de formatage possible et le retour à la ligne se fait uniquement par Ctrl+Entrée. Comment remédier à cela ? J'ai peur que les utilisateurs appuient par habitude sur Entrée.

2- Quand bien même je fais des retours à la ligne dans ma textbox via Ctrl+Entrée, quel que soit la propriété de .BodyFormat, le texte rapatrié dans le corps de mail sous Outlook supprime les retours à la ligne et tout mon texte est attaché... :-/ Avez-vous une solution à me proposer ?

D'avance je vous remercie !!!

 

[job75]

Bonsoir Jozerebel,

Pour le point 1 utilisez cette macro :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1 = TextBox1 & vbCrLf 'touche Entrée
End Sub

Pour le point 2 voyez ce fil :
https://forum.excel-pratique.com/excel/vba-aller-a-la-ligne-dans-le-corps-du-mail-90882

A+

 

[jozerebel]

Bonsoir Jozerebel,

Pour le point 1 utilisez cette macro :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1 = TextBox1 & vbCrLf 'touche Entrée
End Sub

Pour le point 2 voyez ce fil :
https://forum.excel-pratique.com/excel/vba-aller-a-la-ligne-dans-le-corps-du-mail-90882

A+

Merci Bcp Job75!