indy10+CB6发送邮件

qq_31653739 2016-05-27 07:14:21

求助各位，我想学习用indy发送邮件。弄了半天也没成功。你能不能给我一个最简单的发送邮件的代码。
我看网上一个帖子说用IdSMTP1、IdMessage1这两个控件就可以实现。真心感谢！！！

...全文

1022 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

qq_31653739 2016-06-02

打赏
举报

谢谢您了。真心感谢！！！！

银点 2016-05-31

打赏
举报

亲测成功


try
	{
		IdSMTP1->Host = "stmp.126.com";//你的邮箱服务器
		IdSMTP1->Username = "username";//你的邮箱用户名
		IdSMTP1->Password = "password"; //你的密码
		IdSMTP1->Connect();
		IdMessage1->Clear();
		IdMessage1->From->Address = "username@126.com";   //你的邮箱
		IdMessage1->Recipients->EMailAddresses = "another_user@126.com";  //这里要改成你的目的地邮箱
		IdMessage1->Body->Add("This is the first line.");
		IdMessage1->Body->Add("This is the second line.");
		IdMessage1->Subject = "This is Only a Test";
		IdSMTP1->Send(IdMessage1);
	}
	catch(Exception& e)
	{
		MessageBox(0,L"test",e.Message.c_str(),MB_OK);
	}