Help for this page
use Win32::OLE; use Win32::OLE::Variant; use strict; ... or die "Couldn't open project"; my $project = $app->{Projects}->Item(1);
my $current_date = Variant(VT_DATE, $project->{CurrentDate});
my @overdue; foreach my $i ( 1 .. $project->{Tasks}->Count() ) { ... push @overdue, $task if $finish < $current_date && $task->{PercentComplete} < 100; }
my %overdue; foreach my $task ( @overdue ) { ... push @{$overdue{$resource->{EMailAddress}}}, $task; } }
use Mail::Mailer; foreach my $email ( keys %overdue ) { ... print "\nPlease send a status update to your Manager.\n"; $mailer->close(); }
www.com | www.net | www.org
No recent polls found