Kā programmā Outlook atsevišķi piešķirt uzdevumu vairākām personām

Dažu iemeslu dēļ, piemēram, konfidencialitātes vai privātuma dēļ, piešķirot uzdevumu daudzām personām, ieteicams tos nosūtīt atsevišķi. Tagad šeit mēs ieviesīsim metodi, kā to iegūt.

Piešķirot uzdevumu, aizpildot vairākus adresātus un noklikšķinot uz “Sūtīt”, jūs saņemsit brīdinājumu, kurā teikts, ka daudzām personām nosūtītais uzdevums netiks atjaunināts. Tādējādi, ja vēlaties savlaicīgi saņemt uzdevumu atjauninājumus, labāk piešķiriet uzdevumu daudziem adresātiem atsevišķi.

Protams, neņemot vērā uzdevuma atjaunināšanu, konfidencialitātes dēļ uzdevums ir jānosūta vairākām personām atsevišķi. Parasti jums ir jāizveido atsevišķi uzdevumi, jāpievieno adresāts un jānosūta pa vienam. Tas acīmredzami ir traucējošs. Tātad turpmāk mēs jūs iepazīstināsim ar daudz efektīvāku veidu.

Sērijveidā uzdodiet uzdevumu vairākām personām atsevišķi

1. Lai sāktu, nospiediet taustiņu kombināciju “Alt + F11”, lai piekļūtu Outlook VBA redaktoram.
2. Pēc tam logā “Microsoft Visual Basic for Applications” nokopējiet VBA kodu tukšā modulī vai 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. Pēc tam pievienojiet šo makro uzdevumu loga lentei, atsaucoties uz sadaļu “Papildu darbība” ierakstā — “Kā palaist VBA kodu programmā Outlook".
4. Galu galā veiciet šīs darbības, lai izmēģinātu šo makro.

• Pirmkārt, izveidojiet jaunu uzdevumu un pēc vēlēšanās pievienojiet adresātus.
• Pēc tam lentē noklikšķiniet uz makro pogas.
• Uzreiz pašreizējais uzdevums tiks piešķirts adresātiem atsevišķi, kā parādīts nākamajā ekrānuzņēmumā.

Rūpējieties par savu perspektīvu

Programma Outlook ir pakļauta kļūdām un korupcijai. Tādējādi, ja jūs nevēlaties ciest Outlook datu zudumus, jums regulāri jāveic savu Outlook datu dublēšana. Tikai šādā veidā, pat ja Outlook fails kļūst bojāts, jūs joprojām varat viegli atjaunot korumpēta Outlook dati no dublējumiem. Ja nav dublējuma, jums ir jāizmanto ievērojams un spēcīgs atkopšanas rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server atgūšana un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar