本文整理自网络,侵删。
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 环境下运行通过。
相关阅读 >>
Delphi clipboard 截图后将图片数据复制到剪贴板
Delphi下idhttp配合cookiemanager获取cookie
Delphi读取radiogroup选中按钮的string文本
Delphi中使用ixmlhttprequest如何用post方式提交带参
更多相关阅读请进入《Delphi》频道 >>