> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of Nigel Cannings
> Sent: Thursday, February 02, 2006 8:16 AM
> To: [email protected]
> Subject: Redemption
>
> 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
>
>
How exactly are you using it and what are you intending to do with it? I
use Redemption on a regular basis (and had it working with Outlook to
create a client-side SPAM filter--SpamAssassin where I did not control
the Exchange Server--just my Outlook message box).
You've got the basics down pat.. But this code is far from complete..
$sItem needs to be passed an outlook object to bind to which you don't
show below.. Some more info would help (or is this everything?).
> 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
>
>
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
