用过SakMail的朋友帮我看看，我只是在软件上加一个简单的发送错误功能.发邮件是出错!(290分)

大家帮我看看.错在哪里，谢谢!
procedure TFormmail.BtnCancelClick(Sender: TObject);
begin

SakSMTP1.host := 'smtp.163.com';
SakSMTP1.Port:='25';
SakSMTP1.UserId:='aaaaa@163.com';
SakSMTP1.UserPasswd:='bbbbb';


SakMsg1.TextEncoding := teBase64;
SakMsg1.CharSet:='iso-8859-1';
SakMsg1.UserName := 'aaaaa@163.com';
SakMsg1.From := 'aaaaa@163.com';
SakMsg1.SendTo := 'aaaaa@163.com';
SakMsg1.Subject := '标题';
SakMsg1.Text.Assign(Memo1.Lines);

SakSMTP1.connect;
if not SakSMTP1.SMTPError then
begin
SakSMTP1.SendTheMessage(SakMsg1);
SakSMTP1.Disconnect;
end;
SakMsg1.Free;
SakMsg1:=TSakMsg.Create(self);
end;

补允,我在SakSMTP1Error里加了ShowMessage(msg);后

提示的错误是IPELINING

昏了

查了资料好像是信箱需要验认的问题,看看谁能帮忙解决

看不出来 太麻烦了

那有没有一种方法可以实现:

用delphi实现邮件发送,需要验证的邮箱.

用idsmtp可以实现验证

idsmtp 跟 SakSMTP1有什么关系吗

完成了.谢谢大家! 这个控件自带验证功能.我改了一下，就可以发送了.发出来大家一起知道一下。

procedure TForm1.Button1Click(Sender: TObject);
begin
SakSMTP1.host := 'smtp.163.com';
SakSMTP1.Port := '25';
SakSMTP1.UserId := 'aoo@163.com';
SakSMTP1.UserPasswd := '123456';

SakMsg1.TextEncoding := teBase64;
SakMsg1.CharSet := 'iso-8859-1';
SakMsg1.UserName := 'aoo@163.com';
SakMsg1.From := 'aoo@163.com';
SakMsg1.SendTo := 'ao@21cn.com';
SakMsg1.Subject := Edit1.Text;
SakMsg1.Text.Assign(Memo1.Lines);
SakSMTP1.connect;

if saksmtp1.Connected then SakSMTP1.Login;
if saksmtp1.Authenticated then begin
if not SakSMTP1.SMTPError then
begin
SakSMTP1.SendTheMessage(SakMsg1);
SakSMTP1.Disconnect;
end;
SakMsg1.Free;
SakMsg1 := TSakMsg.Create(self);
end;

end;