in reply to emailing form results to a user
Update: To get you started here is an example of a mail::sender subroutine:
sub mailout{ $sender = new Mail::Sender; $sender->Open({ smtp => 'mail', #insert your smtp server here from => "$from", fake_from => "$ffrom", to => "$to", encoding => "quoted-printable", subject => "$subject", ctype => "$htype", # could be plain or html }) || die "Sender error: $sender, $Mail::Sender::Error!\n"; # body of email $sender->SendEnc(@body) || die "Sender error: $sender, $Mail::Send +er::Error!\n"; # send email $sender->Close || die "Sender error: $sender, $Mail::Sender::Error +!\n"; }
Neil Watson
watson-wilson.ca
|
|---|