TIdPOP3Server로 일부 [텍스트] 파일로 이메일 보내기

Question

OnRetrieve 이벤트를 통해 TIdPOP3Server 인디 10에 텍스트 파일을 보내는데 문제가 없지만 여러 파일을 보내는 방법을 모르겠습니다.

이

if MsgDecode.MessageParts[i] Is TIdAttachment then begin 
    (MsgDecode.MessageParts[i] as TIdAttachment).SaveToFile((MsgDecode.MessageParts[j] as TIdAttachment).FileName); 

사람이이 문제를 좀 도와 줄래 : 나는,하지만 어떻게 사람 다음과 같이 전송 된 파일을 읽을 수 있습니다 내 POP3 클라이언트 내 TIdPOP3Server.OnRetrieve 이벤트에서 TIdAttachment을 보낼 수는 TIdMessage에 TIdAttachment 달성되는 SMTP와 참조 ?

이 내 OnRetrieve 이벤트 :

procedure POP3ServerRetrieve(aCmd: TIdCommand; AMsgNo: Integer); 
If (AMsgNO >= 1) AND (AMsgNo<=myMailsCount) then begin 
aCmd.SendReply; 
aCmd.Response.LoadFromFile('mail_filename'); 
aCmd.Response.LoadFromFile('mail_attachment_filename_1'); 
// ... loading N attachments 
end 
Else aCmd.Reply.SetReply(ERR,Format(' -Message %d Does not exist.',[AMsgNO])); 

Answer 1

대신이 시도 :

이

procedure POP3ServerRetrieve(aCmd: TIdCommand; AMsgNo: Integer); 
var 
    Msg: TIdMessage; 
    Stream: TMemoryStream; 
begin 
    if (AMsgNO >= 1) AND (AMsgNo <= myMailsCount) then 
    begin 
    Stream := TMemoryStream.Create; 
    try 
     Msg := TIdMessage.Create; 
     try 
     // fill Msg as needed ... 
     Msg.SaveToStream(Stream); 
     finally 
     Msg.Free; 
     end; 
     aCmd.Reply.SetReply(OK, 'message follows'); 
     aCmd.SendReply; 
     aCmd.Connection.IOHandler.Write(Stream); 
    finally 
     Stream.Free; 
    end; 
    end 
    else 
    aCmd.Reply.SetReply(ERR, Format('Message %d Does not exist.', [AMsgNO])); 
end;