Retour à la ligne dans un mail

Bonjour,

Il y a-t-il un moyen pour que mon texte dans le mail que j'envois automatiquement ressemble a ceci?

Bonjour,

J'ai un un paquet pour vous

Bonne journée

pour l'instant j'arrive juste à:

Bonjour, J'ai un un paquet pour vous Bonne journée

Merci d'avance

Vincent Johner

'---------------------------------> Envoie du PDF

        Set olApp = CreateObject("Outlook.application")
        Set mail = olApp.CreateItem(olMailItem)

            With mail
                .display
                .To = Sheets("Adresse").Range("B3") & ";" & Sheets("Adresse").Range("B4") & ";" & Sheets("Adresse").Range("B5")
                .Subject = "TPS - Rapport dépassement temps"
                .Attachments.Add Chemin
                .htmlBody = Sheets("Traduction").Range("A151") & _
                                     Sheets("Traduction").Range("A152") & _
                                     .htmlBody

                .send

            On Error GoTo 0
                Set OutMail = Nothing
                Set OutApp = Nothing
        End With

Bonjour,

Tu peux utiliser

vbNewLine

dans ton code ...partout où cela est nécessaire ...

Bonjour,

s'agissant d'un format HTML, vbnewline ne fonctionnera pas (je pense), il faut utiliser la balise "<P>" or "<BR>" pour indiquer un nouveau paragraphe ou une nouvelle ligne.

Merci pour la réponse éclaire!! ça marche a merveille

une autre petite question mnt :

si je veux souligner la partie "Sheets("Traduction").Range("A10")"

j'ai essayé avec les balise <b>Sheets("Traduction").Range("A10")</b> mais ça marche pas

        Set olApp = CreateObject("Outlook.application")
        Set Mail = olApp.CreateItem(olMailItem)
        With Mail
            .display
            .To = Sheets("Adresse").Range("B3") & ";" & Sheets("Adresse").Range("B4") & ";" & Sheets("Adresse").Range("B5") & ";" & 
            .Subject = "TPS - Rapport dépassement temps"
            .Attachments.Add Chemin
            .htmlBody = Sheets("Traduction").Range("A151") & "</p><p>" & _
                        Sheets("Traduction").Range("A152") & " " & Sheets("Rapport").Range("K3") & "</p><p>" & _
                        Sheets("Traduction").Range("A10") & " : " & Equipe & " (" & Sheets("Rapport").Range("S3") & ")" & "</p><p>" & _
                        Sheets("Traduction").Range("A153") & "</p><p>" & _
                        Sheets("Rapport").Range("A25") & "</p><p>" & _
                        Sheets("Rapport").Range("K25") & "</p><p>" & _
                        Sheets("Traduction").Range("A154") & "</p><p>" & _
                        .htmlBody
            .display
            '.send

        End With

Ça marche avec les balises <P> pour le retour à la ligne ( j’ai oublié de préciser)

bonjour,

pour souligner utilise la balise "<u>"

liste des balises HTML https://forum.excel-pratique.com/post571401.html#p571401

Merci mais pourrais-tu me l’écrire car je crois avoir tester toutes les possibilité amis cela ne fonctionne pas

<u>Sheets("Traduction").Range("A10")</u>

car ça me met tout mon code en rouge!

re-bonjour,

essaie ainsi

.htmlBody = Sheets("Traduction").Range("A151") & "<br>" & _
                        Sheets("Traduction").Range("A152") & " " & Sheets("Rapport").Range("K3") & "<br><br><u>" & _
                        Sheets("Traduction").Range("A10") & " : " & Equipe & " (" & Sheets("Rapport").Range("S3") & ")" & "</u>" & _
                        Sheets("Traduction").Range("A153") & "<br>" & _
                        Sheets("Rapport").Range("A25") & "<br>" & _
                        Sheets("Rapport").Range("K25") & "<br>" & _
                        Sheets("Traduction").Range("A154") & "<br>" & _
                        .htmlBody

Ça me dépite.... j'ai essayé pendant des heures sans succès et en deux secondes tu me trouves la solution....

Encore merci à toi et un tout grand merci au site complet

Rechercher des sujets similaires à "retour ligne mail"