eMail forwarding (Allgemeines zu Perl)

[thread]19405[/thread]

eMail forwarding

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+18 replies
mark05

2014-11-28 19:38

User since
2010-01-05
129 Artikel
BenutzerIn

Hi

ich Tüftel schon eine ganze Zeit an meinem eMail Filtersystem rum
und will ein Forward Funktion einbauen wie es se auch
bei "normalen" eMail Clients gibt.

zz. Verwende ich Simple::Imap um die meisten Funktionen abzubilden.

hiermit kann ich auch die gesamte Mail via SimpleImap->get abholen und weiterverarbeiten.

Das Kernproblem ist das ich es mit dem MIME::Tools nicht hinbekomme
ein Aufwendige Mail , die ich bekommen habe , mit vielen Bilder
und Anhängen so weiterzuleiten das sie beim Emfänger auch wieder
lesbar ist.

Ich habe schon einiges probiert , z.b. die Orginalmail komplett
zerlegt und dann versuch die einzelen Teile wieder in einer
neuen Mail zusammen zubauen , bei einfach gestrickten eMails ok
aber bei Komplexen Multipart/mixed Mails sehr Aufwending.

Hat sich jemand schon mal mit dem Thema beschäftigt ?

Ich würde mich über jeden Tip freuen.

Code habe ich , nicht wirklich welchen , ausser die Zeilen
die ist zum testen gebaut habe , und die sind nicht "schön".

zz. verwende ich MIME::parser, um die mail die via SimpleImap->get kommt zu parsen , MIME::Entity um eine neue Mail zu bauen und zu
versenden.

Holger
- +3 replies
- GwenDragon
  
  2014-11-29 11:26
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Wieso alles parsen und zusammenfügen?
  
  1. Header der Orifinal-Mail auslesen
  2. Header als Text ins neuen Mail
  
  Code: (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
  
  Dies ist eine weitergeleitete Nachricht Von : Webadmin <webmaster@example.ork> An : Webadmin <webmaster@example.ork> Datum : Samstag, 29. November 2014, 02:54 Betreff: Serverfehler 403 - example.ork ===8<=================== Original Nachrichtentext =================== Meldung von Domain example.ork Fehler 403 trat auf am: 29.11.2014 um 02:54.53 Uhr URL: http://example.ork/login/ UserAgent: Finderlein Research Crawler 1.0 Referrer: (unknown) RemoteIP: 54.166.244.84 - ec2-54-166-244-84.compute-1.amazonaws.com ===8<============== Ende des Original Nachrichtentextes ============= Anlagen: 1) Message01.eml -- Grüße M. E. Omy Webmaster
  
  3. Original-Mail als Anhang anhängen
  4. Mail an Zieladresse senden
  
  Ich kann nicht erraten wie dein Code uassieht, der bei dir nicht klappt, und was du unter Weiterleiten verstehst.
  Und es geht eigentlich erst mal um Lösungen, nicht um schönen Code bei dir. ;)
  Last edited: 2014-11-29 11:29:12 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - bianca
    
    2014-11-29 13:25
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2014-11-29T10:26:07 GwenDragon
    3. Original-Mail als Anhang anhängen
    
    Das sieht dann aber blöd aus, weil der Empfänger dann erstmal die Mail als Attachment öffnen muss. Und ob der Client die dann darin enthaltenen embedded Attachments noch richtig anzeigt ist die Frage.
    Wie ich das verstanden habe will er eine Mail so weiterleiten, dass es für den Empfänger aussieht, als käme sie ursprünglich von ihm. Und dafür muss er m.E. die MIME Bestandteile neu zusammenbauen. Lustig wird das nämlich, wenn du die richtig eingebetteten Attachments benutzt, wo also im MIME Teil mit dem HTML Code ein Link zu einem anderen MIME Teil mit Attachment gemacht wird, Stichwort cid scheme.
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2014-11-29 14:25
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Wenn die Mail ein Anhang ist, wird die doch eh in den meisten Clients angezeigt. Das können alle aktuellen Clients.
      Zuzdem kann man dann sehen, von wem das Original wirklich ist.
      
      Wenn Mail so gesendet werden sollen als kämen sie von ihm, ist das m. E. nicht weiterleiten sondern umleiten.
      Und zum Umleiten müssten nur das Mail kopiert und die Mailheader geändert werden.
      
      Aber was der Fragende will, weiß ich nicht.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- bianca
  
  2014-11-29 13:31
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Welche Hilfe ganz konkret brauchst du denn?
  Wie man das boundary baut? Macht das nicht das Modul automatisch? Sonst muss ich mal suchen, wo ich das hab. Ist nichts Besonderes, nur etwas hakelig, wenn man das das erste mal macht. Weil die auch verschachtelt sein können und man Anfang und Ende richtig bezeichnen muss.
  10 print "Hallo"
  20 goto 10
- +3 replies
- mark05
  
  2014-11-30 12:13
  
  User since
  2010-01-05
  129 Artikel
  BenutzerIn
  
  hi
  
  noch mal es geht mir letzten endlich darum eine erhalte mail weiter
  zuleiten ( forward ) keine antwort ( reply ).
  
  es sollte im ergebnis so aussehen als wenn es mit Thunderird oder Outlook
  weitergeleitet wurde .
  
  holger
  - bianca
    
    2014-12-01 13:19
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2014-11-30T11:13:25 mark05
    es sollte im ergebnis so aussehen als wenn es mit Thunderird oder Outlook
    weitergeleitet wurde .
    
    Mit dieser Defintion kann ich nichts anfangen, benutze beides nicht. Was ist denn besonders an diesen Mails?
    10 print "Hallo"
    20 goto 10
  - GwenDragon
    
    2014-12-01 13:45
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    2014-11-30T11:13:25 mark05
    es sollte im ergebnis so aussehen als wenn es mit Thunderird oder Outlook
    weitergeleitet wurde .
    Was soll da wie aussehen? Der Inhalt, die Mail-Header?
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- GwenDragon
  
  2014-11-30 14:23
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Wie wärs mit Mail::Box über Mail::Message::Construct::Forward?
  Last edited: 2014-11-30 14:25:59 +0100 (CET)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - mark05
    
    2014-12-01 18:55
    
    User since
    2010-01-05
    129 Artikel
    BenutzerIn
    
    hi
    
    outlook oder thunderbird sind nur beispielhaft.
    
    Mail::Box und Mail::message habe ich mir auch schon angeschaut,
    
    hier ist es aber dann so das sich 90% der Methoden Funktional überscheiden.
    was bedeutet das ich Simple::Imap raus werfe und alles neu baue ,
    
    oder eine eingene Forwrd Funktion bauen.
    
    und so wie ich es verstanden habe muss ich eine vorhandene mail
    mime technisch erst zerpflücken um sie dann, im rahmen einer neuen mail,
    wieder zusammen zu bauen.
    
    als einfaches attachment habe ich es probiert , ist aber der falsche weg.
    
    mal ander gefragt ,
    
    gibt es eMail Clients in Perl in denen man sich anschauen kann wie
    dort die Forward Funktion umgesetzt wurde ?
    
    Holger
    - GwenDragon
      
      2014-12-01 19:11
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Dann musst du eben selbst wurschteln, wenn dir die Module nicht passen.
      
      Was soll den so schwierig sein? Original Mail kopieren und die Mailheader ändern, Attachments bleiben doch.
      
      Wenn du es wie Thunderbird oder Outlook willst, schau dir halt den Unterschied im Mailquelltext an bei einem normalen empfangene mit einem Anhang und das dann als weitergeleitetes an dich selbst.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- GwenDragon
  
  2014-12-01 19:08
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Stöber bitte mal in:
  http://tools.ietf.org/html/draft-palme-mailext-hea...
  http://stackoverflow.com/questions/4735293/forward...
  
  Und dann schau, welche Mail-Header du hinzufügen willst.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- GwenDragon
  
  2014-12-01 19:17
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Wie wäre es wenn du mal Code zeigst wie du es machen willst und wir schauen, wo es hakt.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +2 replies
  - mark05
    
    2014-12-09 18:35
    User since
    2010-01-05
    129 Artikel
    BenutzerIn
    
    hi
    
    hat zwar etwas gedauert aber hier mal etwas code.
    
    es ist alles noch Proof of Conzept , und hat vermutlich noch bugs.
    
    benötig wird eine mime codierte mail z.b. via ImapSimple->get
    
    ein from und ein to
    
    also nur beispielhaft
    
    Code: (dl )
    
    1 2 3 4 5
    
    use SSF::Forward; my $fwd = SSF::Forward->new(); $fwd->FORWARD ({ from => bla , to => blubber , message => MyMimeMessage });
    
    mir ist z.b. aufgefallen das in der neuen "geforwardeten" mail embedded
    bilder nicht angezeigt werden.
    
    das Modul als attachment.
    
    es wird Mime::Parser und Mime::Entity benötigt.
    
    Holger
    Anhänge
    
    text/plain
    195 lines
    Forward.pm
    - bianca
      
      2014-12-10 07:45
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      2014-12-09T17:35:16 mark05
      benötig wird eine mime codierte mail z.b. via ImapSimple->get
      
      Helfen könnte ich, wenn du die MIME Mail selbst baust und dazu konkrete Fragen hast. Bei Modulen leider nicht. Ich wüsste jetzt auch kein Modul mit dem man so forwarden kann, dass es im Client noch vernünftig aussieht und nichts kaputt geht. Das heißt aber nichts. Nur manchmal ist selbst machen schneller, als ein Modul zu finden das passt :)
      
      2014-12-09T17:35:16 mark05
      mir ist z.b. aufgefallen das in der neuen "geforwardeten" mail embedded bilder nicht angezeigt werden.
      
      Das ist ja genau das worauf ich oben schon hingewiesen hatte. Beim forwarden über E-Mail Clients geht immer irgendwas in die Hose. Ob es verkrüppelte Links sind, kaputte Attachments, fehlende embed Attachments usw. Bei Perl Modulen ist das dann scheinbar auch der Fall.
      Wie gesagt, ich kann nur beim "zu Fuß" gehen helfen.
      10 print "Hallo"
      20 goto 10
- rosti
  
  2014-12-10 10:47
  
  User since
  2011-03-19
  3194 Artikel
  BenutzerIn
  
  Es gibt Sevices die das für Dich übernehmen können. Wenn Du selbst was bauen willst, da musst Du nicht die ganze Mail auseinandernehmen und wieder zusammensetzen: Ein Forwarding wird einzig und allein über die Header geregelt.
- +2 replies
- bianca
  
  2017-04-14 09:38
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Guten Morgen!
  
  Ziemlich alter Thread aber ich habe hier im Moment das selbe Problem. Und zwar habe ich im LAN einen SMTP Server laufen (GwenDragon: das ist deiner, du erinnerst dich? Net::SMTP::Server auf Windows 7) und der soll E-Mails weiterleiten können.
  Habe mir auch das halbe Internet reingezogen, ob und wie man das mit MIME::Tools und seinen Untermodulen machen kann. Da war mein Ziel allerdings das Parsen der E-Mail und anschließend neues Zusammenbauen. Zusammenbauen wäre garkein Problem, wenn ich denn die einzelnen Bodys raus bekäme.
  
  Wie solche E-Mails aussehen sieht man ganz unten.
  
  Der am besten zutreffende Code ist der aus diesem Thread ganz unten: http://www.perlmonks.org/bare/?node_id=127167
  ABER Problem: der Code findet nur >> MIME: multipart/alternative und >> MIME: application/octet-stream. Die beiden Teile innerhalb von >> MIME: multipart/alternative werden nicht gefunden. Mein Versuch, eine Rekursivität rein zu bekommen sind auch kläglich gescheitert, weil ich noch nicht durchblicke, wie MIME::Tools und Konsorten mit dem/den Body/-s umgehen. Header sind kein Problem aber Bodys bekomme ich nicht geregelt. Entweder sind die Header mit dran oder die Teiheader fehlen oder es wird garnichts geliefert oder wirft Fehler. Zum Beispiel scheint auch von MIME::Body die Syntax $body->as_string nicht (mehr) zuzutreffen, ich habe zumindest keine Variante hinbekommen, die keinen Fehler wirft.
  
  Jetzt bin ich nach wie vor auf der Suche nach einer Möglichkeit, eine E-Mail weiterzuleiten. Schön wäre, wenn das mit MIME::Tools oder einem Ableger davon ginge, weil ich an der Stelle wo das gemacht wird die E-Mail aus anderen gründen sowieso schon in einem MIME::Parser->parse_open() Objekt habe.
  
  Danach habe ich dann nach anderen Möglichkeiten (zur Not auch mit anderen Modulen obwohl sehr unschön!) gesucht, eine E-Mail weiterzuleiten ohne sie zu zerpflücken. Da stieß ich auf diesen Thread hier.
  Mein Problem hier ist das hier:
  2014-11-29T10:26:07 GwenDragon
  2. Header als Text ins neuen Mail
  
  Wo soll ich denn den Text einsetzen ohne vorher die original Mail zu zerpflücken und die richtigen Teile zu finden, wo das eingefügt werden soll?
  
  Dann ganz unten widersprüchliche Aussage:
  2014-12-10T09:47:35 rosti
  Wenn Du selbst was bauen willst, da musst Du nicht die ganze Mail auseinandernehmen und wieder zusammensetzen: Ein Forwarding wird einzig und allein über die Header geregelt.
  
  Das wäre natürlich genial. Hier wäre meine Frage, wie man das genau macht. Fügt man da nur eine Zeile in den Header ein oder was genau muss man da machen?
  Jemand einen heißen Tipp?
  
  Solche E-Mails müssen weitergeleitet werden mit ALLEN Teilen.
  
  Quote
  Return-Path: ....
  X-Original-To: ....
  Delivered-To: ...
  Mime-Version: 1.0
  Content-Transfer-Encoding: quoted-printable
  From: ...
  Reply-to: ....
  To: ...
  Subject: ....
  Content-Type: multipart/mixed;
  boundary="----=_NextPart_998877665544"
  Message-Id: <332211.312A440C31@xxxx .com>
  Date: Mon, 13 Feb 2017 00:00:14 +0100 (CET)
  
  Mehrteilige MIME kodierte Mail
  
  ------=_NextPart_998877665544
  Content-Type: multipart/alternative;
  boundary="----=_NextPart_998877665544SUB"
  
  ------=_NextPart_998877665544SUB
  Content-Type: text/plain;
  charset="ISO-8859-15"
  Content-Transfer-Encoding: quoted-printable
  
  Hier reiner Text
  
  ------=_NextPart_998877665544SUB
  Content-Type: text/html;
  charset="ISO-8859-15"
  Content-Transfer-Encoding: quoted-printable
  
  <!DOCTYPE html>
  hier die HTML Alternative
  <img src=3D"cid:1">
  </html>
  
  ------=_NextPart_998877665544SUB--
  
  ------=_NextPart_998877665544
  Content-Type: application/octet-stream;
  name="logo.png"
  Content-Transfer-Encoding: base64
  Content-Disposition: inline;
  Content-ID: <1>
  
  iVBORw0KGgoAAAANSUhEUgAAAEMAAAAyCAYAAAAHtGYXAAAACXBIWXMAAAsTAAALEwEAmpwYAAAP
  .....................
  uAKjcTaXLPBlfXO7QuZ1nNUCBXO1eVbCuHT+pKD8euZfzWashrH25k5T/2tV4f+/PWuLsbYYqx2+
  tRfc1gzo2quPa8xYY8YaM9aY8X/IjP8FAXmhOdpMkEMAAAAASUVORK5CYII=
  
  ------=_NextPart_998877665544--
  
  Das ist eine Mail mit Text- und HTML-Teil sowie einem embedded Image für den HTML-Teil.
  
  Vielen Dank und frohe Ostern!!!
  10 print "Hallo"
  20 goto 10
  - bianca
    
    2017-04-15 09:34
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    Ich glaube es hat sich erledigt. Denn was der SMTP Server empfängt ist ja bereits eine E-Mail die ich wie sie ist bei einem "echten" SMTP einreichen kann. Forwarding ist das ja gar nicht.
    10 print "Hallo"
    20 goto 10

View all threads created 2014-11-28 19:38.