msgファイルを扱いたい

環境はwindows2000 office一式2000 です。

Outlookで受信したメールがmsgファイル形式で、
特定のフォルダ（outlookのフォルダではなく、windows上のフォルダ）に保存してあります。

それを、Excel2000のvba又は、ＶＢ6.0でオブジェクトとして取得したいです。
.net環境であれば、「OpenSharedItem」があるのでしょうが、
2000環境でmsgファイルをmailitemのオブジェクトかそれに類するオブジェクトで取得する方法をご教授願います。

No.2 ベストアンサー 回答者： ShowMeHow 回答日時： 2010/01/06 09:56

Ｎｏ1さんのおっしゃっていることとは、

Dim OL As Outlook.Application
Dim Msg As Outlook.MailItem
Set OL = New Outlook.Application
Set Msg = OL.CreateItemFromTemplate("c:\msg.msg")
MsgBox Msg.Subject
Set OL = Nothing
Set Msg = Nothing
こんな感じ。
事前に、ファイルを別場所にコピーしておくほうが良いかも。

この回答へのお礼

わかりました。
ご丁寧に解説していただきありがとうございます。

お礼日時：2010/01/07 16:46

No.1 回答者： 10CubeLeaf 回答日時： 2010/01/05 12:44

件名や本文などの一部の情報は Outlook Object Model の CreateItemFromTemplate で .msg ファイルのパスを指定することで MailItem として取得することが可能と思われます。

ただ、このメソッドはあくまでも新規にアイテムを作成することが目的なので、一部のプロパティが新規作成に伴って削除されたり、変更されたりする可能性があります。

この回答へのお礼

質問にお答えいただきありがとうございました。
解決することができました。

お礼日時：2010/01/07 16:47