控件
smtp: TIdSMTP;
MgeSend: TIdMessage;
MgeSend: TIdMessage;
代码
procedure TForm1.Button1Click(Sender: TObject);
begin
SMTP.Host:='smtp.163.com';
smtp.Username:='[email]zhm001x@163.com[/email]';
smtp.Password:='paswrd';
smtp.Port:=25;
smtp.Connect();
MgeSend.Recipients.EMailAddresses:='[email]zhm001x@qq.com[/email]';
MgeSend.From.Text :='[email]zhm001x@163.com[/email]';
MgeSend.Subject:='test';
MgeSend.Body.Text:='发邮件测试';
SMTP.Authenticate;
Smtp.Send(mgeSend);
end;
begin
SMTP.Host:='smtp.163.com';
smtp.Username:='[email]zhm001x@163.com[/email]';
smtp.Password:='paswrd';
smtp.Port:=25;
smtp.Connect();
MgeSend.Recipients.EMailAddresses:='[email]zhm001x@qq.com[/email]';
MgeSend.From.Text :='[email]zhm001x@163.com[/email]';
MgeSend.Subject:='test';
MgeSend.Body.Text:='发邮件测试';
SMTP.Authenticate;
Smtp.Send(mgeSend);
end;
转载于:https://blog.51cto.com/sally/121168