Indy IdMessage und Message ID?

[Schucki]

Hallo,

ich möchte gerne zu meinen eMails eine MSG-ID generieren, das klappt auch alles doch wenn ich die IdMsg als File auf die Platte speichern möchte, finde ich keinen Eintrag. Warum nicht, habe ich einen Schritt vergessen?

var genMsg = IdMessage;


genMsg.Clear;
genMsg.Date:=Now;
genMsg.From.Address:=ADR_FROM;
genMsg.Recipients.EMailAddresses:=ADR_TO;
genMsg.Subject:='Testmail...';
genMsg.UID:='wh'+FormatDateTime('yymmddssnnhh', now)+'A3F4E4local';
genMsg.Body.Text:=memWelcome.Text;
genMsg.Body.Text:=memMail.Text;
genMsg.SaveToFile('out.txt');


out.txt Inhalt...

From: "[e-mail]" <[e-mail]>
Subject: Tstmail...
To: [e-mail]
Date: Thu, 4 Sep 2008 03:17:32 +0200

Hello Test hier und da...
.





Ich dachte ich bekomme auch den Eintrag:

Message-ID: <>


Hat jemand einen Tip?

Gruß Frank

[SirThornberry]

Zitat:

...finde ich keinen Eintrag

Was verstehst du unter Eintrag und wo findest du keinen Eintrag wo du aber einen erwartest? Oder meinst du das du keine Datei findest? Das könnte daran liegen das du nur "out.txt" angibst aber keinen Pfad dazu. Das heißt die Datei wird schon irgendwo liegen nur ist eben nicht genau bestimmt wo weil dies von deinem Arbeitsverzeichnis abhängig ist was sich schnell mal ändern kann. Wenn du mit eingeschränkten Rechten arbeitest kann es auch sein du findest die Datei gar nicht weil du im Windows-Verzeichnis (welches oftmals das Arbeitsverzeichnis ist) keine Schreibrechte hast.

[Schucki]

Also ich dachte ich könnte die IdMessage Komponente zum erstellen von eMails verwenden.
In der eMail also wenn man sie als Datei speichert sollten dann die verschiedenen Einträge auftauchen.

Doch das passiert nicht bei allem.

genMsg.Date:=Now;
erzeugt die Zeile:
Date: Thu, 4 Sep 2008 03:17:32 +0200

genMsg.From.Address:=ADR_FROM;
erzeugt die Zeile:
From: "[e-mail]" <[e-mail]>

genMsg.Recipients.EMailAddresses:=ADR_TO;
erzeugt die Zeile:
To: [e-mail]

genMsg.Subject:='Testmail...';
erzeugt die Zeile:
Subject: Tstmail...

Nur diese hier funktioniert so nicht.
genMsg.UID:='wh'+FormatDateTime('yymmddssnnhh', now)+'A3F4E4local';
Sollte eine Zeile wie:

Message-ID: <wh11223344556677A3F4E4local>
Erzeugen aber Fehlanzeige...



Gruß Frank

[remo.mueller]

Die "Message-ID" wird von IdMessage nicht selbst erzeugt. Man muß es einfach selbst machen.
Falls man jedoch eine Nachricht an einen Mailserver sendet und es ist der Header
"Message-ID" nicht vorhanden, dann wird dieser durch den Server erstellt.

Hier mein Beispiel:

Delphi-Quellcode:

Var
    IdMessage : TIdMessage;
    MID: String;
begin

MID:='wh'+FormatDateTime('yymmddssnnhh', now)+'A3F4E4@local';
IdMessage := TIdMessage.Create(Nil);
IdMessage.Date := now;
idMessage.From.Name:='Absender';
idMessage.From.Address:='[e-mail]';
idMessage.Recipients.EMailAddresses:='[e-mail]';
idMessage.Subject:='Testnachricht';
idMessage.Body.Add('TEXT_1');
idMessage.Body.Add('Text_2');
idMessage.AddHeader('Message-ID: <' + MID + '>');
idMessage.SaveToFile('C:\mail.txt');
end;

Am Besten man erzeugt gleich ein gültige Message-ID, welche auch ein "@" enthalten sollte.
Ich selbst verwende Units aus Indy ungern und setze lieber auf Synapse.
Siehe: http://synapse.ararat.cz Und hier die Unit "mimemess".


MfG
Remo