Outlookで検索結果のフォルダにすばやく移動して開くにはどうすればよいですか?
Outlookでは、検索機能を使用して、特定のテキストに基づいて電子メールを検索できます。 ただし、すべてのOutlookアイテムを検索している場合、検索結果のフォルダーをすばやく見つけることはできません。 この場合、検索結果のフォルダにすばやく移動して開くのに役立ついくつかのトリックがあります。
VBAで検索結果のフォルダに移動して開きます
Outlookには、VBAコードを除いて、このジョブを処理できる組み込み関数はありません。
VBAコードを使用する前に、検索結果にフォルダー名を表示する必要があります。
1。 クリック 詳しく見る > 列の追加.
2。 の中に 列を表示 ダイアログとで から利用可能な列を選択します ドロップダウンリスト、選択 すべてのメールフィールド、を選択します フォルダ内 セクションに 使用可能な列 リスト。
3。 クリック Add たす フォルダ内 〜へ これらの列をこの順序で表示します リストをクリックし、 上に移動 移動するボタン フォルダ内に トップ。
4。 クリック OK ダイアログを閉じます。 これで、メールを検索しているときに、検索結果にフォルダ名が表示されます。
5.次にを押します Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール 新しいモジュールを作成します。
6.以下のコードをコピーしてモジュールに貼り付けます。
VBA:名前でフォルダーに移動します
Sub FindFolderByName()
'UpdatebyExtendoffice20181105
Dim xFldName As String
Dim xFoundFolder As Folder
Dim xYesNo As Integer
On Error Resume Next
xFldName = InputBox("Folder Name:", "Kutools for Outlook")
If Len(Trim(xFldName)) = 0 Then Exit Sub
Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
If xFoundFolder Is Nothing Then
MsgBox "Not Found", vbInformation, "Kutools for Outlook"
Exit Sub
End If
xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
Dim xSubFolder As Outlook.MAPIFolder
On Error Resume Next
Set ProcessFolders = Nothing
For Each xSubFolder In Flds
If UCase(xSubFolder.Name) = UCase(Name) Then
Set ProcessFolders = xSubFolder
Exit For
Else
Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
If Not ProcessFolders Is Nothing Then Exit For
End If
Next
End Function
7。 押す F5 キーを押してコードを有効にし、ダイアログに移動するフォルダ名を入力します。
8。 クリック OK、フォルダの場所を通知するダイアログが表示されたら、をクリックします 有り フォルダに直接移動するか、をクリックします いいえ キャンセルします。
右クリックして検索結果のフォルダに移動して開きます
あなたが持っている場合 Kutools for Outlook、があります 開いたフォルダ 選択した電子メールのフォルダにすばやく移動できるユーティリティが右クリックメニューに埋め込まれています。
Kutools for Outlook , 含まれています 100+ Microsoft Outlook 2016、2013、2010、およびOffice365の強力な機能とツール。 |
||
無料インストール Outlook用Kutoolsを実行し、次の手順を実行します。
検索後、フォルダを開きたい結果を右クリックして、 開いたフォルダ コンテキストメニューから選択します。
最高のオフィス生産性向上ツール
Kutools for Outlook - Outlook を強化する 100 以上の強力な機能
🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...
📧 自動メール: 不在時 (POP および IMAP で利用可能) / メール送信のスケジュール設定 / メール送信時のルールによる自動CC/BCC / 自動転送 (高度なルール) / あいさつを自動追加 / 複数受信者の電子メールを個別のメッセージに自動的に分割する ...
📨 電子メール管理: メールを簡単に思い出す / 件名などで詐欺メールをブロック / 重複するメールを削除する / 高度な検索 / フォルダーを統合する ...
📁 アタッチメント プロ: バッチ保存 / バッチデタッチ / バッチ圧縮 / 自動保存 / 自動デタッチ / 自動圧縮 ...
🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字 / タブ付きビューで Outlook の生産性を向上 / Outlook を閉じる代わりに最小化する ...
???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する / フィッシングメール対策 / 🕘送信者のタイムゾーンを表示 ...
👩🏼🤝👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加 / 連絡先グループを個別のグループに分割する / 誕生日のリマインダーを削除する ...
オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。