perlquestion
DeliriumNZ
Hi Im new so please bare with me. I have been given a project at work to create a perl script that sorts out incoming mail to a particular mailbox and then extracts data from those emails and then uses that data to create appointments in the calendar. Now I have managed to create this successfully but the problem I have is the calendar is another persons calendar, where i can only get it going for doing it on my calendar. so how do i add an appointment to another persons calendar, is pretty much what I need. It is driving me nuts. I have looked all over the internet and cant find anything.
<br><br>
Here is a sample of the code I am using for my calendar:<br>
<code>
if(($start=index($subject, "Telecom Service Event", $start)) != -1) {
($SubjectRefuge, $Ref) = split(/Ref. /, $subject);
my $newoutlook = Win32::OLE->new('Outlook.Application') or die "Error!\n";
my $newappt = $newoutlook->CreateItem(olAppointmentItem);
$newappt->{Subject} = "Telecom Outage Ref: $Ref";
$newappt->{Start} = "$Date $NZStd";
$newappt->{Duration} = 1 ; #1 minute
$newappt->{Body} = "$body";
$newappt->{ReminderMinutesBeforeStart} = 1;
$newappt->{BusyStatus} = olFree;
$newappt->Save();
}
</code>