Outlook'u başlatırken tüm klasörler otomatik olarak nasıl genişletilir?
Genellikle, Outlook'un Gezinti Bölmesi'nde bir klasörü genişlettiğinizde veya daralttığınızda ve ardından programı kapattığınızda, Outlook yeniden açıldığında klasör genişletilmiş veya daraltılmış durumunu korur. Ancak Outlook'u her başlattığınızda tüm klasörlerin otomatik olarak genişletilmesini istiyorsanız ne olur? Bu makalede tam da bunu başarmak için bir VBA çözümü sunulmaktadır.
VBA kullanarak Outlook'u başlatırken tüm klasörleri otomatik olarak genişlet
- 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...
VBA kullanarak Outlook'u başlatırken tüm klasörleri otomatik olarak genişlet
Bu kılavuz, Outlook'u her başlattığınızda Gezinti Bölmesi'ndeki tüm klasörleri otomatik olarak genişletmek için bir VBA komut dosyasının nasıl kullanılacağını gösterecektir. VBA betiğini uygulamak için şu adımları izleyin:
- Basın Alt + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
- genişletmek Proje 1 ve Microsoft Outlook Nesneleri içinde Proje bölmesini açmak için çift tıklayın Bu OutlookOturumu penceresini açın ve ardından aşağıdaki VBA kodunu pencereye yapıştırın.
VBA: Outlook'taki tüm klasörleri otomatik olarak genişletin
Public WithEvents GEx As Explorer Public GFlag As Boolean Private Sub Application_Startup() 'Update by ExtendOffice 2023/12/08 Set GEx = Application.ActiveExplorer GFlag = False End Sub Private Sub GEx_SelectionChange() If GFlag = False Then ExpandAllFolders End If GFlag = True End Sub Public Sub ExpandAllFolders() Dim xNameSpace As Outlook.NameSpace Dim xFlds As Outlook.Folders Dim xCurrFld As Outlook.MAPIFolder Dim xFld As Outlook.MAPIFolder Dim xExpandDefaultStoreOnly As Boolean Dim xModule As NavigationModule On Error Resume Next xExpandDefaultStoreOnly = False Set xNameSpace = Application.Session Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule Set xCurrFld = Application.ActiveExplorer.CurrentFolder If xExpandDefaultStoreOnly = True Then Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox) Set xFld = xFld.Parent Set xFlds = xFld.Folders LoopFolders xFlds, True Else LoopFolders xNameSpace.Folders, True LoopFolders xNameSpace.Folders, False End If DoEvents Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule Set Application.ActiveExplorer.CurrentFolder = xCurrFld Set xNameSpace = Nothing Set xModule = Nothing Set xCurrFld = Nothing End Sub Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean) Dim xFld As Outlook.MAPIFolder On Error Resume Next For Each xFld In Flds Select Case All Case True If xFld.DefaultItemType = olMailItem Then Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End If Case False Set Application.ActiveExplorer.CurrentFolder = xFld DoEvents If xFld.Folders.Count > 0 Then LoopFolders xFld.Folders, All End If End Select Next End Sub
- Kodu kaydedin ve kapatın Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, Outlook'u yeniden başlatırken tüm klasörler Outlook'ta otomatik olarak genişletilecektir.
Notlar:
- Bu VBA, Outlook'u yeniden başlatırken daraltılmış arama klasörlerini açamıyor.
- VBA komut dosyasının doğru şekilde çalıştığından emin olmak için Outlook'ta makro ayarlarınızı yapmanız önemlidir. Lütfen git fileto > Opsiyonlar > Güven Merkezi > Güven Merkezi Ayarları > Makro Ayarlarıseçeneğini belirleyin ve Tüm makroları etkinleştirin seçenek. Bu ayar, VBA komut dosyasının herhangi bir kısıtlama olmaksızın çalışmasına olanak tanır.
İlgili Makaleler
Outlook'ta birden çok klasörü toplu olarak silme
Outlook'taki bir posta klasöründen tüm yinelenen e-postaları silin
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.