Ergebnis der Suchanfrage

• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 11. Dez 2012
  Ist ja nicht so, dass ich es nicht schon in Beitrag #8 erwähnt hätte ;)
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 11. Dez 2012
  Also das hier geht bei mir:
  
  Return-Path: <20121210044556c7036e85cd5d422ea3a2d8502c7d84d4-C17QV6P2K14K3F@bounces.amazon.com>
  Date: Mon, 10 Dec 2012 05:45:56 +0100
  From: "Amazon.de" <promotion5@amazon.de>
  To: "f@a.de" <f@ade>
  Subject: Smartphones, TVs, Kameras,
  =?UTF-8?B?S29wZmjDtnJlcg==?= und mehr
  MIME-Version: 1.0
  Content-Type: multipart/mixed;...
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 11. Dez 2012
  Normalerweise(!) wird aus dieser Hierarchie eine "flache Liste", man kann also in einem Rutsch alle Parts durchlaufen (wie in meinem Code).
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Ich habe deine "mail" jetzt mal in meine Datenbank eingefügt und versucht anzuzeigen - geht wirklich nicht, auch wenn ich das boundary anpasse. Ich habe aber genügend mails, die den gleichen Aufbau haben und einwandfrei funktionieren... :gruebel:
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Das erste boundary kommt mich komisch vor, zumal es im gesamten Text sonst nicht mehr vorkommt, bei der zweiten Zeile ist drauf zu achten, dass sie mit einem "TAB" beginnt.
  
  Ich hatte Anfangs ähnliche Probleme (doppelte Einträge, falsche Umbrüche), beim Versenden(!) von mails mit den Indy-Komponenten in D2009, die noch fehlerhaft waren. Die anderen Mailprogramme konnten es dann auch nicht...
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Sicher dass es dann nur 1 MessagePart (multipart/alternative) gibt? Also ich erhalte da 3 MessageParts: multipart/alternative, text/plain und text/html.
  
  Habe es selbst mit einigen solcher Nachrichten erfolgreich getestet, allerdings hatten die nur 1 Boundary-Angabe, wie oben schon erwähnt.
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Aber das mache ich doch und es funktioniert bei mir auch. Ich laufe alle Message-Parts (das sind alle Texte UND Anhänge) durch und (nur) bei TIdText (html / plain / ...) kopiere ich den Inhalt (bei Alternative nur einen davon -> html) in den string...
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Was mir allerdings komisch vorkommt, dass da "boundary" 2 mal vorkommt. Da sollte eigentlich (auch bei multipart/alternative) nur 1 Angabe stehen, siehe hier (das Beispiel). Wobei ich sehe gerade, dort weiter unten steht auch was von unterschiedlichen Content-ID's... :gruebel:
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Hast du meinen Code getestet? Wo genau liegt das Problem?
  Da ich alle Message-Parts durchgehe und dabei alle Texte "übernehme", sollten zumindest am Ende alle Textteile vorhanden sein.
  
  Eventuell mal zum Testen bei dem
  if NOT isAlternative then
  S := S + TIdText(Msg.MessageParts.Items).Body.Text;
  
  die erste Zeile weglassen, dann sind es wirklich alle Texte, auch wenn sie "doppelt" (html +...
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 10. Dez 2012
  Ich nutze bisher nur obigen Code plus einen Codeteil, der die Anhänge auflistet und zum Download anbietet. Das funktioniert prinzipiell auch mit "multipart/related", nur mit dem "Problem", dass die Anhänge/Objekte bei "multipart/related" normalerweise inline dargestellt werden sollten und bei mir dort halt nix oder ein Platzhalter erscheint und das Objekt (Bild, ...) dafür als Anlage zum Download...
• Forum: Netzwerke

  AW: INDY10, EMail multipart/alternative

   
    by Olli73, 9. Dez 2012
  Also ich ermittle den Mailbody (Text) folgendermaßen:
  //Mailbody ermitteln:
  S := '';
  S3 := LowerCase(Msg.ContentType);
  if (S3 = 'text/plain') OR (S3 = 'text/html') then begin
  S := Msg.Body.Text;
  end else begin
  IsAlternative := ( S3 = 'multipart/alternative' );
  for i := 0 to Msg.MessageParts.Count - 1 do begin
  if (Msg.MessageParts.Items is TIdText) then begin