Send image with VBA via Outlook

[Doflamingo]

Hi all,

I try to understand why the code to send an image which is in the excel sheet ''GrapheImage'' with the

Object of the email in the column A, the email adress in the column B and the message of the email in the column C

Here is the code

ra = ActiveWorkbook.Path
    Sheets("GrapheImage").Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs ra & "\GrapheGif.xls"
    ActiveWindow.Close
    '---  Envoi par mail
    Dim objOL As Object
    Set objOL = CreateObject("Outlook.Application")
    Dim olapp As Outlook.Application
    Dim msg As MailItem
    Set olapp = New Outlook.Application
    Set msg = olapp.CreateItem(olMailItem)
    msg.To = Range("B2")
    msg.Subject = Range("A2").Value
    msg.Body = Range("C2")
    msg.Attachments.Add Source:=ra & "\GrapheGif.xls"
    msg.Send

Any idea ?

 

[Doflamingo]

the problem is here

ra = ActiveWorkbook.Path
Sheets("GrapheImage").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ra & "\GrapheGif.xls"
ActiveWindow.Close
'--- Envoi par mail
Dim objOL As Object
Set objOL = CreateObject("Outlook.Application")
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = Range("B2")
msg.Subject = Range("A2").Value
msg.Body = Range("C2")
msg.Attachments.Add Source:=ra & "\GrapheGif.xls"
msg.Send

 

[Doflamingo]

VBA editor replies user defined type not defined ... I don't understand why

 

[DanteAmor]

VBA editor replies user defined type not defined ... I don't understand why

Add the Microsoft Outlook Library:

1. From the Menu Bar, click on Tools > References…

2. Select ‘Microsoft Outlook XX.X Object Library’ and click on ‘OK’ button

 

[Doflamingo]

Hello @DanteAmor, many thanks for your help and your time on that topic .That works

I don't count the times you have helped me .

Kind regards

Doflamingo

 

[DanteAmor]

Hello @DanteAmor, many thanks for your help and your time on that topic .That works

I don't count the times you have helped me .

Kind regards

Doflamingo

I'm glad to help you. Thanks for the feedback.