Outlook 2016 - Regel - Script Ausführen - VBA - Email speichern als PDF

Hallo,

ich würde gerne bestimmte Emails automatisch speichern lassen. Im Idealfall als PDF.
Mit diesem Script funktioniert es die Email als txt abzuspeichern. Kann mir vielleicht jemand sagen
ob es auch möglich ist die Mail als pdf abzuspeichern ?

Sub endlichfertig(myItem As Outlook.MailItem)
Dim m As MailItem
Set m = CreateItem(olMailItem)
myItem.SaveAs "j:\xxx\Autosave_" & Date, olTXT
End Sub