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这样做行不行。
方(其实也是我自己的信箱)不能马上收到,最快也要等半天的时间(
我使用的是网易的服务器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这样做行不行。