in reply to Win32 - M$ Outlook and Perl.
This is a bit ugly but should get you started.
#!/cygdrive/c/Perl/bin/perl.exe use strict; use warnings; use Win32::OLE; use Win32::OLE::Const 'Microsoft Outlook'; $|++; #what properties do we want to get from Outlook? my @properties = ( "SenderName", "To", "Subject", "Body" ); #get an Outlook object my $outlook; $outlook = Win32::OLE->new('Outlook.Application'); die unless $outlook; #get the Inbox folder my $namespace = $outlook->GetNamespace("MAPI"); my $folder = $namespace->GetDefaultFolder(olFolderInbox); my $items = $folder->Items; print STDERR "Folder: ", $folder->Name,"\n"; print STDERR "Total entries: ",$items->Count,"\n"; #print out the header print join(",",@properties),"\n"; #loop through the items, printing out each one for my $itemIndex (1..$items->Count) { my $message = $items->item($itemIndex); next if not defined $message; my $attach = $message->Attachments(); my @entry; #todo: the following line causes warnings on "Read:" read receipt +messages push @entry, defined($message->{$_}) ? $message->{$_} : 'undef' fo +reach (@properties); if (defined $attach) { #if there's attachments, print out the message info and save t +he attachments print join(",",@entry),"\n"; print "Attachment count == ",$attach->Count,"\n"; for my $attach_index (1..$attach->Count) { my $attachment = $attach->item($attach_index); my $filename = $attachment->Filename; print "Attachment == ",$filename,"\n"; my $saveas = 'c:\temp\foo'; print "saving attachment '$filename' to '$saveas'...\n"; $attachment->SaveAsFile($saveas); warn "error saving attachment $filename to $saveas" if !-e + $saveas; } } }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: (RhetTbull) Re: Win32 - M$ Outlook and Perl.
by Mr. Muskrat (Canon) on May 06, 2002 at 22:07 UTC | |
by RhetTbull (Curate) on May 06, 2002 at 22:13 UTC | |
Re^2: Win32 - M$ Outlook and Perl.
by Anonymous Monk on May 24, 2011 at 03:38 UTC | |
Re^2: Win32 - M$ Outlook and Perl.
by ttdri1 (Initiate) on May 11, 2005 at 06:16 UTC | |
by RhetTbull (Curate) on May 13, 2005 at 03:50 UTC | |
by pankaj_it09 (Scribe) on May 04, 2011 at 13:03 UTC | |
by roboticus (Chancellor) on May 04, 2011 at 15:37 UTC | |
by pankaj_it09 (Scribe) on May 05, 2011 at 06:59 UTC |
In Section
Seekers of Perl Wisdom