Cara Otomatis Memindahkan Email dengan Penerima CC Tertentu di Outlook

Pada kenyataannya, sebagian besar dari Anda mungkin berharap untuk membuat aturan Outlook untuk memindahkan email secara otomatis dengan penerima CC tertentu. Namun, aturan Outlook tidak mendukung pengecekan penerima CC. Jadi, artikel ini akan mengajarkan Anda cara mewujudkannya dengan Outlook VBA.

Jelas, Anda tidak mungkin membuat aturan Outlook untuk mencari penerima CC tertentu. Seperti yang ditunjukkan pada tangkapan layar berikut, untuk email yang diterima, Anda hanya dapat memeriksa apakah nama Anda ada di kotak CC. Demikian pula, untuk email terkirim, bahkan tidak ada ketentuan aturan untuk mencentang kotak CC.

Oleh karena itu, jika Anda ingin mengonfigurasi Outlook untuk memindahkan email dengan penerima CC tertentu secara otomatis, Anda harus mencari cara lain. Kemudian. di sini kami akan mengajari Anda cara mencapainya melalui Outlook VBA.

Otomatis Pindahkan Email Terkirim dengan Penerima CC Tertentu

1. Pertama, buka tab "Pengembang" dan klik tombol "Visual Basic".
2. Kemudian buka proyek "ThisOutlookSession" dan salin kode VBA berikut ke dalamnya.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim ccRecip As String
    Dim desFolder As Folder
 
    'Replace "test" with your desired CC'd recipient name or address
    ccRecip = "test"
    'The "Test" folder is a subfolder under "Sent Items" folder
    Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
 
    If InStr(LCase(Mail.CC), ccRecip) > 0 Then
       Mail.Move desFolder
    End If
End Sub

3. Selanjutnya, Anda harus melanjutkan untuk menandatangani kode ini dan mengubah pengaturan makro seperti biasa.
4. Terakhir, Anda dapat keluar dari jendela "Visual Basic". Setelah itu, email dengan penerima CC tertentu akan dipindahkan ke folder email yang ditentukan.

Pindahkan Otomatis Email yang Diterima dengan Penerima CC Tertentu

Sekarang kode VBA di atas ditujukan untuk memindahkan email terkirim dengan penerima CC tertentu, Jika Anda ingin mencari penerima CC tertentu di email yang diterima dan kemudian memindahkannya, sebaiknya gunakan kode berikut.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim Recips As Recipients
    Dim Recip As Recipient
    Dim ccRecip As String
    Dim desFolder As Folder
 
    Set Recips = Mail.Recipients
    'Replace "test" with the specific words in your desired CC recipient address
    ccRecip = "test"
 
    For Each Recip In Recips
        If Recip.Type = olCC Then
           If InStr(LCase(Recip.Address), ccRecip) > 0 Then
              'The "Test" folder is a subfolder under "Inbox" folder
              Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
              Mail.Move desFolder
           End If
        End If
    Next
End Sub

Tetap Siap Menghadapi Korupsi Outlook

Meskipun Outlook kaya fitur, ia tetap tidak kebal terhadap korupsi. Jadi, Anda harus tetap waspada terhadap semua potensi risiko. Tidak diragukan lagi, langkah penting harus membuat cadangan yang konsisten dan terkini untuk data Outlook. Selain itu, Anda harus menyimpan a alat pemulihan Outlook yang rusak di sekitarnya. Ini akan berguna jika cadangan dan Scanpst.exe gagal.

Pengantar Penulis:

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