Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

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 daffodils sway...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (1)
As of 2017-06-27 09:54 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (601 votes). Check out past polls.