H
hbsbx
Unregistered / Unconfirmed
GUEST, unregistred user!
我用delphi 4.0编了一发送邮件的小程序,每回第一次发送,回复为成功,所显发送字节也对,就是收不到,连发两次才能收到,对小邮件来说无所谓,但恰恰我是用来上报数据的,各位大侠请帮忙,我所用控件为delphi的标准控件.
发送部份的代码如下:
begin
NMSMTP1.PostMessage.FromAddress := Edit6.Text;//发信地址
NMSMTP1.PostMessage.FromName := Edit5.Text;//发信人
NMSMTP1.PostMessage.Subject := Edit10.Text;//主题
NMSMTP1.PostMessage.ToAddress.Add(Edit7.Text);//收信地址
NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items);
//附件
NMSMTP1.SendMail;
end;
发送部份的代码如下:
begin
NMSMTP1.PostMessage.FromAddress := Edit6.Text;//发信地址
NMSMTP1.PostMessage.FromName := Edit5.Text;//发信人
NMSMTP1.PostMessage.Subject := Edit10.Text;//主题
NMSMTP1.PostMessage.ToAddress.Add(Edit7.Text);//收信地址
NMSMTP1.PostMessage.Attachments.AddStrings(Listbox1.Items);
//附件
NMSMTP1.SendMail;
end;