Как да зададете партида задача поотделно на няколко души във вашия Outlook

По някои причини, като поверителност или поверителност, когато възлагате задача на много хора, може да искате да изпратите отделно. Сега тук ще представим метод за получаването му.

Когато зададете задача, ако попълните множество получатели и щракнете върху „Изпрати“, ще получите предупреждение, че задачата, изпратена до много хора, няма да бъде актуализирана. По този начин, ако искате да получавате актуализации на задачите навреме, по-добре задайте задачата на много получатели отделно.

Разбира се, освен разглеждането на актуализацията на задачата, поради поверителност, трябва да изпратите задача на няколко лица поотделно. Като цяло трябва да създадете отделни задачи, да добавите получател и да изпратите един по един. Очевидно е обезпокоително. И така, в следващите стъпки ще ви представим много по-ефективен начин.

Партида Задайте задача поотделно на няколко лица

1. За начало натиснете „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

3. Впоследствие добавете този макрос към лентата на прозореца „Задача“, като се обърнете към „Незадължителна стъпка“ в публикацията – „Как да стартирате VBA код във вашия Outlook".
4. В крайна сметка предприемете следните стъпки, за да изпробвате този макрос.

• Първо, създайте нова задача и добавете получателите по желание.
• След това щракнете върху бутона на макроса в лентата.
• Веднага текущата задача ще бъде възложена на получателите отделно, както е показано на следващата екранна снимка.

Погрижете се за вашия Outlook

Outlook е склонен към грешки и корупция. Следователно, ако не желаете да страдате от загуба на данни в Outlook, трябва да правите редовни резервни копия на данните си в Outlook. Само по този начин, въпреки че файлът на Outlook се поврежда, пак можете лесно да го възстановите корумпиран Outlook данни от архиви. Ако нямате резервно копие, трябва да прибегнете до забележителен и мощен инструмент за възстановяване, като например DataNumen Outlook Repair.

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

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