I suppose I should add the script that I used to create the item in the first
place.
Sub test()
Set obj = CreateObject("outlook.application")
Set app = obj.CreateItem(1) ' means outlook appointment item
app.Duration = getfield("Duration","value")
app.Location = Eworkgetfield("Location","value")
app.MeetingStatus = 1
app.Body = Eworkgetfield("Comments","value")
a = eworkGetField("DueDate","Value")
'a=(getfield ("DateTime",""))
b=mid(a,1,4)+ "/"+mid(a,6,2)+"/"+mid(a,9,2)+ " "+ mid(a,12,2)+":" +
mid(a,15,2)
app.Start = cdate(b)
'msgbox app.Start
'app.Recipients.Add(cstr(getfield("recipients","value")))
app.RequiredAttendees =cstr(getfield("OutlookList","value"))
app.Subject = Eworkgetfield("mDescription","value")
app.send
app.save
Set app = Nothing
Set obj = Nothing
End Sub