Create and Send outlook appointment via NAV classic

pawanp
pawanp Member Posts: 90
edited 2013-01-02 in NAV Tips & Tricks
Here's an example on how to create and send outlook appointment in NAV classic

Automation variables
"Application" : 'Microsoft Outlook 12.0 Object Library'.Application
"Appointment Item" : 'Microsoft Outlook 12.0 Object Library'.AppointmentItem
"Namespace" : 'Microsoft Outlook 12.0 Object Library'.Namespace
CREATE(Application);

Namespace := Application.GetNamespace('MAPI');
Namespace.Logon;

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

"Namespace".Logoff;
Clear(Application);

Comments

  • will91
    will91 Member Posts: 2
    How can I check if the appointment already exist in the calendar before sending a new one?
  • pawanp
    pawanp Member Posts: 90
    will91 wrote:
    How can I check if the appointment already exist in the calendar before sending a new one?


    Application 'Microsoft Outlook 11.0 Object Library'.Application
    Appointment Item 'Microsoft Outlook 11.0 Object Library'.AppointmentItem
    Namespace 'Microsoft Outlook 11.0 Object Library'.NameSpace
    oCalendar 'Microsoft Outlook 11.0 Object Library'.MAPIFolder
    oItems 'Microsoft Outlook 11.0 Object Library'.Items

    CREATE(Application);

Namespace := Application.GetNamespace('MAPI');
Namespace.Logon;

oCalendar := Namespace.GetDefaultFolder(9);
oItems := oCalendar.Items;

"Appointment Item" := oItems.GetFirst;


MESSAGE("Appointment Item".Subject);
MESSAGE("Appointment Item".Organizer);
MESSAGE("Appointment Item".Subject);
MESSAGE("Appointment Item".Body);
MESSAGE("Appointment Item".Location);
MESSAGE(FORMAT("Appointment Item".Start));
  • tameemabdullah
    tameemabdullah Member Posts: 17
    i tried this and even though it creates the outlook meeting invite, the start time of the meeting invite cannot be set?

    "Appointment Item".StartUTC(TODAY) will only allow the setting of a DATE and not DATETIME

    Has anyone got any idea why we cannot set the time of the meeting using this Outlook automation variable?


Categories