var
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;