Hallo in die Runde,

vielleicht kann mir ja jemand weiter helfen oder einen Tipp geben.

Die Excel Datei wird als PDF gespeichert und soll anschließend per Anhang mit Outlook versendet werden.

Leider läuft der Code nur bis zum Markierten Bereich: Set myAttachments = OutlookMailItem.Attachments

Das Dokument wird gespeichert und die PDF öffnet sich. Dann läut es auf einen Fehler .

Danke für Hilfe vorab.

Sub Test()

'Datum einfügen Time ist die Uhrzeit / now ist das Datum
Range("n6").Value = Time

'Benutzername einfügen
Range("N1").Value = Environ("Username")

'Als PDF Speichern

Dim DateiName As String
DateiName = Range("K3") & Range("K2") & ".pdf"
Range("A1:j57").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Tabelle1.Range("o3").Value & "\" & Tabelle1.Range("o4").Value & ".pdf", OpenAfterPublish:=True

'Mail erzeugen

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.to = Range("S2")
.Subject = Range("S3")
myAttachments.Add DateiName
.Display
End With

Set OutlookApp = Nothing
Set OutlookMail = Nothing

End Sub