[Vba] Insérer image dans outlook
ideret
Messages postés
10
Date d'inscription
Statut
Membre
Dernière intervention
-
ideret Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
ideret Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- [Vba] Insérer image dans outlook
- Insérer vidéo dans powerpoint - Guide
- Insérer signature word - Guide
- Insérer une image dans word sans bouger le texte - Guide
- Insérer liste déroulante excel - Guide
- Insérer sommaire word - Guide
2 réponses
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
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