Hallo zusammen,

nun ich wurschtel hier so vor mich hin und habe einen Code gefunden, welcher passen sollte. Zumindestens soweit, dass das PDF rausgeht. Dass mit dem Passwortschutz werde vergessen können wie es scheint, da dies innerhalb von Adobe generiert wird. Also wie soll es dann über die VBA angesprochen werden. 

Aber jetzt zu diesem Code:

funktioniert natürlich nicht per paste&copy :/

Es gibt einen Laufzeitfehler beim auffinden der zuvor abgespeicherten PDF-Datei. Es sollte ja der Dateiname aus Zelle "B25" dazu hergenommen werden.
Etwas stimmt nicht, denn dort wird nichts hinterlegt. Wo liegt der Hund begraben!?

Danke & Gruss!

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

  ' auf dieses Tabellenblatt zugreifen, um E-Mail, Betreff und Inhalt auszulesen
  sBlatt = "Meldung"

  ' unter welchem Namen soll das PDF-Dateien abgespeichert werden?
  sPdfDateiB25 = "C:\tmp\2016\" & B25 & ".PDF " _

  ' speichert das aktuelle Blatt (=ActiveSheet) als PDF
  ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=sPdfDateiF5, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
 
  ' Bezug zu Outlook herstellen...
  Set OutApp = CreateObject("Outlook.Application")

  ' ...damit wir eine neue E-Mail erzeugen können
  Set OutMail = OutApp.CreateItem(0)

  ' Werte den Eigenschaften zuweisen...
  OutMail.To = Sheets(sBlatt).Range("B16")
  OutMail.CC = ""
  OutMail.BCC = ""
  OutMail.Subject = Sheets(sBlatt).Range("B25")
  OutMail.Body = Sheets(sBlatt).Range("B27")

  ' Anhang hinzufügen:
  OutMail.Attachments.Add sPdfDateiB25

  ' ...und abschicken
  OutMail.Send