Outlookの指定日時以降に配信をマクロで

質問

エクセルで、テンプレートファイル名と任意の送信時間決めます。

ファイル名　　送信時間
AAAAA　　　　　10:00
BBBBB　　　　　11:00
CCCCC　　　　　12:00

以上のように設定して、\Application Data\Microsoft\Templates"にある、ユーザーテンプレートを送信ボタンを押すところまでをマクロで一括処理できないかということです。

エクセルとOutlookを連携させるようなマクロで可能でしたらどなたかご教授願います。

環境は
Windows XP
Outlook2007
Excel2007

よろしくお願い致します。

回答No.1

10CubeLeaf

下記のようなマクロでどうでしょうか。マクロ自体は Excel でも Outlook でもできるのですが、Excel で作ると送信の際に警告が出てしまうので、Outlook に登録してください。

Public Sub SendTemplateByExcel()
Const EXCEL_FILE = "c:\temp\list.xlsx"
Const TEMP_FOLDER = "c:\temp\"
Dim wkBook As Workbook
Dim wkSheet As Worksheet
Dim i As Integer
Dim objItem 'As MailItem

Set wkBook = GetObject(EXCEL_FILE)
Set wkSheet = wkBook.Sheets(1)
i = 2
While wkSheet.Cells(i, 1) <> ""
Set objItem = Application.CreateItemFromTemplate(TEMP_FOLDER & wkSheet.Cells(i, 1) & ".oft")
objItem.DeferredDeliveryTime = FormatDateTime(Now, vbShortDate) & " " & wkSheet.Cells(i, 2).Text
objItem.Send
i = i + 1
Wend

End Sub

補足

ありがとうございます。
早速試してみます。