Mehrere PDF anhängen in Excel VBA
Schritt-für-Schritt-Anleitung
Um mehrere PDFs an eine E-Mail in Excel anzuhängen, kannst du den folgenden VBA-Code verwenden. Dieser Code erweitert den bereits existierenden Code, um mehrere PDF-Dateien hinzuzufügen.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Gehe zu "Einfügen" > "Modul", um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Sub PDFVertrag_Click()
Range("a1:ah62").Select
Dim strFileName As String
Dim strDateiname1 As String
Dim strDateiname2 As String
Dim strDateiname3 As String
strDateiname1 = Range("m12").Value ' Kundennamen
strDateiname2 = Range("o17").Value ' Vertragsnummer
strDateiname3 = Range("y2").Value ' Parkplatz
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
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Range("g4")
.Bcc = "buchung@clubhaus-heuboedeli.ch"
.Subject = "Ihre Vertragsunterlagen für Ihre Miete Clubhaus Heubödeli"
' Anhänge hinzufügen
.Attachments.Add strFileName
.Attachments.Add "C:\Path\To\DeinZweitesPDF.pdf" ' Ersetze dies mit dem Pfad deiner zweiten PDF
.Attachments.Add "C:\Path\To\DeinDrittesPDF.pdf" ' Ersetze dies mit dem Pfad deiner dritten PDF
.HTMLBody = "Wir freuen uns, dass Sie sich für unser Haus entschieden haben. Anbei finden Sie unsere Unterlagen für Ihre Miete."
.Display ' oder .Send, um die Mail direkt zu senden
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
- Passe die Pfade der Anhänge nach deinem Bedarf an.
- Schließe den VBA-Editor und führe das Makro aus.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du nicht mit VBA arbeiten möchtest, kannst du auch manuell PDFs anhängen, indem du die PDFs in den gewünschten Ordner speicherst und von dort aus in Outlook auf "Anfügen" klickst. Diese Methode ist weniger automatisiert, bietet aber mehr Kontrolle.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie du den Code anpassen kannst:
-
PDF an Excel anhängen: Du kannst die PDFs auch direkt aus Excel generieren und dann anhängen.
-
PDF an PDF anhängen: Wenn du eine PDF an eine andere PDF anhängen möchtest, benötigst du dafür spezielle Software, da Outlook dies nicht unterstützt.
Tipps für Profis
- Verwende Schleifen, um mehrere Dateien dynamisch hinzuzufügen, anstatt jede Datei manuell aufzulisten.
- Prüfe, ob die PDF-Dateien existieren, bevor du versuchst, sie anzuhängen, um Laufzeitfehler zu vermeiden.
FAQ: Häufige Fragen
1. Wie kann ich den Code anpassen, um mehr als drei PDFs anzuhängen?
Du kannst einfach weitere .Attachments.Add "Pfad\Zur\PDF"-Zeilen hinzufügen, um mehr PDFs anzuhängen.
2. Was mache ich, wenn ich eine Fehlermeldung beim Senden der E-Mail erhalte?
Überprüfe, ob alle erforderlichen Felder wie .To, .Subject und .HTMLBody ausgefüllt sind und dass dein Outlook richtig konfiguriert ist.