发送e-mail (2001年4月24日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 22 行

发送e-mail (2001年4月24日) 

网友更新  分类:数据库   作者: zhuhongqing(推荐)  推荐:zhuhongqing   阅读次数:358  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
NMSMTP1.Host := 'mail.host.com';
NMSMTP1.UserID := 'username';
NMSMTP1.Connect;

NMSMTP1.PostMessage.FromAddress := '[e-mail]';
NMSMTP1.PostMessage.ToAddress.Text := '[e-mail]';
NMSMTP1.PostMessage.Body.Text := 'This is the message';
NMSMTP1.PostMessage.Subject := 'Mail subject';
NMSMTP1.SendMail;
showmessage('Mail sent !');
end;