邮件发送代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】邮件发送

作者:冥想_ / 发布于2014/8/6/ 928


	procedure TForm1.Button1Click(Sender: TObject);
	begin
	SMTP.Host:='smtp.xxxx.com.cn';
	SMTP.Port:=25;
	smtp.UserId:='xxxxx@goodview.com.cn';
	SMTP.password:='**********';
	SMTP.AuthenticationType := atLogin;
	MailMessage.From.Address:='xxxxx@goodview.com.cn';发送人邮件
	MailMessage.Recipients.EMailAddresses:='xxxxx@goodview.com.cn';//接收人邮件
	
	MailMessage.Subject:='';//主题
	MailMessage.Body.Text:='';//内容
	TIdAttachment.Create(MailMessage.MessageParts,'C:\Users\xxxx.xls');//附件
	try
	 SMTP.Connect;
	 SMTP.Authenticate;
	 SMTP.Send(MailMessage);
	 finally
	 SMTP.Disconnect;
	 end;
	end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　邮件发送　

同语言下

可能有用的

冥想_贡献的其它代码(22)