Outlook - Ansteuerung

**GuenterS**

Hallo,

ich versuche aus Delphi (Version 5 Enterprise) Aufgaben in Outlook zu erstellen. Das klappt auch wunderbar, solange Outlook dabei gestartet ist. Ist dies aber nicht der Fall, krieg ich diese wunderbaren Fehlerberichte.

Vielleicht sieht ja jemand an dem verwendeten Code, wo das Problem zu finden ist.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure CreateOutlookTaskItem(aStart, aDueDate, aReminderTime: TDateTime;

   aSubject, aBody: string; aReminder: boolean);

var

   lNamespace, lOutlook, lFolder, lItem: OleVariant;

begin

  try

    loutlook := getactiveoleobject('outlook.application');

  except

    try

      loutlook := createoleObject('outlook.application');

    except

      exit;

    end;

  end;

   try

     lNamespace := lOutlook.getnamespace('MAPI');

     lFolder := lNamespace.getdefaultfolder(13); 

     lItem := lOutlook.createitem(3);

     lItem.StartDate := aStart;

     lItem.Subject := aSubject;

     lItem.Body := aBody;

     if (aDueDate <> 0) then

        lItem.DueDate := aDueDate;

     lItem.Categories := 'test';

     if (aReminder) then

     begin

        lItem.ReminderTime := DateTimeToStr(aReminderTime);

       lItem.ReminderSet := true;

     end

     else

        lItem.ReminderSet := false;

     lItem.Save;

     lItem := unassigned;

   finally

     lOutlook := unassigned;

   end;

end;

Outlook - Ansteuerung

Outlook - Ansteuerung

Forumregeln