perl 访问操作 Lotus Notes

horsley

公司OA系统使用的是 Lotus  Notes ，内部往往多人使用一个邮箱，邮件管理混乱。计划用 perl 做一个管理工具，查阅了一些资料，做些笔记，整理如下，供大家参考。

参考文章：http://www-12.lotus.com/ldd/doc/ ... 7687cb?OpenDocument

下面通过实例来具体说明如何访问 Notes：

1. 
   
2. # 使用 Win32::OLE 访问 Lotus Notes
   
3. # 只能在 windwos 下使用，并且需要启动 Notes，正常登录
   
4. use Win32::OLE;
   
5. use Data::Dumper;
   
6. 
   
7. # 定义基本连接信息，需要同你的 Notes 场所里面定义一致。
   
8. my $server = 'yourserver';
   
9. my $database = 'yourmail';
   
10. # 定义需要读取的目录，这里访问收件箱
    
11. my $folder= '($Inbox)';
    
12. 
    
13. #创建 Notes Session
    
14. my $Notes = Win32::OLE->new('Notes.NotesSession')
    
15.     || warn "Cannot start Lotus Notes Session object: $!\n";
    
16. 
    
17. # 登录数据库，如果你已经使用 notes client 登录，这一步可以不需要
    
18. # 添加这一句，在没有登录时，可以弹出密码输入窗口
    
19. $Notes->Initialize('yourpassword');
    
20. 
    
21. # 以下演示一些常规获取信息的方法
    
22. printf "Lotus Notes 版本：%s\n",$Notes->{NotesVersion};
    
23. printf "当前用户 %s\n",$Notes->{UserName};
    
24. printf "操作系统 %s\n",$Notes->{Platform};
    
25. 
    
26. # 连接数据库
    
27. my $Database = $Notes->GetDatabase($server, $database);
    
28. 
    
29. # 查看当前有多少个视图，这里只输出目录
    
30. my $Views = $Database->{Views};
    
31. foreach my $view(@$Views) {
    
32.     printf "Folder --> %s \n" ,$view->{Name} if $view->IsFolder;
    
33. }
    
34. 
    
35. # 查看有多少个 form
    
36. my $Forms = $Database->{Forms};
    
37. foreach my $form(@$Forms) {
    
38.     printf "Form --> %s \n" ,$form->{Name};
    
39. }
    
40. 
    
41. # 获取所有文档
    
42. my $AllDocuments = $Database->AllDocuments;
    
43. my $Count = $AllDocuments->Count;
    
44. 
    
45. printf "数据库中有 $Count 个文档.\n";
    
46. 
    
47. for (my $Index = 1 ; $Index <= $Count  ; $Index++ ) {
    
48.     my $Document = $AllDocuments->GetNthDocument($Index);   
    
49.    
    
50.     printf "From: %s\n", $Document->GetFirstItem('From')->{Text}; # 发件人
    
51.     printf "Send To: %s\n", $Document->GetFirstItem('SendTo')->{Text};    # 收件人
    
52.     printf "CopyTo: %s\n", $Document->GetFirstItem('CopyTo')->{Text};  # 抄送
    
53.     printf "$Index. %s\n", $Document->GetFirstItem('Subject')->{Text}; # 邮件标题
    
54.    
    
55.     printf "NoteID: %s\n", $Document->{'NoteID'}; # 邮件 NoteID，在同一数据库中为唯一值
    
56.     printf "UniversalID: %s\n", $Document->{'UniversalID'}; # 邮件 UUID，在不同数据库间，也是唯一值
    
57.     printf "Size: %s KB\n", $Document->{'Size'}/1024;    # 邮件大小
    
58.     printf "正文内容： \n%s\n", $Document->GetFirstItem('Body')->{Text};  # 正文内容
    
59.    
    
60.     print Dumper($Document->{'Authors'});
    
61.     print Dumper($Document->{'ColumnValues'});
    
62.     print Dumper($Document->{'Created'});
    
63.     print Dumper($Document->{'IsDeleted'});
    
64.     print Dumper($Document->{'IsNewNote'}); # 是否为新邮件
    
65.     print Dumper($Document->{'ParentDocumentUNID'}); # 如果是回复邮件，这里获取其上级 UUID
    
66.     # Set notesDocumentCollection = notesDocument.Responses
    
67.     print Dumper($Document->{'Responses'});  
    
68.     print Dumper($Document->{'Verifier'});     
    
69.    
    
70.     print Dumper($Document->{'Signer'});     
    
71.     print Dumper($Document->GetItemValue('Topic'));
    
72.    
    
73.     foreach my $one ( @{$Document->{'Items'}} ) {
    
74.         printf "--->%s \n",$one->{Text} if $one->{Text};        
    
75.     }   
    
76.       
    
77.    
    
78.     my $Values = $Document->GetItemValue('Index_Entries');
    
79.     foreach my $Value (@$Values) {
    
80.         print " Index: $Value\n";
    
81.     }
    
82.     #last unless $Index < 50;
    
83. }
    
84. 
    
85. 
    
86. =pod
    
87. # 这里是抄袭别人的代码，还没有研究
    
88. # folder = 'Main View';
    
89. my $Response = $Database->GetView($folder);
    
90. my $Count = $Response->TopLevelEntryCount;
    
91. my $Index = $Count;
    
92. 
    
93. open (OUT, ">$file");
    
94. 
    
95. #loop through all emails
    
96. for (1..$Count)
    
97. {
    
98.     my $Document = $Response->GetNthDocument($Index--);
    
99.     #my $subject = $Document->GetFirstItem('Subject')->{Text};
    
100.     #print OUT "Subject: $subject NoteID: %s\n",$Document->{NoteID};
     
101. }
     
102. 
     
103. #`start excel.exe $file`;
     
104. 
     
105. 
     
106. =cut

复制代码

seufy88

回复 1# horsley


    请问LZ，可以在LINUX平台上实现访问notes数据库吗？谢谢

kk861123

谢谢分享，收了

horsley

回复 2# seufy88

Win32::OLE 不能在 linux 平台上运行哈。Lotus Notes 好像有 for linux 的 client，查查文档可能有办法。

facudy

请问如何下载邮件里的附件？

facudy

# 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;
}

这是我的程序,经过调试之后发现问题出在my $array_ref = $doc->{'$FILE'};这个地方,$doc->{'$FILE'}这个根本就没有返回值,请问有办法解决么？