UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add message-id and return-path for bounces that incorporates the mailId of the specific message.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-05-12 11:44:27 +02:00
parent 8fdeca68b5
commit 8abcb9a10e
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Mailing/Email.pm
View file

@ -115,6 +115,7 @@ sub absolutifyURIs {
sub send { sub send {
my $self = shift; my $self = shift;
my $session = $self->session; my $session = $self->session;
my $id = $session->id;
#### TODO: Error checking #### TODO: Error checking
my $mailing = $self->getMailing; my $mailing = $self->getMailing;
@ -139,11 +140,17 @@ sub send {
# Fetch subject # Fetch subject
my $subject = '[TEST] Subject selection still needs to be implemented.'; my $subject = '[TEST] Subject selection still needs to be implemented.';
my $messageId = $id->toHex( $self->getId );
# TODO: MAKE DOMAIN SETTABLE!
my $domain = 'geefmegeld.nl';
# Setup email # Setup email
my $mail = WebGUI::Mail::Send->create( $session, { my $mail = WebGUI::Mail::Send->create( $session, {
#from => TODO #from => TODO
to => $to, to => $to,
subject => $subject, subject => $subject,
messageId => "$messageId\@$domain",
returnPath => "$messageId-bounce\@$domain",
} ); } );
$mail->addHtml( $body ); $mail->addHtml( $body );