Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi IdMessage mit Anhang ausstatten (https://www.delphipraxis.net/47467-idmessage-mit-anhang-ausstatten.html)

CalganX 11. Jun 2005 17:49


IdMessage mit Anhang ausstatten
 
Hi,
ich würde gerne meine eMail-Nachricht, die in einer TIdMessage-Komponente gespeichert ist, um einen Datei-Anhang erweitern. Nun habe ich in den Indy-Demos folgendes gelesen:
Delphi-Quellcode:
TIdAttachmentFile.Create(msgMail.MessageParts, FSourceFileName);
Allerdings sieht meine Mail dann so aus (beim Empfänger):
Zitat:

Dies ist ein Test.

begin 660 sonstwas.txt
@2&EE<B!S=&5H96X@96EN('!A87(@1&EN9V4@9')I;BX`
`
end
Allerdings steht in der Textdatei, die angehängt sein sollten was ganz anders drin. :?

Wo liegt diesmal mein Fehler? ;)

Chris

CalganX 11. Jun 2005 19:30

Re: IdMessage mit Anhang ausstatten
 
Okay, Nachtrag. ;)
Ich habe das ganze jetzt soweit gebracht, dass ich wirklich einen richtigen Anhang habe.
Allerdings sieht die Mail im Body jetzt so aus:
Zitat:

------- Start of text attachment -------
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

Dies ist ein Test.
------- End of text attachment -------
Mein Source sieht dementsprechend aus:
Delphi-Quellcode:
            {MIME-Mail konfigurieren}
            msgMail.ContentType := 'multipart/mixed';
            msgMail.Encoding := meMIME;

            TempContent := TStringList.Create;
            try
              TempContent.Assign(msgMail.Body);
              msgMail.Body.Clear;
              with TIdText.Create(msgMail.MessageParts, TempContent) do
                ContentType := 'text/plain';
            finally
              TempContent.Free;
            end;
            {Anhang anhängen}
            with TIdAttachmentFile.Create(msgMail.MessageParts, FSourceFileName) do
              ContentType := 'text/plain';
Jemand eine Idee, was ich vergessen/falsch gemacht habe?

Chris

CalganX 11. Jun 2005 20:06

Re: IdMessage mit Anhang ausstatten
 
Hi,
:wall:
Der Fehler war ein ganz anderer: in der Nachricht, die in meiner IdMessage-Komponente gespeichert war, enthielt bereits diesen MIME-Header. :?

Somit wäre das auch erledigt. ;)
Chris

Ungeübter 12. Jun 2005 11:35

Re: IdMessage mit Anhang ausstatten
 
Hi Chakotey,

die Komponente sieht interessant aus, allerdíngs bekomme ich es nicht hin die mail abzuschicken. Kannst du mir mal bitte eine kleine Anleitung schreiben wie man die Komponente benutzt? Wäre super.

Gruß

CalganX 12. Jun 2005 11:53

Re: IdMessage mit Anhang ausstatten
 
Hi,
ich verweise dich einfach mal auf die Indy-Demos und gängige Tutorials (findest du auch in der DP). ;)

Aber generell ist das Prinzip ganz einfach: TIdMessage stellt deine eMail da. Egal, ob du was versendest oder erhälst. Jede eMail, die mit Hilfe der Indy-Komponenten verwaltet wird, läuft über diese Komponente. Wenn du nun zum Beispiel eine eMail versenden willst, musst du nur die entsprechende Komponente (in diesem Fall TIdSMTP) dazu anweisen eben die Instanz der TIdMessage-Komponente zu versenden. ;)

Gutes Beispiel ist dafür die Indy-Mail-Demo, die du auf der Indy-Website findest.

Chris


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz