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]