ShowMessage('接受郵件 connect before...');
IdPOP31.Connect();
ShowMessage('接受郵件 connect sucessful...');
mailcount := IdPOP31.CheckMessages;
ShowMessage('mailcount: ' + IntToStr(mailcount));
for i := 1 to mailcount do
begin
IdMessage1.Clear;
Memo2.Lines.Add('----------------------------------------');
ShowMessage('RetrieveHeader before ...');
try
IdPOP31.RetrieveHeader(i, IdMessage1) ;
finally
end;
ShowMessage('RetrieveHeader after ...');
ShowMessage(IdBase64Decoder1.CodeString( IdMessage1.Subject));
sub := IdMessage1.Subject;
Memo2.Lines.Add(IdBase64Decoder1.CodeString(sub));
IdPOP31.Retrieve(i,IdMessage1) ;
// tmp := IdMessage1.Body.Text;
Memo2.Lines.Add(IdMessage1.Body.Text);
end;
IdPOP31.Disconnect;
在代碼try
IdPOP31.RetrieveHeader(i, IdMessage1) ;
finally
只能讀取郵件數量，無法讀取郵件內容
希望哪位大神幫忙解決一下
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/114669.html
標籤：網絡通信/分布式開發