谁有用INDY控件编写发送电子邮件源码？ ( 积分: 200 )

我想在程序中实现自动发送电子邮件程序应如何做？
我在程序中以经生成一个压缩文件想在生成压缩文件时将其传到我的邮箱中那位能给个原码参考一下？ 例子我没有测试成功：
smtp t pop3都 设了！用smtp.126.com 和smtp.163.com都 试了没成功！请各位给一个源码！要求能发附件的那种！我的邮箱：account_2004@126.com
关于mailclient安全设置应如何设置呀？

我想在程序中实现自动发送电子邮件程序应如何做？
我在程序中以经生成一个压缩文件想在生成压缩文件时将其传到我的邮箱中那位能给个原码参考一下？ 例子我没有测试成功：
smtp t pop3都 设了！用smtp.126.com 和smtp.163.com都 试了没成功！请各位给一个源码！要求能发附件的那种！我的邮箱：account_2004@126.com
关于mailclient安全设置应如何设置呀？

查看一下.../demo/indy/mailclient
里面有发送邮件的演示程序的，

例子看了，但不能测试成功不知为何？有人自己编写成功的吗给一个例子！

楼上所讲demo可以通过，楼主可以好好测试，尤其是其中的安全验证的设置等等。
当然，不支持中文邮箱。

这个问题我觉得很难办，而且现在很多的邮箱是不准匿名邮件传送的。你多查一个黑客的书吧，还有木马的原理。

indy 好象可以通过安全验证吧，中文也是支持的
你搜一下，我在论坛上发过中文解码，我也是转发别人的，都能用啊

请大家再次支持 ！我用它提供例子不能发送成功！请问是那个呀？

你在邮箱是多少，我发过给你

我刚才已发给你了
注意：这个实例中编译不过去，要把提示错误的地方.UserID 改为 .UserName就可以了


shiwei-l@163.com

经测试mailclient能发送邮件！

我的机器下怎么没有.../demo/indy/mailclient这个目录，上面的各位好友，可否发个例程给我用用啊？？
谢谢！！
邮箱：daoba@e165.com

楼上的朋友，能发一份给我啦，
非常感谢，Royce.liu@163.com

// Indy Sender Email
function SenEmail(fromAddress, ToAddress, Subject, Attachment: string;
body: Tstrings; Host, UserID, Password: string;
atLog: boolean): boolean;
var
DSmtp: TIdSMTP;
IDmsg: TIdMessage;
begin
DSmtp := TIDSmtp.Create(application);
IDmsg := TIDMessage.Create(application);
//IDmsg.Clear;
Idmsg.From.Text := fromAddress;
//IDmsg.Headers.Text:='test';
IDmsg.Recipients.EMailAddresses := ToAddress;
if Attachment <> '' then
TIdAttachment.Create(IdMsg.MessageParts, Attachment);
IDmsg.Priority := TIdMessagePriority(mpHigh); { Message Priority }
IDmsg.Subject := Subject;
IDmsg.Body.Text := body.Text;

if atLog then DSMTP.AuthenticationType := atLogin ; //不用验证就不要这行;
DSmtp.Host := Host;
DSmtp.UserId := UserId;
DSmtp.Password := Password;
DSmtp.Port := 25;
try
DSMTP.Connect;
Dsmtp.Send(IDmsg);
Result := true;
except
Result := false;
DSMTP.Disconnect ;
end;
Idmsg.Free;
DSmtp.Free;
end;

试试看。