From: [EMAIL PROTECTED]
> I am trying to set a WIN32 COM Object bool property true to enable a
> validation option.
> 
> I can do it in VB like so.
> 
> emailPtr.CorrectSyntax = True
> 
> How do I do it in PERL?
> 
> I have tried so many different things to no avail.
> 
> $emailObj->{MxLookup} = (TRUE);
> $emailObj->{MxLookup} = $TRUE;
> $emailObj->{MxLookup} = 1;
> $emailObj->{MxLookup} = TRUE;

Try
  $emailObj->{MxLookup} = -1; 
  # yes, CInt(True) == -1

or
  use Win32::OLE::Variant;
  $emailObj->{MxLookup} = Variant(VT_BOOL, -1);

HTH, Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed 
to get drunk and croon as much as they like.
        -- Terry Pratchett in Sourcery


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/


Reply via email to