Public Sub SendPDFviaEmail()
Dim objOutlook As Object
objOutlook = CreateObject("Outlook.Application")
Dim objOutlookMsg As Object
objOutlookMsg = CreateObject("Outlook.MailItem")
Dim objOutlookRecip As Object
objOutlookRecip = CreateObject("Outlook.recipient")
Dim objOutlookAttach As Object
objOutlookAttach = CreateObject("Outlook.Attachment")
With objOutlookMsg
.to = "blalll@kjaslfkj.de"
.Subject = "Blah "
.Body = "blah blah blah"
.Display
End With
objOutlook = Nothing
End Sub