რჩევა: სხვა ენები Google- ით თარგმნილია. შეგიძლიათ ეწვიოთ English ამ ბმის ვერსია.
შესვლა
x
or
x
x
რეგისტრაცია
x

or

როგორ ავტომატურად გაფართოვდეს ყველა ფოლდერი Outlook- ის დაწყებისას?

ზოგადად რომ ვთქვათ, თუ გაფართოება ან დაიშალოს საქაღალდეში ნავიგაცია Pane და შემდეგ დახურვა Outlook, ფოლდერი დარჩება გაფართოების ან ჩამონგრევის როდესაც გადატვირთვა Outlook. მაგრამ ახლა, არსებობს თუ არა გზა გაფართოების ყველა ფოლდერები Outlook- ის დაწყებისას? ეს სტატია გააცნობს VBA დაასრულებს ამოცანას.

ავტომატურად გაფართოვდეს ყველა ფოლდერი, როდესაც აწყობს Outlook- ს VBA- ს

Kutools ამისთვის Outlook: + ახალი დამატებითი ინსტრუმენტები ამისთვის Outlook.
ოფისის ჩანართი: ჩართეთ ჩანართების რედაქტირება და ოფისი ოფისში, ისევე როგორც Chrome, Firefox, IE 8 / 9 / 10.
კლასიკური მენიუ: დააბრუნეთ ძველი მენიუები და ხელსაწყოები ოფისიდან 2007, 2010, 2013, 2016 და 2019.

arrow ლურჯი სწორი bubbleავტომატურად გაფართოვდეს ყველა ფოლდერი, როდესაც აწყობს Outlook- ს VBA- ს

ეს მეთოდი გააცნობს VBA- ს ნავიგაციის პანელში ყველა საქაღალდეზე ავტომატურად გაფართოებას, როდესაც დაიწყებთ Outlook- ს. გთხოვთ მიმართოთ ამ VBA შემდეგნაირად:

1. დაჭერა Alt + F11 გასაღებები ერთდროულად გახსნას Microsoft Visual Basic for Applications window.

2. გაფართოება პროექტის 1 და Microsoft Outlook ობიექტები პროექტის სარკმელზე, ორმაგი დაჭერით გახსნას ესაა ფანჯარაში და შემდეგ ჩასვით 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 for Applications window.

ამიერიდან, Outlook- ის გადატვირთვისას, ყველა საქაღალდე ავტომატურად გაფართოვდება Outlook- ში.შენიშვნა: ეს VBA ვერ გახსნის ჩამონგრებული ძებნა ფოლდერები როდესაც გადატვირთვა Outlook.


arrow ლურჯი სწორი bubbleდაკავშირებული სტატიები



Kutools ამისთვის Outlook

მეტი 100 გაფართოებული ფუნქციები Outlook, 2010, 2013, 2016 და 2019

ეკრანის კადრი kutools ამისთვის Outlook პატარა ამისთვის banner 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. :)