macro excel pour outlook

C@thy · 26 Janvier 2010

Bonjour le forum,

j'ai réussi à faire une macro sous excel qui envoie des e-mails avec des pièces jointes.

Dans le corps de mon message, je souhaiterais inclure un image.

Comment peut-on faire?

Merci et bises

C@thy

PMO2 · 1 Février 2010

Re : macro excel pour outlook

Bonjour,

Essayez le code suivant

Code:

Sub PMO_ImageMail()
Dim OUT As Outlook.Application
Dim IT As Outlook.MailItem
Dim msg$
Dim img$
Dim A$
Set OUT = CreateObject("Outlook.Application")
Set IT = OUT.CreateItem(olMailItem)
msg$ = "Bonjour"
img$ = "c:\hiver.jpg" 'modifier le chemin de l'image
If msg$ <> "" Then
   If img$ = "" Then
      A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>"
   Else
      A$ = "<HTML><BODY>" & msg$
   End If
End If
If img$ <> "" Then
   If msg$ = "" Then
      A$ = A$ & "<br><img src='" & img$ & "'><br>"
   Else
      A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>"
   End If
End If
With IT
   .Display
   .HTMLBody = A$
   .Subject = "essai"
   .To = "toto@zaza.fr" 'changer le destinataire
   .Send
End With
End Sub

Cordialement.

PMO
Patrick Morange

C@thy · 2 Février 2010

Re : macro excel pour outlook

Merci PMO2,

cela fonctionne bien, j'essaie d'adapter tout cela à mon cas précis car tous mes mails sont différents (l'identifiant donné dans le message est composé de la 1ère lettre du prénom + le nom (ex. toto.dupond@truc.fr donne tdupond), les adresses mail des destinataires et leurs identifiants figurent dans une feuille en colonnes B et C)

un grand MERCI et
Bonne journée

C@thy

Effectuez une recherche sur Excel Downloads...

macro excel pour outlook

C@thy

XLDnaute Barbatruc

PMO2

XLDnaute Accro

C@thy

XLDnaute Barbatruc

Discussions similaires

Nous accordons de l'importance à votre vie privée