Խորհուրդ. Այլ լեզուներն են Google- թարգմանված: Դուք կարող եք այցելել այն English այս հղման տարբերակը:
Մուտք
x
or
x
x
Գրանցում
x

or

Outlook- ը սկսելու ժամանակ ինչպես ինքնաբերաբար ընդլայնել բոլոր թղթապանակները:

Ընդհանրապես, եթե դուք ընդլայնել կամ փլուզել Նավիգացիոն շրջանում թղթապանակը եւ ապա փակել Outlook- ը, Outlook- ի վերագործարկման ժամանակ թղթապանակը կմնա ընդլայնում կամ փլուզում: Բայց հիմա, կա Outlook- ի գործարկման ժամանակ ավտոմատ կերպով ընդլայնելու բոլոր թղթապանակները: Այս հոդվածը կներկայացնի խնդիրը ավարտելու համար VBA- ն:

Ավտոմատ տարածեք բոլոր թղթապանակները VBA- ի հետ Outlook- ում

Պահոցներ Outlook- ի համար: 100 + նոր առաջադեմ գործիքներ Outlook- ի համար:
Գրասենյակի էջանշանը: Միացնել գործածված էջանշանը եւ դիտարկումը Office- ում, Just Like Chrome, Firefox, IE 8 / 9 / 10:
Դասական Մենյու: Ներկայացրեք հին մենյուները եւ գործիքակազմերը 2007- ում, 2010- ում, 2013- ում, 2016- ում եւ 2019- ում:

arrow կապույտ աջ փուչիկԱվտոմատ տարածեք բոլոր թղթապանակները VBA- ի հետ Outlook- ում

Այս մեթոդը կներկայացնի VBA- ն ավտոմատ կերպով ընդլայնելու բոլոր թղթապանակները Նավարկման դաշտում, երբ սկսում եք Outlook- ը: Խնդրում ենք կիրառել այս VBA- ն հետեւյալը.

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացել Microsoft Visual Basic- ի դիմումների պատուհանի համար:

2. Ընդլայնել այն Ծրագրի 1 եւ Microsoft Outlook- ի օբյեկտները Ծրագրի վահանակում, կրկնակի սեղմեք, բացելու համար Այս մասին հայտնում է TheOutlookSession- ը պատուհանի մեջ, ապա դրեք ներքեւում VBA կոդը ներքեւում:

VBA: Outlook- ի բոլոր թղթապանակները ավտոմատ կերպով ընդլայնել

Private Sub Application_Startup()
ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
On Error Resume Next
Dim Ns As Outlook.NameSpace
Dim Folders As Outlook.Folders
Dim CurrF As Outlook.MAPIFolder
Dim F As Outlook.MAPIFolder
Dim ExpandDefaultStoreOnly As Boolean

  ExpandDefaultStoreOnly = False

  Set Ns = Application.GetNamespace("Mapi")
Set CurrF = Application.ActiveExplorer.CurrentFolder

  If ExpandDefaultStoreOnly = True Then
Set F = Ns.GetDefaultFolder(olFolderInbox)
Set F = F.Parent
Set Folders = F.Folders
LoopFolders Folders, True

  Else
LoopFolders Ns.Folders, True
End If

  DoEvents
Set Application.ActiveExplorer.CurrentFolder = CurrF
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders, _
ByVal bRecursive As Boolean _
)
Dim F As Outlook.MAPIFolder

  For Each F In Folders
Set Application.ActiveExplorer.CurrentFolder = F
DoEvents

    If bRecursive Then
If F.Folders.Count Then
LoopFolders F.Folders, bRecursive
End If
End If
Next
End Sub

3. Պահեք կոդը եւ փակեք Microsoft Visual Basic- ի Ծրագրերի պատուհանը:

Այսուհետ Outlook- ը վերսկսելու դեպքում բոլոր թղթապանակները ավտոմատ կերպով ընդլայնվում են Outlook- ում:Նշում: Այս VBA- ն չի կարող բացել փլուզված որոնման թղթապանակը Outlook- ի վերագործարկման ժամանակ:


arrow կապույտ աջ փուչիկԱռնչվող հոդվածներ



Պահոցներ Outlook- ի համար

Ավելի քան 100- ի առաջադեմ գործառույթները, 2010, 2013, 2016, 2019 եւ 365- ի համար:

Էկրանի ստեղնաշարի համար նախատեսված փոքր տառատեսակ փոքրիկ 201812- ի համար

Լրացուցիչ հնարավորություններ | Անվճար ներբեռնում | Միայն $ 39.00 հարյուրավոր գործառույթների համար

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Selvi · 7 months ago
    Thank you so much.. It solved my problem. :)