msgファイルを扱いたい

質問

環境はwindows2000 office一式2000 です。

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

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

回答No.2

ShowMeHow · ベストアンサー

Ｎｏ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
こんな感じ。
事前に、ファイルを別場所にコピーしておくほうが良いかも。

お礼

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

回答No.1

10CubeLeaf

件名や本文などの一部の情報は Outlook Object Model の CreateItemFromTemplate で .msg ファイルのパスを指定することで MailItem として取得することが可能と思われます。
ただ、このメソッドはあくまでも新規にアイテムを作成することが目的なので、一部のプロパティが新規作成に伴って削除されたり、変更されたりする可能性があります。

お礼

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