Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

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,
  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";

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (6)
As of 2015-11-28 19:18 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (743 votes), past polls