delphi-如何使用delphi发送邮件
时间:2014-03-29 09:25 来源: 我爱IT技术网 作者:山风
【delphi-如何使用delphi发送邮件】控件
smtp: TIdSMTP;
MgeSend: TIdMessage;
代码
procedure TForm1.Button1Click(Sender: TObject); begin SMTP.Host:='smtp.163.com'; smtp.Username:='zhm001x@163.com'; smtp.Password:='paswrd'; smtp.Port:=25; smtp.Connect(); MgeSend.Recipients.EMailAddresses:='zhm001x@qq.com'; MgeSend.From.Text :='zhm001x@163.com'; MgeSend.Subject:='test'; MgeSend.Body.Text:='发邮件测试'; SMTP.Authenticate; Smtp.Send(mgeSend); end;
本文来源 我爱IT技术网 http://www.52ij.com/jishu/4567.html 转载请保留链接。
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-