----- Original Message -----
From: "Lee Goddard" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, May 21, 2002 6:21 PM
Subject: Mail::Sender - bug?
> Hi!
>
> #! perl;
> use Mail::Sender;
> $to = "[EMAIL PROTECTED]";
> for (1..10){
> my $sender = new Mail::Sender;
> die $Mail::Sender::Error if not ref $sender;
> my $rep = '';
> open (REP, "Report") or die "Cannot open Report: $!\n";
> read REP, $rep, -s REP;
> close REP;
> $_ = $sender->MailMsg({
> to => $to,
> subject => "Read About SMTP Headers",
> msg => $rep
> });
> die $Mail::Sender::Error if not ref $_;
> warn "Sent.\n";
> }
>
> OUTPUT reads:
>
> Local user "test.com" unknown on host "127.0.0.1" at C:\Documents and
> Settings\Administrator\Desktop\foo.pl line 16.
>
> Tool completed with exit code 2
>
>
> Any ideas?
>
> $Mail::Sender::VERSION='0.7.13.1';
>
I think you just need to escape the '@' in the initialisation of '$to'.
(Alternatively use single quotes instead of double quotes.)
A third alternative is to simply first initialise:
@leegoddard = ('@leegoddard');
:-)
Cheers,
Rob
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
