[MIME::Lite] message-id ausgeben (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]19329[/thread]

[MIME::Lite] message-id ausgeben

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+6 replies
Gast chrisperl

2014-10-10 13:52
Hallo zusammen,

hat Jemand einen Tipp wie ich es schaffe dem Modul Mime::Lite beim Versand einer E-Mail die übermittelte Message-ID zu entlocken?

Ich weiß sehr wohl, dass ich die Message-ID definieren kann, ich würde aber gerne die ID aus der Funktion bekommen.

In dem Modul Lite.pm ist folgendes definiert:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

### Known Mail/MIME fields... these, plus some general forms like ### "x-*", are recognized by build(): my %KnownField = map { $_ => 1 } qw( bcc cc comments date encrypted from keywords message-id mime-version organization received references reply-to return-path sender subject to approved );
Vielen Dank!
Last edited: 2014-10-10 14:15:52 +0200 (CEST)
- Gast chrisperl
  
  2014-10-10 14:28
  
  Hallo zusammen,
  
  mit dem Modul Mail::Sender, ist dieses ohne weiteres möglich, ok, ich versuche aber gerade den "aktuellen" Programmierstand aufrecht zu erhalten auch wenn die Migration von Mime::Lite nach Mail::Sender sehr gering wirkt.
  
  Vielen Dank!
  Last edited: 2014-10-10 14:59:42 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2014-10-10 15:47
  User since
  2005-01-17
  14748 Artikel
  Admin1
  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 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
  - +3 replies
  - Gast chrisperl
    
    2014-10-10 23:15
    Hallo GwenDragon,
    
    danke für die Antwort, ja genau das meinte ich und das war mir auch klar, dass ich die Message-ID nur erst nach dem senden auslesen kann, da diese vom Mailserver kommt. Ich hätte es besser beschreiben sollen. Sorry.
    
    Code: (dl )
    
    1 2
    
    Da kannst du die nicht vorher auslesen. Die Message-ID fügt der Mailserver ein.
    
    Ich kann mit Mail::Sender nach dem versenden der Mail, mir die Message-ID ausgeben lassen, daher auch mein vorheriger Eintrag "mit Mail::Sender funktioniert das schon".
    
    Das heißt für mich aktuell, ich werde mein Mailing umbauen müssen nach Mail::Sender, denn ich muss ja jetzt schon auf weitere Module nutzen, um mein Vorhaben umzusetzen, dann kann ich auch gleich umsteigen.
    
    Ganz kurz noch am Rande:
    Ich lese immer wieder in einigen Foren, man soll auch gar nicht mehr MIME::Lite einsetzen, ist da was wahres dran?
    
    Vielen Dank für die Unterstützung.
    Last edited: 2014-10-10 23:30:45 +0200 (CEST)
    - +2 replies
    - bianca
      
      2014-10-11 07:25
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest chrisperl
      Ganz kurz noch am Rande:
      Ich lese immer wieder in einigen Foren, man soll auch gar nicht mehr MIME::Lite einsetzen, ist da was wahres dran?
      
      Bilde dir selbst ein Urteil:
      Fehlerhandling mit MIME::Lite
      Zeichensatz bei MIME::Lite
      MIME::Lite - ab und zu Probleme beim Schicken von zips
      
      Ob diese Punkte mittlerweile behoben/geändert sind weiß ich nicht, ich nutze das Modul aus diesen Gründen nicht sondern Net::SMTP
      10 print "Hallo"
      20 goto 10
      - Gast chrisperl
        
        2014-10-11 10:27
        
        Danke das reicht mir als aussage, habe zwar dann noch einiges zu tun, aber wer schreibt der bleibt. Nochmals danke
        Last edited: 2014-10-11 10:30:06 +0200 (CEST)

View all threads created 2014-10-10 13:52.