人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

下記VBAは、OutlookのメールをExcelに出力するものですが、
これに下記項目も追加したいのですが、どうすれば良いでしょうか?
・本文
・CCのメンバー(アドレスではなく名前で)

メールをAccessで管理したいので、インポート用にExcelへ
出力しています。


Sub Sample071128()
On Error Resume Next
Set myMFolder = Application.ActiveExplorer.CurrentFolder
Set xlApp = CreateObject("Excel.Application")
Set myBook = xlApp.Workbooks.Add
xlApp.Visible = True
With myBook.Worksheets(1)
i = 1
For Each myItem In myMFolder.Items

'A列:件名
.cells(i, 1) = myItem.Subject
'B列:受信日時
.cells(i, 2) = myItem.ReceivedTime

i = i + 1
Next myItem
End With
Set xlApp = Nothing
End Sub


●質問者: hananeko_0
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:access ADD application CC Excel
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● kn1967
●35ポイント
'C列:cc
.cells(i, 3) =myItem.cc
'D列:本文
.cells(i, 4) =myItem.Body

Body プロパティ

CC プロパティ

他にもプロパティがありますので下記、参考までに

MailItem オブジェクト


余計なお世話かもしれませんが、Accessもインストールされているパソコンならば

同じくVBAにてMDBファイルに直接書き込んだほうが楽ではありませんか?

◎質問者からの返答

他のプロパティも含め、ありがとうございます!

なるほど・・MDBファイルに直接書き込めるのですね。

たしかに楽そうです。

ちょっと頑張ってトライしてみます!


2 ● degucho
●35ポイント ベストアンサー

本文はBodyまたはHTMLbody

http://msdn.microsoft.com/ja-jp/library/cc382590.aspx

http://msdn.microsoft.com/ja-jp/library/cc327914.aspx

CCのメンバーはCCプロパティか

http://msdn.microsoft.com/ja-jp/library/cc349530.aspx

ReceipientオブジェクトのうちType;olCCのものを選択すればいけるかと

http://msdn.microsoft.com/ja-jp/library/cc349145.aspx

(例示のMailItem同様Item.Receipientsコレクションを回して判定)

◎質問者からの返答

ありがとうございます!

解決しました。

参考HPもありがとうございますっ

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ