Поиск в Lotus Notes inbox с помощью Perl

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, но думаю, у вас есть дополнительные проблемы.Нотация «расширенного синтаксиса» не поддерживается для установки или доступа к значениям NotesItem через интерфейс COM.То есть ваши ссылки на $ Document -> {SendTo}, $ Document -> {SendCc} и $ Document -> {Subject} неверны.Вы должны использовать $ Document-> ReplaceItemValue и предоставить имя и значение элемента в качестве аргументов.Кроме того, SendCC не является правильным именем элемента.это должно быть CopyTo.