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.value