Outlook’ta belirli bir kategori atandıktan sonra e-postaları belirtilen klasöre taşımak nasıl yapılır?
Outlook’ta aldığınız bir e-postaya kategori atadığınızı düşünün. Kategori atandıktan sonra bu e-postanın, kategori adıyla aynı isimdeki belirli bir e-posta klasörüne otomatik olarak taşınmasını mı istiyorsunuz? Örneğin, “Özel” kategorisi atanmış bir e-posta, Outlook’ta “Özel” adlı klasöre otomatik olarak taşınabilsin. Bunu nasıl başarabilirsiniz? Bu makaledeki yöntem, sorunu kolayca çözmenize yardımcı olabilir.
Belirli bir kategori atandıktan sonra e-postaları belirtilen klasöre VBA ile taşıma
Belirli bir kategori atandıktan sonra e-postaları belirtilen klasöre VBA ile taşıma
Aşağıdaki VBA kodu, Outlook’ta belirli bir kategori atandıktan sonra e-postaların otomatik olarak belirtilen klasöre taşınmasını sağlar. Lütfen aşağıdaki adımları uygulayın.
1. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açı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 bu pencereye kopyalayın. Ekran görüntüsüne bakın:
VBA kodu: Belirli bir kategori atandıktan sonra e-postaları belirtilen 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. Bundan sonra, gelen bir e-postaya kategori atadığınızda, Gelen Kutusu’nda kategori adıyla aynı isimde otomatik olarak bir klasör oluşturulacak ve e-posta bu klasöre taşınacaktır. Ekran görüntüsüne göz atın:
Not: Aynı kategoriyle işaretlenmiş tüm e-postalar otomatik olarak aynı klasöre taşınır. Ancak bir e-postaya yeni bir kategori atanırsa, otomatik olarak yeni bir klasör oluşturulur.
Outlook’ta Yapay Zekâlı Posta Asistanı: Daha Akıllı Yanıtlar, Net İletişim (tek tıkla sihir!)
Kutools for Outlook’un Yapay Zekâlı Posta Asistanı ile günlük Outlook görevlerinizi daha akıllıca ve kolayca halledin. 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 geliştirir ve mesajlarınızı zahmetsizce taslak haline getirip düzenlemenize yardımcı olur.
Bu özellik şunları destekler:
- Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak oluşturulan, özelleştirilmiş, net ve hemen kullanıma hazır yanıtlar alın.
- Geliştirilmiş İçerik: E-posta metninizi netlik ve etki açısından otomatik olarak iyileştirin.
- Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini çoklu Yazı Stiliyle yapay zeka halletsin.
- Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi geliştirin.
- Özetleme: Uzun e-postaların anında kısa ve öz özetlerini alın.
- Küresel Erişim: E-postalarınızı herhangi bir dile kolayca çevirin.
Bu özellik şunları destekler:
- Akıllı e-posta yanıtları
- İyileştirilmiş içerik
- Anahtar kelimeye dayalı taslaklar
- Akıllı içerik uzantısı
- E-posta özetleme
- Çok dilli çeviri
Beklemeyin—Yapay Zekâlı Posta Asistanı’nı şimdi indirin ve keyfini çıkarın!
İlgili makaleler:
- Outlook’ta gönderilen e-postalara kategori atamak nasıl yapılır?
- Outlook’ta e-postayı yanıtlarken veya iletirken orijinal kategoriler nasıl korunur?
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşamadığınız bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro’yu da içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı bir verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin