Envoie Mail body

Bonjour cher membre forum,

J'envoie des mails avec des graphiques à plusieurs personnes. je suis capable d'envoyer ses fichiers en attachement aux différents destinataires. Je voudrais maintenant envoyer ses graphiques dans le corps du message en utilisant le fichier info ou se trouve le lien des fichiers gif.

Voici le code pour envoyer en fichier joint:

Sub EnvoieMail()

Dim OutApp As Object

Dim OutMail As Object

Dim cell As Range

Set OutApp = CreateObject("Outlook.Application")

For Each cell In Worksheets("Infos").UsedRange.Columns("D").Cells

Set OutMail = OutApp.CreateItem(0)

If cell.Value Like "?*@?*.?*" Then

With OutMail

.To = Cells(cell.Row, "B").Value

.Subject = Cells(cell.Row, "D").Value

.Body = "Mon text"

.Attachments.Add Cells(cell.Row, "E").Value

.Display

End With

Set OutMail = Nothing

End If

Next cell

'Set OutApp = Nothing 'it will be Nothing after End Sub

Application.ScreenUpdating = True

End Sub

Merci à tous

Bonjour,

Brodyeva a écrit :

Je voudrais maintenant envoyer ses graphiques dans le corps du message en utilisant le fichier info ou se trouve le lien des fichiers gif.

                .Body = "Mon text" 

Si tu veux inclure des graphiques ...

- soit ils ont une adresse internet, et dans ce cas il faut rédiger le texte en html en incluant une image comme suit

.htmlbody = "bla bla <br><img src=" & l_adresse_de_l_image &" /> <br>bla bla"

- soit ils sont présents dans ton fichier excel et dans ce cas je conseille de faire un copier/coller dans le corps du mail

Peux-tu me préciser dans quel cas tu te trouves ?

Bonjour Steelson,

Merci d’avoir répondu à ma préoccupation.

En fait, je dois envoyer des graphiques différents à différentes personnes et le code me permet de le faire mais avec des pièces jointes.

Je voudrais plutôt envoyer les graphiques directement dans le corps du message pour chaque destinataire.

Pour cela j’ai un fichier info avec plusieurs liens des fichiers images à joindre. J'espère que mon fichier joint sera plus précis.

Merci

Htmlbody = "Test <br><img src=" & 'Cells(cell.Row, "E").Value ne fonctionne pas

en effet, car comme je disais ces graphiques ne sont pas sur le web !

je pense qu'il doit y avoir une autre solution mais que je maîtrise pas.

quand tu parles de pièces jointes, est-ce qu'il s'agit d'un document ou directement des images individuellement ?

Il manquait peut-être les apostrophes, essaie ceci

.Htmlbody = "Test <br><img src='" & Cells(cell.Row, "E").Value & "' /> <br>Test"

Bonjour Steelson,

J'ai juste un mot à te dire, MERCI. Ça fonctionne maintenant.