エクセル2007 VBAでアウトルック2007の予定表を作るんですが、

質問

エクセル2007　VBAでアウトルック2007の予定表を作るんですが、
日付まではうまくいったのに開始時刻が指定できません。

エクセルでのファイルを保存した後にそのファイルを添付したアウトルック予定表を作成します。
予定日は3ヶ月後、開始時刻は8:30amにしたいのですが、どうにも開始時刻だけが指定できません。
なにかいい方法があるでしょうか？
こちらを参考に途中までは出来ています。
http://www.ken3.org/cgi-bin/group/vba_outlook.asp

ただし、予定表の開始時刻が0:00となっているので、ここを8時30分にしたいのです。
（終了時間はあまり気にしません）

そもそも出来ないのかな？

コードは下記です。

Sub 保存()

'保存コード省略　Flnm=フォルダとファイル名

'ここからアウトルックの操作

Dim oApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim strMOJI As String
Dim objITEM As Object

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

Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(9) '起動時フォルダーを指定
myFolder.Display

'アイテムの作成
Set objITEM = oApp.CreateItem(1) '予定表作成画面を指定
objITEM.Display '編集画面を表示

'予定表内容
objITEM.Subject = "見積り発行後のフォロー" '件名
objITEM.body = "見積り発行から3ヶ月経ちました" '本文
objITEM.Attachments.Add Flnm 'ファイルの添付
objITEM.Start = DateAdd("m", 3, Date) '予定日
'ここらへんがわからない　　　　　　　 '開始時間も入れたい
'objITEM.Save 　　　　　　　　　　　　　　　　'保存
'objITEM.Close 2 　　　　　　　　　　　　　　　　 '閉じる

End Sub

開始時刻以外はすべてうまく処理出来ています。

回答No.1

10CubeLeaf · ベストアンサー

Start は開始日時を設定するプロパティです。

もし、開始時刻を 8:30 にしたいなら、Start の設定を以下のようにします。

objITEM.Start = DateAdd("m", 3, Date) & " 8:30" '予定日時

ついでに終了時刻を 9:30 にするなら、以下の記述を追加します。

objITEM.End = DateAdd("m", 3, Date) & " 9:30" '予定日時

お礼

早速のご回答ありがとうございました。
あんなに悩んだのにあっという間に解決です！

ありがとうございました。