Hur man tilldelar en uppgift till flera personer separat i din Outlook

Av vissa skäl, till exempel konfidentialitet eller sekretess, kan du skicka separat när du tilldelar en uppgift till många personer. Nu kommer vi här att introducera en metod för att få det.

När du tilldelar en uppgift, om du fyller i flera mottagare och klickar på "Skicka", får du en varning som talar om att uppgiften som skickas till många personer inte kommer att uppdateras. Således, om du vill få uppgiftsuppdateringar i tid, skulle du bättre tilldela uppgiften till många mottagare separat.

Naturligtvis, förutom övervägande av uppgiftsuppdatering, på grund av konfidentialitet, måste du skicka en uppgift till flera personer separat. Generellt måste du skapa separata uppgifter, lägga till mottagare och skicka en efter en. Det är uppenbarligen besvärligt. Så i det följande kommer vi att presentera dig för ett mycket mer effektivt sätt.

Batch Tilldela en uppgift till flera personer separat

1. Till att börja med, tryck på "Alt + F11" för att komma åt Outlook VBA-redigeraren.
2. I fönstret “Microsoft Visual Basic for Applications” kopierar du sedan VBA-koden till en tom modul eller ett tomt projekt.

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. Lägg sedan till detta makro i menyfliksområdet i aktivitetsfönstret genom att hänvisa till "Valfritt steg" i inlägget – "Hur du kör VBA-kod i din Outlook".
4. Så småningom tar du följande steg för att prova detta makro.

• Skapa först en ny uppgift och lägg till mottagarna efter eget önskemål.
• Klicka sedan på makroknappen i menyfliksområdet.
• Omedelbart kommer den aktuella uppgiften att tilldelas mottagarna separat, vilket visas i följande skärmdump.

Ta hand om din Outlook

Outlook är utsatt för fel och korruption. Därför, om du är ovillig att drabbas av Outlook-dataförlust, bör du göra regelbundna säkerhetskopior för dina Outlook-data. Endast på detta sätt, även om Outlook-filen blir korrupt, kan du fortfarande enkelt återställa korrupta Outlook data från säkerhetskopior. Om du inte behöver säkerhetskopiera måste du använda ett anmärkningsvärt och kraftfullt återställningsverktyg, till exempel DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server återvinning och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com