20. September 2007 11:11
// Variablen:
// toDo / Record / To-do   
// toDoHandler / Codeunit / To-do Handler   
// taskItem / Automation / 'Microsoft Outlook 11.0 Object / Library'.TaskItem
IF NOT toDo.GET('test001') THEN
BEGIN
  toDo.INIT;
  toDo."No.":='test001';
  toDo.Type:=toDo.Type::" ";
  toDo."Interaction Template Code":='test001';
  toDo."Salesperson Code":=USERID;
  toDo.Date:=TODAY;
  toDo."Start Time":=TIME;
  toDo.Duration:=60;
  toDo.INSERT;
END;
toDo.RESET;
toDo.SETRANGE("No.",'test001');
IF toDo.FIND('-') THEN
BEGIN
  toDoHandler.ProcessTodo(toDo);
  toDoHandler.ProcessOutlookTask(taskItem);
  toDoHandler.CreateTaskItem(toDo,taskItem);
  toDoHandler.ShowOutlookItem(toDo);
  toDo.DELETE;
END;20. September 2007 11:22
20. September 2007 11:34
// Variable:
// taskItem / Automation / 'Microsoft Outlook 11.0 Object / Library'.TaskItem
taskItem.StartDate:=TODAY;
taskItem.Owner:=USERID;
taskItem.Save;