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

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

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

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

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

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

No.1 ベストアンサー 回答者： hofuhofu 回答日時： 2005/08/16 11:24

今環境が無いので試せないですが、SenderNameプロパティが使えませんか？

http://homepage3.nifty.com/aya_js/office2k/outlo …

http://msdn.microsoft.com/library/en-us/vbaol10/ …
http://msdn.microsoft.com/library/en-us/vbaol11/ …

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

参考URL：http://homepage3.nifty.com/aya_js/office2k/outlo …

この回答へのお礼

ありがとうございます。

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

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

お礼日時：2005/08/17 02:47

No.2 回答者： hofuhofu 回答日時： 2005/08/17 10:44

Recipientsプロパティではどうでしょうか？

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

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

参考URL：http://msdn.microsoft.com/library/en-us/vbaol10/ …

この回答へのお礼

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

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

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

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

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

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

お礼日時：2005/08/20 18:36