Trying to attach pdf to an email with VBA

[Pookiemeister]

On my spreadsheet I have a invoice template with an activex button. When that button is clicked it converts spreadsheet to a pdf and saves it to a designated location and attaches it to an email to be sent. Everything works except the attaching it to an email. My laptop has Office 365 built into it but the trial expired on it, so I installed my older version of Office 2010 since I already had the product key for it.

I created a module called Public_Variables and in that module I have a variable called

Public sPathSaved As String

Below is the rest of the code used.

Private Sub btnSave_Email_Click()
    Dim sPath As String
    Dim sFilename As String
    
    'sPath = "C:\Users\username\Desktop\Saved PDF TEST\"
    sPath = "C:\Users\username\Desktop\Saved PDF Test\"
    sFilename = Range("A7").Text
    ActiveSheet.ExportAsFixedFormat xlTypePDF, sPath & sFilename
    sPathSaved = sPath & sFilename & ".pdf"
    Call send_Email
    
End Sub

I'm getting the error of Run-Time Error '287: Application-defined or object-defined error from the below sub on this line

    Set OutMail = OutApp.CreateItem(olMailItem)

Sub send_Email()

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    
    Set OutApp = New Outlook.Application
    Set OutMail = OutApp.CreateItem(olMailItem)

        With OutMail
            .attachments.Add "C:\Users\Jacob B Cutler\Desktop\Saved PDF TEST\"
        End With
    
End Sub

Thank You

 

[Fluff]

Try it with & without.

 

[Pookiemeister]

After I uncheck Microsoft Outlook 16.0 Object Library, I'm still getting Run-Time error '287: Application-defined or object difined error.

Set OutLookMailItem = OutLookApp.CreateItem(0)

 

[Pookiemeister]

Here is what is checked and I am still getting that same Runt-time error.

 

[Fluff]

The only other thing I can think of is that it's down to security policies.
Either something is blocking other apps from sending emails, or maybe outlook cannot find any antivirus software, or thinks it's out of date.

 

[Pookiemeister]

Is there away to check?

 

[Fluff]

Probably, but as I don't use outlook, I've no idea where.

 

[Pookiemeister]

Ok... Thank You

 

[Rajsngh]

Is there any way to select the sending account as well in case if I have two outlook email id

With that code you shouldn't need any references set.
Try removing the reference to outlook.

@Fluff - is there a way to choose the sending email account if I have two mail ID's in my outlook

 

[Fluff]

See post#16