AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi HTML-Mail erzeugen basierend auf Emsländers Tutorial

HTML-Mail erzeugen basierend auf Emsländers Tutorial

Ein Thema von Sourcemaker · begonnen am 9. Feb 2006 · letzter Beitrag vom 19. Feb 2006
Antwort Antwort
Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
264 Beiträge
 
Delphi 11 Alexandria
 
#1

HTML-Mail erzeugen basierend auf Emsländers Tutorial

  Alt 9. Feb 2006, 18:02
Hi,

ich habe das Beispiel von Emsländer soweit nachgestellt habe aber
das Problem das die Anhänge zwar beim öffnen der Mail vorhanden und
auch richtig dargestellt werden aber in der Übersicht das Zeichen
Anhang (Büroklammer) nicht angezeigt wird.

Delphi-Quellcode:
IdMsgSend.From.Text := Trim(edUserId.Text)+' '+Trim(edFromAdress.Text);
      IdMsgSend.ReplyTo.EMailAddresses := Trim(edFromAdress.Text);
      IdMsgSend.Subject := edSubject.Text;
      IdMsgSend.Recipients.Clear;
      if cbESMTP.Checked then
      begin
         for i := 0 to meToAddress.Lines.Count-1 do
            with IdMsgSend.Recipients.Add do
            begin
               Name := CharRem(#10+#13+';',meToAddress.Lines[i]);
               Address := CharRem(#10+#13+';',meToAddress.Lines[i]);
            end;
      end
      else IdMsgSend.Recipients.EMailAddresses := CharRem(#10+#13,meToAddress.lines.Text);

      IdMsgSend.CCList.Clear;
      if cbESMTP.Checked then
      begin
         for i := 0 to edToCarbonCopy.Lines.Count-1 do
            with IdMsgSend.CCList.Add do
            begin
               Name := '';
               Address := CharRem(';',edToCarbonCopy.Lines[i]);
            end;
      end
      else IdMsgSend.CCList.EMailAddresses := edToCarbonCopy.lines.Text;

      IdMsgSend.BccList.Clear;
      if cbESMTP.Checked then
      begin
         for i := 0 to meToBlindCarbonCopy.Lines.Count-1 do
            with IdMsgSend.BccList.Add do
            begin
               Name := '';
               Address := CharRem(';',meToBlindCarbonCopy.Lines[i]);
            end;
      end
      else IdMsgSend.BccList.EMailAddresses := meToBlindCarbonCopy.lines.Text;

      IdMsgSend.MessageParts.Clear;
      with TIdText.Create(IdMsgSend.MessageParts, nil) do
         ContentType := 'multipart/related';
      with TIdText.Create(IdMsgSend.MessageParts, nil) do
      begin
         ContentType := 'multipart/alternative';
         ParentPart := 0;
      end;
      with TIdText.Create(IdMsgSend.MessageParts, nil) do
      begin
         Body.Text := edText.Text;
         CharSet := 'iso-8859-1';
         ContentTransfer := 'quoted-printable';
         ContentType := 'text/plain';
         ParentPart := 1;
      end;
      with TIdText.Create(IdMsgSend.MessageParts, nil) do
      begin
         x := TStringList.Create;
         JvRichEditToHtml.ConvertToHtmlStrings(edText,x);
         Body.Text := x.Text;
         x.Free;
         CharSet := 'iso-8859-1';
         ContentTransfer := 'quoted-printable';
         ContentType := 'text/html';
         ParentPart := 1;
      end;

      IdMsgSend.ContentType := 'multipart/related; type="text/html"';

      for i := 0 to lbAttachment.Items.Count-1 do
         with TIdAttachmentFile.Create(IdMsgSend.MessageParts, CharRem(#10+#13,lbAttachment.Items[i])) do
         begin
            //ContentType := 'application/ms-excel';
            //ParentPart := 1;
         end;

      try
         SMTP.Send(IdMsgSend);
         IdMsgSendSuccess(Sender);
Ich habe auch schon mit den ParentParts gespielt hatte aber auch keinen Erfolg.
Wenn ich das auskommentierte
Delphi-Quellcode:
with TIdText.Create(IdMsgSend.MessageParts, nil) do
      begin
         ContentType := 'multipart/alternative';
         ParentPart := 0;
      end;
und die anderen ParentParts auf 0 setzte wurde zwar der Anhang richtig angezeigt aber auch
gleichzeitig der HTML-Teil ebenfalls als Anhang beigefügt.
Die HTML-Konvertierung mit JvRichEditToHtml.ConvertToHtmlStrings scheint auch nur halb zu
funktionieren da die Fonts um einigen Zeichen versetzt dargestellt werden.

Als Attachment habe ich die entstandene Mail hinzugefügt.

Grüße

Frank
Angehängte Dateien
Dateityp: txt test_270.txt (21,0 KB, 15x aufgerufen)
Frank
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: HTML-Mail erzeugen basierend aus Emsländers Tut

  Alt 9. Feb 2006, 18:26
Wird im Header eventuell das Attachment nicht mit aufgelistet?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
264 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: HTML-Mail erzeugen basierend aus Emsländers Tut

  Alt 9. Feb 2006, 18:36
Hi Luckie,

kannst Du Deine Frage präzisieren ?
Meinst Du das jetzt auf den Sourcecode bezogen das ich da etwas vergessen habe
oder meinst Du das Ergebnis (das kannst Du in meinen Attachment sehen) ?
Nach meinen Vergleichen mit anderen Mails sah zumindest die Attachmentsektion
gleich aus.

Grüße

Frank
Frank
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: HTML-Mail erzeugen basierend aus Emsländers Tut

  Alt 9. Feb 2006, 18:40
Ich meine den E-Mail Header. Wird da das Attachment korrekt eingetragen? Und wird auch bei anderen Clients der Anhang in der Übersicht nicht angezeigt.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Sourcemaker
Sourcemaker

Registriert seit: 3. Sep 2003
Ort: Westoverledingen
264 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: HTML-Mail erzeugen basierend aus Emsländers Tut

  Alt 9. Feb 2006, 18:49
Wenn die Mail mit Outlook Express geöffnet wird sieht sie normal aus nur in der Posteingangs-
übersicht fehlt die Büroklammer.
Zum Testen hatte ich mir die Mail nach web.de gesandt und da wurde zwar die Mailgröße noch richtig angezeigt aber keinerlei Attachment.

Ich hoffe das beantwortet Deine Frage ?

Grüße

Frank
Frank
  Mit Zitat antworten Zitat
Benutzerbild von emsländer
emsländer

Registriert seit: 21. Aug 2004
Ort: Lengerich
658 Beiträge
 
RAD-Studio 2009 Ent
 
#6

Re: HTML-Mail erzeugen basierend auf Emsländers Tutorial

  Alt 19. Feb 2006, 21:24
Zitat von Sourcemaker:
und die anderen ParentParts auf 0 setzte wurde zwar der Anhang richtig angezeigt aber auch
gleichzeitig der HTML-Teil ebenfalls als Anhang beigefügt.
Die HTML-Konvertierung mit JvRichEditToHtml.ConvertToHtmlStrings scheint auch nur halb zu
funktionieren da die Fonts um einigen Zeichen versetzt dargestellt werden.

Als Attachment habe ich die entstandene Mail hinzugefügt.

Grüße

Frank
Lass mal schön die Finger von den Parents !! Somit verdrehst Du die Mail und die Verschachtelungen klappen nicht mehr. Diese haben mit den Attachements auch nix zu tuen.

und den: //ContentType := 'application/ms-excel'; gibts bei Mail nicht

ich werd mal was über Mails raussuchen -- so ein paar Tonnen Dokus *ggg*

Als ich anfing dieses Ding zu programmieren, hab ich auch übelst über die Deppen, die das Mailprotokoll gebaut haben geflucht! Da sieht man das das Zeug von *ix Fricklern zusammengebastelt worden ist. Umständlicher gehts nimmer.

Gruss

EL


Narben am Körper sind ein Zeichen dafür, das man gelebt hat.
Narben auf der Seele sind ein Zeichen dafür, das man geliebt hat.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz