Code: Select all
Gui, Add, Text, x10 y15 w60 h20, StartDate:
Gui, Add, DateTime, x+10 y10 wp20 h20 vStartDate Section,
Gui, Add, Text, x10 y55 w70 h20 , StartTime:
Gui, Add, DateTime, x+10 y50 wp hp vStartTime 1, HH:mm:ss ;time
Gui, Add, Button, x10 y90 w60 h20 Default, &OK
Gui, Show, w200 h130, AHK-Scheduler
;Gui, Add, DateTime, vMyDateTime, LongDate
;Gui, Add, Button, default, OK
Gui, Show
return
ButtonOK:
;FormatTime, OutputVar,MyDateTime
Gui, Submit
Outlook := ComObjActive("Outlook.Application")
task := Outlook.Application.CreateItem(3)
tmp := task.ReminderTime
msgbox, %tmp%
;task.ReminderTime := StartDate+StartTime ;or something like that?
task.ReminderSet := true
task.Display(true)
GUI, Destroy
ListVars
return