近来用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;请高手帮忙,急!!!在线等待
发送邮件时,当程序运行到这一句时就报错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;请高手帮忙,急!!!在线等待
我为了这个问题已经几天没吃没喝了...痛苦啊!电脑能够正常上internet互联网,是用的电信的ADSL网络快车。我开始以为是操作系统的问题,后来我试了windows2000和winxp系统,程序还是报错。
后来以为是delphi版本的问题,于是我试了delphi6和delphi7,程序也还是报错。
最后认为是sakmail版本问题,我试了sakmail3.7.0和sakmail4.0.7两个版本,结果程序照样报错。问题会出在哪里呢???
你换别的吧。