delphi发送邮件

delphi发送邮件

你的代码我经过修改，在我电脑上运行了下，现在可以发送了。with idmessage1 dobeginbody.Clear;subject:=edit2.text;From.Text:=edit4.text; recipients.emailaddresses:=edit3.text; body.assign(memo1.Lines);ReceiptRecipient.Text := '';//if edit7.Text='' then//tidattachment.Create(idmessage1.MessageParts,edit7.Text);end;idsmtp1.authenticationtype:=atnone;idsmtp1.UserId:=edit5.Text;idsmtp1.Password:=edit6.Text;idsmtp1.Host:='smtp.sohu.com';idsmtp1.Port:=25; {tryidsmtp1.Connect();exceptapplication.MessageBox('邮件发送失败！','提示',MB_OK+MB_ICONINFORMATION);exit;end;}tryidsmtp1.Connect;IdSMTP1.Send(IdMessage1);application.MessageBox('邮件发送成功！','提示',MB_OK+MB_ICONINFORMATION);finallyidsmtp1.Disconnect;end;