Hi!
I was in a final test of my script and well it fails :-), however I found that
it fails in the form that Im creating the 'mail sender' object.
If I do this:
smtp => '$this->{SMTP_SERVER}' (single quotes for elements)
I get this error when Closing the message:
Can't call method "Open" without a package or object reference at DemoMail.pm
line 218. (I have the $sender->Open in line 218)
However, If I do this:
smtp => "$this->{SMTP_SERVER}" (double quotes for elements)
I dont get error.. but it 'hangs' in the 'Open' and never send message. I
need to stop my program with C-c (Linux).
So, what other solutions?
And Example:
my $sender = new Mail::Sender ({
smtp => "$this->{SERVER_IP}",
from => "pablin <[EMAIL PROTECTED]>",
to => "$nombre <$correo>",
subject => "$this->{MENSAJE_TITULO}",
debug => "errores3.txt",
}) or die("chale");
$sender->Open({
encoding => "7bit",
ctype => "$tipo",
}) or die("chale");
$sender->SendLineEnc($mensaje) or die("$Mail::Sender::Error\n");
$sender->Close() or die("$Mail::Sender::Error\n");
Thanks!
Cya!
Pablo
--
Pablo Fischer Sandoval ([EMAIL PROTECTED])
http://www.pablo.com.mx
http://www.debianmexico.org
GPG FingerTip: 3D49 4CB8 8951 F2CA 8131 AF7C D1B9 1FB9 6B11 810C
Firma URL: http://www.pablo.com.mx/firmagpg.txt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
