Select Code to Download

use strict;
use Win32::OLE;
...
   }
}

       my $cal = new Win32::OLE('Outlook.Application');
       $cal->{'Visible'} = 1;
...
       $item->{'Start'} = "04/30/2002 12:00";
       $item->{'End'} = "04/30/2002 12:30";
       my $selectfolder = $namespace->Folders($Folder)->Folders($subfo
+lder)->Items()->Add($item) or " **** can't add item";

#my $mail = new Win32::OLE('Outlook.Application');
#$mail->{'Visible'} = 1;
#my $item = $mail->CreateItem(0);
...
#$item->{'Body'} = "Here is the meat of the message";
#$item->Send();
#$mail->Quit();