Kaip grupėje priskirti užduotį keliems asmenims atskirai „Outlook“.

Dėl tam tikrų priežasčių, pavyzdžiui, dėl konfidencialumo ar privatumo, priskirdami užduotį daugeliui asmenų, galbūt norėsite siųsti atskirai. Dabar čia pristatysime metodą, kaip jį gauti.

Priskirdami užduotį, užpildę kelis gavėjus ir spustelėję „Siųsti“, gausite įspėjimą, kad daugeliui asmenų išsiųsta užduotis nebus atnaujinta. Taigi, jei norite laiku gauti užduoties naujinimus, geriau priskirti užduotį daugeliui gavėjų atskirai.

Žinoma, neskaitant užduoties atnaujinimo svarstymo, dėl konfidencialumo užduotį reikia siųsti keliems asmenims atskirai. Paprastai turite sukurti atskiras užduotis, pridėti gavėją ir siųsti po vieną. Akivaizdu, kad tai vargina. Taigi, toliau mes jums pristatysime daug efektyvesnį būdą.

Pakeiskite užduotį keliems asmenims atskirai

1. Norėdami pradėti, paspauskite „Alt + F11“, kad pasiektumėte „Outlook VBA“ redaktorių.
2. Tada lange „Microsoft Visual Basic for Applications“ nukopijuokite VBA kodą į tuščią modulį arba 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. Vėliau pridėkite šią makrokomandą prie užduočių lango juostelės, remdamiesi įrašo „Pasirinktinas veiksmas“ – „Kaip paleisti VBA kodą „Outlook“.".
4. Galiausiai, norėdami išbandyti šią makrokomandą, atlikite šiuos veiksmus.

• Pirmiausia sukurkite naują užduotį ir pridėkite gavėjus savo nuožiūra.
• Tada juostelėje spustelėkite makrokomandos mygtuką.
• Iš karto dabartinė užduotis bus priskirta gavėjams atskirai, kaip parodyta toliau esančioje ekrano kopijoje.

Rūpinkitės savo „Outlook“.

„Outlook“ yra linkusi į klaidas ir korupciją. Taigi, jei nenorite prarasti „Outlook“ duomenų, turėtumėte reguliariai kurti atsargines „Outlook“ duomenų kopijas. Tik tokiu būdu, net jei „Outlook“ failas sugadinamas, vis tiek galite lengvai atkurti sugadintas Outlook duomenis iš atsarginių kopijų. Jei neturite atsarginės kopijos, turite pasinaudoti puikiu ir galingu atkūrimo įrankiu, pvz., DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server atsigavimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com