Bilinmeyen gönderenlerden e-postaları Outlook'ta belirli bir klasöre nasıl taşıyabilirim?

Günlük çalışmanızda, Kişiler klasörünüze kaydedilmeyen bilinmeyen gönderenlerden gelen birçok e-posta alabilirsiniz. Bunlar bazı önemsiz veya kötü niyetli e-postalar olabilir, bu durumda bu e-postaları Gelen Kutusu yerine belirli bir klasöre otomatik olarak taşımak istersiniz. Outlook'ta bu işi nasıl çözebilirsiniz?

Kural oluşturarak bilinmeyen gönderenlerden gelen e-postaları belirli bir klasöre taşıyın

Bilinmeyen gönderenlerden e-postaları VBA kodu uygulayarak belirli bir klasöre taşıyın

Kural oluşturarak bilinmeyen gönderenlerden gelen e-postaları belirli bir klasöre taşıyın

Aslında, e-postaları bilinmeyen gönderenlerden belirli bir klasöre otomatik olarak taşımak için bir kural oluşturabilirsiniz, lütfen aşağıdaki işlemleri gerçekleştirin:

1. Gelen kutusu klasörünün altında, e-postaları bilinmeyen gönderenlerden gelen aşağıdaki ekran görüntüsü gibi yerleştirecek yeni bir klasör oluşturun:

doc bilinmeyen e-postaları taşıma 1

2. Sonra tıklayın Ana Sayfa > kurallar > Kuralları ve Uyarıları Yönetin, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 2

3. In Kurallar ve Uyarılar iletişim kutusunu tıklayın Yeni kural altında E-posta Kuralları sekmesi, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 3

4. Ve tıklayın OK düğmesine gitmek için Kural Sihirbazıtık Aldığım mesaja kural uygula seçeneği Boş bir kuraldan başlayın bölüm kutusu, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 4

5. Sonra tıklayın Sonraki düğmesi, bu adımda lütfen herhangi bir seçenek belirlemeyin ve Sonraki doğrudan düğme, bir uyarı kutusu çıkar, lütfen tıklayın Evet düğmesi, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 5

6. Ve sonraki iletişim kutusunda kontrol edin onu belirtilen klasöre taşı seçeneği Adım 1: İşlemleri seçin liste kutusunu ve ardından bağlantılı metni tıklayın Belirtilenve açıldığında Kurallar ve Uyarılar iletişim kutusu, e-postaları taşımak istediğiniz klasörü belirtin, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 6

7. tıklayın OK düğmesini tıklayın ve tıklamaya devam edin Sonraki düğme, bunun içinde Herhangi bir istisna var mı iletişim, kontrol et gönderenin belirtilen Adres Defterinde olması dışında seçeneği Adım 1: İstisnaları seçin liste kutusunu ve ardından bağlantılı metni tıklayın BelirtilenVe bir Adres Listesi Ekle kutusu açılır, hariç tutmak istediğiniz kişileri içeren bir rehber klasörü seçin, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 7

8. Sonra tıklayın Ekle düğmesini tıklatın ve sonra Tamam'ı tıklatın. Sonraki son sihirbaz iletişim kutusuna gitmek için, ekrana bir kural adı yazın. Adım 1: Bu kural için bir ad belirtin metin kutusu ve işaretleyin Bu kuralı açın seçeneği Adım 2: Kuralı kurun seçenekler bölümü. Ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 8

9. Ve sonra tıklayın Bitiş ve Ok diyalogları kapatmak için düğmeler. Şu andan itibaren, bilinmeyen gönderenlerden gelen e-postalar, otomatik olarak belirli bir klasöre taşınacak.

Bilinmeyen gönderenlerden e-postaları VBA kodu uygulayarak belirli bir klasöre taşıyın

Yukarıdaki yöntem sizin için zahmetli olabilir, burada olabildiğince çabuk bununla başa çıkmak için bir kod uygulayabilirsiniz.

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA kodu: Bilinmeyen gönderenlerden gelen e-postaları belirli bir klasöre otomatik olarak taşıyın:

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 bilinmeyen e-postaları taşıma 9

3. Ardından kodu kaydedin ve kod penceresini kapatın ve kodun etkili olması için Outlook'u yeniden başlatın. Şu andan itibaren, bazı bilinmeyen gönderenlerden gelen e-postalar otomatik olarak Bilinmeyen klasörüne taşınacak, ekran görüntüsüne bakın:

doc bilinmeyen e-postaları taşıma 10

not: Bilinmiyor bazı bilinmeyen e-postalar geldiğinde klasör otomatik olarak oluşturulacaktır. Klasör adını değiştirebilirsiniz "unknow"Senaryodaki diğerlerine.