delphi发送邮件

  IdMessage1:=TIdMessage.Create(nil);
  IdSMTP1:=TIdSMTP.Create(nil);
  if IdSMTP1.Connected then
    IdSMTP1.Disconnect;

  IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型
 IdSMTP1.Username:='admin'; //设置登陆帐号
 IdSMTP1.Password:='admin'; //设置登陆密码
 IdSMTP1.Host:='smtp.qq.com'; //设置SMTP地址
 IdSMTP1.Port:=25; //设置端口   必须转化为整型

  IdMessage1.Subject := ‘’; //标题
  IdMessage1.From.Address := ‘’; //发件人地址
  IdMessage1.ReplyTo.EMailAddresses := ‘’;  //发件人地址
  IdMessage1.Priority := TIdMessagePriority(1); //身份验证类型
  TIdAttachment.Create(IdMessage1.MessageParts, 'c:/dads.txt); //附件地址

 TIdAttachment.Create(IdMessage1.MessageParts, 'c:/her.txt); //附件地址

 TIdAttachment.Create(IdMessage1.MessageParts, 'c:/wer.txt); //附件地址

  IdMessage1.Recipients.EMailAddresses :=‘’;   //收件人的地址
  try
    IdSMTP1.Connect;
    IdSMTP1.Authenticate;
    IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect;

  end;