急急急！！！！编写邮件发送程序？

[goodfeng110]

要求：
电脑每天自动发送邮件。
每天只要发送二十几个。（数据从数据库取）
请问在D7要用什么控件，怎样才知道是否发送成功！

[drift1981]

用timer来控制判断是否到了发送时间，用tidsmtp与TIdMessage进行发送，
Fsend :tidmtp
Femail :tidmessage;
try
try
Fsend.Connect;
Fsend.Send(Femail);
application.MessageBox('发送成功','成功',MB_ok);
Except
Fsend.DisconnectSocket ;
Fsend.Disconnect ;
application.MessageBox('连接SMTP服务器出现错误','错误',MB_ICONERROR);
exit;
end;
finally
Fsend.DisconnectSocket ;
Fsend.Disconnect ;
end;

[goodfeng110]

用这个怎么指定邮箱名,如[e-mail]

[drift1981]

FEmail.From.Text := 发送邮箱;
Femail.Recipients.EMailAddresses :=接受邮箱

Femail.Subject:=主题
Femail.body.text :=正文

Fsend.Username :=发送邮箱名称
Fsend.password：＝发送邮箱密码
Fsend.host :=邮件服务器地址
Fsend.port :=端口

[chizengkun]

你不是要发送一些垃圾邮件吧

[goodfeng110]

为什么在Fsend.Connect;出错,

[shitianj]

上面一楼老兄的正解，
你的报错是提示什么错误信息？
有些邮件服务器是不能在发送时就判断是否发送成功的
就像你用SOHU发一封信，开始提示‘发送成功’而后又收到一封邮件告诉你，你的XX封信件发送失败了~~
就这样的，如果是自己的邮件服务器的话就不一样了，你可以设置服务器时进行设置对发送失败的信件重发~~

[goodfeng110]

access violation at address 什么的

[chizengkun]

你的邮件地址不对吧，或是你设置的邮件服务器的协议不对，邮件服务器地址有的是pop3.xxx.com或是其它的，如china上的地址就是freemail.china.com什么的，你要到你的邮件服务器上去看一看是什么样的

[goodfeng110]

fsend.Host:='smtp.126.com';//pop3.126.com都试过了不行
fsend.port:=25;
fsend.Username:='[e-mail]';
fsend.Password:='pww';
Fsend.Connect;
Fsend.Send(Femail);
application.MessageBox('发送成功','成功',MB_ok);

[drift1981]

Femail的from和to的地址都要写的，否则发不出去

[荣爵]

這方面的例子網上很多嘛~~

[goodfeng110]

you are not authorized to send as <[e-mail]>这是为什么

[goodfeng110]

在D7中怎么编写发送程序

[todouwang]

1。拿个timer自己去写吧，不会很复杂的

2。有sendbuffer();

[yjm820604]

哇那么厉害！

[datland]

最好用多线程.
发现一个可以下载(Delphi)代码的地方:
http://www.datcn.com/luntan/dispbbs.asp?boardID=26&ID=879

[zdq801104]

学习