Jak zbiorczo przydzielić zadanie wielu osobom oddzielnie w programie Outlook

Z pewnych powodów, takich jak poufność lub prywatność, podczas przydzielania zadania wielu osobom możesz wysłać je osobno. Teraz tutaj przedstawimy metodę, aby to uzyskać.

Kiedy przydzielasz zadanie, jeśli wypełnisz wielu odbiorców i klikniesz „Wyślij”, otrzymasz ostrzeżenie informujące, że zadanie wysłane do wielu osób nie zostanie zaktualizowane. Dlatego jeśli chcesz otrzymywać aktualizacje zadań na czas, lepiej przydzielić zadanie wielu odbiorcom osobno.

Oczywiście poza rozważeniem aktualizacji zadań, ze względu na poufność, musisz osobno wysłać zadanie do wielu osób. Generalnie musisz stworzyć osobne zadania, dodać odbiorcę i wysłać jedno po drugim. Jest to oczywiście kłopotliwe. Dlatego w dalszej części przedstawimy Ci znacznie bardziej efektywny sposób.

Wsadowo przydziel zadanie wielu osobom oddzielnie

1. Na początek naciśnij „Alt + F11”, aby uzyskać dostęp do edytora VBA w programie Outlook.
2. Następnie w oknie „Microsoft Visual Basic for Applications” skopiuj kod VBA do pustego modułu lub projektu.

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. Następnie dodaj tę makroinstrukcję do wstążki okna Zadania, odwołując się do „Opcjonalnego kroku” w poście – „Jak uruchomić kod VBA w swoim Outlooku".
4. Na koniec wykonaj następujące kroki, aby wypróbować to makro.

• Najpierw utwórz nowe zadanie i dowolnie dodaj odbiorców.
• Następnie kliknij przycisk makra na wstążce.
• Od razu bieżące zadanie zostanie przydzielone odbiorcom osobno, jak pokazano na poniższym zrzucie ekranu.

Zadbaj o swoją perspektywę

Outlook jest podatny na błędy i korupcję. Dlatego jeśli nie chcesz cierpieć z powodu utraty danych programu Outlook, powinieneś regularnie tworzyć kopie zapasowe danych programu Outlook. Tylko w ten sposób, nawet jeśli plik programu Outlook zostanie uszkodzony, nadal można go łatwo przywrócić uszkodzony Outlook dane z kopii zapasowych. Jeśli nie masz kopii zapasowej, musisz skorzystać z niezwykłego i potężnego narzędzia do odzyskiwania, takiego jak DataNumen Outlook Repair.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym SQL Server regeneracja i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com