Delphi发送邮件


1. 在窗体上添加一个TidSMTP控件(在Indv Clients页)和一个TidMessage控件(在Indv Misc页)。

2. 编写代码

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;

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

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678