#!c:/perl/bin/perl.exe -w

use strict;


use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
# Connection to Outlook Calendar	
my $outlook = Win32::OLE->new('Outlook.Application') or die
"Error!\n";

my $newappt = $outlook->CreateItem(olAppointmentItem);

$newappt->{Subject} = "My Test Appointment";

$newappt->{Start} = "12/21/05 3:50:00 PM";
$newappt->{Duration} = 1 ;  #1 minute
$newappt->{Location} = "Someplace";
$newappt->{Body} = "Test Stuff";
$newappt->{ReminderMinutesBeforeStart} = 1;
$newappt->{BusyStatus} = olFree;
$newappt->Save();