Hallöchen,

ich benutze die Komponente "ipMsg" aus TurboPower Internet Professional um Emails zu laden,
auszuwerten (via RegEx) und dann zu speichern.
Leider habe ich es noch nicht hinbekommen einen neuen Header in der geladenen EMail einzufügen.

markieren

Delphi-Quellcode:

uses IpMsg;

Msg := TIpMailMessage.CreateMessage;
Msg.LoadFromFile('D:\041\40394.txt');

Mit Msg.Header.Add(TCollectionitem) oder mit Msg.SetHeader(TIpHeaderCollection) komme ich
irgendwie nicht weiter. Oder gibt es eine andere Komponente um Emails auswerten zu können.


Mit besten Grüßen
Remo

Etwas später ... aber ich habe die Lösung gefunden.

Mit folgenden Code bin ich zum Erfolg gekommen:

zusammenfalten · markieren

Delphi-Quellcode:

var
   a: Integer;
   Head: TIpHeaderCollection;
   Info: TStringList;
begin
Msg := TIpMailMessage.CreateMessage;
Head:= TIpHeaderCollection.Create(nil);
Info:= TStringList.Create;

Info.Add('X-Test1: Mein Zeile 1');
Info.Add('X-Test2: Mein Zeile 1');

Msg.LoadFromFile('C:\msg\001.msg');

Head:=Msg.Headers;
Head.Add;
Head.LoadHeaders(Info,True);
Msg.EncodeMessage;

Msg.SaveToFile(''C:\msg\001.msg');
Head.Free;
Msg.Free;
Info.Free;

Das Ergebnis sind 2 neue Headerzeilen, wie in der Stringliste "Info" angegeben sind.