一个月都没有人搞定这问题真的很难吗？高手呀你在哪里？谁有在delphi7环境下发送电子邮件的原代码?

Question

一个月都没有人搞定这问题真的很难吗？高手呀你在哪里？谁有在delphi7环境下发送电子邮件的原代码?

Answer 1

好像用sendMessage即可实现邮件的发送.但是具体的方法记不得了
帮你顶!

Answer 2

 try
 IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型
 IdSMTP1.Username:='tiaoma'; //设置登陆帐号
 IdSMTP1.Password:='tiaomafang'; //设置登陆密码
 IdSMTP1.Host:='mail.shinwa.com.cn'; //设置SMTP地址
 IdSMTP1.Port:= 25 ; //设置端口 必须转化为整型
 IdSMTP1.Connect; //开始连接服务器
 except
 Showmessage('连接失败,请重试!');
 Exit; //连接失败 的话 退出该执行过程
 end;
 IdMessage1.Body.Clear; //先清空上次发送的内容
 IdMessage1.Subject:='title'; //设置邮件发送的标题
 IdMessage1.Body.Add('content'); //设置邮件发送的主体
 IdMessage1.From.Address:='[email protected]'; //设置邮件的发件人 也就是说该邮件来自什么地方
 IdMessage1.Recipients.EMailAddresses:='[email protected]'; //收件人的地址
 try
 idSMTP1.Send(IdMessage1);
 Showmessage('邮件发送成功!');
 except
 Showmessage('邮件发送失败!');
 end;

Answer 3

我以前用的GMAIL写过一个,很简单的
你去网络下个gmail.dll