Jak dávkové odesílání všech souborů ve složce Windows prostřednictvím samostatných e -mailů aplikace Outlook

Pokud chcete někomu odeslat všechny soubory ve složce Windows prostřednictvím jednotlivých e -mailů aplikace Outlook, můžete použít metodu uvedenou v tomto článku. Využívá kód VBA, což je docela efektivní.

Po přečtení mého předchozího článku - „3 rychlé metody pro připojení všech souborů v místní složce k e-mailu aplikace Outlook”, Někteří uživatelé chtějí odeslat všechny soubory v místní složce prostřednictvím samostatných e -mailů. Standardně byste měli vytvářet e -maily a připojovat soubory jeden po druhém. Je to docela nepříjemné. Proto vám v následujícím textu představíme efektivnější způsob.

Dávkové odesílání všech souborů ve složce Windows prostřednictvím samostatných e -mailů

1. Nejprve spusťte program Outlook.
2. Poté v aplikaci Outlook otevřete editor VBA s odkazem na článek - „Jak spustit kód VBA ve vašem Outlooku".
3. Dále zkopírujte a vložte následující kód VBA do projektu nebo modulu.

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. Poté můžete toto makro spustit najednou. Stačí stisknout tlačítko „F5“.
5. Následně budete muset ve vyskakovacím dialogovém okně vybrat zdrojovou složku Windows.
6. Nakonec aplikace Outlook připojí všechny soubory v této složce systému Windows k oddělení e -mailů a odeslání e -mailů předdefinovanému příjemci.
7. Když skončí, dostanete zprávu s výzvou „Hotovo!“.

Sledujte stav aplikace Outlook

Přestože je Outlook označován za nejoblíbenějšího e-mailového klienta na trhu, stále má jednu fatální chybu. Je to jeho zranitelnost. Jinými slovy, Outlook je náchylný k různým chybám a poškození. Proto musíte klást velký důraz na stav svého Outlooku a chránit ho před poškozením. Kromě toho je třeba pravidelně zálohovat soubory Outlooku. Kromě toho se doporučuje pořídit si nástroj pro opravu PST souborů, jako je DataNumen Outlook Repair. To může opravit Outlook problémy bez jakýchkoli potíží.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com