Outlook'ta belirli bir kategori atadıktan sonra e-postaları belirlenmiş klasöre nasıl taşırız?

Diyelim ki, Outlook'unuzda aldığınız bir e-postaya bir kategori atadınız. Kategori atamasından sonra bu e-postanın, kategori adıyla isimlendirilmiş belirli bir e-posta klasörüne otomatik olarak taşınmasını istiyorsunuz. Örneğin, “Özel” kategorisine atanmış bir e-posta, Outlook'unuzdaki “Özel” adlı bir klasöre taşınacaktır. Bunu nasıl başarabiliriz? Bu makaledeki yöntem size sorunu kolayca çözmenize yardımcı olacaktır.

VBA ile belirli bir kategori atandıktan sonra e-postaları belirlenmiş klasöre taşıma

VBA ile belirli bir kategori atandıktan sonra e-postaları belirlenmiş klasöre taşıma

Aşağıdaki VBA kodu, Outlook'ta belirli bir kategori atadıktan sonra e-postaları otomatik olarak belirlenmiş klasöre taşımak için yardımcı olacaktır. Lütfen şu adımları izleyin:

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

2. Microsoft Visual Basic for Applications penceresinde, ThisOutlookSession (Kod) penceresini açmak için çift tıklayın. Ardından aşağıdaki VBA kodunu pencereye kopyalayın. Ekran görüntüsüne bakın:

VBA Kodu: Belirli bir kategori atandıktan sonra e-postaları belirlenmiş klasöre taşıma

Private WithEvents xInboxFld As Outlook.Folder
Private WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set xInboxFld = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set xInboxItems = xInboxFld.Items
End Sub

Private Sub xInboxItems_ItemChange(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xFlds As Outlook.Folders
Dim xFld As Outlook.Folder
Dim xTargetFld As Outlook.Folder
Dim xFlag As Boolean
On Error Resume Next
If Item.Class = olMail Then
    Set xMailItem = Item
    xFlag = False
    If xMailItem.Categories <> "" Then
        Set xFlds = Application.Session.GetDefaultFolder(olFolderInbox).Folders
        If xFlds.Count <> 0 Then
            For Each xFld In xFlds
                If xFld.Name = xMailItem.Categories Then
                    xFlag = True
                End If
            Next
        End If
        If xFlag = False Then
            Application.Session.GetDefaultFolder(olFolderInbox).Folders.Add xMailItem.Categories, olFolderInbox
        End If
        Set xTargetFld = Application.Session.GetDefaultFolder(olFolderInbox).Folders(xMailItem.Categories)
        xMailItem.Move xTargetFld
    End If
End If
End Sub

3. Kodu kaydedin ve Outlook'u yeniden başlatın.

4. Artık bir gelen e-postaya kategori atadığınızda, kategori adıyla bir klasör Gelen Kutusu altında otomatik olarak oluşturulacak ve e-posta bu klasöre taşınacaktır. Ekran görüntüsüne bakın:

Not: Aynı kategoriye atanmış tüm e-postalar otomatik olarak aynı klasöre taşınacaktır. Ancak, bir e-postaya yeni bir kategori atanırsa, yeni bir klasör otomatik olarak oluşturulacaktır.

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

• Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
• Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
• Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
• Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
• Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
• Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

• Akıllı e-posta yanıtları
• Optimize edilmiş içerik
• Anahtar kelimeye dayalı taslaklar
• Akıllı içerik genişletme
• E-posta özetleme
• Çok dilli çeviri

En önemlisi, bu özellik sonsuza kadar tamamen ücretsiz! Boşuna beklemeyin—şimdi AI Mail Asistanını indirin ve keyfini çıkarın

İlgili makaleler:

• Outlook'ta giden e-postalara nasıl kategori atanır?
• Outlook'ta yanıt verme veya e-posta iletirken orijinal kategorileri nasıl koruruz?