上一篇:在状态栏中插入类似进度条的可视控件
下一篇:Delphi保存网页中的图片

Delphi发送邮件

发布于: 2012-12-15 14:26:01   |  发布在: Delphi文章   |  点击:

1. 在窗体上添加一个TidSMTP控件(在Indv Clients页)和一个TidMessage控件(在Indv Misc页)。

2. 编写代码

procedure TForm1.Button1Click(Sender: TObject);
begin
  idSMTP1.Host := 'smtp.163.com'; //邮件发送服务器
  try
    idSMTP1.Connect;
  except
     ShowMessage('连接到邮箱服务器失败!');
     Exit;
  end;
  idSMTP1.AuthenticationType := atLogin; //服务器需验证
  idSMTP1.UserId := 'YourUserName';   //邮箱登录帐号
  idSMTP1.Password := 'YourPassword';  //邮箱登录密码
  try
    idSMTP1.Authenticate
  except
    ShowMessage('登录到邮箱服务器失败!');
    idSMTP1.Disconnect;
    Exit;
  end;
  idMessage1.From.Address := 'YourUserName@163.com'//发件人
  idMessage1.Recipients.EMailAddresses := 'master@learnew.com'; //收件人
  idMessage1.Subject := 'Delphi发送的邮件';    //邮件主题
  idMessage1.Body.Text := '这里是邮件的正文!';   //邮件内容
  try
    idSMTP1.Send(idMessage1);
    ShowMessage('邮件发送成功!');
  except
    ShowMessage('邮件发送失败!');
  end;
  idSMTP1.Disconnect;
end;

3. 这段代码在 XP + Delphi 6 环境下运行通过。

邮件