Download email dari server…?

Nov

30

2013

Minta Tolong koreksi, karna waktu di run Code ini masih ada errornya :”Connection Closed Gracefully”,
the code :
————-
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i: Integer;
begin
IdPOP31.Host := editServer.Text;//pop.gmail.com
IdPOP31.Username := editUsername.Text;//[email protected]
IdPOP31.Password := editPassword.Text;//pass
try
IdPOP31.Connect;
for i := 1 to IdPOP31.CheckMessages do begin
IdPOP31.RetrieveHeader(i, IdMessage1);
with ListView1.Items.Add do begin
Caption := IdMessage1.From.Text;
SubItems.Add(IdMessage1.Recipients.EMailAddresses);
SubItems.Add(IdMessage1.Subject);
SubItems.Add(DateToStr(IdMessage1.Date));
end;
end;
finally
IdPOP31.Disconnect;
end;
end;
————
Kurang apa ya…?

Kategori: Delphi Ditanyakan oleh: [2 Grey Star Level]

Jawab Pertanyaan

Anda harus Log In untuk menjawab pertanyaan.

Belum bergabung? Daftar Sekarang »