Outlook'ta belirli kategoriyi atadıktan sonra e-postaları belirtilen klasöre nasıl taşıyabilirim?
Outlook'unuzda alınan bir e-postaya bir kategori atadığınızı varsayarsak, kategori atadıktan sonra bu e-postanın otomatik olarak kategori adıyla adlandırılan belirli bir e-posta klasörüne taşınmasını istersiniz. Örneğin, "Özel" kategorisiyle atanan bir e-posta, Outlook'unuzda "Özel" klasör adına taşınacaktır. Nasıl başarılır? Bu makaledeki yöntem, sorunu kolaylıkla çözmenize yardımcı olabilir.
VBA ile belirli bir kategori atadıktan sonra e-postaları belirtilen klasöre taşıyın
VBA ile belirli bir kategori atadıktan sonra e-postaları belirtilen klasöre taşıyın
Aşağıdaki VBA kodu, Outlook'ta belirli bir kategori atadıktan sonra e-postaları otomatik olarak belirtilen klasöre taşımaya yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic penceresi, açmak için çift tıklayın ThisOutlookSession (Kod) pencere. Ardından pencereye VBA kodunu kopyalayın. Ekran görüntüsüne bakın:
VBA kodu: Belirli kategoriyi atadıktan sonra e-postaları belirtilen klasöre taşıyın
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 böyle, bir e-postaya kategori atarken, e-postanın taşınmasıyla Gelen Kutusu klasörünün altında kategori adına sahip bir klasör otomatik olarak oluşturulacaktır. Ekran görüntüsüne bakın:
not: Aynı kategoriye atanan tüm e-postalar otomatik olarak aynı klasöre taşınacaktır. Ancak bir e-postaya yeni bir kategori atanırsa, otomatik olarak yeni bir klasör oluşturulur.
İlgili yazılar:
- Outlook'ta giden e-postaya kategori nasıl atanır?
- Outlook'ta e-postayı yanıtlarken veya iletirken orijinal kategoriler nasıl korunur?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!