Revision 6092ef39
Von Moritz Bunkus vor fast 3 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 487 | 487 |
} or die $main::locale->text('No email for user with login #1 defined.', $ref->{invoice_employee_login});
|
| 488 | 488 |
} |
| 489 | 489 |
|
| 490 |
my $html_template = SL::Template::create(type => 'HTML', form => $form, myconfig => $myconfig); |
|
| 491 |
$html_template->set_tag_style('<%', '%>');
|
|
| 492 |
|
|
| 490 | 493 |
my $template = SL::Template::create(type => 'PlainText', form => $form, myconfig => $myconfig); |
| 491 | 494 |
my $mail = Mailer->new(); |
| 492 | 495 |
$mail->{bcc} = $form->get_bcc_defaults($myconfig, $form->{bcc});
|
| 493 | 496 |
$mail->{from} = $from;
|
| 494 | 497 |
$mail->{to} = $ref->{recipient};
|
| 495 | 498 |
$mail->{subject} = $template->parse_block($ref->{email_subject});
|
| 496 |
$mail->{message} = $template->parse_block($ref->{email_body});
|
|
| 499 |
$mail->{message} = $html_template->parse_block($ref->{email_body});
|
|
| 500 |
$mail->{content_type} = 'text/html';
|
|
| 497 | 501 |
my $sign_backup = $::myconfig{signature};
|
| 498 | 502 |
$::myconfig{signature} = $sign if $sign;
|
| 499 | 503 |
$mail->{message} .= $form->create_email_signature();
|
Auch abrufbar als: Unified diff
Mahnungen: E-Mail-Text als HTML