oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Can now choose a "from" address other than the default.

Browse source
This commit is contained in:
JT Smith 2002-07-14 17:21:06 +00:00
parent 5db70ffc07
commit 2836eb1ef1
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Mail.pm
View file

@ -16,13 +16,14 @@ use WebGUI::ErrorHandler;
use WebGUI::Session;
#-------------------------------------------------------------------
#eg: send("jt@jt.com","hi, how are you","this is my message","bob@bob.com");
#eg: send(to,subject,message,cc);
#eg: send("jt@jt.com","hi, how are you","this is my message","bob@bob.com","you@ther.com");
#eg: send(to,subject,message,cc,from);
sub send {
my ($smtp, $message);
my ($smtp, $message, $from);
$from = $_[4] || ($session{setting}{companyName}.' <'.$session{setting}{companyEmail}.'>');
#header
$message = "To: ".$_[0]."\n";
$message .= "From: $session{setting}{companyName} <$session{setting}{companyEmail}>\n";
$message = "To: $_[0]\n";
$message .= "From: $from\n";
$message .= "CC: $_[3]\n" if ($_[3]);
$message .= "Subject: ".$_[1]."\n";
$message .= "\n";
@ -37,7 +38,7 @@ sub send {
} else {
$smtp = Net::SMTP->new($session{setting}{smtpServer}); # connect to an SMTP server
if (defined $smtp) {
$smtp->mail($session{setting}{companyEmail}); # use the sender's address here
$smtp->mail($from); # use the sender's address here
$smtp->to($_[0]); # recipient's address
$smtp->data(); # Start the mail
$smtp->datasend($message);