表示しているメールの差出人のメールアドレスで検索を実行するマクロ


コメントにて以下のご要望をいただきました。


受信したメールを選択し、クイックアクセスツールバーに設置したボタンをクリックし
  すべてのoutlookアイテムから、送信者のメールアドレスで検索表示するマクロを作りたいです。
ご教授お願いします。

OS:Winndows10 Office365


すべての Outlook アイテムの検索を行うには、Explorer オブジェクトの Search メソッドの 2 番目のパラメータで olSearchScopeAllOutlookItems を指定します。
以下のようなマクロを定義し、クイック アクセス ツールバーでこのマクロを呼び出すように設定すれば、ご要望の動作が可能です。

' ここをトリプルクリックでマクロ全体を選択できます。

Public Sub FindBySender()
     Dim objItem As MailItem
     '
     If TypeName(ActiveWindow) = "Inspector" Then
         Set objItem = ActiveInspector.CurrentItem
     Else
         Set objItem = ActiveExplorer.Selection(1)
     End If
     '
     ActiveExplorer.Search """" & objItem.SenderEmailAddress & """", olSearchScopeAllOutlookItems
End Sub

マクロの登録方法やメニューへの追加について

広告

コメントを残す

以下に詳細を記入するか、アイコンをクリックしてログインしてください。

WordPress.com ロゴ

WordPress.com アカウントを使ってコメントしています。 ログアウト /  変更 )

Google フォト

Google アカウントを使ってコメントしています。 ログアウト /  変更 )

Twitter 画像

Twitter アカウントを使ってコメントしています。 ログアウト /  変更 )

Facebook の写真

Facebook アカウントを使ってコメントしています。 ログアウト /  変更 )

%s と連携中