vba HTMLBody dans le corps du rendez-vous Outlook

Bonjour,

Est-ce possible ?

Meilleures salutations

Apparemment, c'est impossible

Pour éviter le retour à la ligne double lors de l'appui sur la touche ENTER après l'affichage du rendez-vous, il faut forcer la mise en forme en texte brut
Ajouter cette ligne

Code:

---

.BodyFormat = olFormatPlain 'Forcer le format en texte brut pour éviter le double retour à la ligne

---

Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

With Email .Subject = Objet_mail .BodyFormat = olFormatPlain 'Forcer le format en texte brut pour éviter le double retour à la ligne .Body = Message .RequiredAttendees = "" ' participants obligatoires à la réunion .OptionalAttendees = "" 'participants optionnels à la réunion .Categories = "" .ReminderSet = False 'Activer le rappel .ReminderMinutesBeforeStart = 60 'H. Fin du rappel en minutes .Start = dateValue(Date_Intervention) & " " & Heure_Debut .End = dateValue(Date_Intervention) & " " & Heure_Fin .Location = f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Adresse]").Column) .Display 'Afficher le rendez-vous pour modification End With

---

Bonjour,

Avec le code

Code:

---

.BodyFormat = olFormatPlain

---

Les retours à la ligne "vbLf" sont présents dans le rendez-vous, mais disparaissent lors de l'impression
Le texte n'a plus de retour à la ligne, les retours à la ligne sont ignorés lors de l'impression et le texte est sur une ligne

J'ai dû remplacer le code par :

Code:

---

.BodyFormat = olFormatRichText

---

Si je remplace le code par

Code:

---

.BodyFormat = olFormatHTML

---

Les doubles retours ligne réapparaissent

À devenir neuneu...

Bonjour
vblf : est parfois mal reconnu et disparait selon les app
vbcrlf : est parfois mal reconnu et su MAC il sont double
vbnewline : universel
<br> ; c'est un saut de ligne en html il doivent être inscrit dans le innerhtml

Bonjour,
voilà une fonction pour remplacer les caractères spéciaux!

Ça va te permettre de convertir tout ton texte au format HTML car il n'y a pas que les retours chariot qui pose problème. Les caractères accentués également.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() Debug.Print TxtHtml("ÁáCcÉéÍíÓóÚúÝýÀàÈèÌì " & vbCrLf & "ÒòÙùÂâÊêÎîÔ ôÛûÄäËëÏïÖöÜüŸÿÃãÕõÇç") End Sub   Function TxtHtml(T As String) As String Dim Txt Dim Htm Dim I As Long TxtHtml = T Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf Htm = "&Aacute;$&aacute;$&Eacute;$&eacute;$&Iacute;$&iacute;$&Oacute;$&oacute;$&Uacute;$&uacute;$&Yacute;$&yacute;$&Agrave;$&agrave;$&Egrave;$&egrave;$&Igrave;$&igrave;" Htm = Htm & "$&Ograve;$&ograve;$&Ugrave;$&ugrave;$&Acirc;$&acirc;$&Ecirc;$&ecirc;$&Icirc;$&icirc;$&Ocirc;$&ocirc;$&Ucirc;$&ucirc;$&Auml;$&auml;$&Euml;$&euml;" Htm = Htm & "$&Ouml;$&ouml;$&Uuml;$&uuml;$&Yuml;$&yuml;$&Atilde;$&atilde;$&Itilde;$&itilde;$&Otilde;$&otilde;$&Ccedil;$&ccedil;$&nbsp;$<br>" Txt = Split(Txt, "$") Htm = Split(Htm, "$") For I = 0 To UBound(Txt) TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare) Next End Function

---

vbnewline ne résout pas le problème, par contre, il est plus facile à mémoriser 😊 merci

vbnewline + .BodyFormat = olFormatPlain : retour ligne manquant lors de l'impression - Pièces jointes impossible 😒

vbnewline + .BodyFormat = olFormatRichText : retour ligne OK lors de l'impression, appui sur touche ENTER = OK - Pièces jointes dans le texte, la personne voit qu'il y a des pièces jointes sur le bon d'intervention papier, les icônes des pièces jointes sont imprimées, c'est déconcertant, mais finalement, c'est un plus ... 🤩🤩🤩

vbnewline + .BodyFormat = olFormatHTML : retour ligne OK lors de l'impression, mais appui sur touche ENTER = double retour ligne 😒







La fonction proposée par Thumb down ne fonctionne pas avec mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Message = _ "ID" & f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[ID]").Column) & " - " & _ "Fiche d'intervention pour : " & f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Poseur]").Column) & vbNewLine & _ "Planifié le " & Date & " par " & Application.UserName & " - Chef de projet : " & f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Technicien]").Column) & vbNewLine & _ "Colisage : " & f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Colisage]").Column) & " - " & _ "Fournisseur : " & f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Fournisseur]").Column) & vbNewLine & _ Grutage & Aide_Message & _ Date_RDVC & Specificite & _ vbNewLine & _ f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Cmde]").Column) & "." & _ f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Ext]").Column) & " - " & _ f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Affaire]").Column) & vbNewLine & _ "_____________________________________________________________________________________" & vbNewLine & _ "Descriptif des travaux : " & vbNewLine & _ f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Travaux]").Column) & vbNewLine & vbNewLine & vbNewLine & vbNewLine & _ "Remarques : ___________________________________________________________________________" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & _ "Effectués le ____________ Durée _______ par ______________. Signature ________________________ " & vbNewLine & vbNewLine & vbNewLine & vbNewLine & _ "Réceptionnés le _______________ par ______________________. Signature ______________________" & vbNewLine & vbNewLine & _ "Coordonnées du client :" & vbNewLine & _ f.Cells(ActiveCell.Row, Range("TS_Suivi" & "[Téléphone]").Column) & _ " ! Cette feuille d'intervention doit être retournée à Philippe Gonin !" & vbNewLine & vbNewLine With Email .Subject = Objet_mail .BodyFormat = olFormatRichText 'Forcer le format en texte enrichi pour éviter les doubles retour à la ligne .Body = TxtHtml(Message)

---

Bonsoir,

Code:

---

1 2 3 4

With Email .Subject = Objet_mail .BodyFormat = olFormatRichText 'Forcer le format en texte enrichi pour éviter les doubles retour à la ligne .HtmlBody = TxtHtml(Message)

---