Outlook'ta bilinmeyen göndericilerden gelen e-postaları belirli bir klasöre nasıl taşıyabilirim?

Günlük işlerinizde, Kişiler klasörünüzde kayıtlı olmayan bilinmeyen göndericilerden bol miktarda e-posta alıyor olabilirsiniz. Bu mesajlar gereksiz ya da zararlı olabilir. Böyle bir durumda, bu e-postaların Gelen Kutusu’na değil, belirli bir klasöre otomatik olarak yönlendirilmesini ister misiniz? Outlook’ta bu görevi nasıl gerçekleştirebilirsiniz?

Bilinmeyen göndericilerden gelen e-postaları kural oluşturarak belirli bir klasöre taşıma

Bilinmeyen göndericilerden gelen e-postaları VBA kodu uygulayarak belirli bir klasöre taşıma

---

Bilinmeyen göndericilerden gelen e-postaları kural oluşturarak belirli bir klasöre taşıma

Aslında, bilinmeyen göndericilerden gelen e-postaları otomatik olarak belirli bir klasöre taşıyan bir kural oluşturabilirsiniz. Aşağıdaki adımları izleyin:

1. Bilinmeyen göndericilerden gelen e-postaların yerleştirileceği bir Yeni Klasör’ü Gelen Kutusu altına oluşturun (aşağıdaki ekran görüntüsünde gösterildiği gibi):

2. Ardından şunu tıklayın: Giriş > Kurallar > Kuralları ve Uyarıları Yönet, ekran görüntüsüne bakın:

3.Kurallar ve Uyarılariletişim kutusunda,Yeni Kuraldüğmesine tıklayın ve E-posta Kurallarısekmesinde kalın, ekran görüntüsüne bakın:

4. Ardından, Tamam düğmesine tıklayarak Kural Sihirbazı penceresine gidin. Burada, Boş bir kuraldan başla bölümünden Alınan iletilere kural uygula seçeneğini seçin; ekran görüntüsüne bakın:

5. Ardından İleri düğmesine tıklayın. Bu adımda herhangi bir seçenek seçmeyin ve doğrudan İleri düğmesine tıklayın. Bir uyarı kutusu açılacak; lütfen Evet düğmesine tıklayın. Ekran görüntüsüne bakın:

6. Sonraki iletişim kutusunda, belirtilen klasöre taşı seçeneğini 1. Adım: Eylem(ler)i seçin listesinden işaretleyin. Ardından bağlantılı metin olan belirtilen kısmı tıklayın. Açılan Kurallar ve Uyarılar iletişim kutusunda e-postaların taşınacağı klasörü belirtin; ekran görüntüsüne bakın:

7. Tamam düğmesine tıklayın ve ardından İleri düğmesine tıklamaya devam edin. Bu Herhangi bir istisna var mı? iletişim kutusunda, 1. Adım: İstisna(lar) seçin listesinden gönderici belirtilen Adres Defteri içindeyse hariç tut seçeneğini işaretleyin. Ardından bağlantılı metin olan belirtilen kısmını tıklayın. Bir Adres Listesi Ekle kutusu açılacak; hariç tutmak istediğiniz kişileri içeren bir kişi klasörü seçin. Ekran görüntüsüne bakın:

8. Ardından Ekle düğmesine tıklayın ve son sihirbaz iletişim kutusuna gitmek için İleri düğmesine tıklayın. 1. Adım: Bu kural için bir ad belirtin metin kutusuna bir Kural Adı yazın ve Bu kuralı etkinleştir seçeneğini 2. Adım: Kural ayarlarını yapın bölümünden işaretleyin. Ekran görüntüsüne bakın:

9. Ardından, Bitir ve Tamam düğmelerine tıklayarak iletişim kutularını kapatın. Bundan sonra bilinmeyen göndericilerden gelen e-postalar otomatik olarak belirtilen klasöre taşınacaktır.

---

Bilinmeyen göndericilerden gelen e-postaları VBA kodu uygulayarak belirli bir klasöre taşıma

Yukarıdaki yöntem sizin için zahmetli olabilir; işte bu durumda, sorunu mümkün olduğunca hızlı bir şekilde çözmenizi sağlayacak bir kod uygulayabilirsiniz.

1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, modu açmak için Project1 (VbaProject.OTM) bölmesinden ThisOutlookSession öğesini çift tıklayarak açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Bilinmeyen göndericilerden gelen e-postaları otomatik olarak belirli bir klasöre taşıma:

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. Ardından kodu kaydedin, kod penceresini kapatın ve kodun etkinleşmesi için Outlook’u yeniden başlatın. Bundan sonra bilinmeyen göndericilerden gelen e-postalar otomatik olarak "Unknown" (Bilinmeyen) klasörüne taşınacak—ekran görüntüsüne bakın:

Not: Bilinmeyen klasörü, bilinmeyen e-postalar geldiğinde otomatik olarak oluşturulur. Betikteki klasör adı olan “Unknow” ifadesini istediğiniz başka bir şeyle değiştirebilirsiniz.