Loncat ke daftar isi utama

Bagaimana cara memindahkan pesan email ke folder tertentu setelah membaca di Outlook?

Memindahkan pesan email ke folder tertentu setelah membaca adalah cara terbaik untuk menjaga folder Kotak Masuk tetap bersih di Outlook. Bagi banyak pengguna Outlook, mereka cenderung membuat aturan untuk pemindahan email yang telah dibaca ini. Sebenarnya, Outlook tidak mendukung proses panduan aturan ini. Pada artikel ini, kami akan menunjukkan cara memindahkan pesan email ke folder tertentu setelah membaca dengan kode VBA di Outlook.

Pindahkan pesan email ke folder tertentu setelah membaca di Outlook

Tab Office - Aktifkan Pengeditan dan Penjelajahan dengan Tab di Microsoft Office, Membuat Pekerjaan Menjadi Mudah
Kutools for Outlook - Tingkatkan Outlook dengan 100+ Fitur Lanjutan untuk Efisiensi Unggul
Tingkatkan Outlook 2021 - 2010 atau Outlook 365 Anda dengan fitur-fitur canggih ini. Nikmati uji coba gratis 60 hari yang komprehensif dan tingkatkan pengalaman email Anda!

panah gelembung kanan biruPindahkan pesan email ke folder tertentu setelah membaca di Outlook

Anda dapat memindahkan pesan email ke folder tertentu setelah membaca dengan menjalankan kode VBA di Outlook.

1. Pertama, Anda perlu membuat nama folder baru "Ulasan”Di bawah folder Kotak Masuk.

2. Buka folder Inbox, lalu silahkan tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Kemudian klik dua kali untuk memperluas Project1 > Objek Microsoft Outlook > Sesi Pandangan ini untuk membuka Proyek Vba.OTM Editor.

4. Kemudian salin dan tempel kode VBA di bawah ini ke editor VbaProject.OTM seperti yang ditunjukkan pada gambar di atas.

Kode VBA: pindahkan pesan setelah dibaca

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Kemudian klik Save untuk menyimpan kode VBA dan kemudian tutup Microsoft Visual Basic untuk Aplikasi jendela.

6. Klik kanan file Quick Access Toolbar, Lalu pilih Sesuaikan Bilah Alat Akses Cepat dari menu klik kanan. Lihat tangkapan layar:

7. Dalam Pilihan Outlook kotak dialog, Anda perlu:

1). Pilih Macro dalam Pilih perintah dari daftar drop-down;

2). Pilih Proyek1. ThisOutlookSession di kotak di bawah Pilih perintah dari daftar drop-down;

3). Klik Add tombol;

4). Klik OK .

8. Kemudian Anda dapat melihat file Makro tombol ditampilkan di Quick Access Toolbar. Pastikan Anda berada di folder kotak masuk tempat Anda ingin memindahkan semua pesan yang sudah dibaca, lalu klik Makro tombol untuk menjalankan kode VBA di dalam Kotak Masuk.

Catatan:

1. Kode VBA ini dapat diterapkan di Outlook 2007, 2010, dan 2013; Namun, di Outlook 2007, Anda dapat langsung mengklik Run tombol untuk menjalankan kode.

2. Jika ada beberapa akun email yang ada di Outlook Anda, kode VBA hanya dapat diterapkan di akun yang file datanya disetel sebagai default. Anda dapat memeriksa file data default dengan mengklik File > Info > Pengaturan akun > Pengaturan akun untuk membuka Pengaturan akun kotak dialog. Lalu pergi ke File Data tab, Anda akan melihat file data default ditandai dengan sebelumnya.

3. Jika Anda ingin mengubah file data default ke akun email lain, pilih dan sorot akun yang ingin Anda tetapkan sebagai default, lalu klik Ditetapkan sebagai default dalam Pengaturan akun kotak dialog.

4. Saat menjalankan kode VBA untuk pertama kalinya dan mengetahui pesan yang sudah dibaca tidak dipindahkan sekaligus, teruskan mengklik tombol Makro sampai semua pesan yang sudah dibaca di Kotak Masuk dipindahkan.


Alat Produktivitas Kantor Terbaik

Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda

🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...

📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP)  /  Jadwal Kirim Email  /  Auto CC/BCC Sesuai Aturan Saat Mengirim Email  /  Penerusan Otomatis (Aturan Lanjutan)   /  Tambah Salam Otomatis   /  Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...

📨 email Management: Mengingat Email dengan Mudah  /  Blokir Email Penipuan berdasarkan Subjek dan Lainnya  /  Hapus Email Duplikat  /  Pencarian  /  Konsolidasi Folder ...

📁 Lampiran ProPenyimpanan Batch  /  Pelepasan Batch  /  Kompres Batch  /  Penyimpanan otomatis   /  Lepaskan Otomatis  /  Kompres Otomatis ...

🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren   /  Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab  /  Minimalkan Outlook Daripada Menutup ...

👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk  /   Email Anti-Phishing  /  🕘Tampilkan Zona Waktu Pengirim ...

👩🏼‍🤝‍👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih  /  Bagi Grup Kontak menjadi Grup Individual  /  Hapus Pengingat Ulang Tahun ...

Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.

 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations