Cara Memindahkan Semua Penerima Secara Otomatis kecuali Pengirim Asli ke Bidang "CC" Saat Menggunakan "Balas Semua" di Outlook

Beberapa pengguna selalu memindahkan semua penerima kecuali pengirim asli ke bidang "CC" saat menggunakan "Balas Semua" di Outlook. Artikel ini akan memperkenalkan metode untuk mengotomatisasi gerakan dengan Outlook VBA.

Secara default, ketika Anda memilih "Balas Semua" untuk membalas email, semua penerima yang semula di bidang "Kepada" akan tetap ditempatkan di bidang "Kepada" di surat balasan. Namun, banyak pengguna ingin memindahkan semua penerima ke bidang "CC" dengan hanya pengirim asli di bidang "Kepada". Menanggapi persyaratan ini, di sini kami akan mengekspos sepotong kode VBA, yang dapat mewujudkannya secara otomatis.

Pindahkan Otomatis Semua Penerima kecuali Pengirim Asli ke Kolom “CC” di “Balas Semua”

1. Pertama-tama, luncurkan program Outlook Anda.
2. Kemudian di jendela Outlook utama, tekan tombol "Alt + F11".
3. Selanjutnya Anda akan masuk ke editor Outlook VBA.
4. Selanjutnya, Anda harus menemukan dan membuka proyek "ThisOutlookSession".
5. Nanti Anda perlu menyalin dan menempelkan kode VBA berikut ke dalam jendela proyek ini.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olMail Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Dim objReplyAll As Outlook.MailItem
    Dim objRecipient As Outlook.recipient
    Dim objCCRecipient As Outlook.recipient
    Dim strSender As String
 
    Set objReplyAll = objMail.ReplyAll
 
    strSender = objMail.SenderEmailAddress
 
    For Each objRecipient In objMail.Recipients
        'Exclude yourself
        If objRecipient.Address <> "youremail@datanumen.com" Then
           'Add the recipients as CC recipients
           Set objCCRecipient = objReply.Recipients.Add(objRecipient.Address)
           objCCRecipient.Type = olCC
        End If
    Next
 
    'Keep original sender in To field
    objReplyAll.To = strSender
    objReplyAll.Display
 
    Cancel = True
End Sub

6. Setelah itu, Anda harus menandatangani makro ini dan kemudian mengubah pengaturan makro Outlook Anda untuk mengizinkan makro yang ditandatangani secara digital.
7. Pada akhirnya, Anda dapat memulai ulang Outlook untuk mengaktifkan proyek VBA yang baru.
8. Mulai sekarang, setiap kali Anda membalas email menggunakan "Balas Semua", Anda akan melihat bahwa semua penerima telah dipindahkan ke bidang "CC" dengan hanya pengirim asli di bidang "Kepada".

Jangan Panik Kasus Korupsi PST

Jika file PST Anda berisi banyak data berharga Anda, seperti informasi klien dan sebagainya, setelah file PST Anda rusak, Anda harus khawatir. Namun, jika Anda telah membuat cadangan file Anda baru-baru ini, Anda tidak akan pernah panik. Cadangan akan memungkinkan Anda untuk mendapatkan kembali Outlook rusak data dengan mudah. Tetapi jika tidak ada cadangan seperti itu, Anda masih dapat menggunakan alat pemulihan yang 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 memperbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com