Alle XLS-Dateien aus einem Ordner per E-Mail versenden
Schritt-für-Schritt-Anleitung
Um alle XLS-Dateien aus einem Ordner per E-Mail zu versenden, kannst du die folgende VBA-Lösung verwenden. Beachte, dass du dafür Microsoft Outlook installiert haben musst.
-
Öffne Excel und gehe zum Menü Entwicklertools. Wenn das Menü nicht sichtbar ist, aktiviere es in den Excel-Optionen.
-
Klicke auf Visual Basic, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ klickst und dann Einfügen > Modul wählst.
-
Kopiere und füge den folgenden Code in das Modul ein:
Sub AlleXLSDateienVersenden()
Dim OL As Object, MailSendItem As Object
Dim i As Integer
Dim OrdnerPfad As String
OrdnerPfad = "D:\Excel\Auswertung\" ' Pfad zum Ordner
Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(0)
With MailSendItem
.Subject = "XLS Dateien"
.To = "empfaenger@example.com"
.Body = "Bitte finden Sie im Anhang alle XLS-Dateien."
' Alle XLS-Dateien im Ordner anhängen
Dim Datei As String
Datei = Dir(OrdnerPfad & "*.xls")
Do While Datei <> ""
.Attachments.Add OrdnerPfad & Datei
Datei = Dir
Loop
.Send
End With
Set OL = Nothing
End Sub
-
Ändere den OrdnerPfad und die E-Mail-Adresse in der .To-Zeile nach Bedarf.
-
Führe das Makro aus, um alle XLS-Dateien aus dem angegebenen Ordner zu versenden.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du nicht mit Outlook arbeiten möchtest, kannst du auch andere E-Mail-Clients oder Skripte nutzen, um einen ganzen Ordner per Mail zu versenden. Eine Alternative wäre, die Dateien zuerst in ein ZIP-Archiv zu packen und dann das Archiv anzuhängen.
Hier ein Beispiel, um einen Ordner zu zippen:
Sub ZipOrdner()
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace("C:\Ziel\Ordner.zip").CopyHere "D:\Excel\Auswertung\*"
End Sub
Praktische Beispiele
Um alle XLS-Dateien aus einem bestimmten Ordner zu versenden, kannst du das oben genannte Makro anpassen. Hier ist ein weiteres Beispiel, das alle Dateien eines bestimmten Typs (z.B. XLSX) versendet:
Datei = Dir(OrdnerPfad & "*.xlsx")
Auf diese Weise kannst du auch andere Dateitypen versenden, indem du die Erweiterung änderst.
Tipps für Profis
- Verwende eine Schleife, um die E-Mail-Adressen dynamisch aus einer Excel-Liste zu ziehen.
- Fehlerbehandlung hinzufügen, um das Skript robuster zu machen.
- Automatisiere die Ausführung des Skripts mithilfe von Ereignissen, wie z.B. beim Öffnen einer Arbeitsmappe.
FAQ: Häufige Fragen
1. Frage
Kann ich auch andere Dateitypen versenden?
Ja, ändere einfach die Dateiendung im Dir-Befehl, um andere Dateitypen wie .pdf oder .docx anzuhängen.
2. Frage
Wie kann ich das Makro so anpassen, dass es alle Dateien in einem bestimmten Unterordner versendet?
Setze Application.FileSearch.SearchSubFolders = True, um Unterordner zu durchsuchen, allerdings ist FileSearch in neueren Excel-Versionen veraltet. Stattdessen solltest du eine andere Methode zur Dateisuche verwenden.