Save document as pdf and attach to new mail

[moosmahna]

Thanks for your ansert.
Creating a pdf works now.
But the code with the Mail attachments does not work.

Dim myItem As Outlook.MailItem
    Dim myAttachments As Outlook.Attachments
    
    Set myItem = Application.CreateItem(olApp)
    Set myAttachments = myItem.Attachments
    Set myItem = Application.CreateItem(olApp)
    Set myAttachments = myItem.Attachments
    
    Dim myPath As String
    Dim CurrentFolder As String

I got an error: method or object not found

Set myItem = Application.CreateItem(olApp)

What made i wrong?
Thanks