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

Pengarang: Xiaoyang Terakhir Dimodifikasi: 2018-05-22

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:

doc memindahkan email dari tidak dikenal 1

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

doc memindahkan email dari tidak dikenal 2

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

doc memindahkan email dari tidak dikenal 3

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:

doc memindahkan email dari tidak dikenal 4

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

doc memindahkan email dari tidak dikenal 5

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:

doc memindahkan email dari tidak dikenal 6

7. Klik OK tombol, dan lanjutkan mengklik Selanjutnya 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:

doc memindahkan email dari tidak dikenal 7

8. Lalu klik Add tombol, dan kemudian klik Selanjutnya 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:

doc memindahkan email dari tidak dikenal 8

9. Dan kemudian klik Finish dan 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

doc memindahkan email dari tidak dikenal 9

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:

doc memindahkan email dari tidak dikenal 10

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.