Kako skupinsko dodeliti nalogo več osebam ločeno v vašem Outlooku

Zaradi nekaterih razlogov, na primer zaradi zaupnosti ali zasebnosti, ko dodelite nalogo več osebam, boste morda želeli poslati ločeno. Tukaj bomo predstavili metodo, kako jo pridobiti.

Ko dodelite opravilo, če izpolnite več prejemnikov in kliknete »Pošlji«, boste prejeli opozorilo, da opravilo, poslano več osebam, ne bo posodobljeno. Če torej želite pravočasno prejemati posodobitve opravil, jih raje dodelite več prejemnikom posebej.

Seveda morate poleg upoštevanja posodobitve naloge zaradi zaupnosti nalogo poslati več osebam ločeno. Na splošno morate ustvariti ločena opravila, dodati prejemnika in poslati eno za drugo. Očitno je težavno. Zato vam bomo v nadaljevanju predstavili veliko bolj učinkovit način.

Paketno dodelite nalogo več osebam ločeno

1. Za začetek pritisnite »Alt + F11« za dostop do urejevalnika VBA v Outlooku.
2. Nato v oknu »Microsoft Visual Basic for Applications« kopirajte kodo VBA v prazen modul ali 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. Nato dodajte ta makro na trak okna Opravila tako, da se sklicujete na »Izbirni korak« v objavi – »Kako zagnati kodo VBA v Outlooku".
4. Sčasoma naredite naslednje, da preizkusite ta makro.

• Najprej ustvarite novo opravilo in poljubno dodajte prejemnike.
• Nato kliknite gumb makra na traku.
• Trenutna naloga bo takoj dodeljena prejemnikom ločeno, kot je prikazano na naslednjem posnetku zaslona.

Poskrbite za svoj Outlook

Outlook je nagnjen k napakam in korupciji. Če torej neradi trpite zaradi izgube Outlookovih podatkov, bi morali redno izdelovati varnostne kopije svojih Outlookovih podatkov. Samo na ta način lahko preprosto obnovite datoteko Outlook, čeprav se poškoduje pokvarjen Outlook podatkov iz varnostnih kopij. Če brez varnostne kopije, se morate zateči k izjemnemu in zmogljivemu orodju za obnovitev, kot je npr DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server okrevanje in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com