[CC] Outlook Synch Handler EMail/Termin

Hi,

sorry dass wir immer noch auf 2009 rumreiten

Über die Codeunit 397 Mail, ist es ja möglich aus NAV heraus eine E-Mail zu erstellen, Übergabe der Parameter und das "Neue Email fenster" geht auf.
(Funktion NewMessage in der CU 397)

Nun würde ich gerne das gleiche mit einem Termin für den Kalender machen. Das das Fenster "Neuer Termin aufgeht" aber klappt irgendwie nicht.
Habe zwei Varianten probiert:

Code:


IF ISCLEAR(OApplication) THEN
  CREATE(OApplication,TRUE,TRUE);

IF (NOT OApplication.Logon(TRUE,'','',FALSE,FALSE)) THEN BEGIN
  OApplication.Logoff;
  EXIT
END;

IF ISCLEAR(OAppointment) THEN
  CREATE(OAppointment,TRUE,TRUE);

ErrorNo := 0;

MailGUIDValue := CREATEGUID;
OAppointment.SetUserProperty(GetMailGUIDFieldName,1,FORMAT(MailGUIDValue));


OAppointment.Subject := 'NAV Test Appointment';
OAppointment.Start := TODAY;
OAppointment.EndTime := TODAY;
OAppointment.AllDayEvent := TRUE;

OAppointment.Display := TRUE;
//OAppointment.Save;
OAppointment.Send;

ErrorNo := OAppointment.ErrorStatus;
OApplication.Logoff;
CLEAR(OApplication);


Und die hier beschriebene:
https://forum.mibuso.com/discussion/490 ... av-classic

Code:

CREATE(OutlookApplication);

NameSpace := OutlookApplication.GetNamespace('MAPI');
NameSpace.Logon;

AppointmentItem := OutlookApplication.CreateItem(1);
AppointmentItem.Start := TODAY;
AppointmentItem."End" := TODAY;

//"AppointmentItem".StartUTC(TODAY);
AppointmentItem.Subject := 'NAV Test Appointment';
AppointmentItem.Body := 'This is a test appointment send from NAV';
AppointmentItem.Duration :=  60;
AppointmentItem.ReminderMinutesBeforeStart := 1;
AppointmentItem.ReminderSet := TRUE;
AppointmentItem.RequiredAttendees := 'pka@paeffgen.com';
AppointmentItem.MeetingStatus := 1;
AppointmentItem.Save;
AppointmentItem.Send;

NameSpace.Logoff;
CLEAR(OutlookApplication);

Beide laufen ohne Fehler durch, aber passiert nichts.

Geht es dass man das Fenster neuer Termin öffnet? Wie?

Danke