ich habe ein kleines Problem
Habe einen Code der das aktuelle Sheet in PDF umwandelt, speichert und sendet was auch super klappt.
Nun möchte ich dazu noch PDF`s anhängen, der Ordner und das PDF sind immer gleich.
Ich weiss nicht wo und was ich einfügen muss, habe schon ettliches versucht aber es will einfach nicht klappen
Hier der Code
Sub PDFVertrag_Click()
Range("a1:ah62").Select
Dim strFileName As String
strDateiname1 = Range("m12").Value
'Kundennamen
strDateiname2 = Range("o17").Value
'Vertragsnummer
strDateiname3 = Range("y2").Value
'Parkkarte
strFileName = "C:\PDF Vertrag\" & strDateiname1 & "." & strDateiname2 & " mit " & strDateiname3 & ".pdf"
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim Nachricht As Object, OutApp As Object
Dim AWS As String
Set OutApp = CreateObject("Outlook.Application")
AWS = strFileName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Range("g4")
...........................
Besten Dank für Eure Lösungansätze
Gruss
Rolf