Let me start off by saying that I program in perl and ruby. I am trying to gather information by parsing a local outlook calendar with perl and gathering all the information. I know that this is a VBA group but all programming is more or less the same. I need to find the object that holds the reminder information, can anyone tell me this??
Thanks,
Timgerr
Here is the perl script that I have (for reference).
-How important does a person have to be before they are considered assassinated instead of just murdered?
Thanks,
Timgerr
Here is the perl script that I have (for reference).
Code:
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
# Going to open a file to write too
# file location
$output = "d:\\outlook_output\\output.txt";
open(FD, "> $output") or die("Cant open $output\n");
my $outlook = Win32::OLE->new('Outlook.Application') or die
"Error!\n";
my $namespace = $outlook->GetNamespace("MAPI");
my $folder = $namespace->GetDefaultFolder(olFolderCalendar);
my $items = $folder->Items;
# print length($folder) . "\n";
for my $itemIndex (1..$items->Count)
{
my $message = $items->item($itemIndex);
next if not defined $message;
$start_date = $message->{Start}->Date;
$start_time = $message->{Start}->Time;
$end_date = $message->{End}->Time;
$end_time = $message->{End}->Time;
$duration = $message->{Duration};
$subject = $message->{Subject};
$categories = $message->{Categories};
$body = $message->{Body};
print "*****************************************\n";
print "Start Date " . $start_date . "\n";
print "Start Time " . $start_time . "\n";
print "End Date " . $end_date . "\n";
print "End Time " . $end_time . "\n";
$duration_1 = ($duration / 60);
print "Duration " . $duration_1 . " hrs\n";
print "\n";
print "\n";
print "Subject " . $subject . "\n";
print "Categories " . $categories . "\n";
print "Body " . $body . "\n";
}
-How important does a person have to be before they are considered assassinated instead of just murdered?