Create and Send outlook appointment via NAV classic

pawanppawanp Posts: 90Member
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

  • will91will91 Posts: 2Member
    How can I check if the appointment already exist in the calendar before sending a new one?
  • pawanppawanp Posts: 90Member
    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));
    
Sign In or Register to comment.