İş ortamlarında Windows için Klasik Outlook'u kullanma
Bu yanıt otomatik olarak çevrilmiştir. Bu nedenle bazı dilbilgisi hataları veya garip ifadeler olabilir.
Sayın MUCAHID,
Outlook'ta banka ekstre e-postalarını eklenti adlarına göre sıralamak için sorduğunuz soru için Microsoft Q&A Forumu'na ulaştığınız için teşekkür ederiz. Günlük olarak aynı gönderici, konu ve açıklamaya sahip e-postalar aldığınızı, ancak Excel eklenti dosya adlarının hesaba göre değiştiğini ve bu e-postaları otomatik olarak ilgili klasörlere taşımak istediğinizi anlıyorum.
Ne yazık ki, standart Outlook kuralları eklenti dosya adlarına dayalı koşulları doğrudan desteklemez. Ancak, bu, bir Outlook kuralını özel bir VBA (Visual Basic for Applications) betiğiyle birleştirerek başarılabilir. Lütfen unutmayın, bu çözüm Outlook'un masaüstü sürümü için geçerlidir, çünkü VBA betikleme web sürümünde (Outlook.com) mevcut değildir. Web sürümünü kullanıyorsanız, gelişmiş otomasyon için Power Automate'i keşfetmenizi öneririm (Microsoft 365'te ücretsiz olarak kullanılabilir).
Adım 1: Klasörlerinizi Hazırlayın
- Outlook'ta, Gelen Kutusu'nuzun (veya istediğiniz ana klasörün) altında her hesap için alt klasörler oluşturun. Örneğin: "Hesap1", "Hesap2" vb.
- Gelen Kutusu'na sağ tıklayın > Yeni Klasör.
Adım 2: Geliştirici Sekmesini Etkinleştirin ve VBA Düzenleyicisine Erişin
- Outlook'u açın ve Dosya > Seçenekler > Şeridi Özelleştir'e gidin.
- Sağ panelde Geliştirici kutusunu işaretleyin ve Tamam'a tıklayın.
- Geliştirici sekmesine gidin ve Visual Basic'e tıklayın (veya Alt + F11 tuşlarına basın) VBA düzenleyicisini açmak için.
Adım 3: Özel VBA Betiğini Ekleyin
- VBA düzenleyicisinde, Project1 > Microsoft Outlook Nesneleri > ThisOutlookSession'ı genişletin (gerekirse Ekle > Modül ile yeni bir modül ekleyin).
- Aşağıdaki kodu düzenleyici penceresine kopyalayın ve yapıştırın. Anahtar kelimeleri (örneğin, "account1") eklenti dosya adlarınızdaki alt dizelerle eşleşecek şekilde ve klasör adlarını alt klasörlerinizle eşleşecek şekilde özelleştirin.
Public Sub SortByAttachmentName(Item As Outlook.MailItem) Dim att As Outlook.Attachment Dim strFile As String Dim targetFolder As Outlook.Folder Dim inbox As Outlook.Folder Set inbox = Session.GetDefaultFolder(olFolderInbox) For i = Item.Attachments.Count To 1 Step -1 Set att = Item.Attachments.Item(i) strFile = LCase(att.FileName) ' Büyük/küçük harf duyarsız If Right(strFile, 5) = ".xlsx" Then If InStr(strFile, "account1") > 0 Then Set targetFolder = inbox.Folders("Account1") Item.Move targetFolder GoTo EndSub ElseIf InStr(strFile, "account2") > 0 Then Set targetFolder = inbox.Folders("Account2") Item.Move targetFolder GoTo EndSub ' Ek hesaplar için daha fazla ElseIf ekleyin End If End If Next i EndSub: Set att = Nothing Set targetFolder = Nothing Set inbox = Nothing End Sub - Projeyi kaydedin (Ctrl + S) ve VBA düzenleyicisini kapatın.
- İstendiğinde, Outlook'ta makroları etkinleştirin: Dosya > Seçenekler > Güven Merkezi > Güven Merkezi Ayarları > Makro Ayarları > VBA makrolarını etkinleştir (güvenlik açısından dikkatli seçin).
Adım 4: Betiği Çalıştıracak Outlook Kuralını Oluşturun
- Ana Sayfa sekmesine gidin > Kurallar > Kuralları ve Uyarıları Yönet.
- Yeni Kural'a tıklayın > Aldığım iletilere kural uygula > İleri.
- Banka e-postalarınızı filtrelemek için koşulları ayarlayın (örneğin, gönderici adresi için "kişilerden veya genel gruptan", veya konu için "konuda belirli sözcüklerle").
- Eylemlerde, bir betik çalıştır'ı işaretleyin ve betiğinizi seçin (örneğin, SortByAttachmentName).
- İleri'ye tıklayın, gerekirse istisnalar ekleyin, ardından Bitir.
- Kuralı mevcut e-postalara uygulamak için Kuralları Şimdi Çalıştır'ı kullanın veya yeni gelen e-postaları bekleyin.
Umarım bu öneri durumunuzu çözer. Ek bir endişeniz varsa, lütfen aşağıya yorum yapmaktan çekinmeyin. Yardımcı olmaktan memnuniyet duyarım.
Yanıt faydalı olduysa lütfen "Yanıtı Kabul Et"e tıklayın ve nazikçe oy verin. Bu yanıtla ilgili ek sorularınız varsa, lütfen "Yorum Yap" seçeneğine tıklayın.
Not: Bu başlıkla ilgili e-posta bildirimlerini almak istiyorsanız, lütfen belgelerimizdeki adımları izleyerek e-posta bildirimlerini etkinleştirin.