Cara Batch Menugaskan Tugas kepada Beberapa Orang Secara Berasingan di Outlook Anda

Untuk beberapa sebab, seperti kerahsiaan atau privasi, ketika memberikan tugas kepada banyak orang, anda mungkin ingin menghantar secara berasingan. Sekarang, di sini kita akan memperkenalkan kaedah untuk mendapatkannya.

Semasa anda memberikan tugas, jika anda mengisi beberapa penerima dan mengklik "Kirim", anda akan menerima amaran yang memberitahu bahawa tugas yang dikirimkan kepada banyak orang tidak akan diperbarui. Oleh itu, jika anda ingin mendapatkan kemas kini tugas tepat pada waktunya, lebih baik anda memberikan tugas tersebut kepada banyak penerima secara berasingan.

Sudah tentu, selain daripada mempertimbangkan kemas kini tugas, kerana kerahsiaan, anda perlu menghantar tugas kepada beberapa orang secara berasingan. Secara amnya, anda harus membuat tugas yang berasingan, menambah penerima dan menghantar satu persatu. Ia jelas menyusahkan. Oleh itu, berikut ini, kami akan memperkenalkan cara yang jauh lebih cekap.

Batch Berikan Tugas kepada Beberapa Orang Secara Berasingan

1. Sebagai permulaan, tekan "Alt + F11" untuk mengakses editor Outlook VBA.
2. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications", salin kod VBA ke dalam modul atau projek kosong.

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. Seterusnya, tambahkan makro ini pada reben tetingkap Tugas dengan merujuk kepada “Langkah Pilihan” dalam catatan – “Cara Menjalankan Kod VBA di Outlook Anda".
4. Akhirnya, ambil langkah berikut untuk mencuba makro ini.

• Pertama, buat tugas baru dan tambahkan penerima sesuka hati.
• Kemudian, klik butang makro di pita.
• Sekali gus, tugas semasa akan diberikan kepada penerima secara berasingan, seperti yang ditunjukkan dalam tangkapan skrin berikut.

Jaga Pandangan Anda

Outlook terdedah kepada kesalahan dan rasuah. Oleh itu, jika anda enggan mengalami kehilangan data Outlook, anda harus membuat sandaran biasa untuk data Outlook anda. Hanya dengan cara ini, walaupun fail Outlook menjadi rosak, anda masih dapat memulihkannya dengan mudah Outlook rosak data dari sandaran. Sekiranya tanpa sandaran, anda harus menggunakan alat pemulihan yang luar biasa dan hebat, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server pemulihan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com