Як надсилати електронні листи з простим текстом лише особам із певного домену через Outlook VBA

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

Деякі користувачі хочуть надсилати електронні листи з простим текстом лише одержувачам, чиї адреси електронної пошти належать до певного домену. Ця стаття представить розумний спосіб його отримати.

У моїй попередній статтіЯк завжди надсилати електронні листи Outlook у звичайному текстовому форматі для певних контактів”, ви можете отримати 2 підходи для надсилання електронних листів із звичайним текстом лише певним контактам. Якщо ви хочете надіслати такі електронні листи всім контактам у певному поштовому домені, використання двох способів у цій статті буде трохи нерозумним і складним. Отже, тут ми поділимося з вами іншим способом, який є набагато ефективнішим.

Надсилайте електронні листи з простим текстом лише особам із певного домену через Outlook VBA

Надсилайте електронні листи з простим текстом лише особам із певного домену

  1. Перш за все, вам слід запустити програму Outlook.
  2. Потім вам потрібно натиснути клавіші «Alt + F11» на головному екрані Outlook.
  3. Далі з’явиться вікно «Microsoft Visual Basic for Applications». У ньому вам слід відкрити проект «ThisOutlookSession».
  4. Згодом скопіюйте та вставте наступний код VBA у цей проект.
'Occurs when sending an Outlook email
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim strAddress, strDomain As String
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       For Each objRecipient In objMail.Recipients
           'Get the recipient's email domain
           strAddress = objRecipient.Address
           strDomain = Right(strAddress, Len(strAddress) - InStr(strAddress, "@"))
 
           'If the domain is the specific one
           'Change the "datanumen.com" as per your needs
           If strDomain = "datanumen.com" Then
              'Convert the email format to plain text
              objMail.BodyFormat = olFormatPlain
              objMail.Save
              Exit For
           End If
      Next
    End If
End Sub

Код VBA – надсилайте електронні листи з простим текстом лише особам із певного домену

  1. Після цього ви повинні підписати цей макрос. Натисніть «Інструменти» > «Цифровий підпис» і виконайте дії майстра на екрані, щоб завершити.
  2. Пізніше вийдіть із поточного вікна. Потім перейдіть на вкладку «Розробник» і натисніть кнопку «Безпека макросів». У новому спливаючому діалоговому вікні вам слід змінити параметри, щоб увімкнути макроси з цифровим підписом.
  3. Нарешті ви можете зробити знімок. Створіть та напишіть електронний лист одному одержувачу в певному домені електронної пошти. Натисніть кнопку «Надіслати», щоб надіслати його. Під час цього процесу Outlook автоматично змінить формат електронної пошти на звичайний текст.

Відновлення пошкоджених файлів Outlook

Outlook уразливий до зараження вірусами, атак зловмисного програмного забезпечення, стрибків напруги тощо. Таким чином, ми повинні дізнатися кілька порад щодо відновлення даних Outlook після пошкодження. Спочатку вам слід перевірити резервні копії. Якщо резервна копія занадто стара або її не вдається відновити, ви можете скористатися вбудованим інструментом – Scanpst.exe. Звичайно, інструмент для ремонту вхідних - не завжди ефективний. Таким чином, вам краще підготувати надійний і надійний зовнішній інструмент, наприклад DataNumen Outlook Repair. Його настійно рекомендують через його високу швидкість відновлення.

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

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

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

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