Revision b9d5e9b5
Von Bernd Bleßmann vor fast 2 Jahren hinzugefügt
| SL/Controller/Letter.pm | ||
|---|---|---|
| 249 | 249 |
|
| 250 | 250 |
# set some form defaults for printing webdav copy variables |
| 251 | 251 |
if ( $::form->{media} eq 'email') {
|
| 252 |
my $mail = Mailer->new; |
|
| 253 |
my $signature = $::myconfig{signature};
|
|
| 254 |
$mail->{$_} = $params{email}->{$_} for qw(to cc subject message bcc);
|
|
| 255 |
$mail->{from} = qq|"$::myconfig{name}" <$::myconfig{email}>|;
|
|
| 256 |
$mail->{attachments} = [{ path => $result{file_name},
|
|
| 257 |
name => $params{email}->{attachment_filename} }];
|
|
| 258 |
$mail->{message} .= "\n-- \n$signature";
|
|
| 259 |
$mail->{message} =~ s/\r//g;
|
|
| 260 |
$mail->{record_id} = $letter->id;
|
|
| 252 |
my $mail = Mailer->new;
|
|
| 253 |
my $signature = $::myconfig{signature};
|
|
| 254 |
$mail->{$_} = $params{email}->{$_} for qw(to cc subject message bcc);
|
|
| 255 |
$mail->{from} = qq|"$::myconfig{name}" <$::myconfig{email}>|;
|
|
| 256 |
$mail->{attachments} = [{ path => $result{file_name},
|
|
| 257 |
name => $params{email}->{attachment_filename} }];
|
|
| 258 |
$mail->{message} .= "\n-- \n$signature";
|
|
| 259 |
$mail->{message} =~ s/\r//g;
|
|
| 260 |
$mail->{record_id} = $letter->id;
|
|
| 261 | 261 |
$mail->{content_type} = 'text/html';
|
| 262 | 262 |
$mail->send; |
| 263 | 263 |
unlink $result{file_name};
|
Auch abrufbar als: Unified diff
Kosmetik: Ausrichtung