Kako grupno dodijeliti zadatak više osoba odvojeno u vašem Outlooku

Iz nekih razloga, kao što su povjerljivost ili privatnost, kada dodjeljujete zadatak većem broju osoba, možda ćete htjeti poslati zasebno. Sada, ovdje ćemo predstaviti metodu za dobivanje.

Kada dodijelite zadatak, ako unesete više primalaca i kliknete na „Pošalji“, dobit ćete upozorenje da zadatak poslat velikom broju osoba neće biti ažuriran. Stoga, ako želite da dobijete ažuriranja zadatka na vrijeme, bolje je da zadatak dodelite većem broju primalaca odvojeno.

Naravno, osim razmatranja ažuriranja zadatka, zbog povjerljivosti, morate poslati zadatak više osoba odvojeno. Generalno, morate kreirati zasebne zadatke, dodati primaoca i poslati jedan po jedan. Očigledno je problematično. Dakle, u nastavku ćemo vam predstaviti mnogo efikasniji način.

Grupno dodijelite zadatak više osoba odvojeno

1. Za početak, pritisnite "Alt + F11" da biste pristupili Outlook VBA editoru.
2. Zatim, u prozoru „Microsoft Visual Basic za aplikacije“, kopirajte VBA kod u prazan modul ili projekat.

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. Nakon toga, dodajte ovaj makro na traku prozora Zadatak pozivajući se na "Opcionalni korak" u objavi - "Kako pokrenuti VBA kod u vašem Outlooku".
4. Na kraju, poduzmite sljedeće korake da isprobate ovaj makro.

• Prvo kreirajte novi zadatak i dodajte primaoce po želji.
• Zatim kliknite na dugme makro na traci.
• Trenutni zadatak će odjednom biti dodijeljen primaocima odvojeno, kao što je prikazano na sljedećem snimku ekrana.

Vodite računa o svom Outlooku

Outlook je sklon greškama i korupciji. Stoga, ako ne želite da patite od gubitka Outlook podataka, trebali biste redovno praviti sigurnosne kopije za svoje Outlook podatke. Samo na ovaj način, iako je Outlook datoteka oštećena, i dalje možete lako vratiti oštećeni Outlook podaci iz rezervnih kopija. Ako nemate sigurnosnu kopiju, morate se obratiti izvanrednom i moćnom alatu za oporavak, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com