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

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

З деяких причин, таких як конфіденційність або конфіденційність, при призначенні завдання багатьом особам ви можете надіслати окремо. Тепер ми введемо метод його отримання.

При призначенні завдання, якщо ви введете декількох одержувачів і натиснете “Надіслати”, ви отримаєте попередження, що завдання, надіслане багатьом особам, не буде оновлено. Таким чином, якщо ви хочете вчасно отримувати оновлення завдань, краще призначте завдання багатьом одержувачам окремо.Попередження про відсутність оновлення завдання

Звичайно, крім розгляду оновлення завдання, через конфіденційність, вам потрібно надіслати завдання кільком особам окремо. Як правило, вам доводиться створювати окремі завдання, додавати одержувача та надсилати по одному. Це, очевидно, клопітно. Отже, далі ми представимо вам набагато ефективніший спосіб.

Пакетне призначення окремого завдання кільком особам

  1. Для якtart, натисніть “Alt + F11”, щоб отримати доступ до редактора Outlook VBA.
  2. Далі у вікні “Microsoft Visual Basic for Applications” скопіюйте код VBA у порожній модуль або проект.
Sub AssignTaskToMultipleContactsSeparately()
    Dim objCurrentTask As Outlook.TaskItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim objCopiedTask As Outlook.TaskItem
    Dim i As Long
    Dim strRecipientName As String
 
    Set objCurrentTask = Outlook.Application.ActiveInspector.CurrentItem
 
    If Not objCurrentTask Is Nothing Then
       Set objRecipients = objCurrentTask.Recipients
 
       For Each objRecipient In objRecipients
           Set objCopiedTask = objCurrentTask.Copy
 
           For i = objCopiedTask.Recipients.Count To 1 Step -1
               objCopiedTask.Recipients.Remove (i)
           Next
 
           strRecipientName = Split(objRecipient.Address, "@")(0)
           strRecipientName = UCase(Left(strRecipientName, 1)) & Right(strRecipientName, Len(strRecipientName) - 1)
 
           With objCopiedTask
                .Recipients.Add (objRecipient.Address)
                .Recipients.ResolveAll
                .Subject = .Subject & " (" & strRecipientName & ")"
                .Assign
                .Send
          End With
        Next
 
        objCurrentTask.Close olDiscard
    End If
End Sub

Код VBA - пакетне призначення окремого завдання кільком особам

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

Подбайте про свій Outlook

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

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

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

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

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