Store MIME message in smtp lib
This commit is contained in:
parent
8da2666acc
commit
7bb84f5bb1
|
@ -1,6 +1,10 @@
|
||||||
package main;
|
package main;
|
||||||
|
|
||||||
my ( $mail, $mail_envelope, $mail_subject );
|
my ( $mail, $mail_envelope, $mail_subject, $mime );
|
||||||
|
|
||||||
|
sub mime {
|
||||||
|
return $mime;
|
||||||
|
}
|
||||||
|
|
||||||
sub mail {
|
sub mail {
|
||||||
return $mail;
|
return $mail;
|
||||||
|
@ -31,6 +35,7 @@ extends 'Email::Sender::Transport';
|
||||||
|
|
||||||
sub send_email {
|
sub send_email {
|
||||||
my ( $self, $email, $envelope ) = @_;
|
my ( $self, $email, $envelope ) = @_;
|
||||||
|
$mime = $email->cast('MIME::Entity');
|
||||||
$mail = $email->get_body;
|
$mail = $email->get_body;
|
||||||
$mail_subject = $email->get_header("Subject");
|
$mail_subject = $email->get_header("Subject");
|
||||||
$mail_envelope = $envelope;
|
$mail_envelope = $envelope;
|
||||||
|
|
Loading…
Reference in New Issue