delphi代理邮件服务器代码

最新推荐文章于 2019-08-29 09:12:00 发布

lichenxin11

最新推荐文章于 2019-08-29 09:12:00 发布

阅读量1k

点赞数

文章标签： delphi 邮件服务器 login 服务器 insert

本文链接：https://blog.csdn.net/lichenxin11/article/details/5164177

版权

该代码段展示了如何在Delphi中通过IdSMTP组件设置SMTP服务器登录信息，包括主机名、用户名、密码，并发送邮件。程序还包含了连接、断开SMTP服务器，以及处理登录认证的过程。此外，它还涉及了将邮件信息保存到数据库的逻辑。

摘要由CSDN通过智能技术生成

procedure TwriteMail.Button1Click(Sender: TObject);
begin

          //IdSMTP1.ReadChar();

   try
     IdSMTP1.Host :=self.send_fu.Text;//'smtp.sina.com'
     IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login
     IdSMTP1.Username :=self.send_name.Text; //'hei108@sina.com';
     IdSMTP1.Password :=self.send_pwd.Text; //'ABUV6D8'
     //filename := 'E:/邮件发送程序/2003-12-22_253_04.jpg';    //需要添加的附件文件
     //TIdAttachment.Create(IdMessage1.MessageParts,filename);   //添加附件

    IdMessage1.From.Address :=IdSMTP1.Username; //'hei108@sina.com'
     IdMessage1.Recipients.EMailAddresses:=self.resive_name.Text;//'hei108@sina.com'

    // tmpEMailItem := IdMessage1.Recipients.Add;   //添加一个地址列表

     self.resive_name.Text :=IdSMTP1.Username;//self.resive_name.Text; //写一个收件人