2 быстрых метода для пакетного назначения нескольких задач Outlook одному человеку

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

Иногда по каким-то причинам вам нужно назначить кому-то несколько существующих задач в вашей собственной папке «Задачи». Как правило, чтобы назначить задачу, вы должны открыть ее и нажать кнопку «Назначить задачу», указать получателя в поле «Кому» и, наконец, нажать кнопку «Отправить». Но это средство слишком утомительно в случае, когда вы хотите назначить много задач. Следовательно, в дальнейшем мы поделимся с вами двумя гораздо более эффективными и удобными методами.

Способ 1: пересылать задачи в виде вложений в электронное письмо

1. Для начала, в папке «Задачи» нажмите клавишу «Ctrl» и одновременно выберите все задачи, которые хотите назначить.
2. Затем нажмите кнопку «Переслать» в группе «Ответить» на вкладке «Главная».
3. Сразу же появится новое электронное письмо.
4. К этому письму прикреплены все выбранные задачи.
5. Наконец, вы можете добавить получателя, составить и отправить письмо по своему желанию.

Способ 2: пакетное назначение задач с помощью Outlook VBA

1. В самом начале перейдите в редактор Outlook VBA, обратившись к «Как запустить код VBA в Outlook».
2. Затем поместите следующий код VBA в модуль.

Sub AssignMultipleTasksToAPerson()
    Dim objSelection As Outlook.Selection
    Dim objTask As Outlook.TaskItem
    Dim i As Long
    Dim lTaskCount As Long
 
    'Get selected items
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       lTaskCount = 0
       For i = objSelection.Count To 1 Step -1
           If TypeOf objSelection(i) Is TaskItem Then
              Set objTask = objSelection(i)
              With objTask
                   'Alter the recipient email address as per your needs
                   .Recipients.Add ("johnsmith@datanumen.com")
                   .Recipients.ResolveAll
                   .Assign
                   .Send
              End With
              lTaskCount = lTaskCount + 1
           End If
       Next
 
      'Get prompt
       MsgBox lTaskCount & " tasks have been assigned!", vbInformation + vbOKOnly
    End If
End Sub

3. После этого добавьте этот макрос на панель быстрого доступа.
4. Позже выберите задачи, которые будут назначены.
5. Наконец, нажмите кнопку макроса на панели быстрого доступа.
6. Немедленно эти задачи будут назначены заранее определенному получателю.

Спасение от болезненной потери данных Outlook

Потерять данные, включая потерю данных Outlook, будет очень неприятно. Следовательно, необходимо принять эффективные меры предосторожности, чтобы предотвратить это. Прежде всего, вы должны регулярно делать резервные копии данных. Кроме того, вам нужно знать, где вы можете получить встроенный инструмент исправления — Скэнпст и как его запустить. И последнее, но не менее важное: чтобы обеспечить немедленное спасение в случае сбоя инструмента восстановления папки «Входящие», вам лучше заранее подготовить мощный внешний инструмент, например DataNumen Outlook Repair.

Об авторе:

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