Cara Batch Menetapkan Tugas ke Beberapa Orang Secara Terpisah di Outlook Anda

Untuk beberapa alasan, seperti kerahasiaan atau privasi, saat menetapkan tugas ke banyak orang, Anda mungkin ingin mengirimnya secara terpisah. Sekarang, di sini kami akan memperkenalkan metode untuk mendapatkannya.

Saat Anda menetapkan tugas, jika Anda mengisi beberapa penerima dan mengklik "Kirim", Anda akan menerima peringatan yang mengatakan bahwa tugas yang dikirim ke banyak orang tidak akan diperbarui. Jadi, jika Anda ingin mendapatkan pembaruan tugas tepat waktu, Anda sebaiknya menetapkan tugas tersebut ke banyak penerima secara terpisah.

Tentu saja, selain pertimbangan pembaruan tugas, karena kerahasiaan, Anda perlu mengirim tugas ke banyak orang secara terpisah. Umumnya, Anda harus membuat tugas terpisah, menambahkan penerima, dan mengirim satu per satu. Ini jelas merepotkan. Jadi, berikut ini, kami akan memperkenalkan Anda cara yang jauh lebih efisien.

Batch Menetapkan Tugas ke Beberapa Orang Secara Terpisah

1. Sebagai langkah awal, tekan “Alt + F11” untuk mengakses editor VBA Outlook.
2. Selanjutnya, di jendela "Microsoft Visual Basic for Applications", salin kode VBA ke dalam modul atau proyek 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. Selanjutnya, tambahkan makro ini ke pita jendela Tugas dengan merujuk ke “Langkah Opsional” di postingan – “Cara Menjalankan Kode VBA di Outlook Anda".
4. Akhirnya, lakukan langkah-langkah berikut untuk mencoba makro ini.

• Pertama, buat tugas baru dan tambahkan penerima sesuka hati.
• Lalu, klik tombol makro di pita.
• Sekaligus, tugas saat ini akan diberikan ke penerima secara terpisah, seperti yang ditunjukkan pada gambar layar berikut.

Jaga Pandangan Anda

Outlook rentan terhadap kesalahan dan kerusakan. Oleh karena itu, jika Anda enggan mengalami kehilangan data Outlook, Anda harus membuat backup rutin untuk data Outlook Anda. Hanya dengan cara ini, meskipun file Outlook rusak, Anda tetap dapat memulihkan dengan mudah Outlook rusak data dari backup. Jika tanpa cadangan, Anda harus mengambil jalan lain ke alat pemulihan yang luar biasa dan kuat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server pemulihan dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com