2

POP3メッセージからTMemoにヘッダーテキストを取得したいと思います。これを行う方法がわかりません。これが私がこれまでに得たものです：

try
IdPOP31.Connect();
MsgCount := IdPOP31.CheckMessages;
for i:= 1 to MsgCount do
begin
try
 FMailMessage := TIdMessage.Create(nil);
 IdPOP31.Retrieve(i,FMailMessage);
 Memo1.Lines.Add('Mesage #: ' + IntToStr(i);
 Memo1.Lines.Add('From name: ' + FMailMessage.From.Name);
 Memo1.Lines.Add('From address: ' + FMailMessage.Sender.Address);
 Memo1.Lines.Add('Subject: ' + FMailMessage.Subject);
 Memo1.Lines.Add('From:' + FMailMessage.From.Address);
 Memo1.Lines.Add('Recipients: ' + FMailMessage.Recipients.EMailAddresses);
// HOW DO I GET THE HEADER ???????
 Memo1.Lines.Add(FMailMessage.Body.Text);
 Memo1.Lines.Add('=================================================');
finally
 FMailMessage.Free;
end;
IdPOP31.Disconnect;
end;
4

1 に答える 1

2

子孫Headersであるメッセージのプロパティを使用できます。TStringListしたがって、メッセージのヘッダー値をメモに追加するには、次のいずれかのステートメントを使用できます。

// either you can use AddStrings method
Memo1.Lines.AddStrings(IdMessage1.Headers);
// or add it as string list's text e.g.
Memo1.Lines.Add(FMailMessage.Headers.Text);
于 2013-01-21T14:27:18.997 に答える