>oOutLookObject = CreateObject("Outlook.Application") > oNamespace = oOutLookObject.GetNameSpace("MAPI") > oTasks = oNamespace.GetDefualtFolder(13) > newtask = oTasks.Items.Add() > > newtask.Subject = thisform.custno > newtask.DueDate = dtoc(thisform.date.value) + thisform.time.value > newtask.ReminderTime = dtoc(thisform.date.value) + thisform.time.valueRather than addding directly to the collection, the best way to add items in Outlook is to use the CreateItem method, fill in the item and then save it:
oTask = oOutlookObject.CreateItem(3) WITH oTask .Subject = thisform.custno .DueDate = dtoc(thisform.date.value) + thisform.time.value .ReminderTime = dtoc(thisform.date.value) + thisform.time.value .Save() nItemID = .EntryID ENDWITHTamar