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(); }