Adding appointment to outlook
#!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();
I wonder if people would be interested in a tutorial on translating vb/vbscript to perl and Win32::OLE. Then we can just point them to such a tutorial and the zillion vbscript/vb samples on the Internet. hmmm...