Revision 893edfe4
Von Bernd Bleßmann vor etwa 2 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1014 | 1014 |
$mail->{message} .= $full_signature;
|
| 1015 | 1015 |
$self->{emailerr} = $mail->send();
|
| 1016 | 1016 |
|
| 1017 |
if ($self->{emailerr}) {
|
|
| 1018 |
$self->cleanup; |
|
| 1019 |
$self->error($::locale->text('The email was not sent due to the following error: #1.', $self->{emailerr}));
|
|
| 1020 |
} |
|
| 1021 |
|
|
| 1022 | 1017 |
$self->{email_journal_id} = $mail->{journalentry};
|
| 1023 | 1018 |
$self->{snumbers} = "emailjournal" . "_" . $self->{email_journal_id};
|
| 1024 | 1019 |
$self->{what_done} = $::form->{type};
|
| 1025 | 1020 |
$self->{addition} = "MAILED";
|
| 1026 | 1021 |
$self->save_history; |
| 1027 | 1022 |
|
| 1023 |
if ($self->{emailerr}) {
|
|
| 1024 |
$self->cleanup; |
|
| 1025 |
$self->error($::locale->text('The email was not sent due to the following error: #1.', $self->{emailerr}));
|
|
| 1026 |
} |
|
| 1027 |
|
|
| 1028 | 1028 |
#write back for message info and mail journal |
| 1029 | 1029 |
$self->{cc} = $mail->{cc};
|
| 1030 | 1030 |
$self->{bcc} = $mail->{bcc};
|
Auch abrufbar als: Unified diff
SL::Form::send_email: History auch im Fehlerfall schreiben.
Da sowohl E-Mail-Journal als auch verknüpfte Belege den fehlgeschlagenen
Sendeversuch anzeigen, sollte der auch in der Historie sein.
ToDo: evtl. könnte das im Fehlerfall anders gekennzeichnet werden.