Feladat csoportos hozzárendelése több személyhez külön-külön az Outlookban

Bizonyos okok miatt, például a titoktartás vagy a magánélet védelme miatt, ha egy feladatot sok személyhez rendel, érdemes lehet külön küldeni. Most bemutatunk egy módszert ennek megszerzésére.

Egy feladat hozzárendelésekor, ha több címzettet ad meg, és a „Küldés” gombra kattint, figyelmeztetést kap, amely szerint a sok személynek elküldött feladat nem frissül. Így ha időben szeretné megkapni a feladatfrissítéseket, jobb, ha a feladatot több címzetthez külön-külön rendeli hozzá.

Természetesen a feladatfrissítés megfontolásán kívül a titoktartás miatt egy feladatot több személynek külön-külön kell elküldeni. Általában külön feladatokat kell létrehozni, címzettet kell hozzáadni, és egyenként kell elküldeni. Nyilvánvalóan zavaró. Tehát a következőkben egy sokkal hatékonyabb módszert mutatunk be.

Csoportosan rendeljen hozzá egy feladatot több személyhez külön-külön

1. Kezdésként nyomja meg az „Alt + F11” billentyűkombinációt az Outlook VBA szerkesztőjének eléréséhez.
2. Ezután a „Microsoft Visual Basic for Applications” ablakban másolja a VBA-kódot egy üres modulba vagy projektbe.

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. Ezt követően adja hozzá ezt a makrót a Feladat ablak menüszalagjához a bejegyzés „Választható lépés” című részére hivatkozva – „A VBA kód futtatása az Outlookban".
4. Végül hajtsa végre a következő lépéseket a makró kipróbálásához.

• Először is hozzon létre egy új feladatot, és tetszés szerint adja hozzá a címzetteket.
• Ezután kattintson a makró gombra a szalagon.
• Egyszerre az aktuális feladat külön-külön lesz hozzárendelve a címzettekhez, ahogy az a következő képernyőképen látható.

Vigyázzon kilátásaira

Az Outlook hajlamos a hibákra és a korrupcióra. Ezért, ha nem szívesen szenved az Outlook adatvesztésétől, rendszeresen biztonsági másolatot kell készítenie az Outlook adatairól. Csak így, bár az Outlook fájl megsérül, akkor is könnyen visszaállíthatja korrupt Outlook biztonsági mentésekből származó adatok. Ha nincs biztonsági mentés, akkor egy figyelemre méltó és hatékony helyreállítási eszközt kell igénybe vennie, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server felépülés és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com