Outlookの受信トレイに入ってくるメールアドレスを整理したいのですが

質問

一応、振り分け機能は使っているのですが、メルマガも含め、数が多すぎて、管理できない状態になってきました。

　そこで、現在、どれだけの送信先（メアド数）が有るのかを、EXCEL等に整理したいのですが、何か便利な機能はありませんでしょうか？

　アドレス順に並べ替えて、1件1件チェックしていくと言うのは、非能率なので出来たら避けたいのですが、、、

後、OutlookExpressやFirefoxなら可能と言うなら、そちらでも結構です。（Exportするので）

回答No.1

noname#52504 · ベストアンサー

＞どれだけの送信先（メアド数）が有るのかを
チェックするだけでしたら、
例えば下記のようなコードで送信者のアドレスを全て書き出してから、
フィルタオプションで重複するものを除けばよろしいかと。

動作の概要
現在開いているフォルダにある全てのメールについて、
送信者のアドレスを新規エクセルブックに書き出す。

Sub Sample()

　On Error Resume Next

　Set myMFolder = Application.ActiveExplorer.CurrentFolder

　Set xlApp = CreateObject("Excel.Application")
　Set myBook = xlApp.Workbooks.Add
　Set myCell = myBook.Worksheets(1).Range("a1")
　xlApp.Visible = True

　For Each Item In myMFolder.Items
　　myCell.Value = Item.SenderEmailAddress
　　Set myCell = myCell.offset(1, 0)
　Next Item

End Sub
（Outlook2003で動作確認済）

いろいろと叩き甲斐がありそうなコードですが、とりあえずご参考までに。