Jak dávkově přiřadit úkol více osobám samostatně v aplikaci Outlook

Z některých důvodů, jako je důvěrnost nebo ochrana soukromí, můžete při přiřazování úkolu mnoha osobám chtít odeslat samostatně. Nyní zde představíme metodu, jak ji získat.

Když přiřadíte úkol, vyplníte-li více příjemců a kliknete na „Odeslat“, zobrazí se upozornění, že úkol odeslaný mnoha osobám nebude aktualizován. Pokud tedy chcete získat aktualizace úkolů včas, měli byste úkol lépe přiřadit mnoha příjemcům samostatně.

Samozřejmě, kromě zvážení aktualizace úkolu, kvůli důvěrnosti musíte úkol poslat více osobám samostatně. Obecně musíte vytvářet samostatné úkoly, přidávat příjemce a odesílat jeden po druhém. Je to zjevně problematické. V následujících odstavcích vám tedy představíme mnohem efektivnější způsob.

Dávkové přiřazení úkolu více osobám zvlášť

1. Pro začátek stiskněte klávesy „Alt + F11“ pro přístup k editoru VBA v Outlooku.
2. Dále v okně „Microsoft Visual Basic for Applications“ zkopírujte kód VBA do prázdného modulu nebo 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. Následně přidejte toto makro na pás karet v okně Úkol podle pokynů v příspěvku „Volitelný krok“ – „Jak spustit kód VBA ve vašem Outlooku".
4. Nakonec toto makro vyzkoušejte podle následujících kroků.

• Nejprve vytvořte nový úkol a přidejte příjemce podle libosti.
• Poté klikněte na tlačítko makra na pásu karet.
• Současně bude aktuální úkol přiřazen příjemcům samostatně, jak je znázorněno na následujícím snímku obrazovky.

Postarejte se o svůj Outlook

Outlook je náchylný k chybám a poškozením. Proto, pokud se zdráháte utrpět ztrátu dat aplikace Outlook, měli byste pravidelně zálohovat data aplikace Outlook. Pouze tímto způsobem, i když dojde k poškození souboru aplikace Outlook, můžete stále snadno obnovit poškozený Outlook data ze záloh. Pokud bez zálohy musíte použít pozoruhodný a výkonný nástroj pro obnovení, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně SQL Server obnova a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com