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;