こんにちは。 OutlookExpressでお望みの作業を実施する方法はおもいつきませんが、Outlookでなら方法はあります。 まず、Outlookに対象メールをエクスポートします。 (メニューの"ファイル"->"エクスポート"で出来ます) Outlookで以下のマクロを作成します。 Public Sub getSenderMailAddress() Dim personalFolder As MAPIFolder Dim appNameSpace As NameSpace Dim i As Integer Dim dic As Object Dim varItem As Variant 'ディクショナリの作成 Set dic = CreateObject("Scripting.Dictionary") Call dic.RemoveAll 'ルートフォルダの取得 Set appName