Delphi 发送邮件

邮件是我们日常工作中必不可少的一部分，而Delphi作为一款强大的编程语言也可以使用其内置的邮件组件来发送邮件。下面我们来详细介绍如何在Delphi中发送邮件。

1. 连接SMTP

在使用Delphi发送邮件之前，我们需要先连接SMTP服务器。可以通过TIdSMTP组件来实现SMTP连接：


SMTP.Host := 'smtp.example.com'; //SMTP服务器地址
SMTP.Port := 25; //SMTP服务器端口号
SMTP.Username := 'example@example.com'; //SMTP用户名
SMTP.Password := 'password'; //SMTP密码
SMTP.Connect; //连接SMTP服务器

其中，SMTP.Host为SMTP服务器地址，SMTP.Port为SMTP服务器端口号，SMTP.Username为SMTP用户名，SMTP.Password为SMTP密码，这些信息需要根据实际情况填写。

2. 编写邮件内容

连接SMTP服务器成功后，我们需要编写邮件内容。可以通过TIdMessage组件来实现邮件内容的编写：


Mail := TIdMessage.Create(nil); //创建邮件对象
Mail.From.Address := 'example@example.com'; //发件人邮箱
Mail.Recipients.Add.Address := 'recipient@example.com'; //收件人邮箱
Mail.Subject := '邮件主题'; //邮件主题
Mail.Body.Text := '邮件内容'; //邮件内容

其中，Mail.From.Address为发件人邮箱，Mail.Recipients.Add.Address为收件人邮箱，Mail.Subject为邮件主题，Mail.Body.Text为邮件内容，这些信息需要根据实际情况填写。

3. 发送邮件

编写邮件内容后，我们可以通过TIdSMTP.Send方法来发送邮件：


try
  SMTP.Send(Mail); //发送邮件
finally
  SMTP.Disconnect; //断开SMTP连接
end;

其中，SMTP.Send(Mail)为发送邮件，SMTP.Disconnect为断开SMTP连接。

常见问题解答

如何发送带附件的邮件？

可以通过TIdAttachment组件来实现邮件附件的添加：


  Attachment := TIdAttachment.Create(Mail.MessageParts, '附件文件名'); //创建附件对象
  Attachment.LoadFromFile('附件文件路径'); //加载附件文件

其中，Attachment为附件对象，Mail.MessageParts为邮件内容的附件部分，'附件文件名'为附件文件名，'附件文件路径'为附件文件路径，这些信息需要根据实际情况填写。

如何发送HTML格式的邮件？

可以通过TIdText组件来实现邮件内容的HTML格式：


  Mail.Body.Clear; //清除文本内容
  HTML := TIdText.Create(Mail.MessageParts); //创建HTML文本对象
  HTML.ContentType := 'text/html'; //设置文本类型为HTML格式
  HTML.Body.Text := 'HTML内容'; //设置HTML内容

其中，Mail.Body.Clear为清除文本内容，HTML为HTML文本对象，Mail.MessageParts为邮件内容的附件部分，'text/html'为文本类型为HTML格式，'HTML内容'为HTML内容，这些信息需要根据实际情况填写。

如何发送带图片的邮件？

可以通过TIdAttachment组件来实现邮件图片的添加：


  Image := TIdAttachment.Create(Mail.MessageParts, '图片文件名'); //创建图片对象
  Image.ContentType := 'image/jpeg'; //设置图片类型
  Image.ContentTransfer := 'base64'; //设置编码方式
  Image.LoadFromFile('图片文件路径'); //加载图片文件
  HTML := TIdText.Create(Mail.MessageParts); //创建HTML文本对象
  HTML.ContentType := 'text/html'; //设置文本类型为HTML格式
  HTML.Body.Text := '<img src="cid:图片文件名">'; //设置HTML内容
  HTML.CharSet := 'UTF-8'; //设置编码方式
  Image.ContentID := ''; //设置图片ID
  HTML.ContentDisposition := 'inline'; //设置图片显示方式为内嵌

其中，Image为图片对象，Mail.MessageParts为邮件内容的附件部分，'图片文件名'为图片文件名，'image/jpeg'为图片类型，'base64'为编码方式，'图片文件路径'为图片文件路径，HTML为HTML文本对象，'text/html'为文本类型为HTML格式，'<img src="cid:图片文件名">'为HTML内容，'UTF-8'为编码方式，Image.ContentID为图片ID，'inline'为图片显示方式为内嵌，这些信息需要根据实际情况填写。