Cum să atribuiți în lot o sarcină mai multor persoane separat în Outlook

Din anumite motive, cum ar fi confidențialitatea sau confidențialitatea, atunci când atribuiți o sarcină mai multor persoane, este posibil să doriți să trimiteți separat. Acum, aici vom introduce o metodă pentru a-l obține.

Când atribuiți o sarcină, dacă completați mai mulți destinatari și faceți clic pe „Trimite”, veți primi un avertisment care vă spune că sarcina trimisă mai multor persoane nu va fi actualizată. Astfel, dacă doriți să obțineți actualizări ale sarcinilor la timp, este mai bine să atribuiți sarcina mai multor destinatari separat.

Desigur, pe lângă luarea în considerare a actualizării sarcinilor, din cauza confidențialității, trebuie să trimiteți o sarcină mai multor persoane separat. În general, trebuie să creați sarcini separate, să adăugați un destinatar și să trimiteți unul câte unul. Este evident deranjant. Așadar, în cele ce urmează, vă vom prezenta o modalitate mult mai eficientă.

Atribuiți în lot o sarcină mai multor persoane separat

1. Pentru început, apăsați „Alt + F11” pentru a accesa editorul VBA din Outlook.
2. Apoi, în fereastra „Microsoft Visual Basic for Applications”, copiați codul VBA într-un modul sau proiect necompletat.

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. Ulterior, adăugați această macrocomandă în panglica ferestrei Task consultând „Pas opțional” din postare – „Cum să rulați codul VBA în Outlook".
4. În cele din urmă, parcurgeți următorii pași pentru a încerca această macrocomandă.

• În primul rând, creați o sarcină nouă și adăugați destinatarii după bunul plac.
• Apoi, faceți clic pe butonul macro din panglică.
• Deodată, sarcina curentă va fi atribuită destinatarilor separat, așa cum se arată în următoarea captură de ecran.

Aveți grijă de Outlook

Outlook este predispus la erori și corupție. Prin urmare, dacă sunteți reticent în a suferi pierderi de date Outlook, ar trebui să faceți copii de rezervă regulate pentru datele dvs. Outlook. Numai în acest fel, chiar dacă fișierul Outlook devine corupt, puteți restabili cu ușurință corupt Outlook datele din copii de rezervă. Dacă nu aveți backup, trebuie să recurgeți la un instrument de recuperare remarcabil și puternic, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server recuperare și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com