[Vba] Insérer image dans outlook

ideret Messages postés 10 Statut Membre -  
ideret Messages postés 10 Statut Membre -
Bien le bonjour,

Mon soucis, insérer une image jpeg dans un mail généré par une macro excel.

Alors j'ai essayé plusieurs solutions de macro :
- le copier coller
- addpicture et attacher le fichier au mail
- là j'essaye enregistrer le path et resortir un lien correct mais ca fonctionne pas
et celui que j'ai lu sur internet et qui marcherais, le body Html mais j'ai toujours pas réussi car le code est plus difficile.

Pour infos j'ai excel 2003 et ma macro de base est la suivante :


'L'image
logo = G:\xxx\xxx\xxx.jpeg

'Création de l'email à partir d'outlook
Set ObjOutl = CreateObject("Outlook.Application")
Set objsession = ObjOutl.GetNamespace("MAPI")
Set objmessage = ObjOutl.CreateItem(0)
objsession.Logon
With objmessage
.To = emaildest
.CC = ""
.Subject = EmailSubject
.Body = Emailmsg
.Attachments.Add str & logo
.Send
End With

'L'email
EmailSubject = "xxxxx "
Emailmsg = "Bonjour , " & vbNewLine & _
vbNewLine & _
"Nous xxxx." & vbNewLine & _
vbNewLine & _
"Conformément xxxxx." & vbNewLine & _
vbNewLine & _
"Vous xxxxx." & vbNewLine & _
vbNewLine & _
"Cordialement" & vbNewLine & _
vbNewLine & _
"<img src='logo' >" & vbNewLine & _
"xxxxx SAV" & vbNewLine & _
"Télécopie xxxxx" & vbNewLine & _
"Téléphone xxxx" _


Merci par avance pour votre aide,

Ideret

2 réponses

UsulArrakis Messages postés 7683 Statut Contributeur 3 192
 
salut
pose ta question sur le forum VBA du site de la FAQ Outlook :
http://faq-outlook.fr/forum/viewforum.php?forum_id=15

de plus soit ton profil n'est pas à jour soit c'est ton Firefox qui ne l'est pas : on est à la version 3.0.6
0
ideret Messages postés 10 Statut Membre 1
 
Lol c'est le firefox de ma société et sinon merci pour le lien j'ai trouvé ma solution.
0

Discussions similaires