Curtis Leach wrote:
>  Thanks to everyone who responded.
>  
>  I ended up having to put the SMTP server name to use into a config file.
>  Since I couldn't figure out a way to ask Windows/Outlook in Perl what it
>  was configured to use.

Try something like:

use strict;
use warnings;
use Win32::OLE::Const 'Microsoft Outlook';

my $OL = Win32::OLE-> GetActiveObject('Outlook.Application') or
   Win32::OLE-> new('Outlook.Application', 'Quit');
die 'GetActiveObject ->  new failed' if not $OL; # try opening OE if you err here

my $NameSpace = $OL-> GetNameSpace("MAPI");
my $EmailAddr = $NameSpace-> {CurrentUser}{Address};
print "Email=$EmailAddr\n";

__END__
_______________________________________________
ActivePerl mailing list
ActivePerl@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs