Note: The other languages of the website are Google-translated. Back to English

Outlookで検索結果のフォルダにすばやく移動して開くにはどうすればよいですか?

Outlookでは、検索機能を使用して、特定のテキストに基づいて電子メールを検索できます。 ただし、すべてのOutlookアイテムを検索している場合、検索結果のフォルダーをすばやく見つけることはできません。 この場合、検索結果のフォルダにすばやく移動して開くのに役立ついくつかのトリックがあります。

VBAで検索結果のフォルダに移動して開きます

右クリックして検索結果のフォルダに移動して開きます


VBAで検索結果のフォルダに移動して開きます

Outlookには、VBAコードを除いて、このジョブを処理できる組み込み関数はありません。

VBAコードを使用する前に、検索結果にフォルダー名を表示する必要があります。

1。 クリック 詳細 > 列の追加.
docは検索結果1の開いているフォルダに移動します

2。 の中に 列を表示 ダイアログとで から利用可能な列を選択します ドロップダウンリスト、選択 すべてのメールフィールド、を選択します フォルダ内 使用可能な列 リスト。
docは検索結果2の開いているフォルダに移動します

3。 クリック 追加 たす フォルダ内 〜へ これらの列をこの順序で表示します リストをクリックし、 上に移動 移動するボタン フォルダ内に トップ。
docは検索結果3の開いているフォルダに移動します

4。 クリック OK ダイアログを閉じます。 これで、メールを検索しているときに、検索結果にフォルダ名が表示されます。
docは検索結果4の開いているフォルダに移動します

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 キーを押してコードを有効にし、ダイアログに移動するフォルダ名を入力します。
docは検索結果5の開いているフォルダに移動します

8。 クリック OK、フォルダの場所を通知するダイアログが表示されたら、をクリックします あり フォルダに直接移動するか、をクリックします いいえ キャンセルします。
docは検索結果6の開いているフォルダに移動します


右クリックして検索結果のフォルダに移動して開きます

あなたが持っている場合 Outlook用Kutools、があります 開いたフォルダ 選択した電子メールのフォルダにすばやく移動できるユーティリティが右クリックメニューに埋め込まれています。

Kutools for Outlook , 含まれています 100+ Microsoft Outlook 2016、2013、2010、およびOffice365の強力な機能とツール。

無料インストール Outlook用Kutoolsを実行し、次の手順を実行します。

検索後、フォルダを開きたい結果を右クリックして、 開いたフォルダ コンテキストメニューから選択します。
docは検索結果7の開いているフォルダに移動します


Kutools for Outlook-100の高度な機能をOutlookにもたらし、作​​業をはるかに簡単にします!

  • 自動CC / BCC メール送信時のルールによる。 自動転送 カスタムによる複数の電子メール。 自動返信 Exchangeサーバーなし、およびより多くの自動機能...
  • BCC警告 -全員に返信しようとするとメッセージを表示する メールアドレスがBCCリストにある場合; 添付ファイルがない場合に通知する、その他の機能を思い出させる...
  • メール会話のすべての添付ファイルで(すべて)返信; 多くのメールに返信する すぐに; あいさつを自動追加 返信するとき; 件名に日付を追加...
  • 添付ファイルツール:すべてのメールのすべての添付ファイルを管理し、 自動デタッチ, すべて圧縮、すべての名前を変更、すべて保存...クイックレポート、 選択したメールを数える...
  • 強力な迷惑メール 習慣による; 重複するメールと連絡先を削除する... Outlookでよりスマートに、より速く、より良くすることができます。
ショットkutoolsの見通しkutoolsタブ1180x121
ショットkutoolsの見通しkutoolsプラスタブ1180x121
 
コメントを並べ替える
コメント (4)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
削除されたメールフォルダはどこにありますか?
このコメントは、サイトのモデレーターによって最小化されました
削除されたメールフォルダ
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Red McKenna、各アカウントには削除されたフォルダーがあります。これは削除済みアイテムと呼ばれます。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、みんな、
これはフォルダペインもスクロールしますか? ほとんどの場合、フォルダは選択されていますが、フォルダの場所がフォルダペインでスクロールされませんか?
乾杯、

ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護