나는 이메일을 수신하기 위해 &을 보내기 위해 Indy를 사용하고 있습니다. 이제는 ssl 메일 서버가 있고 이메일에서 첨부 파일을받지 못 했습니까? 비 SSL 대인디와 함께 ssl에서 첨부 파일을 다운로드 할 수 없습니다
Memo1.Clear;
POP3.ConnectTimeout := 20000;
if POP3.Connected then
POP3.Disconnect;
POP3.Host := '*******';
POP3.Port := 995;
POP3.Username := '*******';
POP3.Password := '*******';
SSLIOHandler.Host := POP3.Host;
SSLIOHandler.Port := POP3.Port;
POP3.IOHandler := SSLIOHandler;
POP3.UseTLS := utUseImplicitTLS
try
POP3.Connect;
except
Memo1.Text := Memo1.Text + 'Can not connect to server' + #13#10;
Memo1.Text := Memo1.Text + '==========' + #13#10;
end;
for i := 1 to POP3.CheckMessages do
begin
Msg.Clear;
POP3.RetrieveHeader(i, Msg)
Memo1.Text := Memo1.Text + 'Subject: ' + Msg.Subject + #13#10;
Memo1.Text := Memo1.Text + 'AttachmentCount: ' + IntToStr(Msg.MessageParts.AttachmentCount) + #13#10;
Memo1.Text := Memo1.Text + 'MessagePartsCount: ' + IntToStr(Msg.MessageParts.Count) + #13#10;
Memo1.Text := Memo1.Text + '==========' + #13#10;
for j := 0 to Msg.MessageParts.Count do
begin
if (Msg.MessageParts.Items[j] is TIdAttachmentFile) then
begin
//My Code
end;
end;
end;
POP3.Disconnect;
Memo1.Text := Memo1.Text + 'End of conecction' + #13#10;
답변 해 주셔서 감사합니다. 내가 사용할 수있는 구성 요소를 알고 있습니까? –
무엇을 원하니? 이메일을 받았습니까? TIdPOP3과 TIdMessage는 제대로 작동하므로, 올바르게 사용하면됩니다. –
올바르게 사용했지만 첨부 파일을 가져올 수 없습니까? –