Ինչպե՞ս ավտոմատ կերպով ընդլայնել բոլոր պանակները Outlook- ը սկսելիս:
Սովորաբար, երբ Outlook-ի նավիգացիոն վահանակի թղթապանակն ընդլայնում կամ փլուզում եք և այնուհետև փակում ծրագիրը, պանակը պահպանում է իր ընդլայնված կամ ծալված վիճակը Outlook-ը նորից բացելուց հետո: Այնուամենայնիվ, ի՞նչ անել, եթե ցանկանում եք, որ բոլոր թղթապանակները ավտոմատ կերպով ընդարձակվեն ամեն անգամ, երբ բացում եք Outlook-ը: Այս հոդվածը տալիս է VBA լուծում հենց դրան հասնելու համար:
Ավտոմատ ընդլայնել բոլոր թղթապանակները, երբ միացնում եք Outlook-ը VBA-ով
- Ավտոմատացնել էլ Auto CC / BCC, Ավտոմեքենաների փոխանցում կանոններով; ուղարկել Ավտոմատ պատասխան (Offoff Office) առանց փոխանակման սերվեր պահանջելու...
- Ստացեք նման հիշեցումներ Նախազգուշացում BCC- ի համար երբ պատասխանում եք բոլորին, երբ դուք BCC ցուցակում եք, և Հիշեցրեք հավելվածները բաց թողնելիս մոռացված հավելվածների համար...
- Բարելավել էլփոստի արդյունավետությունը Պատասխանել (Բոլորը) Հավելվածներով, Ավտոմատ ավելացրեք ողջույն կամ ամսաթիվ և ժամ ստորագրության կամ թեմայի մեջ, Պատասխանել բազմաթիվ էլ...
- Հեշտացնել էլփոստի ուղարկումը Վերհիշել նամակները, Կցման գործիքներ (Սեղմել բոլորը, ավտոմատ պահել բոլորը...), Հեռացնել կրկնօրինակները, եւ Արագ հաշվետվություն...
Ավտոմատ ընդլայնել բոլոր թղթապանակները, երբ միացնում եք Outlook-ը VBA-ով
Այս ուղեցույցը ցույց կտա, թե ինչպես կարելի է օգտագործել VBA սկրիպտը՝ ամեն անգամ Outlook-ը գործարկելու համար Navigation Pane-ի բոլոր պանակներն ավտոմատ ընդլայնելու համար: Հետևեք հետևյալ քայլերին VBA սկրիպտը իրականացնելու համար.
- մամուլ Alt + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
- Ընդլայնում Ծրագրի 1 և Microsoft Outlook օբյեկտներ է Նախագիծ պատուհան, կրկնակի սեղմեք՝ բացելու համար ԱյսOutlookSession- ը պատուհանը, այնուհետև դրա մեջ տեղադրեք ստորև նշված VBA կոդը:
VBA. Outlook- ում բոլոր թղթապանակներն ավտոմատ կերպով ընդլայնեք
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
- Պահպանեք կոդը և փակեք Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ, Outlook- ը վերագործարկելիս, բոլոր պանակները ավտոմատ կերպով ընդլայնվելու են Outlook- ում:
Նշումներ:
- Այս VBA-ն չի կարող բացել փլված որոնման թղթապանակները Outlook-ը վերագործարկելիս:
- VBA սկրիպտի ճիշտ աշխատանքը ապահովելու համար կարևոր է կարգավորել ձեր մակրո կարգավորումները Outlook-ում: Խնդրում ենք գնալ Ֆայլ > Ընտրանքներ > Վստահության կենտրոն > Վստահության կենտրոնի կարգավորումները > Մակրո կարգավորումներ, և ընտրեք Միացնել բոլոր մակրոները տարբերակ. Այս պարամետրը թույլ է տալիս VBA սկրիպտը աշխատել առանց որևէ սահմանափակումների:
Առնչվող հոդվածներ
Գրասենյակի արտադրողականության լավագույն գործիքները
Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար
🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...
📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար) / Ժամանակացույց ուղարկել նամակներ / Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով / Ավտոմատ փոխանցում (Ընդլայնված կանոններ) / Ավտոմատ ավելացնել ողջույնները / Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...
📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները / Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց / Deleteնջել կրկնօրինակ նամակները / Ընդլայնված որոնում / Համախմբել Թղթապանակները ...
📁 Հավելվածներ Pro: Խմբաքանակի պահպանում / Խմբաքանակի անջատում / Խմբաքանակային կոմպրես / Auto Save- ը / Ավտոմատ անջատում / Ավտոմատ սեղմում ...
🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ / Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով / Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...
???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով / Հակաֆիշինգի էլ. նամակներ / 🕘Ցուցադրել ուղարկողի ժամային գոտին ...
👩🏼🤝👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ / Կոնտակտային խումբը բաժանեք առանձին խմբերի / Հեռացնել ծննդյան հիշեցումները ...
Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: