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

 

[Pookiemeister]

I forgot to also mention that I checked the box marked Microsoft Outlook 16.0 Object Library, under Tools--->References

 

[Logit]

Option Explicit

Sub sendReminderMail()

Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)


    With OutLookMailItem
        .To = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add "C:\Users\Jacob B Cutler\Desktop\Saved PDF TEST\NameOfPDFfileHere.pdf"
        '.send
        .Display
    End With

Set OutLookMailItem = Nothing
Set OutLookApp = Nothing

End Sub

 

[Pookiemeister]

I getting an RunTime error 287 Application-defined or object defined error on the following line:

Set OutLookMailItem = OutLookApp.CreateItem(0)

Here is the rest of the code:

Sub sendReminderMail()

Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object

Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)


    With OutLookMailItem
        .To = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add "C:\Users\Jacob B Cutler\Desktop\Saved PDF TEST\NameOfPDFfileHere.pdf"
        '.send
        .Display
    End With

Set OutLookMailItem = Nothing
Set OutLookApp = Nothing

End Sub

I'm not sure if this matters but I checked the box under
Tools--->References Microsoft Office 16.0 Object Library

Thanks

 

[Logit]

.
Check " OLE Automation Reference " as well.

 

[Pookiemeister]

Here is what is checked

 

[Logit]

Mine is the same.

 

[Pookiemeister]

I'm at a loss. Everything I web searched shows the similar setup or the same setup from what you sent me. Thank You

 

[Fluff]

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

 

[Pookiemeister]

Should I leave the OLE Automation?