Cara Otomatis Memindahkan Email ke Folder Tertentu Setelah Anda Meneruskannya di Outlook

Solusi Outlook September 29, 2025

Untuk menjaga ketertiban kotak surat Anda, Anda mungkin terbiasa menyimpan email tertentu di folder tertentu. Artikel ini akan memberi tahu Anda cara menggunakan Outlook VBA untuk memindahkan email secara otomatis setelah Anda meneruskannya.

Menyimpan email serupa di folder email tertentu adalah tip yang bagus untuk mengelola email dalam jumlah besar. Pastinya pengguna yang berbeda harus memiliki kriteria sendiri untuk klasifikasi dan manajemen email. Misalnya, Anda mungkin lebih suka mengklasifikasikan email sesuai tindakan tindak lanjut Anda, seperti membalas, meneruskan, atau lainnya. Jika Anda ingin memindahkan email secara otomatis ke folder tertentu, seperti "Diteruskan", saat Anda meneruskannya, Anda dapat menerapkan operasi berikut dan kode VBA untuk mendapatkannya dalam waktu cepat.

Pindahkan Otomatis Email ke Folder Tertentu Setelah Anda Meneruskannya

Pertama-tama, luncurkan Outlook.
Kemudian beralih ke tab "Pengembang".

Catatan: Jika Anda tidak dapat menemukan tab ini, Anda harus membuka "File" > "Options" > "Customize Ribbon" untuk mengaktifkannya terlebih dahulu.

Setelah tab ini terlihat, Anda dapat menemukan dan mengklik tombol "Visual Basic" di bawahnya.
Selanjutnya, jendela "Microsoft Visual Basic for Applications" baru akan muncul. Di dalamnya, Anda harus mengklik dua kali proyek "ThisOutlookSession" di sisi kiri untuk membukanya.
Setelah itu, Anda dapat menyalin dan menempelkan kode VBA berikut ke dalamnya.

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

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

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

Nanti Anda akan diminta untuk menandatangani proyek VBA baru.

Pertama, gunakan alat bawaan “Sertifikat Digital untuk Proyek VBA” untuk membuat sertifikat digital.
Kemudian tetapkan sertifikat ke makro ini, seperti tangkapan layar berikut:

Nanti Anda dapat mengubah pengaturan makro Anda untuk mengizinkan makro yang ditandatangani secara digital.
Akhirnya restart Outlook untuk mengaktifkan makro baru. Mulai sekarang, ketika Anda memilih email dan mengklik tombol "Teruskan", email tersebut akan segera dipindahkan ke folder "Diteruskan".

Hindari Korupsi Data PST Outlook yang Tidak Diinginkan

Salah satu diantara merekaost masalah yang telah lama menjangkiti pengguna Outlook adalah bahwa Outlook rentan terhadap korupsi. Artinya, penderitaan Kerusakan PST adalah masalah umum. Oleh karena itu, untuk mencegah kehilangan data prospek, sebaiknya buat cadangan yang konsisten dan terkini untuk data PST Anda.

Pengantar Penulis:

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