Beim Öffnen der Schaltfläche 1 (PDF Speichern):
Sub PDF_Speichern_unter()
Dim DateiName As String
DateiName = Range("I5") & Range("I4") & Range("I7") & Range("I8") & Range("I9")
Range("A1:G31").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnoreprintAreas:=False, OpenAfterPublish:=True
End Sub
-------------------
Beim Öffnen der Schaltfläche 2(PDF per Mail senen):
ehler beim Kompilieren:
Projekt oder Bibliothek nicht gefunden.
Sub PDF_Speichern_unter_Mail()
Dim DateiName As String
DateiName = Range("I5") & Range("I4") & Range("I7") & Range("I8") & Range("I9") & ".pdf"
Range("A1:G31").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").Text
.Subject = Range("I4").Text
.Body = Range("I6").Text
myAttachments.Add DateiName
.Display
End With
Set Outlook = Nothing
Set OutlookMailItem = Nothing
Set OutlookApp = Nothing
End Sub
|