如何使用Perl通过Lotus Notes API打开收件箱?

前端之家收集整理的这篇文章主要介绍了如何使用Perl通过Lotus Notes API打开收件箱?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我可以使用Perl打开Lotus notes api,没有错误,我也可以获得包含InBox的视图列表,但是当我尝试从该视图中读取消息时它看起来是空的?我可能做错了什么? (事实上​​,这些代码之前的工作似乎可能会在注释方面发生变化)

代码结果如下:
View的名称是:($InBox)的计数为:0
等等

码:

use Win32::OLE;
my $Notes = Win32::OLE->new('Notes.NotesSession')
or die "Cannot start Lotus Notes Session object.\n";
my $database = $Notes->GetDatabase("",'mail\VIMM.nsf');
$database->OpenMail;
my $array_ref = $database->{Views};
foreach my $view (@$array_ref) {
    my $name = $view->{Name};
    print "NAME of View is: $name ";
    $view = $database->GetView($name);
    print "has count of: ",$view->{entryCount},"\n";
}

解决方法

邮箱是否对所有用户开放?您可以尝试设置-Default-访问管理器并为其授予所有可用角色,以确保不会出现安全问题,从而无法查看文档.

猜你在找的Perl相关文章