Comment utiliser Perl pour ouvrir la boîte de réception via l'API Lotus Notes?

Question

Je suis en mesure d'ouvrir Lotus notes api en utilisant Perl, sans erreur, je peux aussi obtenir la liste des points de vue qui comprend la boîte de réception, mais lorsque je tente de lire les messages de ce point de vue, il apparaît vide? Que pourrais-je faire de mal? (En fait, il semble que quelque chose pourrait de changé sur le côté des notes que ce code utilisé pour travailler avant)

Résultat code ci-dessous: NOM de vue est le suivant: ($ Inbox) a le nombre de: 0 etc.

CODE:

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

Answer 1

Est-ce la boîte aux lettres ouverte à tous les utilisateurs? Vous pouvez essayer de définir l'accès -Default- à Manager et lui accorder tous les rôles disponibles, juste pour vous assurer que ce n'est pas un problème de sécurité empêchant la visualisation des documents.

Answer 2

Je crois qu'il est écrit "EntryCount"?

Aussi, je recommande "use strict" et "utiliser des avertissements".

Answer 3

par le commentaire de Runrig, EntryCount est un attribut, donc je crois que vous avez besoin: vue $ -> {} entryCount

Answer 4

Essayez de vérifier les messages Win32 :: OLE :: LastError(). Vous pouvez le faire explicitement avec un sous comme:

sub w32_ok { 
    if (my $error = Win32::OLE::LastError()) { 
     print "Win32::OLE Error! Got: $error"; 
    } 
} 

Ou, faites coassent erreurs, comme:

Win32::OLE->Option(Warn => 3); # will now croak on errors. 

Il peut avoir des problèmes accéder aux données que vous voulez.