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

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

Outlook не надає вбудованих функцій для блокування надсилання електронних листів на певну адресу електронної пошти. Тому, якщо ви хочете це зробити, потрібно написати трохи скриптів. Далі ми поділимося таким фрагментом коду VBA. Якщо ви не знаєте, як користуватися VBA, ви можете прочитати попередню публікацію – «Як запустити код VBA у своєму Outlook».

Запобігання надсиланню електронних листів на конкретну електронну адресу

1. Спочатку зверніться до редактора Outlook VBA через “Alt + F11”.
2. Потім додайте наступний код у проект “ThisOutlookSession”.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objRecipient As Outlook.Recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Expand the contact groups in Recipients
       ContactGroupFound = True
       Do While ContactGroupFound = True
          Set objRecipients = objMail.Recipients
          ContactGroupFound = False
 
          For i = objRecipients.Count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.Count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
       Loop
 
       'Remove specific email address
       For Each objRecipient In objRecipients
           If objRecipient.Address = "shelly@datanumen.com" Then
              If MsgBox("Do you want to email to " & Chr(34) & "shelly@datanumen.com" & Chr(34) & "?", vbExclamation + vbYesNo) = vbNo Then
                 objRecipient.Delete
              End If
           End If
       Next
    End If
End Sub

3. Після цього вийдіть із вікна “Microsoft Visual Basic for Applications”.
4. Зрештою, спробуйте, виконавши наступні кроки.

• Для початку складіть електронне повідомлення та заповніть одержувачів.
• Потім натисніть кнопку «Надіслати».
• Одразу макрос буде працювати, щоб розширити групи контактів у одержувачів, якщо такі є, і з’ясувати, чи містять одержувачі конкретну адресу електронної пошти.
• Якщо адресу знайдено, ви отримаєте повідомлення, як показано на наступному малюнку.
• Якщо вибрати "Ні", конкретна електронна адреса буде негайно видалена.
• Після надсилання повідомлення ви можете перевірити його одержувачів, які точно не містять конкретної адреси електронної пошти.

Виправте пошкоджений файл Outlook

Чи був ваш файл Outlook коли-небудь пошкоджений? Це, безперечно, найдратівливіша проблема в Outlook. Коли ви стикаєтеся з нею, вам доводиться маніпулювати... Ремонт PST, що трохи вузлувато. Як зазвичай, ви задумаєтесь про використання Scanpst вперше. Але, на жаль, у таких випадках це може не вдатися. Ваш курорт повинен бути або досвідченішим інструментом, наприклад DataNumen Outlook Repair, або професійна служба відновлення PST.

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

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