Mail Format HTML

Version imprimable

Mail Format HTML

Bonjour

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

Code:

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

20/08/2008, 00h36
zazaraignée

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

Bonjour,

Essaye ceci dans le body

Code:

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

20/08/2008, 01h29
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...
20/08/2008, 20h06
kong985

Merci c'est sympa zazaraignée
21/08/2008, 02h26
zazaraignée

Je suis toujours sympa... même quand j'en n'ai pas l'air (une ironie en vaut bien une autre). ;)
21/08/2008, 16h10
kong985

Merci fring

Mais ta solution donne toujours du rtf

une autre solution ?
21/08/2008, 16h15
SilkyRoad

bonjour

tu trouveras des exemples dans ce lien, notamment par la méthode CDO ou en utilisant Outlook:

http://excel.developpez.com/faq/?page=Messagerie

bon après
midi