Як отримати попередження, надсилаючи електронні листи особам, які не входять до вашої компанії

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

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

Іноді, щоб захистити безпеку даних, ваша компанія може вимагати від вас, що при використанні ділового облікового запису електронної пошти ви повинні надсилати електронні листи лише особам, що перебувають у вашій компанії. Іншими словами, вам заборонено надсилати електронні листи особам, що не належать до компанії, а саме електронним адресам у зовнішніх доменах. Однак, можливо, часом ви трохи забуваєте. У цьому випадку ви можете побажати, що Outlook може автоматично попереджати вас, коли ви надсилаєте електронні листи сторонній компанії. Тут ми зосередимось на цій проблемі та допоможемо вам досягти її за допомогою Outlook VBA.

Отримайте попередження, надсилаючи електронні листи особам, що не входять до вашої компанії

Отримайте попередження, надсилаючи електронні листи особам, що не входять до вашої компанії

  1. Спочатку запустіть програму Outlook.
  2. Потім натисніть комбінації клавіш “Alt + F11”.
  3. Далі ви отримаєте доступ до вікна редактора Outlook VBA.
  4. Згодом відкрийте проект «ThisOutlookSession».
  5. Потім скопіюйте та вставте наступні коди VBA у це вікно проекту.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim i As Long
    Dim strRecipientAddress As String
    Dim strPrompt As String
    Dim nWarning As Integer
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       For i = objRecipients.Count To 1 Step -1
           strRecipientAddress = objRecipients.Item(i).Address
           'Change @datanumen.com to your own company domain
           If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
              Exit For
           Else
              Cancel = False
           End If
      Next i
 
      If InStr(LCase(strRecipientAddress), "@datanumen.com") <= 0 Then
         strPrompt = "Are you sure to send this email to outside your company? "
         nWarning = MsgBox(strPrompt, vbYesNo + vbQuestion, "Confirm Email to Outside Organization")
         If nWarning = vbNo Then
            Cancel = True
         End If
      End If
    End If
End Sub

Коди VBA - отримуйте попередження, надсилаючи електронні листи особам, що не входять до вашої компанії

  1. Після цього вам слід підписати цей код.
  2. Пізніше змініть налаштування макросів Outlook, щоб дозволити підписані макроси.
  3. Нарешті, відтепер, кожного разу, коли ви збираєтеся надсилати електронні листи на електронні адреси, які не належать до домену вашої компанії, ви отримуватимете попередження, як на наведеному нижче знімку екрана:попередження

Продовжуйте правильно закривати Outlook

Outlook, як правило, аварійно завершує роботу, якщо ви часто неправильно закриваєте Outlook, наприклад, змушуєте його закриватися через раптові перебої з електроживленням. Щоразу, коли ваш Outlook аварійно завершує роботу, ваш файл PST також постраждає. Як тільки ваш файл PST буде зламаний, ви витратите набагато більше зусиль, щоб повернути файл пошкоджений Outlook даних, ніж щоденний захист. У цьому випадку scanpst.exe не допоможе. Вам не залишається нічого іншого, як повернутися до більш потужного інструменту, такого як DataNumen Outlook Repair.

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

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

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

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