neutron has asked for the wisdom of the Perl Monks concerning the following question:
Other notes that might be helpful:#!/perl/bin/perl -wT use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); use Mail::Sender; #use strict; print header; print start_html( "Results" ); $sender = new Mail::Sender { smtp => 'www.2wire.com', from => 'heygohey@hotmail.com', on_errors => undef, } or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n"; $sender->Open({ to => 'heygohey@hotmail.com', subject => 'Sorry, I\'ll come later.' }) or die "Can't open the message: $sender->{'error_msg'}\n"; $sender->SendLineEnc("I'm sorry, but thanks to the lusers, I'll come a +t 10pm at best."); $sender->SendLineEnc("\nHi, Jenda"); $sender->Close() or die "Failed to send the message: $sender->{'error_msg'}\n"; print end_html;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: How do I connect to an SMTP server?
by oko1 (Deacon) on Mar 22, 2009 at 15:26 UTC | |
by neutron (Sexton) on Mar 22, 2009 at 16:29 UTC | |
by drench (Beadle) on Mar 22, 2009 at 23:46 UTC | |
by oko1 (Deacon) on Mar 23, 2009 at 03:58 UTC |