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

set reply to = from for data form emails

Browse source
This commit is contained in:
Graham Knop 2007-08-09 15:02:09 +00:00
parent 3fcaa05100
commit 7507816878
2 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Asset/Wobject/DataForm.pm
View file

@ -738,7 +738,14 @@ sub sendEmail {
@{$self->getAttachedFiles({returnType=>'attachments',entryId=>$var->{entryId}})}
: ();
if ($to =~ /\@/) {
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$to, subject=>$subject, cc=>$cc, from=>$from, bcc=>$bcc});
my $mail = WebGUI::Mail::Send->create($self->session,{
to => $to,
replyTo => $from,
subject => $subject,
cc => $cc,
from => $from,
bcc => $bcc,
});
$mail->addHtml($message);
$mail->addFooter;
$mail->addAttachment($_) for (@attachments);
@ -760,22 +767,22 @@ sub sendEmail {
message=>$message,
status=>'complete'
});
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$cc, subject=>$subject, from=>$from});
if ($cc) {
my $mail = WebGUI::Mail::Send->create($self->session,{to=>$cc, replyTo=>$from, subject=>$subject, from=>$from});
$mail->addHtml($message);
$mail->addAttachment($_) for (@attachments);
$mail->addFooter;
$mail->queue;
}
if ($bcc) {
WebGUI::Mail::Send->create($self->session, {to=>$bcc, subject=>$subject, from=>$from});
}
if ($bcc) {
my $mail = WebGUI::Mail::Send->create($self->session, {to=>$bcc, replyTo=>$from, subject=>$subject, from=>$from});
$mail->addHtml($message);
$mail->addAttachment($_) for (@attachments);
$mail->addFooter;
$mail->queue;
}
}
}
}
}
}
#-------------------------------------------------------------------