Création de mail outlook avec VBA

Le 27/05/2015 à 16:49

Connais-tu les balises html ? sinon, on pourrait essayer de te faire juste une petite démo, mais sans logo (quoique si ton logo est présent sur le net cela doit pouvoir aussi se faire facilement). Avec cela tu n'auras plus de problème de synchronisation.

Le 27/05/2015 à 17:28

Non je ne connais pas

Le 27/05/2015 à 18:15

exemple :

Sub envoi()

Dim messagerie As Object
Dim email As Object
Dim contenu As String

contenu = _
    "<html><head><meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & _
    "<style>td {font-family: verdana,arial,sans-serif;font-size: 12px;}</style>" & _
    "<body><table>" & _
    "<tr><td>Mon texte est sous forme</td><td>d'un tableau avec 2 colonnes</td></tr>" & _
    "<tr><td>J'&eacute;cris sur la premi&egrave;ve colonne</td><td></td></tr>" & _
    "<tr><td></td><td>ou sur la seconde</td></tr>" & _
    "<tr><td>Je peux faire appel à des cellules<br>faire un retour &agrave; la ligne</td><td></td></tr>" & _
    "<tr><td>mettre un logo<br><img src='http://1.1.1.2/bmi/upload.wikimedia.org/wikipedia/fr/c/cf/Logo_Microsoft_Excel_2013.png'></td><td>et ma signature</td></tr>" & _
    "</table></body></html>"

    Set messagerie = CreateObject("Outlook.Application")
    Set email = messagerie.CreateItem(0)
    With email
        .to = "quelqu'un"
        .Subject = "test envoi mail"
        .htmlbody = contenu
        .display
    End With

    Set messagerie = Nothing
    Set email = Nothing

End Sub

edit, je viens de corriger :

Dim contenu As String