Batch-Senden aller Dateien in einem Windows-Ordner über separate Outlook-E-Mails

Wenn Sie alle Dateien in einem Windows-Ordner über einzelne Outlook-E-Mails an jemanden senden möchten, können Sie die in diesem Artikel vorgestellte Methode verwenden. Es nutzt VBA-Code, was sehr effektiv ist.

Nachdem ich meinen vorherigen Artikel gelesen habe – „3 Schnelle Methoden zum Anhängen aller Dateien in einem lokalen Ordner an eine Outlook-E-MailEinige Benutzer möchten alle Dateien in einem lokalen Ordner über separate E-Mails versenden. Standardmäßig sollten Sie E-Mails erstellen und die Dateien einzeln anhängen. Es ist ziemlich mühsam. Deshalb stellen wir Ihnen im Folgenden einen effektiveren Weg vor.

Senden Sie alle Dateien in einem Windows-Ordner stapelweise über separate E-Mails

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Rufen Sie dann in Outlook den VBA-Editor mit Bezug auf den Artikel auf – „So führen Sie VBA-Code in Outlook aus".
3. Kopieren Sie als Nächstes den folgenden VBA-Code und fügen Sie ihn in ein Projekt oder ein Modul ein.

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

4. Danach können Sie dieses Makro sofort ausführen. Drücken Sie einfach die Taste „F5“.
5. Anschließend müssen Sie im Popup-Dialogfeld den Windows-Quellordner auswählen.
6. Letztendlich hängt Outlook alle Dateien in diesem Windows-Ordner an separate E-Mails an und sendet die E-Mails an den vordefinierten Empfänger.
7. Wenn der Vorgang abgeschlossen ist, erhalten Sie die Meldung „Alles erledigt!“.

Behalten Sie den Zustand von Outlook im Auge

Obwohl Outlook als der beliebteste E-Mail-Client auf dem Markt gilt, weist er dennoch eine gravierende Schwäche auf: seine Anfälligkeit. Outlook ist anfällig für verschiedene Fehler und Datenbeschädigungen. Daher sollten Sie großen Wert auf die Integrität Ihres Outlook-Systems legen und es vor Schäden schützen. Zusätzlich empfiehlt es sich, Ihre Outlook-Dateien regelmäßig zu sichern. Darüber hinaus ist die Verwendung eines PST-Reparaturtools ratsam. DataNumen Outlook Repair. Es kann Outlook reparieren Probleme ohne Probleme.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX