Hallo Zusammen,
leider komme ich nicht mit meinem Makro weiter.
Ich möchte folgende Excel-Makro ausführen.
Schaltfläche 1--> Speichern einer PDF und Automatisches Öffnen
Schaltfläche 2--> Gespeicherte PDF soll in Outlook an Personen X geöffnet und Händisch versendet werden.
ANbei meine Codes...
Wo ist der Fehler...Vielen Dank :-)
Schaltfläche1:
Sub PDF_Speichern_unter()
Dim DateiName As String
DateiName = Range("I5") & Range("I4") & ".pdf"
Range("A1:G41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True
End Sub
Schaltfläche 2:
Sub PDF_Speichern_unter_Mail()
Dim DateiName As String
DateiName = Range("I5") & Range("I4") & ".pdf"
Range("A1:G41").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True
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("I2")
.Subjekt = Range("I4")
.Body = Range("I6")
myAttachments.Add DateiName
.Display
End With
Set Outlook = Nothing
Set Outlook = Nothing
End Sub
|