Cara Batch Balas Berbilang E-mel dengan Kandungan Sama dalam Outlook Anda

Ramai pengguna meminta penyelesaian yang membolehkan mereka membalas kumpulan berbilang e-mel terpilih dengan kandungan yang sama dalam Outlook. Walaupun Outlook tidak menyediakan ciri sedemikian, anda masih boleh mencapainya melalui sekeping kod VBA.

Saya telah mendengar sebilangan besar pengguna mengadu bahawa Outlook tidak mempunyai fungsi yang menyokong mereka untuk menghantar balasan yang sama kepada berbilang e-mel sekaligus. Apabila mereka memilih berbilang e-mel, kedua-dua tindakan "Balas" dan "Balas Semua" akan dikelabukan - dilumpuhkan. Melihat kepada isu ini, selepas itu, kami akan berkongsi kaedah untuk merealisasikan ciri ini.

Batch Balas Berbilang E-mel dengan Kandungan Yang Sama

1. Pertama sekali, mulakan program Outlook anda.
2. Kemudian, anda perlu membuat balasan templat yang ingin anda gunakan untuk membalas berbilang e-mel.

• Pertama, buat e-mel baru.
• Kemudian, karang e-mel ini berdasarkan perkara yang ingin anda balas.
• Seterusnya, klik "Fail" dan pilih pilihan "Simpan Sebagai".
• Kemudian, dalam kotak dialog "Simpan Sebagai" baharu, masukkan nama dan pilih "Templat Outlook" dalam kotak "Simpan sebagai jenis".
• Terakhir, tekan butang "OK".

3. Seterusnya, anda boleh menutup e-mel tanpa menyimpan perubahan.
4. Selepas itu, anda harus menekan butang kekunci "Alt + F11".
5. Selepas itu, tetingkap editor Outlook VBA akan dipaparkan.
6. Sekarang, anda harus mencari dan membuka projek "ThisOutlookSession" dan salin kod 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. Akhir sekali, anda boleh menutup tetingkap semasa dan mencuba makro ini.

• Pertama, pilih berbilang e-mel dalam senarai mel.
• Kemudian, klik kanan pada mereka.
• Seterusnya, pilih dan tekan pilihan "Same Reply" dalam menu konteks.
• Kemudian, anda akan dikehendaki untuk menentukan templat yang digunakan untuk balasan.
• Selepas memasukkan nama dan menekan "OK", balasan yang sama akan dihantar ke e-mel yang dipilih ini.

Prospek Terhadap Rasuah

Sebagai pengguna biasa Outlook, saya telah tertakluk kepada pelbagai ralat. Oleh itu, saya telah mengambil pelbagai langkah untuk melindungi data Outlook saya. Walau bagaimanapun, disebabkan oleh fakta bahawa Outlook terdedah kepada kerosakan dan ranap sukar untuk diramalkan, saya perlu sentiasa bersedia. Sebagai contoh, untuk menyelamatkan data saya secepat mungkin, saya telah menyimpan alat pemulihan yang luar biasa berguna - DataNumen Outlook Repair. Ia mampu betulkan Outlook fail tanpa sebarang keributan.

Pengenalan Pengarang:

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