- 論壇徽章:
- 0
|
# This program extracts email messages from a
# Lotus Notes account.
#
# Email messages will be saved in directories
# named for the mail folder they're stored in.
# All of these directories will be stored
# under a new top-level directory named
# "C:\temp\mail" by default, but this can be
# overridden with the -d flag.
#
# For each email message, a subdirectory will
# be created, containing the text and attachments
# for that message. These subdirectories are
# currently named by sequential numbers instead of
# by their subject titles. That's on my TODO list
# to fix; it shouldn't be too hard.
#
# Some folders in the Notes mail database are not
# really mail folders, so I try to skip them.
# Currently I skip all folders whose names are in
# parentheses (except for Inbox), and the folders
# in the array @badlist. You can customize @badlist
# as necessary.
#
# By default, Lotus Notes will open the email
# database for the PC's default user. To access
# the email for a different user: open Notes
# and switch to another userid first; then run
# this program while Notes is still open.
use strict;
use English;
use warnings;
use vars qw($opt_d $opt_v);
use Getopt::Std;
use Win32::OLE;
use Win32::OLE::Variant;
use vars qw($key $value);
require Data: umper;
use email::mailNotice;
use utils::dateUtil;
# Command-line options:
# -d dirname Save everything under the directory "dirname"
# -v Verbose reporting of progress
getopt("d" ;
my $startTime = time();
# Define a directory to store the results:C:/temp/AMT production logs archive/Downloading
my $dir = $opt_d || 'C:/temp/AMT production logs archive/Downloaded';
if (!(-e $dir))
{
mkdir($dir) or die "Can't make $dir: $!";
}
# Define a list of "Normal" folders to skip
my @badlist = ('Drafts', 'Sent', 'Follow Up', 'Junk Mail', 'Trash');
# Auto-print carriage returns
$OUTPUT_RECORD_SEPARATOR = "\n";
# Open the email database in Lotus Notes
# (To use another person's email database, switch to
# their userid in Notes before running this program)
my $notes = Win32::OLE->new('Notes.NotesSession')
or die "Can't open Lotus Notes";
my ($Version) = ($notes->{NotesVersion} =~ /\s*(.*\S)\s*$/);
my $database = $notes->GetDatabase("D03NM128/03/M/IBM", "d03nm128\\mail1\\igfsup.nsf" or die "Could not open database.\n";
#my $database = $notes->GetDatabase("D23M0013/23/M/IBM", "d23m0013\\mail6\\yuyb.nsf" or die "Could not open database.\n";
$database->OpenMail;
my $AllDocuments = $database->AllDocuments;
my $Count = $AllDocuments->Count;
print "The current user is $notes->{UserName}.\n";
print "Running Notes \"$Version\" on \"$notes->{Platform}\".\n";
print "There are $Count documents in the database.\n";
# Verify the server connection
print "Connected to ", $database->{Title},
" on ", $database->{Server},"\n" ;
# Loop over all of the folders
foreach my $viewname (GetViews($database)) {
# Get the object for this View
print "Checking folder $viewname...";
my $view = $database->GetView($viewname);
# The view is: Win32::OLE=HASH(0x1831ec4)
# Create a subdirectory to store the messages in
$viewname =~ tr/()$//d;
$viewname =~ s(\\)(.)g;
my $path = "$dir";
# mkdir ($path, 0755) or die "Can't make directory $path: $!";
chdir ($path);
# Get the last document in the folder
my $num = 1;
#my $doc = $view->GetFirstDocument;
my $doc = $view->GetLastDocument;
next unless $doc;
GetInfo($num, $path, $doc);
# Get the remaining documents in the folder
# while ($doc = $view->GetNextDocument($doc)) {
while ($doc = $view->GetPrevDocument($doc)) {
$num++;
GetInfo($num, $path, $doc);
}
}
print "Finished getting notes emails!";
#email::mailNotice->sendMail1();
print "Sent email notice!";
# print "Moving downloaded logs to backup folder...";
my $endTime = time();
print " rogram has been running for:",$endTime-$startTime," seconds";
sub GetInfo {
my ($num, $path, $doc) = @_;
print "rocessing message $num" if $opt_v;
#Create a new subdirectory based on the message number
#print STDERR "The env hash is ", Data:umper:umper(%ENV), "\n";
#print STDERR "The doc hash is ", Data:umper:umper($doc), "\n";
#The doc hash is $VAR1 = bless( {}, 'Win32::OLE' );
my $createdDate = $doc->Created;
my $dateFormat = utils::dateUtil->dateFormat($createdDate);
my $parentDir=substr $dateFormat,0,10;
my $subDir = substr( $dateFormat, 10, length($dateFormat)-10 );
# if dateFormat same, put them into same dir, else new dateFormat dir
if (-e $parentDir)
{
print $parentDir," is already exist, creating new dir under dateFormat.";
$parentDir.="\/".$subDir;
#$parentDir.="\/".$subDir.$emailFrom;
mkdir($parentDir) or die "Can't make $parentDir : $!";
}
else
{
mkdir($parentDir) or die "Can't make $parentDir : $!";
#chdir($parentDir);
$parentDir.="\/".$subDir;
#$parentDir.="\/".$subDir.$emailFrom;
print "File doesn't exist subdir is: ",$parentDir;
mkdir($parentDir) or die "Can't make $parentDir : $!";
}
# Write the contents of the message to a file
open (TEXTFILE, ">$parentDir/messages.txt"
or die "Can't create $parentDir message file: $!";
print TEXTFILE "Form: ", $doc->{Form}->[0];
print TEXTFILE "INetFrom: ", $doc->{INetFrom}->[0];
print TEXTFILE "From: ", $doc->{From}->[0];
print TEXTFILE "To: ", $doc->{SendTo}->[0];
print TEXTFILE "DateTime: ", $doc->Created;
print TEXTFILE "Subject: ", $doc->{Subject}->[0];
print TEXTFILE $doc->{Body};
close TEXTFILE;
# Save attachments as files, if any
my $array_ref = $doc->{'$FILE'};
print "array_ref: ",$array_ref->[0];
foreach my $attachment (@$array_ref) {
if ($attachment) {
ExtractAttachment($doc, "$path/$parentDir", $attachment);
}
}
}
sub ExtractAttachment {
print "Enter ExtractAttachment";
my ($doc, $path, $filename) = @_;
print "Extracting attachment $filename" if $opt_v;
# Get a Windows-friendly pathname for the file
$path = "$path/$filename";
$path =~ tr/\//\\/; # replace '/' with '\\'
# Save the attachment to a file
print "Saving attachment..";
my $attachment = $doc->GetAttachment($filename);
$attachment->ExtractFile($path);
}
sub GetViews {
my ($database) = @_;
my @views = ();
# Loop through all of the views in this database
my $array_ref = $database->{Views};
foreach my $view (@$array_ref) {
my $name = $view->{Name};
# We only want folders if it's the Inbox
# or a normal folder name with no parentheses
# if (($name eq '($Inbox)') or ($name !~ /\(.+\)/)) {
if (($name eq '($Inbox)')) {
# Add the folder name to the @views list
# if it's not in the @badlist
push(@views, $name) unless (grep { $name eq $_ } @badlist);
last;# break out of the foreach loop
}
}
print "Get Inbox view only: ",$views[0],"\n";
return @views;
}
這是我的程序,經(jīng)過調(diào)試之后發(fā)現(xiàn)問題出在my $array_ref = $doc->{'$FILE'};這個地方,$doc->{'$FILE'}這個根本就沒有返回值,請問有辦法解決么？ |
|
免費注冊
發(fā)表于 2011-08-12 19:36
