关于邮件发送

wgxis 2012-07-13 10:40:10
固定发出帐号,但接收邮箱有可能各种(@qq.com, @163.com, @sina.com...)

大家做过成熟的邮件发送的一般用什么组件?
Indy的TidSmtp与TidMessage(是不是有些邮箱接收不到)
jmail
还是其它组件呢。

如果有DEMO是最好了,谢谢。
...全文
136 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
fullhappy 2012-07-19
  • 打赏
  • 举报
回复
我的也是想发送邮件,用IdSMTP和IdMessage
// 发件人地址
IdMessage1.From.Address := 'hzjrsoft@sina.com';
// 发件人姓名
IdMessage1.From.Name := 'hzjrsoft';
// 清空附件
IdMessage1.Clear;
IdMessage1.Recipients.Clear;
// 收件人地址
IdMessage1.Recipients.EMailAddresses := '9951853@qq.com';
// 主题
IdMessage1.Subject := 'TEST_JRSOFT';
// 填写正文
IdMessage1.Body.Add('明日开会通知 务必到场');
// 添加附件
TidAttachment.Create(IdMessage1.MessageParts, edt_File.Text);
// SMTP服务器
IdSMTP1.Host := 'smtp.sina.com';
// 账号
IdSMTP1.Username := 'hzjrsoft';
// 密码
IdSMTP1.Password := edt_Psw.Text;
// 登录时验证身份
IdSMTP1.AuthenticationType := atLogin;
// 连接服务器
IdSMTP1.Connect;
// 加密
IdSMTP1.Authenticate;
// 发送邮件
try
IdSMTP1.Send(IdMessage1);
finally
// 连接关闭
IdSMTP1.Disconnect;
,在IdSMTP1WorkEnd事件中ShowMessage('发送完毕!');
提示成功,但是实际没有发送成功!
kaikai_kk 2012-07-13
  • 打赏
  • 举报
回复
现在网上流行的邮箱都可以,当然包括楼主列出的这几个
不过GMail有点特别,他用了SSL,所要加要一个TIdSSLIOHandlerSocket
网上有很多发邮件的例子,自已百度一下吧

var
SSL:TIdSSLIOHandlerSocket;
begin
SSL:= TIdSSLIOHandlerSocket.Create(nil);
IdSMTP1.IOHandler := SSL;

...
SSL.Free;
end;
z109876543210 2012-07-13
  • 打赏
  • 举报
回复
偶的是idsmtp, http://www.ydtuiguang.com/wztgSEO/ydyjqf/index.html
indy10 应该没什么问题
wgxis 2012-07-13
  • 打赏
  • 举报
回复
补充一点,是准备做邮件群发,可能同一时间(批次)会发送50封邮件左右。

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧