Revision e453ae7c
Von Tamino Steinert vor 11 Monaten hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 343 | 343 |
|
| 344 | 344 |
my $from_email = $self->{from};
|
| 345 | 345 |
my $user_email = $::myconfig{email};
|
| 346 |
my $config = |
|
| 346 |
my $imap_config =
|
|
| 347 | 347 |
$::lx_office_conf{"sent_emails_in_imap/email/$from_email"}
|
| 348 | 348 |
|| $::lx_office_conf{"sent_emails_in_imap/email/$user_email"}
|
| 349 | 349 |
|| $::lx_office_conf{sent_emails_in_imap}
|
| 350 | 350 |
|| {};
|
| 351 |
return unless ($config->{enabled});
|
|
| 352 |
|
|
| 353 |
my $imap_client = SL::IMAPClient->new(%$config); |
|
| 351 |
return unless ($imap_config->{enabled});
|
|
| 354 | 352 |
|
| 353 |
my $folder = delete $imap_config->{folder};
|
|
| 354 |
my $imap_client = SL::IMAPClient->new(%$imap_config); |
|
| 355 | 355 |
$imap_client->store_email_in_email_folder( |
| 356 |
$email_as_string, |
|
| 357 |
$config->{folder} ||'Sent/Kivitendo'
|
|
| 356 |
email_as_string => $email_as_string,
|
|
| 357 |
folder => $folder ||'Sent/Kivitendo',
|
|
| 358 | 358 |
); |
| 359 | 359 |
|
| 360 | 360 |
return 1; |
Auch abrufbar als: Unified diff
IMAPClient: validiere Parameter bei der Übergabe