怎样判断一个邮件服务器上一个用户名存在不存在.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 16 行

用NMSMTP控件的Verify命令来验证
很简单，请看帮助

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.sina.com.cn';
  NMSMTP1.Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if NMSMTP1.Verify('sun77wind') then
    ShowMessage('True') else
  ShowMessage('False');
end;