Mit zunehmender Digitalisierung sind automatisierte Prozesse in unserem Alltag immer wichtiger geworden. Einer dieser Prozesse könnte das Versenden von Dateien als E-Mail-Anhänge sein, insbesondere wenn Sie eine Menge Dateien einzeln an verschiedene Empfänger senden müssen. Das manuelle Versenden kann zeitaufwändig und ermüdend sein. Dieses Makro wurde entwickelt, um Ihnen genau dabei zu helfen: Es automatisiert den Prozess des Versendens von Dateien als E-Mail-Anhänge aus einem spezifizierten Ordner. Nach dem erfolgreichen Versand wird jede Datei in einen anderen Ordner verschoben, um zu signalisieren, dass sie bereits gesendet wurde. Das spart Ihnen nicht nur Zeit, sondern reduziert auch die Fehlermöglichkeit, da keine Datei vergessen wird oder doppelt gesendet wird.
1. Öffnen Sie Outlook und drücken Sie `ALT + F11`, um den VBA-Editor zu öffnen.
2. Klicken Sie im linken Fensterbereich auf „ThisOutlookSession“.
3. Fügen Sie den folgenden VBA-Code ein:
Sub SendEmailsWithAttachments()
Dim OutApp As Object
Dim OutMail As Object
Dim objFSO As Object
Dim SourceFolder As String
Dim DestFolder As String
Dim FileItem As Object
Dim objFolder As Object
' Pfad zum Ordner, in dem die Anhänge gespeichert sind
SourceFolder = "C:\ANHÄNGE\"
' Pfad zum Ordner, in den die Dateien verschoben werden, nachdem sie gesendet wurden
DestFolder = "C:\ANHÄNGE\GESENDET\"
' Dateisystem-Objekt erstellen
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(SourceFolder)
' Outlook-Objekt erstellen
Set OutApp = CreateObject("Outlook.Application")
' Für jede Datei im Ordner
For Each FileItem In objFolder.Files
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "empfaenger@email.de" ' Ändern Sie dies an die E-Mail-Adresse, an die Sie senden möchten
.Subject = "Betreff der E-Mail"
.Body = "Hier ist der Inhalt der E-Mail."
.Attachments.Add FileItem.Path
.Send
End With
' Datei in den Ordner "GESENDET" verschieben
objFSO.MoveFile FileItem.Path, DestFolder & FileItem.Name
' Freigeben des Speichers
Set OutMail = Nothing
Next FileItem
Set OutApp = Nothing
Set objFSO = Nothing
Set objFolder = Nothing
End Sub
4. Modifizieren Sie den Code entsprechend Ihrer Anforderungen (z. B. Empfänger, Betreff oder Nachrichtentext).
5. Schließen Sie den VBA-Editor.
6. Führen Sie das Makro aus, indem Sie `ALT + F8` in Outlook drücken, das Makro `SendEmailsWithAttachments` auswählen und auf „Ausführen“ klicken.
Stellen Sie sicher, dass Sie eine Sicherungskopie aller Dateien im Ordner `C:\ANHÄNGE\` haben, bevor Sie dieses Makro ausführen, um Datenverlust zu verhindern.
