SMTP 邮件（1）

连接服务器和发送邮件。

 

  Form1.IdSMTP1.Username := 'xxx@163.com'; { 服务器上的用户名 }
  Form1.IdSMTP1.Password := 'xxx'; { 服务器上的密码 }
  Form1.IdSMTP1.Host := 'smtp.163.com'; { 服务器SMTP地址 }
  Form1.IdSMTP1.Port := 25; { 服务器端口 }
  Form1.IdSMTP1.Connect; { 建立连接 }

  Form1.IdMessage1.Subject := 'Title'; { 邮件标题 }
  Form1.IdMessage1.Body.Add('Body'); { 邮件正文件内容 }
  Form1.IdMessage1.From.address := 'xxx@163.com'; { 发件人地址 }
  Form1.IdMessage1.Recipients.EMailAddresses := 'inoevil@qq.com'; { 收件人地址，这里改为你的EMAIL地址 }
  Form1.IdMessage1.Priority := mphigh; { 优先级，mphigh为最高级。 }
  Form1.IdSMTP1.Send(Form1.IdMessage1); { 发送邮件 }