Bagaimana cara memindahkan email dari pengirim yang tidak dikenal ke folder tertentu di Outlook? 

Dalam pekerjaan sehari-hari Anda, Anda mungkin menerima banyak email yang datang dari pengirim yang tidak dikenal yang tidak disimpan di folder Kontak Anda. Ini mungkin beberapa email sampah atau berbahaya, dalam hal ini, Anda ingin memindahkan email ini secara otomatis ke folder tertentu, bukan ke Kotak Masuk. Bagaimana Anda bisa menyelesaikan pekerjaan ini di Outlook?

Pindahkan email dari pengirim yang tidak dikenal ke folder tertentu dengan membuat aturan

Pindahkan email dari pengirim yang tidak dikenal ke folder tertentu dengan menerapkan kode VBA

---

Pindahkan email dari pengirim yang tidak dikenal ke folder tertentu dengan membuat aturan

Sebenarnya, Anda dapat membuat aturan untuk memindahkan email dari pengirim yang tidak dikenal ke folder tertentu secara otomatis, lakukan hal berikut:

1. Buat folder baru di bawah folder Kotak Masuk yang akan menempatkan email datang dari pengirim yang tidak dikenal seperti gambar berikut yang ditampilkan:

2. Lalu klik Beranda > Peraturan > Kelola Aturan & Peringatan, lihat tangkapan layar:

3. di Aturan dan Peringatan kotak dialog, klik Aturan baru bawah Aturan Email tab, lihat tangkapan layar:

4. Dan klik OK tombol untuk pergi ke Wizard Aturanklik Terapkan aturan pada pesan yang saya terima pilihan dari Mulai dari aturan kosong kotak bagian, lihat tangkapan layar:

5. Lalu klik Next tombol, pada langkah ini, jangan pilih opsi apa pun, dan klik Next tombol langsung, kotak peringatan muncul, silakan klik Yes tombol, lihat tangkapan layar:

6. Dan di kotak dialog berikutnya, centang pindahkan ke folder yang ditentukan pilihan dalam Langkah1: Pilih tindakan daftar kotak, dan kemudian klik teks tertaut ditentukan, dan di tempat terbuka Aturan dan Peringatan dialog, tentukan folder tempat Anda ingin memindahkan email, lihat tangkapan layar:

7. Klik OK tombol, dan lanjutkan mengklik Next tombol, dalam hal ini Apakah ada pengecualian dialog, periksa kecuali jika pengirim ada di Buku Alamat yang ditentukan pilihan dalam Langkah1: Pilih pengecualian daftar kotak, dan kemudian klik teks tertaut ditentukan, Dan Tambahkan Daftar Alamat kotak akan muncul, pilih folder kontak yang berisi kontak yang ingin Anda kecuali, lihat tangkapan layar:

8. Lalu klik Add tombol, dan kemudian klik Next untuk masuk ke dialog wizard terakhir, ketikkan nama aturan di Langkah 1: Tentukan nama untuk aturan ini kotak teks, dan centang Aktifkan aturan ini pilihan dari Langkah2: Aturan penyiapan bagian opsi. Lihat tangkapan layar:

9. Dan kemudian klik Finish serta Ok tombol untuk menutup dialog. Mulai sekarang, ketika email datang dari pengirim yang tidak dikenal, mereka akan dipindahkan ke folder tertentu secara otomatis.

---

Pindahkan email dari pengirim yang tidak dikenal ke folder tertentu dengan menerapkan kode VBA

Mungkin metode di atas merepotkan Anda, di sini, Anda dapat menerapkan kode untuk mengatasinya secepat mungkin.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Pindahkan email secara otomatis dari pengirim yang tidak dikenal ke folder tertentu:

Public WithEvents MailItems As Outlook.Items
Private Sub Application_Startup()
    Set MailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub MailItems_ItemAdd(ByVal item As Object)
Dim xSenderEmailAddress As String
Dim xContactItems As Outlook.Items
Dim xContactItem As ContactItem
Dim I As Long
Dim xFilter As String
Dim xTargetFolder As Folder
Dim xContactFolder As Folder
Dim xStore As Store
Dim xInboxFlds As Folders
Dim xSubFolder As Folder
Dim xFound As Boolean
On Error Resume Next
If item.Class = olMail Then
    xSenderEmailAddress = item.SenderEmailAddress
End If
For Each xStore In Outlook.Application.Session.Stores
    Set xContactItems = xStore.GetDefaultFolder(olFolderContacts).Items
    For I = 3 To 1 Step -1
        xFilter = "[Email" & I & "Address] = " & xSenderEmailAddress
        Set xContactItem = xContactItems.Find(xFilter)
        If TypeName(xContactItem) <> "Nothing" Then Exit For
    Next
Next
If xContactItem Is Nothing Then
    Set xInboxFlds = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders
    xFound = False
    For Each xSubFolder In xInboxFlds
        If xSubFolder.Name = "Unknown" Then
            xFound = True
            Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders("Unknown")
            Exit For
        End If
    Next
    If xFound = False Then
        Set xTargetFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add("Unknown")
    End If
    item.Move xTargetFolder
End If
End Sub

3. Kemudian simpan kode dan tutup jendela kode, dan mulai ulang Outlook agar kode diterapkan. Mulai sekarang, ketika email datang dari beberapa pengirim yang tidak dikenal, mereka akan dipindahkan ke folder Tidak Dikenal secara otomatis, lihat tangkapan layar:

Note: Para tidak diketahui folder akan dibuat secara otomatis ketika ada beberapa email yang tidak dikenal masuk. Anda dapat mengubah nama folder "unknow”Kepada orang lain dalam naskah.