Ako dávkové odosielanie všetkých súborov v priečinku Windows prostredníctvom samostatných e-mailov programu Outlook

Ak chcete niekomu poslať všetky súbory v priečinku Windows prostredníctvom jednotlivých e-mailov Outlook, môžete použiť metódu uvedenú v tomto článku. Využíva kód VBA, ktorý je dosť efektívny.

Po prečítaní môjho predchádzajúceho článku - „3 rýchle spôsoby pripojenia všetkých súborov v miestnom priečinku k e-mailu v Outlooku”, Niektorí používatelia chcú poslať všetky súbory v lokálnom priečinku prostredníctvom samostatných e-mailov. Štandardným spôsobom by ste mali vytvárať e-maily a pripájať súbory po jednom. Je to dosť nepríjemné. Preto vám v nasledujúcich textoch predstavíme efektívnejší spôsob.

Hromadné odoslanie všetkých súborov v priečinku Windows prostredníctvom samostatných e-mailov

1. Najprv spustite program Outlook.
2. Potom v Outlooku otvorte editor VBA s odkazom na článok - „Ako spustiť kód VBA v programe Outlook".
3. Ďalej skopírujte a prilepte nasledujúci kód VBA do projektu alebo 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. Potom môžete toto makro spustiť naraz. Stačí stlačiť klávesu „F5“.
5. Následne by sa od vás požadovalo, aby ste v rozbaľovacom dialógovom okne vybrali zdrojový priečinok Windows.
6. Nakoniec program Outlook pripojí všetky súbory v tomto priečinku Windows k samostatným e-mailom a odošle e-maily vopred určenému príjemcovi.
7. Po dokončení sa zobrazí správa s výzvou „Hotovo!“.

Dávajte pozor na zdravie Outlook

Hoci je Outlook označovaný za najpopulárnejšieho e-mailového klienta na trhu, stále má jednu fatálnu chybu. Tou je jeho zraniteľnosť. Inými slovami, Outlook je náchylný na rôzne chyby a poškodenia. Preto musíte prikladať veľký význam stavu vášho Outlooku a chrániť ho pred poškodením. Okrem toho musíte pravidelne zálohovať súbory Outlooku. Okrem toho sa odporúča zaobstarať si nástroj na opravu PST súborov, ako napríklad DataNumen Outlook Repair, Môže opraviť Outlook problémy bez akýchkoľvek problémov.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S