有谁用过sakemail的saksmtp组件(50分)

  • 主题发起人 主题发起人 lights
  • 开始时间 开始时间
L

lights

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟最近用sakemail写了一个发送程序,但是我发现,我所发出的信对
方(其实也是我自己的信箱)不能马上收到,最快也要等半天的时间(
我使用的是网易的服务器smtp.netease.com,发送目标一般是润讯和网易
)。但是我看大富翁所使用的发信组件也是sakemail啊,为什么大富翁
发的信我基本上总是能上第一时间能到),以下贴出我的发信代码段,
可能有错误,请各位帮我看一看。

SakSMTP1.host:=MainForm.SmtpServer[ii+3];
MainForm.SakMsg1.UserName:=MainForm.SmtpServer[ii+2];
MainForm.SakMsg1.From:=MainForm.ComboBox1.Text;
MainForm.SakMsg1.Subject:=MainForm.MailSubJect.Text;
SakSMTP1.connect;
if not SakSMTP1.SMTPError then
begin
j:=Send.Count div 2-1;//Send是TStringList类对象返回OUTLOOK地址
//薄中的USER COUNT
for i:=0 to j do
begin
MainForm.SakMsg1.SendTo:=MainForm.AddressList[i*2];
AddText(i);
Label1.Caption:='正在发送到:'+MainForm.SakMsg1.SendTo;
try
SakSMTP1.SendTheMessage(MainForm.SakMsg1);
except
end;
end;
SakSMTP1.quit;
Button2.Visible:=false;
end
else
begin
Label1.Caption:='连接服务器失败...';
MessageBoxLg(Handle,'无法连接到发件服务器!','提示信息',MB_OK);
end;
Close;

以上代码是使用连入服务器后连续的发信,不知道SAKEMAIL这样做行不行。
 
怎么没有人回应我啊!
 
发一个组件给我,LET ME TRY!
LOOPY@netease.com
 
你用其他的EMAIL客户端软件试过吗?是不是也要很长的时间?
这个组件我用过,确切的说现在也在使用,并没有如你的情况啊!
我认为这可能是你选用的邮件服务器的问题,与sakemail组件无关。
 
to Alden Zhou:
SakEMail的确很有名,但是其好像不支持多线程。发信的时候如果服务器端有一
段时间没有响应,那么使用SakEMail的那个程序就会像DOWN掉了一样。我想找一个即
支持多线程,又可以显示发信进度的E-MAIL组件。不知道哪里有啊。
 
你可以试一下delphi 下的NMSMTP控件,我用过它,没有出现你说的那种故障,因为这类控件都使用标准的pop3协议,
(由以下命令:HELLO,MAIL,RCPT,DATA,SEND,SOML,SAML,.....组成).可能是服务器故障.
能给我发一个sakemail控件吗?我有急用.
 
为什么要用循环发送?可以在sendto中指定多个email地址(有的服务器不支持)。
 
这个跟你选用的EMAIL服务器有关,跟SAKEMAIL无关
 
先用foxmail试一下,看有没有问题,如果也有,那就是服务器的问题
sakemail应该不会出现这样的问题,其实我正在研究sakemail

to lig,自己研究sakemail的源代码后自己写吧

to syn123,马上给你发一个过去
 
多人接受答案了。
 
后退
顶部