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")
Dim WeekendingDate As Date
objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
objOutlookRecip = .Recipients.Add("blah@blah.de")
objOutlookRecip.Type = olTo
.Subject = "Blah "
.Body = "blah blah blah"
.Attachments.Add("C:\TEMP\1006482_NX12_05032018.lic.txt")
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
If DisplayMsg Then
.Display
Else
.Save
End If
End With
objOutlook = Nothing
End Sub