Outlook Automation

mjhiggins

Using this code below (used from other posts!), But i need to send the meeting request to other people, internal and external.

Any help appreciated.

StartTimeVar := (FORMAT(TODAY) + ' ' + FORMAT(TIME)); //'01/31/09 12:30 PM';
EndTimeVar := (FORMAT(TODAY) + ' ' + FORMAT(TIME)); //'01/31/09 12:30 PM';

CREATE(Autapp);
Autns := Autapp.GetNamespace('MAPI');
Autrec := Autns.CreateRecipient('mark'); //Name used in mailserver
Autrec.Resolve;
Autfolder := Autns.GetSharedDefaultFolder(Autrec,9);
autitem := Autapp.CreateItem(1);
autitem.Subject('TEST SUBJECT');
autitem.RequiredAttendees := 'someone@gmail.com';
autitem.Start := StartTimeVar;
autitem.Duration := 2;
autitem.Move(Autfolder);
autitem.Close(0);
CLEAR(Autapp);

mjhiggins

autitem.meetingstatus = 1; does the job

better to sleep on a problem!

\:D/