Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano awtomatikong mapalawak ang lahat ng mga folder kapag nagsisimula ng Outlook?

Sa pangkalahatan, kung pinalawak mo o tiklupin ang isang folder sa Navigation Pane at pagkatapos ay isara ang Outlook, mananatiling nagpapalawak o nag-collapsing ang folder kapag nag-restart ng Outlook. Ngunit ngayon, may isang paraan upang awtomatikong palawakin ang lahat ng mga folder kapag nagsisimula ng Outlook? Ang artikulong ito ay magpapakilala sa isang VBA upang makumpleto ang gawain.

Awtomatikong palawakin ang lahat ng mga folder kapag nagsisimula ng Outlook sa VBA

Kutools para sa Outlook: 100 + Bagong Advanced na Mga Tool para sa Outlook.
Tab ng Tanggapan: Paganahin ang Pag-edit ng Tab at Pag-browse sa Opisina, Tulad ng Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu: Dalhin ang mga Old Menu at Toolbars Bumalik sa Office 2007, 2010, 2013, 2016 at 2019.

arrow blue right bubbleAwtomatikong palawakin ang lahat ng mga folder kapag nagsisimula ng Outlook sa VBA

Ang pamamaraan na ito ay magpapakilala sa isang VBA upang awtomatikong palawakin ang lahat ng mga folder sa Navigation Pane kapag nagsimula ka ng Outlook. Mangyaring ilapat ang VBA na ito tulad ng sumusunod:

1. Pindutin ang Alt + F11 susi nang sabay-sabay upang buksan ang Microsoft Visual Basic para sa Mga Application window.

2. Palawakin ang Project 1 at Microsoft Outlook Objects sa pane ng Proyekto, i-double click upang buksan ang ThisOutlookSession window, at pagkatapos ay i-paste sa ibaba ang VBA code dito.

VBA: Awtomatikong palawakin ang lahat ng mga folder sa 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. I-save ang code at isara ang window ng Microsoft Visual Basic para sa Mga Application.

Mula ngayon, kapag i-restart ang Outlook, ang lahat ng mga folder ay awtomatikong mapalawak sa Outlook.nota: Hindi mabuksan ng VBA na ito ang mga collapsed na mga folder ng paghahanap kapag nag-restart ng Outlook.


arrow blue right bubbleKaugnay na Artikulo



Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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. :)