Bonjour,

Je veux envoyer un email par VBA EXCEL avec une image incorporée.

J'utilise le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 With CreateObject("CDO.Message")
    If Err Then
      MsgBox "Problème de CDO non installé sur le serveur WEB"
    Else
      .From = "toto@neuf.fr"
      .Subject = "Essai"
      .HTMLBody = Texte
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Utilisateur1"
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Mdp"
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.neuf.fr"
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      .Configuration.Fields.Update
      .Bcc = "Destinataire1@neuf.fr <a href="mailto:Destinataire2@neuf.fr">Destinataire2@neuf.fr</a>"
      .Send
Texte contient le contenu d'une case excel :
===============
Bonjour,
Voici l'image : <img style="width: 400px; height: 600px;" src="http://www.xxx.fr/Donnees/Affiches.gif">
A bientot
===============

Cette méthode permet d'envoyer un email contenant un lien hypertexte vers une image qui se trouve sur Internet, mais j'ai eu le cas de personnes qui reçoivent ce mail mais qui ne peuvent pas lire l'image, ou même qui ont vu ce mail déclaré comme courrier indésirable.

Je voudrais donc envoyer un mail avec l'image incorporée directement dans le
HTMLBody, quitte à ce que cette image soit aussi en PJ (j'ai bien trouvé des infos sur le CID, mais je ne vois pas trop comment l'utiliser en VBA).

C'est possible ?

J'ai pas mal cherché, mais j'ai pas trouvé ...

Merci de votre aide.