mibuso.com

Microsoft Business Solutions online community
It is currently Fri May 24, 2013 7:28 am

All times are UTC + 1 hour [ DST ]




Post new topic Reply to topic  [ 3 posts ] 
Author Message
 Post subject: Create and Send outlook appointment via NAV classic
PostPosted: Mon Sep 05, 2011 12:35 pm 
Offline

Joined: Thu Aug 12, 2010 1:45 pm
Posts: 77
Location: Mumbai
Country: India (in)
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

Code: Select all
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);


Top
 Profile E-mail  
 
 Post subject: Re: Create and Send outlook appointment via NAV classic
PostPosted: Wed Dec 05, 2012 9:08 pm 
Offline

Joined: Wed Dec 05, 2012 3:32 pm
Posts: 2
Country: Canada (ca)
How can I check if the appointment already exist in the calendar before sending a new one?


Top
 Profile E-mail  
 
 Post subject: Re: Create and Send outlook appointment via NAV classic
PostPosted: Wed Jan 02, 2013 8:48 am 
Offline

Joined: Thu Aug 12, 2010 1:45 pm
Posts: 77
Location: Mumbai
Country: India (in)
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


Code: Select all
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));


Top
 Profile E-mail  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 3 posts ] 

All times are UTC + 1 hour [ DST ]


Who is online

Users browsing this forum: No registered users and 0 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum


Search for:
Jump to: