Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Outlook Calendar Reminder

Status
Not open for further replies.

timgerr

IS-IT--Management
Jan 22, 2004
364
US
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).
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?

 
timgerr,
Since you are working with the [tt]AppointmentItem[/tt] collection, have you tried:[ul][li]AppointmentItem.ReminderSet [tt](boolean)[/tt][/li][li]AppointmentItem.ReminderMinutesBeforeStart [tt](Long)[/tt][/li][/ul]
Hope this helps.
CMP

Instant programmer, just add coffee.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top