outlook2003のマクロでmsgファイルを受信トレイに取り込む方法は

OUTLOOKメールの、msgファイル（”ファイル名を付けて保存”から、msg形式(Outlook メッセージ形式)で保存したファイル）があります。

このmsg形式のファイルを、ドラッグ＆ドロップで、受信トレイに持ってくれば取り込めます。
マクロで、同じ動作ができないでしょうか？

No.2 回答者： marbin 回答日時： 2009/02/05 15:09

#1です。

ちょっと外してるかも？？です。
失礼しました。

No.1 回答者： marbin 回答日時： 2009/02/05 15:05

未検証ですが、↓の応用でいけるかも？？

エクセルからメール送信
http://oshiete1.goo.ne.jp/qa4168739.html

この回答への補足

ええ、逆なんです。メッセージをファイルに保存するマクロはいろいろな場所で見ますが、保存したファイルを読み込むマクロを探していまして。

補足日時：2009/02/06 09:35

この回答へのお礼

教えていただいた回答の中身をいろいろ調べていたら解決しました。
CopyFileメソッドでした。サンプルはこんな感じ。
情報ありがとうございました。

Dim olApp As New Outlook.Application
Dim doc As Object

strPath = "C:\MyMail.msg"
Set doc = olApp.CopyFile(strPath, "Inbox")

お礼日時：2009/02/06 10:22