Discussion :

[diego3110]

Bonjour à tous,

Je viens vers vous après pas mal de taf...et là je coince pour de bon !!

Explication :

Nous avons crée une macro permettant d'envoyer des mails automatiquement.

L'utilisateur indique les fichiers à envoyer et rempli dans une zone de texte le corps de son mail.

Le mail est envoyé en y intégrant le corps du texte et la signature avec .htmlbody.

Tout marche nickel sauf que le texte dans le mail ne prend pas en compte les sauts de lignes pouvant se trouver dans la textbox.

Quelqu'un a une idée.

Je mets un lien si vous souhaitez voir la macro et le fichier utilisé pour renseigner les destinataires.

http://www.cjoint.com/c/EIemOf8ghb5
http://www.cjoint.com/c/EIemPyBpFM5


Merci d'avance.

[Theze]

Bonjour,

J'ai testé en simplifiant et le texte dans le message est conforme à celui du TextBox :

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 AppOutlook As Object
    Dim Message As Object
 
    Set AppOutlook = CreateObject("outlook.application")
    Set Message = AppOutlook.CreateItem(0)
 
    With Message
 
        .Subject = "Ici le sujet !"
        .Display
        .Body = ThisWorkbook.Worksheets(1).TextBox5.Text
        .Display
        .Recipients.Add ("trucmuche@orange.fr")
        '.Send
 
    End With
 
End Sub

Hervé.

[Invité]

Bonjour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Debug.Print HtmlRCh(ThisWorkbook.Worksheets(1).TextBox5.Text)
End Sub
Function HtmlRCh(t As String) As String
Dim v, i As Long
v = Split(t & Chr(10), Chr(10))
For i = 0 To UBound(v)-1
    HtmlRCh & "<p>" & v(i) & "</p>"
Next
 
End Function

Code :

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

.HTMLBody = corps & HtmlRCh(ThisWorkbook.Worksheets(1).TextBox5.Text) & .HTMLBody

[diego3110]

Boujour Rdurupt et Theze et surtout merci de prendre le temps de me répondre.

Theze, je sais que cela marche si l'on ne passe pas par du htmlbody mais je dois passer par là pour mettre en forme les noms des destinataires etc....;
Rdurupt, j'ai tenté de mettre en application ta solution mais :

où dois je placer le sub test et à quoi sert elle? Au début de ma macro ou dan sune autre macro et la lancer auparavant la sub test ??

Par ailleurs, lorsque je colle la fonction HtmlRCh dans mon editeur VBA :

" HtmlRCh & "<p>" & v(i) & "</p>"" se met en rouge et lorsque je lance la macro cela bug sur cette ligne avec une erreur : erreur de compilation/erreur de syntaxe

Une idée ?

Merci

[Invité]

Code désolé :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
Debug.Print HtmlRCh(ThisWorkbook.Worksheets(1).TextBox5.Text)
End Sub
Function HtmlRCh(t As String) As String
Dim v, i As Long
v = Split(t & Chr(10), Chr(10))
For i = 0 To UBound(v)-1
    HtmlRCh = HtmlRCh & "<p>" & v(i) & "</p>"
Next
 
End Function

tu place le code dans le même module qui envoi le mail!