- $headers .= sprintf("%s: %s\n", ucfirst($item), $addr_obj->format());
- }
- }
-
- $headers .= sprintf("Subject: %s\n", $self->mime_quote_text($self->{subject}, 60));
-
- print OUT qq|${headers}Message-ID: <$msgid>
-X-Mailer: Lx-Office $self->{version}
-MIME-Version: 1.0
-|;
-
- if ($self->{attachments}) {
- print OUT qq|Content-Type: multipart/mixed; boundary="$boundary"
-
-|;
- if ($self->{message}) {
- print OUT qq|--${boundary}
-Content-Type: $self->{contenttype}; charset="$self->{charset}"
-
-$self->{message}
-
-|;