写过邮件验证的请进！验证收件人是否存在

[22222bbb]

哪位大虾写过Smtp邮件验证的功能求指导，找了很多资料，但都不详细。只看到helo和ehlo这两种，但不知道怎么使用

[lyhoo163]

Smtp邮件验证：

  case Combobox1.ItemIndex of
    0 : IdSMTP1.AuthenticationType:=atLogin;      // 需要认证
    1 : IdSMTP1.AuthenticationType:=atNone;       // 无需认证
  end;

邮件发送二步走：

  try
    IdSMTP1.Connect;
  except
    statusbar1.Panels[0].text:=IntToStr(List)+'、无法连接到服务器！';
    exit;
  end;
  Try
    IdSMTP1.Send(TM);
  except
    IdSMTP1.Disconnect;
    statusbar1.Panels[0].text:=IntToStr(List)+'、发送邮件失败！';
    exit;
  end;