如 var tmpstr:string; begin tmpstr:=edit1.text1;//用户名 if nmsmtp1.verify(tmpstr) then showmessage(tmpstr+'verified') else showmessage(tmpstr+'not verified'); end;
我试了的。每次反回都是不合法!! 我用的是我自己的SINA和163的邮箱。
那么说具体的吧。假如 是不是该在stmp.connect之后,用: procedure Button1Click(Sender: TObject); var tmpstr:string; begin tmpstr:='abc';//用户名 if nmsmtp1.verify(tmpstr) then showmessage(tmpstr+'verified') else showmessage(tmpstr+'not verified'); end;
var
tmpstr:string;
begin
tmpstr:=edit1.text1;//用户名
if nmsmtp1.verify(tmpstr) then
showmessage(tmpstr+'verified')
else
showmessage(tmpstr+'not verified');
end;
我用的是我自己的SINA和163的邮箱。
是不是该在stmp.connect之后,用:
procedure Button1Click(Sender: TObject);
var
tmpstr:string;
begin
tmpstr:='abc';//用户名
if nmsmtp1.verify(tmpstr) then
showmessage(tmpstr+'verified')
else
showmessage(tmpstr+'not verified');
end;
host
port
userid
都得写