Як пакетно надсилати всі файли у папці Windows за допомогою окремих листів Outlook

Рішення для Outlook Вересень 29, 2025

Якщо ви хочете надіслати комусь усі файли в папці Windows за допомогою окремих електронних листів Outlook, ви можете скористатися методом, представленим у цій статті. Він використовує код VBA, який є досить ефективним.

Після прочитання моєї попередньої статті - “3 Швидкі методи приєднання всіх файлів у локальній папці до електронної пошти Outlook”, Деякі користувачі хочуть надсилати всі файли в локальній папці за допомогою окремих листів. Зазвичай вам слід створювати електронні листи та вкладати файли по одному. Це досить клопітно. Отже, далі ми запропонуємо вам більш ефективний спосіб.

Пакетне надсилання всіх файлів у папці Windows за допомогою окремих листів

Спочатку запустіть програму Outlook.
Потім у програмі Outlook відкрийте редактор VBA з посиланням на статтю - “Як запустити код VBA у своєму Outlook".
Далі скопіюйте та вставте наступний код VBA у проект або модуль.

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

Після цього ви можете запустити цей макрос відразу. Просто натисніть клавішу “F5”.
Згодом вам потрібно буде вибрати вихідну папку Windows у спливаючому діалоговому вікні.
Зрештою, Outlook приєднає всі файли в цій папці Windows до окремих електронних листів та надсилатиме їх попередньо визначеному одержувачу.
Коли він закінчиться, ви отримаєте повідомлення із запитом "Все готово!".

Слідкуйте за станом здоров’я Outlook

Хоча Outlook рекламується як найпопулярніший поштовий клієнт на ринку, він все ще має фатальний недолік. Це його вразливість. Іншими словами, Outlook схильний до різноманітних помилок та пошкоджень. Тому вам слід приділяти велику увагу справності вашого Outlook, захищаючи його від пошкоджень. Крім того, вам слід регулярно створювати резервні копії файлів Outlook. Крім того, рекомендується скористатися інструментом для виправлення PST, таким як DataNumen Outlook Repair. Він може ремонт Outlook проблеми без жодних клопотів.

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі sql виправити та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com