近来用sakmail控件发送不了邮件,高手请进,急!!!
发送邮件时,当程序运行到这一句时就报错SakSMTP1.connect;,错误为提示为:
windows socket error: 您的主机中的软件放弃了一个已建立的连接 (10053), on api 'connect'程序代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
            SakSMTP1.host := 'smtp.163.com';
            SakSMTP1.UserId:='userA';
            SakSMTP1.UserPasswd:='password';
            SakSmtp1.Authenticated:=True;
            SakMsg1.CharSet := 'ISO-8859-1';
            SakMsg1.TextEncoding := te8Bit;
            SakMsg1.UserName := 'userA';
            SakMsg1.From := '[email protected]';
            SakMsg1.SendTo := '[email protected]';
            SakMsg1.Subject := 'messages';
            SakSMTP1.connect;    //《--------当程序运行到这一句时就报错            if not SakSMTP1.SMTPError then
            begin
                 SakSMTP1.SendTheMessage(SakMsg1);
                 SakSMTP1.Disconnect;
                 SakMsg1.Free;
                 showmessage('send ok');
            end;
end;请高手帮忙,急!!!在线等待

解决方案 »

  1.   

    请大家帮忙啊!
    我为了这个问题已经几天没吃没喝了...痛苦啊!电脑能够正常上internet互联网,是用的电信的ADSL网络快车。我开始以为是操作系统的问题,后来我试了windows2000和winxp系统,程序还是报错。
    后来以为是delphi版本的问题,于是我试了delphi6和delphi7,程序也还是报错。
    最后认为是sakmail版本问题,我试了sakmail3.7.0和sakmail4.0.7两个版本,结果程序照样报错。问题会出在哪里呢???
      

  2.   

    这VCL很老了
    你换别的吧。
      

  3.   

    不会吧,sakmail4.0.7 是最新的版本呀