Question

谁有delphi简单的发送邮件的源码

就是能登陆邮箱并且发送邮件的程序。。。谢谢了 805474989@qq.com

Answer 1

使用的Indy控件。
idS: TIdSMTP;
idM: TIdMessage;

procedure TForm1.SendMail(FromName,FromAddress,toAddress,MailType,Esubject,content : String);

begin //发送邮件主函数

try
Application.ProcessMessages;
if trim(toAddress)='' then exit;
idM.Recipients.EMailAddresses := toAddress;
idM.Subject := Esubject;
idM.Sender.Name := FromName;
idM.Sender.Address := EditEMailADD.Text;
idM.From.Name := FromName;
idM.From.Address := EditEMailADD.Text;
// content := GetHTML(toPerson);
idM.Body.Text := content;
idM.ContentType := MailType;//'text/html';// 'text/plain';//'multipart/mixed';
// showmessage(content);
if not ids.Connected then
begin //避免对此验证产生邮件服务器错误
idm.ReplyTo.EMailAddresses := EditEMailADD.Text;
ids.Host := EditSMTP.Text;
ids.Port := 25;
ids.AuthenticationType := atLogin;
ids.Username := EditEUserName.Text;
ids.Password := EditEPassword.Text;
idS.Connect;
end;
ids.Send(idM);
finally
if ids.Connected then ids.Disconnect;
end;
end;

Answer 2

用控件：indy10

Answer 3

组件里有
自己找下