Bagaimana Membalas Banyak Email dengan Konten yang Sama di Outlook Anda

Banyak pengguna meminta solusi yang memungkinkan mereka membalas banyak email yang dipilih dengan konten yang sama di Outlook. Meskipun Outlook tidak menyediakan fitur seperti itu, Anda masih dapat mencapainya melalui sepotong kode VBA.

Saya telah mendengar banyak pengguna yang mengeluh bahwa Outlook tidak memiliki fungsi yang mendukung mereka untuk mengirim balasan yang sama ke beberapa email sekaligus. Saat mereka memilih beberapa email, baik tindakan "Balas" dan "Balas Semua" akan berubah warna menjadi abu-abu - dinonaktifkan. Melihat masalah ini, selanjutnya kami akan membagikan metode untuk mewujudkan fitur ini.

Balas Batch Beberapa Email dengan Konten yang Sama

1. Pertama-tama, start program Outlook Anda.
2. Kemudian, Anda perlu membuat balasan template yang ingin Anda gunakan untuk membalas beberapa email.

• Pertama, buat email baru.
• Kemudian, tulis email ini berdasarkan apa yang ingin Anda balas.
• Selanjutnya, klik "File" dan pilih opsi "Save As".
• Kemudian, di kotak dialog "Save As" yang baru, masukkan nama dan pilih "Template Outlook" di kotak "Save as type".
• Terakhir, tekan tombol "OK".

3. Selanjutnya, Anda dapat menutup email tanpa menyimpan perubahan.
4. Selanjutnya, Anda harus menekan tombol "Alt + F11".
5. Setelah itu, jendela editor Outlook VBA akan ditampilkan.
6. Sekarang, Anda harus mencari dan membuka proyek "ThisOutlookSession" dan menyalin kode VBA berikut ke dalamnya.

Sub Application_ItemContextMenuDisplay(ByVal CommandBar As Office.CommandBar, ByVal Selection As Selection)
    Dim objCommandBarButton As Office.CommandBarButton
 
    If (Selection.count > 1) And (Selection.Item(1).Class = olMail) Then
       Set objCommandBarButton = CommandBar.Controls.Add(msoControlButton)
 
       'Add a "Same Reply" option to the context menu
       With objCommandBarButton
           .Style = msoButtonIconAndCaption
           .Caption = "Same Reply"
           .FaceId = 355
           .OnAction = "Project1.ThisOutlookSession.SendSameReply"
       End With
    End If
End Sub

Sub SendSameReply()
    Dim strTemplate As String
    Dim objTemplateReply As Outlook.MailItem
    Dim strHTMLBody As String
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim objReply As Outlook.MailItem
 
    'Input the name of the previously saved template
    strTemplate = InputBox("Enter the name of template message:", , "Template Reply")
    Set objTemplateReply = Application.CreateItemFromTemplate("C:\Users\Test\Documents\UserTemplates\" & strTemplate & ".oft")
    strHTMLBody = objTemplateReply.HTMLBody
 
    Set objSelection = Application.ActiveExplorer.Selection
 
    For i = objSelection.count To 1 Step -1
        Set objReply = objSelection(i).Reply
        With objReply
             .HTMLBody = strHTMLBody & objReply.HTMLBody
             .Send
        End With
    Next
End Sub

7. Terakhir, Anda dapat menutup jendela saat ini dan mencoba makro ini.

• Pertama, pilih beberapa email di milis.
• Kemudian, klik kanan padanya.
• Selanjutnya, pilih dan tekan opsi "Balasan Sama" di menu konteks.
• Kemudian, Anda akan diminta untuk menentukan template yang digunakan untuk membalas.
• Setelah memasukkan nama dan menekan "OK", balasan yang sama akan dikirim ke email yang dipilih ini.

Pandangan Rawan Korupsi

Sebagai pengguna Outlook biasa, saya telah mengalami berbagai kesalahan. Oleh karena itu, saya telah mengambil berbagai tindakan untuk melindungi data Outlook saya. Namun, karena Outlook rentan terhadap kerusakan dan crash sulit untuk diprediksi, saya harus selalu siap setiap saat. Misalnya, untuk menyelamatkan data saya sesegera mungkin, saya menyimpan alat pemulihan yang luar biasa berguna - DataNumen Outlook Repair. Itu bisa perbaiki Outlook mengajukan tanpa keributan.

Pengantar Penulis:

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