projekt kivitendo

  );

  $self->{mail_attachments} = [];

  my $error;

  my $ok = eval {

    # Clean up To/Cc/Bcc address fields

    $self->{driver}->print($email->as_string);

    $self->{driver}->send;

    1;

  };

  $error = $@ if !$ok;

    $ok = 0;

    push @$error, $@;

  };

}

sub _store_in_imap_sent_folder {

  my $config = $::lx_office_conf{sent_emails_in_imap} || {};

  return unless ($config->{enabled} && $config->{hostname});

  my $folder    =  $config->{folder} || 'INBOX/Sent';

  $folder       =~ s|/|${separator}|g;

    my $last_error = $imap->LastError();

    $imap->logout();

    die "IMAP Client append failed: $last_error\n";