Outlook/Exchange-Automation via OLE

[strat]

Hi Leute,

habe Probleme mit der Steuerung von Outlook.

1. Mit der ActivePerl Build 518 funktioniert nicht einmal folgendes Skript (funktioniert jedoch bei aelterem Build schon). Weisst Du zufaellig, wieso? Ich kapiere leider OLE mit Perl noch nicht wirklich :-(((

-----------------------------------------------------------------------------------------------------------------------

use Win32::OLE;
$session = Win32::OLE->new("MAPI.Session")
    or die "Could not create a new MAPI Session: $!";
my $err = $session->Logon('Outlook', $passwd); # Attempt to log on.
if ($err) {    die "Logon failed: $!";       }
$msg = $session->Outbox->Messages->Add(); # Add a new message to the Outbox.
$rcpt = $msg->Recipients->Add(); # Add the recipients.
$rcpt->{Name} = '[e-mail]';
$rcpt->Resolve();
$msg->{Subject} = "Test Message"; # Create a subject and a body.
$msg->{Text} = "test\ntest\n\n";
$msg->Update(); # Send the message and log off.
$msg->Send(0, 0, 0);
$session->Logoff();

-----------------------------------------------------------------------------------------------------------------------

2. fuer ein Exchange-Accounting-Skript wuerde ich gerne auf das Adressbuch von Outlook zugreifen. Unter Visual Basic kann ich bis jetzt die Namen der Personen auslesen, in Perl leider jedoch noch gar nichts. Ich brauche jedoch noch den login-Namen jedes Users. Weisst Du zufaellig, wie ich das machen kann, oder wenigstens eine URL, von wo ich die Informationen bekommen kann?

Liebe Gruesse,

Strat