Outlook’ta belirli kişileri içeren e-postaları düzenlemek için nasıl klasör oluşturulur?

Dağınık gelen kutunuz sizi bunaltıyor mu? Bu öğreticide, Outlook’ta belirli kişilerden gelen e-postaları daha iyi verimlilik için düzenlemenin üç yöntemini paylaşacağım.

Belirli kişileri içeren e-postaları her zaman oluşturulan klasöre taşıyın

1. E-postalarınızı düzenlemek için, klasör oluşturmak istediğiniz e-posta hesabına sağ tıklayın, bağlam menüsünden «Yeni Klasör» seçeneğini seçin ve klasöre bir ad verin.

2. Gelen Kutunuzda veya Gönderilen Öğeler klasörünüzde, belirli bir E-posta Adresi’ni içeren ve tüm e-postalarını taşımayı planladığınız klasöre ait herhangi bir e-posta iletisi seçin.

3. «Giriş» sekmesinde, «Taşı» grubundan «Kurallar» > «İletileri Her Zaman Şundan Taşı: belirli E-posta Adresi» ve/veya ihtiyacınıza göre «Kurallar» > «İletileri Her Zaman Şuna Taşı: belirli E-posta Adresi» seçeneğine tıklayın.

4. Açılan Kurallar ve Uyarılar iletişim kutusunda, iletilerin taşınacağı klasörü seçin ve «Tamam» düğmesine tıklayın.

5. Gelen Kutusu veya Gönderilen Öğeler klasöründe koşulları karşılayan e-postalar, az önce oluşturduğunuz klasöre taşındı. Gelecekte bu koşulları karşılayan tüm e-postalar da doğrudan bu klasöre yönlendirilecek.

Belirli kişiler için e-postaları otomatik olarak düzenlemek üzere bir arama klasörü oluşturun

İletileri bir klasöre taşımak istemiyorsanız ancak kolayca görüntülemek istiyorsanız, Outlook’ta belirli ölçütleri karşılayan e-postaları birden fazla klasörde bulmanıza ve orijinal konumlarında tutmanıza olanak tanıyan bir arama klasörü oluşturabilirsiniz.

1. «Klasör» sekmesinde, «Yeni» grubundan «Yeni Arama Klasörü»ne tıklayın.

2. Açılan Yeni Arama Klasörü iletişim kutusunda aşağıdaki işlemleri yapın:

• 1) "Arama Klasörü Seçin" kutusunda, "Kişilerden ve Listelerden Gelen Posta" listesinden ihtiyacınıza uygun olarak «Belirli kişilere ve onlardan gelen posta» veya «Belirli kişilerden gelen posta» seçeneğini işaretleyin.
• 2) «Arama Klasörünü Özelleştir» kutusunda, Adres Listesi’nizden kişileri seçmek için «Seç» düğmesine tıklayın.
• 3) E-postaların aranacağı e-posta hesabını belirtin.
• 4) «Tamam» düğmesine tıklayın.

3. Koşulları karşılayan e-posta iletilerini içeren bir arama klasörü, Arama Klasörleri altında oluşturuldu.

Tüm e-posta hesaplarınız için VBA ile toplu olarak klasör oluşturarak e-postaları düzenleyin

Outlook’ta birden fazla e-posta hesabınız varsa ve her bir hesap için belirli kişiler adına ayrı toplu klasörler oluşturmak istiyorsanız, VBA yöntemini kullanarak ilgili e-posta hesaplarınızın Gelen Kutusu veya Gönderilen Öğeler klasörlerinden bu kişilere ait iletileri taşıyabilirsiniz. Aşağıdaki adımları uygulayın.

1. Outlook’ta «Dosya» > «Seçenekler» > «Güven Merkezi»’ne tıklayın, ardından «Güven Merkezi Ayarları»’na geçin.

2. Açılan iletişim kutusunda «Makro Ayarları» sekmesine geçin, «Tüm makroları etkinleştir» seçeneğini işaretleyin ve «Yüklü eklentilere makro güvenliği ayarlarını uygula» seçeneğini de etkinleştirin.

3. İletişim kutularını kapatmak için «Tamam» düğmesine tıklayın.

4. Microsoft Visual Basic for Applications penceresini açmak için «Alt»+«F11» tuşlarına basın.

5. «Ekle» > «Modül» seçeneğine tıklayın, ardından aşağıdaki VBA kodlarından birini Modül penceresine kopyalayın.

VBA kodu 1: Tüm Hesaplar Gelen Kutuları arasında belirli göndericileri içeren e-postaları düzenlemek için toplu klasör oluşturun

Sub MailArchiveSenderInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder" 'Replace "NewFolder" with desired folder name
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      If xMail.Sender.Type = "EX" Then
        xSenderAddress = xMail.Sender.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
      Else
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If xSenderAddress = "" Then
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

Not: Yukarıdaki VBA kodunun 12., 16. ve 35. satırlarındaki yorumlara göre ilgili kod bölümlerini güncellemeniz gerekir.

VBA kodu 2: Tüm Hesaplar Gelen Kutuları arasında belirli alıcıları içeren e-postaları düzenlemek için toplu klasör oluşturun

Sub MailArchiveRecipientInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder"
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      For Each xRecipient In xMail.Recipients
'        If xRecipient.Type = olCC Then
            xSenderAddress = xSenderAddress & ", " & xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
            If xSenderAddress = "" Then
              xSenderAddress = xSenderAddress & ", " & xRecipient.Address
            End If
'        End If
      Next
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

Not:

• 1) Yukarıdaki VBA kodunun 12., 16. ve 35. satırlarındaki yorumlara göre ilgili kod bölümlerini güncellemelisiniz.
• 2) Belirli CC veya BCC alıcılarını içeren iletileri arşivlemek için, 28. ve 33. satırların başındaki kesme işaretini (') silerek bu satırların açıklamasını kaldırın.

6. VBA kodunu çalıştırmak için «F5» tuşuna basın. Koşulları karşılayan iletiler varsa, yeni bir klasör oluşturulacaktır.

İlgili makaleler

---

En İyi Office Verimlilik Araçları

Kutools for Outlook’in tamamen yenilenmiş sürümünü 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisini kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Tekil Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğer Özelliklere Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ekler Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır, Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi bilgilendirir / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Balık Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Mevcut Saati ve Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dili destekler!

Kutools for Outlook’u tek bir tıklamayla hemen etkinleştirin! Beklemeyin, şimdi indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi      Şimdi İndirin      Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıklabir seferde indirin —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

• ✅Tek tıkla kullanım kolaylığı: Beş kurulum paketini tek bir işlemle indirin.
• 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
• 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında⬇ Paketi İndirin💳 Paketi Satın Alın