使用 Perl 搜索 Lotus Notes 收件箱

Question

我试图通过我的收件箱进行搜索以查找特定的电子邮件，但每次我尝试运行此脚本时，$search 都未初始化/未定义。语法有问题吗？

use Win32::OLE;
use Win32::OLE::TypeInfo;

#Create a new NotesSession, which is basically like a new Lotus Notes instance
my $Notes = Win32::OLE->new('Notes.NotesSession') or die "Could not open Lotus Notes";

#Prints the current user of Lotus Notes
print "The current user is $Notes->{UserName}.\n";

#Gets the stuff in the listed Database
my $Database = $Notes->GetDatabase('Server', 'mail.nsf');

# Open the mail
$Database->OpenMail;

# Create a new Document, ie email
my $Document = $Database->CreateDocument;

# Send the email to someone
$Document->{SendTo} = ;
# CC the email to someone 
$Document->{SendCc} = ;
# Subject of the email
$Document->{Subject} = 'Test';

my $date = $Notes->CreateDateTime("Today");
my $today = $date->DateOnly;

my $search = $Database->Search("@Tripwire",$today,5);
print $search->Count;

谢谢

Answer 1

“@Tripwire”应该是： 定义选择标准的 Notes @function 公式。这意味着它需要是与视图选择公式中类似的字符串。就像 Sendto="@TripWire"

Answer 2

或者您在数据库中启用全文搜索并使用 FtSearch 而不是搜索。

Answer 3

我不是 Perl 程序员，但相信您还有其他问题。通过 COM 接口设置或访问 NotesItem 值时不支持“扩展语法”表示法。即，您对 $Document->{SendTo}、$Document->{SendCc} 和 $Document->{Subject} 的引用不正确。您应该使用 $Document->ReplaceItemValue 并提供项目名称和值作为参数。此外，SendCC 不是正确的项目名称。它应该是复制到。