Outlook VBScript: Sub CreateNewAppointment()

[armsys]

Is the following code valid under MS VBScript environment?

Sub CreateNewAppointment()
Dim olApp As Outlook.Application
Dim olNewMeeting As Outlook.AppointmentItem
Set olApplication = GetObject("","Outlook.Application")
Set olns = olApplication.GetNamespace("MAPI")
Set olApp = New Outlook.Application
Set olNewMeeting = olApp.Creation(olAppointmentItem)
With olNewMeeting
.Recipients.Add "Marcus"
.Start = XXXXXXXXXXXXXXXXX
.Duration = 10
.Importance = olImportanceHigh
.Subject = "Macro Scheduler"
.Save
End With
End Sub

BTW, how could I assign the current date and time to olNewMeeting.Start?
Thanks in advance.

[Marcus Tettmar]

Yes, I believe that should work - did you get this from scripts 'n tips? There's something similar there. You can supply a date/time to .Start. See the following page for details of the format required:
http://www.microsoft.com/technet/script ... s0405.mspx