Hogyan lehet minden mappát automatikusan kibővíteni az Outlook indításakor?
Általában amikor kibont vagy összecsuk egy mappát az Outlook navigációs ablakában, majd bezárja a programot, a mappa az Outlook újranyitásakor megőrzi kibontott vagy összecsukott állapotát. De mi van akkor, ha azt szeretné, hogy minden mappa automatikusan ki legyen bontva az Outlook minden indításakor? Ez a cikk egy VBA-megoldást kínál ennek eléréséhez.
Az összes mappa automatikus kibontása az Outlook VBA használatával történő indításakor
- Automatizálja az e-mailezést ezzel Auto CC / BCC, Automatikus továbbítás szabályok szerint; Küld Autómatikus válasz (Out of Office) Exchange szerver nélkül...
- Szerezzen emlékeztetőket BCC figyelmeztetés amikor mindenkinek válaszol, miközben a Titkos másolat listában van, és Emlékeztessen a hiányzó mellékletekre az elfelejtett mellékletekhez...
- Növelje az e-mailek hatékonyságát Válasz (mindenre) mellékletekkel, Üdvözlés vagy dátum és idő automatikus hozzáadása az aláíráshoz vagy a tárgyhoz, Válasz több e-mailre...
- Egyszerűsítse az e-mailezést ezzel E-mailek visszahívása, Melléklet eszközök (Összes tömörítése, Összes automatikus mentése...), Távolítsa el a másolatokatés Gyorsjelentés...
Az összes mappa automatikus kibontása az Outlook VBA használatával történő indításakor
Ez az útmutató bemutatja, hogyan lehet VBA-szkripttel automatikusan kibontani a navigációs ablakban lévő összes mappát az Outlook minden egyes indításakor. Kövesse az alábbi lépéseket a VBA-szkript megvalósításához:
- nyomja meg Alt + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
- Bontsa ki a Project 1 és a Microsoft Outlook objektumok a NetPoulSafe projekt ablaktáblát, kattintson duplán a megnyitásához ThisOutlookSession ablakot, majd illessze be az alábbi VBA-kódot.
VBA: Az Outlook összes mappájának automatikus kibontása
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
- Mentse el a kódot, és zárja be Microsoft Visual Basic for Applications ablak.
Mostantól az Outlook újraindításakor az összes mappa automatikusan kibővül az Outlookban.
Megjegyzések:
- Ez a VBA nem tudja megnyitni az összecsukott keresési mappákat az Outlook újraindításakor.
- A VBA-szkript megfelelő működéséhez elengedhetetlen a makróbeállítások módosítása az Outlookban. Kérjük, menjen ide filé > Opciók > Trust Center > Trust Center beállítások > Makróbeállítások, és válassza ki a Engedélyezze az összes makrót választási lehetőség. Ez a beállítás lehetővé teszi a VBA-szkript korlátozások nélküli futtatását.
Kapcsolódó cikkek
A legjobb irodai hatékonyságnövelő eszközök
Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez
???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető) / Ütemezze az e-mailek küldését / Automatikus CC/BCC szabályok szerint e-mail küldésekor / Automatikus továbbítás (Speciális szabályok) / Automatikus üdvözlet hozzáadása / A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...
📨 Email Management: Könnyen visszahívhatja az e-maileket / Blokkolja az alanyok és mások átverő e-mailjeit / Törölje az ismétlődő e-maileket / Részletes keresés / Mappák összevonása ...
📁 Attachments Pro: Kötegelt mentés / Batch Detach / Batch tömörítés / Automatikus mentés / Automatikus leválasztás / Automatikus tömörítés ...
🌟 Interface Magic: 😊További szép és menő hangulatjelek / Növelje Outlook termelékenységét a füles nézetekkel / Minimalizálja az Outlookot a bezárás helyett ...
👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel / Adathalászat elleni e-mailek / 🕘A feladó időzónájának megjelenítése ...
👩🏼🤝👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből / Egy kapcsolattartó csoport felosztása egyéni csoportokra / Távolítsa el a születésnapi emlékeztetőket ...
Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.