Sub Pdf_erstellen_und_senden()
Dim sBlatt As String
Dim sPdfDateiF5 As String
Dim sPdfDateiB25 As String
Dim OutApp As Object
Dim OutMail As Object
sBlatt = "Meldung"
sPdfDateiB25 = "C:\tmp\2016\" & B25 & ".PDF " _
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPdfDateiF5, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
OutMail.To = Sheets(sBlatt).Range("B16")
OutMail.CC = ""
OutMail.BCC = ""
OutMail.Subject = Sheets(sBlatt).Range("B25")
OutMail.Body = Sheets(sBlatt).Range("B27")
OutMail.Attachments.Add sPdfDateiB25
OutMail.Send