Как отложить доставку конкретному участнику при отправке электронной почты Outlook в контактную группу

Перспективные решения 29 сентября, 2025
Поделись сейчас:

В этой статье будет представлен фрагмент кода VBA, который позволит вам быстро отложить доставку конкретному участнику при отправке электронного письма группе контактов в Outlook.

Когда вы составляете и отправляете электронное письмо Outlook группе контактов, если вы хотите отложить отправку этого электронного письма определенному члену этой группы, вы можете использовать следующий метод для его реализации. Он автоматически расширит контактную группу и создаст такое же электронное письмо, которое будет отправлено конкретному участнику. Теперь читайте дальше, чтобы получить подробные шаги.

Задержка доставки определенному члену при отправке электронной почты Outlook в контактную группу

Задержка доставки конкретному участнику при отправке электронного письма в контактную группу

  1. Для начала запустите программу Outlook.
  2. Затем в появившемся главном окне Outlook следует нажать клавиши «Alt+F11».
  3. Впоследствии вы получите доступ к редактору Outlook VBA, в котором вам нужно вставить новый модуль или просто открыть неиспользуемый модуль.
  4. После этого вы можете скопировать и вставить следующий код VBA в этот модуль.
Sub DelayEmail_aSpecificMemberinContactGroup()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objDelayedMail As MailItem
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact group in "To" field
          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
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend

    'Find the specific memebr in the recipients
    For Each objRecipient In objRecipients
        If objRecipient.Address = "shelly@datanumen.com" Then
 
           'Create a same email
           Set objDelayedMail = objCurrentMail.Copy
           With objDelayedMail
                .To = ""
                .Recipients.Add objRecipient.Address
                .Recipients.ResolveAll
                'Change the deferred delivery time as per your needs
                .DeferredDeliveryTime = (Date + 1) & " 09:00:00"
                .Send
          End With
 
          objRecipient.Delete
       End If
    Next
 
    objCurrentMail.Send
End Sub

Код VBA - задержка доставки определенному члену при отправке электронной почты Outlook в контактную группу

  1. Далее, для последующего удобного доступа, вам лучше добавить только что добавленный макрос на панель быстрого доступа окна сообщения.
  2. Затем вам следует изменить настройки макросов Outlook, чтобы включить все макросы в «Настройки макросов» «Центра управления безопасностью».
  3. В конце концов, вы можете сделать снимок.
  • Во-первых, напишите такое письмо в контактную группу, как обычно.
  • Затем вы можете нажать кнопку нового макроса на панели быстрого доступа.
  • Сразу же будет создано такое же электронное письмо, которое будет отправлено конкретному участнику в запланированное время.
  • Тем временем текущее электронное письмо будет разослано остальным членам контактной группы.

Следите за всеми рисками, связанными с вашим прогнозом

В современную эпоху вирусы и шпионское ПО становятся все более распространенными. Обычно они маскируются под безобидные электронные письма. Поэтому следует остерегаться различных рисков, связанных с Outlook, таких как вредоносные электронные письма. Необходимо остерегаться писем от неизвестных контактов. Кроме того, чтобы исправить Outlook как только ваш файл PST подвергнется атаке вредоносного ПО, вы должны подготовить опытный инструмент восстановления, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com

Поделись сейчас:

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