Discussion :

[kong985]

Bonjour

J'utilise la macro suivante qui envoie un mail à partir de Outlook au format RTF :

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
Sub Envoi_un_mail()
 
    EB = Cells(ActiveCell.Row, 1)
    dates = Cells(ActiveCell.Row, 12)
 
    Subject = "EB " & EB & " terminée"
    body = "{\rtf " & _
    "\par Paul,\par \par " & _
    "L'EB " & EB & " est terminée le " & dates & _
    "\par \par Cordialement" & _
        "}"
 
  email = "prenom.nom@FAI.com"
    URLto = "mailto:" & email & "?subject=" & Subject & "&body=" & body
    ActiveWorkbook.FollowHyperlink Address:=URLto
 
End Sub

Serait il possible en modifiant légèrement la macro de changer le format RTF en HTML.

Merci

[zazaraignée]

J'imagine... Quelle est la question exactement ?

[fring]

Bonjour,

Essaye ceci dans le body

Code :

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

1
2
3
body = "par Paul," & vbCrLf & vbCrLf _
    & "L'EB " & EB & " est terminée le " & dates & vbCrLf & vbCrLf _
    & "Cordialement"

[zazaraignée]

@ fing:

Je crois que le par devant Paul fait partie du code rtf \par qui est un code de paragraphe...

Un paragraphe en XHTML, c'est <p /> pour un paragraphe vide et <p>quelque chose</p> pour un paragraphe contenant du texte.

Initialement, je ne voulais pas donner la réponse pour forcer kong985 à chercher un peu... mais bon...

[kong985]

Merci c'est sympa zazaraignée

[zazaraignée]

Je suis toujours sympa... même quand j'en n'ai pas l'air (une ironie en vaut bien une autre).