Help for this page

Select Code to Download


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