Delphi发送邮件

本文整理自网络，侵删。

 １.　在窗体上添加一个TidSMTP控件（在Indv Clients页）和一个TidMessage控件（在Indv Misc页）。

２.　编写代码

procedure TForm1.Button1Click(Sender: TObject);
begin
  idSMTP1.Host := 'smtp.163.com'; //邮件发送服务器
  try
    idSMTP1.Connect;
  except
     ShowMessage('连接到邮箱服务器失败！');
     Exit;
  end;
  idSMTP1.AuthenticationType := atLogin; //服务器需验证
  idSMTP1.UserId := 'YourUserName';   //邮箱登录帐号
  idSMTP1.Password := 'YourPassword';  //邮箱登录密码
  try
    idSMTP1.Authenticate
  except
    ShowMessage('登录到邮箱服务器失败！');
    idSMTP1.Disconnect;
    Exit;
  end;
  idMessage1.From.Address := 'YourUserName@163.com';  //发件人
  idMessage1.Recipients.EMailAddresses := 'master@learnew.com'; //收件人
  idMessage1.Subject := 'Delphi发送的邮件';    //邮件主题
  idMessage1.Body.Text := '这里是邮件的正文！';   //邮件内容
  try
    idSMTP1.Send(idMessage1);
    ShowMessage('邮件发送成功！');
  except
    ShowMessage('邮件发送失败!');
  end;
  idSMTP1.Disconnect;
end;

３.　这段代码在 XP + Delphi 6 环境下运行通过。
 

相关阅读 >>

Delphi几个进制相关的代码（hextoint、hextoasc）

Delphi多线程程序示例

Delphi中获取guid的函数

字符串截取小例子Delphi源代码

Delphi adoquery 开启本地缓存

用Delphi判断操作系统是否win10

Delphi xe5 手机应用开发经验技巧

Delphi如何粘贴html格式文本到windows剪切板

Delphi richedit根据鼠标位置定位光标的方法

Delphi xe5做一个android网页框架

更多相关阅读请进入《Delphi》频道 >>