On Mon, 07 Feb 2005 10:24:14 -0500, Wiggins d'Anconia <[EMAIL PROTECTED]> wrote: > Douglas Lentz wrote: > > Hello friends, > > > > I'm trying to get Mark Overmeer's Mail::Internet module to work on my > > system. > > > > Problem: I can't send mail using Mail::Internet's smtpsend method. > > > > Details: This is a Red Hat Linux box connecting to the internet over > > plain old dial-up PPP. I am using my ISP's SMTP server. I know my > > connectivity is OK, because > > > > (1) I can telnet into my ISP's SMTP server and send myself an email that > > way, using HELO, MAIL From, RCPT to, DATA, etc. > > > > (2) Net::SMTP works. I wrote a small script using it, and I can send > > myself email through my ISP until I go blind, if I want to. This is > > puzzling, because according to the documentation, Mail::Internet uses > > Net::SMTP. Anyway, I have verified that Net::SMTP works on my system. > > > > (3) I have verified that the test emails I send are not being trapped by > > my ISPs spam filter. > > > > I've used Mail::Internet frequently in the past, but always on machines > > running a local mail server (sendmail). > > > > The following script, when executed, appears to do nothing at all; no > > mail gets sent. I cribbed it straight from Lincoln Stein's book and just > > changed the names and addresses. (Mercifully, it's short.) > > > > Have you tried turning on the Debug flag to Net::SMTP? It might help > diagnose the problem. A quick glance at the code didn't immediately turn > up anything, other than the lack of strictures.
I would pass 'To' and 'MailFrom' as options to smtpsend(), and let Mail::Internet create the header instead of manipulating Mail::Header directly. I would also pass the server to smtpsend. See if it works in its simplest form. Then if you have a good reason to take the more complicated approach of creating the headers yourself and grabbing the server from a variable, add the objects and variables back in one at a time and see where it breaks. --jay -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
