Paano Magtalaga ng Batch ng Isang Gawain sa Maramihang Mga Tao na magkahiwalay sa Iyong Outlook

Para sa ilang kadahilanan, tulad ng pagiging kompidensiyal o privacy, kapag nagtatalaga ng isang gawain sa maraming tao, baka gusto mong magpadala nang magkahiwalay. Ngayon, dito magpapakilala kami ng isang pamamaraan upang makuha ito.

Kapag nagtalaga ka ng isang gawain, kung pinunan mo ang maraming tatanggap at na-click ang "Ipadala", makakatanggap ka ng isang babala na nagsasabi na ang gawaing ipinadala sa maraming tao ay hindi maa-update. Kaya, kung nais mong makakuha ng mga pag-update ng gawain sa oras, mas mahusay mong italaga ang gawain sa magkahiwalay na mga tatanggap.

Siyempre, bukod sa pagsasaalang-alang sa pag-update ng gawain, dahil sa pagiging kompidensiyal, kailangan mong magpadala ng isang gawain sa maraming tao nang magkahiwalay. Pangkalahatan, kailangan mong lumikha ng magkakahiwalay na mga gawain, magdagdag ng tatanggap at magpadala ng isa-isa. Malinaw na mahirap ito. Kaya, sa mga sumusunod, ipakikilala namin sa iyo ang isang mas mahusay na paraan.

Batch Magtalaga ng isang Gawain sa Maramihang Mga Tao na magkahiwalay

1. Para sa panimula, pindutin ang "Alt + F11" upang ma-access ang Outlook VBA editor.
2. Susunod, sa window na "Microsoft Visual Basic for Applications", kopyahin ang VBA code sa isang blangko na module o proyekto.

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. Kasunod nito, idagdag ang macro na ito sa ribbon ng Task window sa pamamagitan ng pagtukoy sa “Opsyonal na Hakbang” sa post na – “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
4. Sa paglaon, gawin ang mga sumusunod na hakbang upang subukan ang macro na ito.

• Una, lumikha ng isang bagong gawain at idagdag ang mga tatanggap sa kalooban.
• Pagkatapos, i-click ang pindutan ng macro sa laso.
• Nang sabay-sabay, ang kasalukuyang gawain ay itatalaga sa mga tatanggap nang magkahiwalay, tulad ng ipinapakita sa sumusunod na screenshot.

Ingatan ang Iyong Outlook

Ang Outlook ay madaling kapitan ng pagkakamali at katiwalian. Samakatuwid, kung nag-aatubili ka sa pagdurusa ng pagkawala ng data ng Outlook, dapat kang gumawa ng regular na pag-backup para sa iyong data sa Outlook. Sa ganitong paraan lamang, kahit na naging sira ang file ng Outlook, madali mo pa ring maibabalik sira ang Outlook data mula sa mga backup. Kung walang backup, kailangan mong kumuha ng recourse sa isang kapansin-pansin at malakas na tool sa pagbawi, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server pagbawi at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa