procedure TForm1.Button1Click(Sender: TObject);
begin
//添加附件
Opendialog1.Filename:='';
Opendialog1.Filter:='所有文件|*.*';
if Opendialog1.Execute then
begin
edt_File.Text:=Opendialog1.FileName;
end;
end;
mailcelln := 0 ;
if NMPOP31.MailCount > 0 then
begin
//mailcelln控制符合条件的邮件显示到stringgrid1中.
for getM := 1 to NMPOP31.MailCount do
retrieveEnd(false);
stringgrid1.RowCount := mailcelln + 1 ;
// NMPOP31.GetSummary(getM);
//mailcelln 变量改为控制将stringgrid1中显示的邮件实现接收到本地.
for mailcelln := 1 to stringgrid1.RowCount-1 do
begin
retrieveEnd(true) ;