2 Graphic Corps mail

Bonjour a tous,

Je sollicite votre afin d'envoyer 2 graphic dans un corps mail . j'ai essayer mais sans success

avec le code ci dessous il fonctionne tres bien mais je peux envoyer qu'un seule graphic et ce que je souhaite c'est envoyer 2 l'un en dessous de l'autre

Merci de votre aide

[code][/ub SendChart_As_Body_UsingOutlook()

Dim olApp As Object

Dim NewMail As Object

Dim ChartName As String

Set olApp = New Outlook.Application

'fill in the file path/name of the gif file

ChartName = Environ$("temp") & "\Chart1.gif"

ActiveWorkbook.Worksheets("Resultat").ChartObjects("Chart 1").Chart.Export _

Filename:=ChartName, FilterName:="GIF"

'**************************************************************

'In the above line

' Sheet1 : Sheet Name where Chart is placed

' Chart 1: Chart Name which you want to sent in email.

' Note: To get the name of the Chart, select that particular

' chart and see in the left side of the formula bar.

'***************************************************************

' Create a new mail message item.

Set NewMail = olApp.CreateItem(0)

With NewMail

.Subject = "Please the attached Chart"

.To = "abc@email.com"

' **************************************************

' You can desing your HTML body for this email.

' below HTML code will display the image in

' Body of the email. It will not go in attachment.

' **************************************************

.HTMLBody = "<img src=" & "'" & ChartName & "'>" & "<br> <br>" & "Please find the chart below: " & "<br> <br> </font>"

.display

End With

'Now delete the chart image from the temp folder

'Kill ChartName

'Release memory.

Set olApp = Nothing

Set NewMail = Nothing

End Subcode]