|
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
|