★エクセルVBAでOutlookのメールをチェックしたいのですが…

質問

エクセルVBAでOutlookのフォルダを検索して、ある送信者(メルアド)の
メールを削除したいのですが、
送信者(メルアド)を取得するプロパティ(又はメソッド)と指定方法が分かりません。

受信時間や件名などの取得までは分かっています
どなたかご教授お願いします。

<コーディング>
With objItem
dteCreateDate = .CreationTime
strSubject = .Subject

strAddr = ??????????　　　←←←　不明箇所

strItemType = TypeName(objItem)
strBody = .Body
End With

回答No.1

hofuhofu · ベストアンサー

今環境が無いので試せないですが、SenderNameプロパティが使えませんか？
http://homepage3.nifty.com/aya_js/office2k/outlook1.htm

http://msdn.microsoft.com/library/en-us/vbaol10/html/olproSenderName.asp
http://msdn.microsoft.com/library/en-us/vbaol11/html/olproSenderName.asp

Outlook 2003ならSenderEmailAddressプロパティというのもあるそうです。

参考URL：

http://homepage3.nifty.com/aya_js/office2k/outlook1.htm

お礼

ありがとうございます。

「SenderNameプロパティ」やってみましたが、差出人しか取得できません。
(メルアドは取得できませんでした)

教えて頂いた1番目のurlサンプル(SaveAs)を試してみます。
初心者なので時間がかかるかも…(^_^;)

回答No.2

hofuhofu

Recipientsプロパティではどうでしょうか？
Recipientsコレクションが返ってくるということなので、以下のような感じでメールアドレスが取り出せるかと思います。

For Each Recipient In .Recipients
If Recipient.Address = "******" Then ....
Next

参考URL：

http://msdn.microsoft.com/library/en-us/vbaol10/html/olobjRecipient.asp

お礼

ご回答ありがとうございます(回答が遅れてスミマセン)

こんなコーディングでやってみましたが、自分のアドレス(受信者)が返ってきました
-----------------------------------
For Each Recipient In objItem.Recipients
MsgBox "差出人=" & strSender & ",Address=" & Recipient.Address
Next
-----------------------------------
ん～「エクセル奥深し!!!」(^_^;)

<Recipient オブジェクト>
…通常、メッセージ受信者である Outlook のユーザーまたはリソースを表します

<Address プロパティ>
…受信者の電子メール アドレスを設定します

私が取得したいのは「送信者」のメルアドなので…

又、何かあったらお願いします