ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
登録
x

or

Outlookの起動時に自動的にすべてのフォルダを展開する方法は?

一般的に言えば、ナビゲーションペインでフォルダを展開または折りたたんでからOutlookを閉じると、Outlookを再起動するとフォルダは拡大または折りたたまれたままになります。 しかし、今、Outlookを起動するときに自動的にすべてのフォルダを展開する方法はありますか? この記事では、タスクを完了するためのVBAについて説明します。

VBAを使用してOutlookを起動すると、すべてのフォルダが自動的に展開されます。

Kutools for Outlook: 100 +新しい高度なツール Outlook用。
Office Tab: Officeでのタブ付き編集とブラウズを有効にする、ちょうどChrome、Firefox、IE 8 / 9 / 10のように。
クラシックメニュー: 古いメニューとツールバーを元に戻す Office 2007、2010、2013、2016、および2019に送信します。

矢印青い右の泡VBAを使用してOutlookを起動すると、すべてのフォルダが自動的に展開されます。

このメソッドは、Outlookを起動するとナビゲーションペインのすべてのフォルダを自動的に展開するVBAを導入します。 このVBAを次のように適用してください:

1。 押す 他の + F11 キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2。 拡大する プロジェクト1 および Microsoft Outlookオブジェクト プロジェクトペインでダブルクリックして ThisOutlookSession ウィンドウを開き、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ウィンドウを閉じます。

今後、Outlookを再起動すると、すべてのフォルダがOutlookで自動的に展開されます。:このVBAは、Outlookを再起動するとき、折りたたまれた検索フォルダを開くことができません。


矢印青い右の泡関連記事



Kutools for Outlook

Outlook用100拡張機能2010、2013、2016、2019、および365

バナー201812のための小さい見通しのためのスクリーンショットkutools

その他の機能 | 無料ダウンロード | 何百もの関数に対して$ 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. :)