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

added a return path for undeliverable messages

Browse source
This commit is contained in:
JT Smith 2006-04-11 15:11:45 +00:00
parent e6d08227fd
commit 30fefe9e68
3 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Mail/Send.pm
View file

@ -213,6 +213,8 @@ sub create {
}
}
}
my $returnPath = $session->setting->get("mailReturnPath");
$returnPath = "<".$returnPath.">" if $returnPath;
my $message = MIME::Entity->build(
Type=>$headers->{contentType} || "multipart/mixed",
From=>$headers->{from} || $session->setting->get("companyEmail"),
@ -221,6 +223,7 @@ sub create {
Bcc=>$headers->{bcc},
"Reply-To"=>$headers->{replyTo},
"In-Reply-To"=>$headers->{inReplyTo},
"Return-Path"=>$returnPath,
Subject=>$headers->{subject},
"Message-Id"=>$headers->{messageId} || "WebGUI-".$session->id->generate,
Date=>$session->datetime->epochToHuman("","%W, %d %C %y %j:%n:%s %O"),