TForm1 = Class(TForm)
..
lstMailBox: TListBox;
private
public
end;
Procedure getMailBoxList;
var
I: Integer;
lstMailBox: TStringList;
begin
//메일함 목록을 가져옵니다.
IdIMAP4.ListMailBoxes(lstMailBox);
lstMailBox.Items.BeginUpdate;
try
for I := 0 to lstMailBox.Count - 1 do begin
//메일함 목록을 저장합니다.
lstMailBox.Items.Add(lstMailBox[I]);
end;
finally
lstMailBox.Items.EndUpdate;
end;
end;
2017/10/11 - [Delphi/꿀Tip] - [E-Mail] Mail에 로그인 하기 - 1
2017/10/25 - [Delphi/꿀Tip] - [E-Mail] 메일함의 메일 리스트 불러오기 - 3
반응형