Як пакетно надсилати всі відкриті та складені електронні листи у вашому

Рішення для Outlook Вересень 29, 2025
Поділитися зараз:

Після того, як ви закінчите складати деякі електронні листи в Outlook, ви можете сподіватися надіслати їх одним рухом. Тепер, у цій статті, ми навчимо вас, як отримати його за допомогою коду VBA.

Наприклад, ви надіслали кілька нових електронних листів, але не надіслали їх, просто тримаючи їх відкритими. А згодом ви хочете їх відправити. Загалом, потрібно натискати кнопку «Надіслати» у кожному електронному листі по одному. За цієї обставини ви повинні прагнути до методу, який допоможе вам відправляти всі відкриті та складені електронні листи масово.

Пакетне надсилання всіх відкритих та складених електронних листів у вашому Outlook

Далі ми розповімо вам про такий ефективний спосіб. Він використовує VBA. якщо ви не вмієте користуватися VBA, можете звернутися до статті - “Як запустити код VBA у своєму Outlook»Тим часом.

Пакетне надсилання всіх відкритих та складених електронних листів

  1. Для початку ви можете складати електронні листи, як завжди, і тримати їх відкритими.Відкриті електронні листи
  2. Потім натисніть “Alt + F11”, щоб отримати доступ до редактора VBA.
  3. Далі, у новому вікні, скопіюйте наступний код VBA в модуль.
Sub BatchSendOutAllOpenEmails()
    Dim objInspectors As Outlook.Inspectors
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim lMailCount As Long
 
    'Get all open items in your Outlook
    Set objInspectors = Outlook.Application.Inspectors
 
    lMailCount = 0
    For i = objInspectors.Count To 1 Step -1
        If objInspectors.Item(i).CurrentItem.Class = olMail Then
           'Get all open emails
           Set objMail = objInspectors.Item(i).CurrentItem
 
           'Send out open emails that contain subject & recipients
           If objMail.Subject <> "" Then
              If objMail.Recipients.Count > 0 Then
                 objMail.Send
                 lMailCount = lMailCount + 1
              End If
           End If
        End If
    Next
 
    'Prompt you of the results
    MsgBox lMailCount & " open emails have been sent out!", vbInformation + vbOKOnly
End Sub

Код VBA - пакетне надсилання всіх відкритих та складених електронних листів

  1. Після цього активуйте цей макрос, натиснувши безпосередньо кнопку клавіші “F5”.
  2. Нарешті, коли макрос завершиться, вам буде запропоновано кількість електронних листів, які потрібно надіслати.Підказка про кількість відкритих листів, які слід надіслати
  3. Тепер відкрийте папку «Вихідні», в якій ви зможете побачити, що надсилаються всі раніше відкриті електронні листи.Електронні листи надсилаються

Відновити Outlook від несподіваної шкоди

Ви коли-небудь стикалися з корупцією в Outlook? Багато користувачів стикалися з цією проблемою і скаржились на неї. Загалом, якщо ви робите своєчасні та ефективні рішення, ви можете легко отримувати дані Outlook пошкоджений PST файл. Наприклад, якщо у вас є оновлені дані Outlook, ви можете легко повернутися до резервної копії. Звичайно, ви можете скористатися чудовим і надійним інструментом для ремонту, наприклад DataNumen Outlook Repair, який може сканувати пошкоджений файл Outlook і відновити максимум даних.

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

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

Поділитися зараз:

Коментарі закриті.