3.データを予定表に登録したい
データを時刻指定で予定表に登録したいので、
予定表のアイテムを探ってみます。
また、馬鹿の一つ覚えの
イミディエイトとウォッチ式で探ってみます。
新規に予定のアイテムを作成して
? typename(application.ActiveInspector.CurrentItem)
とすると、
AppointmentItem
の型がわかります。
STOPで止めて、ウォッチ式を仕込んだり、
データを適当に入れてたりして、
プロパティを探ります。
動画
いつもの試行錯誤で右往左往している動画です。Outlook VBA AppointmentItem を 探る 予定表にデータをセット - YouTube
www.youtube.com
サンプルプログラムのコード
下記にサンプルで使用したコードを載せました。
イロイロといじって探ってみてください。
Sub test0211_003() '新規に予定 を作る Dim oITEM As AppointmentItem '予定表 Set oITEM = Application.CreateItem(olAppointmentItem) '新規に予定のITEMを作成 oITEM.Display '画面に表示するときは.Display 'データをセットする oITEM.Subject = "件名Ken3aaaaa" '件名 oITEM.Body = "本文" & vbCrLf & "ZZZZZZZZ" & vbCrLf & "予定" oITEM.Start = DateAdd("d", 1, Now()) 'スタート テストで明日 oITEM.End = DateAdd("h", 27, Now()) '終了日 テストで27時間後 '↑他にもプロパティがたくさんあるけど・・ '予定を登録 oITEM.Close olSave 'olSaveで閉じるときに保存(セーブして終了) End Sub