2 бързи метода за групово присвояване на множество задачи на Outlook на един човек

Ако сте създали множество задачи във вашия Outlook и сега искате да ги възложите на един човек, ще копнеете за методи за групово присвояване. В тази статия ще ви покажем такива 2 подхода.

Понякога по някакви причини трябва да възложите на някого няколко съществуващи задачи в собствената си папка „Задачи“. Като цяло, за да зададете задача, трябва да я отворите и да щракнете върху бутона „Присвояване на задача“, да попълните получателя в полето „До“ и накрая да натиснете бутона „Изпращане“. Но това означава, че е твърде досадно в случая, когато искате да зададете много задачи. Следователно по-долу ще споделим с вас 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. Следователно е необходимо да се вземат ефективни предпазни мерки, за да се предотврати това. На първо място, трябва да правите редовни архиви на данни. Освен това трябва да знаете откъде можете да получите вграден инструмент за поправяне - scanpst и как да го стартирате. Не на последно място, за да осигурите незабавно спасяване в случай на повреда на инструмента за поправка на пощенската кутия, по-добре подгответе предварително мощен външен инструмент, като напр. DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително mdf възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com