Outlookの予定表のイベント（予定）を定期的にtxt保存したい

質問

Outlookの予定表のイベント（予定）を定期的にtxt保存したい

WinXP-Proで、
Microsoft Office Outlook 2007の予定表機能を使用しています。
営業日１日ごとに１つ、同じ件名のイベント（全日の予定）を作成しており、
毎日txt保存し、Excelに読み込み、全日分の日報集として保存しています。

Excelへの読み込みは適当なマクロを用意したので楽なのですが、
Outlookのイベント保存のたびに、
(1)イベントをダブルクリックで開く
(2)Officeボタンをクリック
(3)名前を付けて保存をクリック
(4)保存場所を選択
　（毎回、マイコンピュータ→D:\→folder(1)→folder(1-1)、の遷移）
(5)ファイルの種類をtxtに直す
(6)保存
(7)イベントを閉じる
という７工程が必要で、煩雑に感じています。

工程をショートカットする方法は無いものでしょうか？

右クリックメニューから一発でtext保存…とまで行かなくとも、
保存形式をあらかじめtxtに指定しておく方法　とか、
保存場所を都度その場所に指定しておく方法　とか、
工程を削減できる方法があれば教えて頂けないでしょうか。

環境や要件等、追記するべき項目があればご指摘ください。
宜しくお願いします。

回答No.1

10CubeLeaf · ベストアンサー

Outlook のマクロを使えば予定表の予定を直接 Excel に書き出すこともできます。
ただ、要件が良くわからないので、どのようなマクロにすべきかという実例を出すのが難しいですが。

とりあえず、今開いている予定の件名と本文を "C:\temp\test.xls" というファイルに書き出すマクロのサンプルは以下の通りです。

Public Sub WriteToExcel()
Set objWorkBook = GetObject("C:\temp\test.xls")
Set objWorkSheet = objWorkBook.Sheets(1)
objWorkSheet.Cells(1, 1) = ActiveInspector.CurrentItem.Subject
objWorkSheet.Cells(1, 2) = ActiveInspector.CurrentItem.Body
objWorkBook.Application.Windows("test.xls").Visible = True
objWorkBook.Save
objWorkBook.Close
End Sub

細かい要件がわかればもう少し適切なサンプルにできると思います。

お礼

遅くなりましたが、ご回答ありがとうございました。
Outlookのマクロでやること自体、考えついていなかったので、
頂いたサンプルを参考に調整してみます。

補足

ご回答ありがとうございます。
Outlookのマクロを使うことを全く考えていませんでした。間抜けです。。。
頂いたサンプルを試してみて、
後ほど御礼をさせて頂きたいと思います。