delphi发送邮件

2016-08-22 10:16:15来源:http://sally.blog.51cto.com/31969/121168作者:sally人点击


控件
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;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台