outlook本文から項目を選択してexcelに落とす

質問

いつも、メールでデータをもらっているのですが
メールからエクセルに落とす作業が大変なんです。

ＶＢＡで、エクセルにデータを落とし込むことが出来るのでしょうか？
ちなみに、仕分けのルールでフォルダーわけもしております。

たとえば、Ａのフォルダーに来たメールの内容をピックアップする。
ピックアップする、本文の内容として、商品名、売値、利幅、在庫など
基本的に決められたカテゴリーになります。

エクセルで、少しＶＢＡを触ることが出来るくらいなので
サンプルソースなどあればすごく助かります。

バージョンはoutlook2007でexcel2007です。

回答No.2

10CubeLeaf

http://outlooklab.spaces.live.com/blog/cns!9D7EA61EC7DAA750!442.entry に決められたフォーマットの本文のデータを受信時に CSV ファイルに落とすサンプルがあります。
Excel の VBA ができるなら、CSV ファイルに保存するところを Excel に置き換えるだけなので簡単にできるでしょう。

お礼

回答ありがとうございます。
参考になりました。
早速いじってみます。

回答No.1

imogasi

エクセルVBAが少しできるぐらいで、他ソフトとの連携をするコードを考えるのは無理です。特にエクセル以外はＶＢＡに関する本や解説も少ない。
頼りはヘルプとＷＥＢ記事しかない。
ーー
そう言ってもＷＥＢで例えばＧｏｏｇｌｅで「outlook 本文 VBA」で照会すれば相当コード実例も出る。プログラムを考える人にはＷＥＢ照会は常識ではないかな。質問する前に、そんなことを知ってましたか。
照会して、それらを読んで、考え、テストして、それから疑問点を質問したら、答えてくれる人が出るかもしれない。
直ぐ人に聞くなんて安易です。
フォルダの掴み方
本文の掴み方
＞決められたカテゴリー（何のことだか読者には判りにくい）
本文の実例でも挙げて質問のこと。
ＯＵＴＬＯＯＫ本文で項目の切り出し方
エクセルからＯＵＴＬＯＯＫを開く開き方
セルにＯＵＴＬＯＯＫ本文からのセットの仕方
など、論点を整理するべきです。

お礼

失礼しました。
ネットで色々調べた上で、組み合わせなどを考えていたのですが
おしえてｇｏｏさんで質問すれば、知識豊富な方々が、色々参考になることを教えてくださると、思っておったのでやりたい事のみ書き込んでしまいました、確かに安易な考えで申し訳ございませんが、幾分はじめての投稿だったものですから以後気をつけます。

ちなみに本文を抽出するｖｂａは以下を使用しています。

Sub OL_TEST_LOOK_MAIL_0221()

Dim oApp As Object 'OutlookのApplication オブジェクト
Dim myNameSpace As Object '名前スペース
Dim myFolder As Object 'フォルダー指定

'outlook 起動をCreateObjectで
Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")

Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定
myFolder.Display '表示

Dim objMAILITEM As Object 'メールアイテム
Dim n As Integer 'カウンター

For n = 1 To myFolder.Items.Count 'フォルダーのアイテム数分ループ
'メールを１通取り出す、変数にセットする
Set objMAILITEM = myFolder.Items(n)

Cells(n + 10, "A") = objMAILITEM.CreationTime '作成日
Cells(n + 10, "B") = objMAILITEM.SenderName '差出人
Cells(n + 10, "C") = objMAILITEM.SenderEmailAddress '差出人
Cells(n + 10, "D") = objMAILITEM.Subject '件名
Cells(n + 10, "E") = objMAILITEM.Body '本文
Next n

End Sub
ただ、受信するメールの本文の規定カテゴリーを抽出するやり方がわからなかったのと、もっと良いプログラミングが有ればと思い投稿させていただきました。