Outlook'ta klasörlerin listesi nasıl alınır?
Bazen Gezinti Bölmesindeki tüm posta klasörlerinin ağaç yapısı (oluşturulan kişisel klasörler dahil) Outlook kullanıcıları için çalışmaları sırasında biraz yardımcı olabilir. Tüm ağaç yapısı klasörlerini hızlı bir şekilde listelemek için VBA kodu size yardımcı olabilir. Bu öğreticide, VBA kodu ile klasörlerin listesini kolayca nasıl alacağınızı öğrenebilirsiniz.
Outlook'ta VBA kodu ile klasörlerin listesini alın
- E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
- Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
- E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
- E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...
Outlook'ta VBA kodu ile klasörlerin listesini alın
Outlook'ta VBA kodlu klasörlerin listesini almak için lütfen aşağıdaki işlemleri gerçekleştirin.
1. Tuşuna basın. Ara Toplam + F11 açmak için klavyedeki tuşlar Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından çift tıklayın Project1 > Microsoft Outlook Nesnesi > Bu OutlookOturumu açmak için Project1 - ThisOutlookSession pencere. Ekran görüntüsüne bakın:
3. Ardından aşağıdaki VBA kodunu kopyalayıp Project1 - ThisOutlookSession penceresine yapıştırın.
VBA: Outlook'ta klasörlerin listesini alın
Option Explicit
Sub GetFoldersList()
On Error GoTo On_Error
Dim Report As String
Dim Folder As Outlook.Folder
For Each Folder In Application.Session.Folders
Report = Report & "---------------------------------------------------------------------------" & vbCrLf
Call RecurseFolders(Folder, "", Report)
Next
Call CreateReportEmail("Outlook Folders List", Report)
Exiting:
Exit Sub
On_Error:
MsgBox "error=" & Err.Number & " " & Err.Description
End Sub
Sub RecurseFolders(CurrentFolder As Outlook.Folder, TabChars, ByRef Report As String)
Dim SubFolder As Outlook.Folder
Dim FolderName, StoreName As String
FolderName = CurrentFolder.Name
StoreName = CurrentFolder.Store.DisplayName
Report = Report & TabChars & FolderName & " (Store: " & StoreName & ")" & vbCrLf
For Each SubFolder In CurrentFolder.Folders
Call RecurseFolders(SubFolder, TabChars & vbTab, Report)
Next SubFolder
End Sub
Sub CreateReportEmail(Title As String, Report As String)
Dim aMail As MailItem
Set aMail = Application.CreateItem(olMailItem)
aMail.Subject = Title
aMail.Body = Report
aMail.Display
End Sub
4. Tuşuna basın. F5 VBA kodunu çalıştırmaya başlamak için klavyedeki tuşuna basın.
5. Şimdi a Makro iletişim kutusu açılır, lütfen tıklayın koşmak düğmesine basın.
6. Makronun çalışmasını bekleyin. Ardından, tüm e-posta klasörlerinizin listesi, oluşturulan yeni bir mesaj penceresinde hemen listelenir. Kolayca yazdırabilirsiniz. Ekran görüntüsüne bakın:
not: Bu VBA kodu Outlook 2007, 2010 ve 2013'e uygulanabilir.
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.