Thread [MIME::Lite] message-id ausgeben (5 answers)
Opened by chrisperl at 2014-10-10 13:52

GwenDragon
 2014-10-10 15:47
#177743 #177743
User since
2005-01-17
14788 Artikel
Admin1
[Homepage]
user image
MIME::Lite generiert aber keine Message-ID selbst.
Selbst MIME::Lite->send nicht.

Da kannst du die nicht vorher auslesen.
Die Message-ID fügt der Mailserver ein.

Aber du könntest selbst eine im Header setzen.
Die muss nur global eindeutig sein. Das geht mit CPAN:Email::MessageID.

Message-ID setzen, Mail erzeugen und auf Konsole ausgeben:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

my $mydom = 'ox.bow'; # eigene Domain
my $mid;

### Message-ID generieren lassen
use Email::MessageID;
$mid = Email::MessageID->new( host => $mydom );
###

### Message-ID selbst setzen 
$mid = "4711-0815-oxnard77-xyz@" . $mydom; 
###

my %conf = (
  USER => 'm.blah-me@ox.bow',
  TO => 'murks@spam.local'
);
my %headers = (
    From    => qq"<$conf{USER}>",
    To      => qq"<$conf{TO}>",
    Subject => q'No SPAM please!',
    'Message-ID' => $mid
);
my $body = "\nTEST";
my $msg = MIME::Lite ->new (  
        %headers,  
        'X-Mailer' => 'myMail/1.1',
        Data => $body,  
        Type => 'text/plain'  
);
$msg->print;


ergibt bei Generierung des Message-ID per Modul:
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Content-Type: text/plain
MIME-Version: 1.0
X-Mailer: MIME::Lite 3.030 (F2.84; T2.09; A2.13; B3.14; Q3.13)
Date: Fri, 10 Oct 2014 16:14:20 +0200
From: <m.blah-me@ox.bow>
Message-Id: 14129504600.2f8Cd2F91.6504@ox.bow
Subject: No SPAM please!
To: <murks@spam.local>
X-Mailer: myMail/1.1


TEST


bzw. bei eigener festangegebene Message-ID:
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
Content-Type: text/plain
MIME-Version: 1.0
X-Mailer: MIME::Lite 3.030 (F2.84; T2.09; A2.13; B3.14; Q3.13)
Date: Fri, 10 Oct 2014 16:16:03 +0200
To: <murks@spam.local>
Subject: No SPAM please!
From: <m.blah-me@ox.bow>
Message-Id: 4711-0815-oxnard77-xyz@ox.bow
X-Mailer: myMail/1.1


TEST


Editiert von GwenDragon: Code hinzu, Ausgabe der Mail als Text
Last edited: 2014-10-10 16:17:11 +0200 (CEST)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread [MIME::Lite] message-id ausgeben