I am trying to access the Redemption MAPIUtils NewMail event using
Win32::OLE - I have been successful in using Redemption to perform a number
of tasks, but I am stuck on this event
The only interface I can find to bind to (using OLEVIEW) is IMAPIUtils.
However, it generates no events. Anyone got any ideas (code below) - thanks
nigel
use Win32::OLE qw(EVENTS);
my $sItem = Win32::OLE->CreateObject("Redemption.MAPIUtils");
Win32::OLE->WithEvents($sItem, \&Event, 'IMAPIUtils' );
Win32::OLE->MessageLoop();
sub Event {
my ($Obj,$Event,@Args) = @_;
print "Event triggered: '$Event'\n";
}
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
