[Blue Prism] Outlookの予定表を入れよう [公開版]

Outlookの予定を入れられるんだよね？と聞かれ、余裕！と思ったが公開されているOutlook VBOはメールのみ。
ならば作ってみるか…と思ったらいきなり出来てしまった。
超簡単。
簡単すぎたので公開を躊躇ｗ
公開しますｗ

Outlook予定表追加オブジェクト

入力

出力

Dim app = CreateObject("Outlook.Application")
Dim myItem = app.CreateItem(1) 'olAppointmentItem

With myItem
     .Subject = Subject
     .Location = Location
     .Start = Start_time
     .End = End_time
     .Body = Body
     .ReminderSet = Reminder
     .RequiredAttendees = RequiredAttendees
     .OptionalAttendees = OptionalAttendees
     .Save
End With

EntryID = myItem.EntryID

開始時間と終了時間は日時型で受け取りますが実際設定するのはテキスト型なので変換を忘れずに