İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Outlook'u başlatarkən avtomatik olaraq bütün qovluqları necə genişləndirmək olar?

Ümumiyyətlə, əgər siz genişləndirmək və ya bir naviqasiya bölməsində bir qovluq və daha sonra Outlook bağlamaq, Outlook yenidən başladın zaman genişləndirilməsi və ya çökdüyü qalır. Ancaq indi Outlook'u açarkən bütün qovluqları avtomatik olaraq genişləndirmək üçün bir yol varmı? Bu məqalə vəzifəni yerinə yetirmək üçün VBA təqdim edəcəkdir.

Outlook'u VBA ilə başlayan zaman bütün qovluqları avtomatik olaraq genişləndirin

Outlook üçün Kutools: 100 + Yeni Ətraflı Vasitələr Outlook üçün.
Office Tab: Ofisdə Sekmeli Düzenleme və Gözdən keçirməni aktivləşdirin, Chrome kimi, Firefox, IE 8 / 9 / 10 kimi.
Klassik Menyu: Köhnə Menüləri və Toolbarlarını Geri Alın Office 2007, 2010, 2013, 2016 və 2019.

arrow mavi sağ bubbleOutlook'u VBA ilə başlayan zaman bütün qovluqları avtomatik olaraq genişləndirin

Bu metod, Outlook'u başlattığınızda, Gezinme Bölmesinde bütün qovluqları avtomatik olaraq genişləndirmək üçün bir VBA təqdim edəcək. Xahiş edirik bu VBA-ni aşağıdakı kimi tətbiq edin:

1. Basın Dayandırmaq + F11 Microsoft Visual Basic for Applications penceresini açmaq üçün eyni zamanda düymələri.

2. Genişletin Layihə 1Microsoft Outlook obyektləri Layihə bölməsində açmaq üçün cüt basın BuOutlookSession Pəncərəni açın və sonra VBA kodunun altına yapışdırın.

VBA: Outlook'dakı bütün qovluqları avtomatik olaraq genişləndirin

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. Kodu saxla və Microsoft Visual Basic for Applications proqramı penceresini bağlayın.

İndi, Outlook'u yenidən başlattığınızda, bütün qovluqlar Outlook-da avtomatik olaraq genişlənəcəkdir.Qeyd: Outlook'u yenidən başlattığınızda bu VBA çökmüş axtarış qovluqlarını aça bilmir.


arrow mavi sağ bubbleəlaqəli məqalələr



Outlook üçün Kutools

100, 2010, 2013, 2016 və 2019 üçün 365 Ətraflı funksiyaları

201812 pankart üçün küçə görünüşü üçün ekran shot kutools

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 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. :)