Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Microsoft Project and Perl

by dws (Chancellor)
on Sep 05, 2001 at 10:46 UTC ( #110228=perltutorial: print w/ replies, xml ) Need Help??

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();
      }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perltutorial [id://110228]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (11)
As of 2014-12-18 07:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (44 votes), past polls