RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络 > 正文

delphi indy smtp 发送邮件

作者:admin 来源: 日期:2018/1/30 15:36:59 人气: 标签:idsmtp

delphi indy smtp 发送邮件

  try
    idsmtp2.Username := 'abc123@163.com'; //设置登陆帐号
    idsmtp2.Password := 'abc123';// 设置登陆密码
    idsmtp2.Host:='smtp.163.com';// 设置SMTP地址

    if idsmtp2.Connected = False then
      idsmtp2.Connect;
  except
    showmessage('连接失败,请重试!');
    Exit; // 连接失败 的话 退出该执行过程
  end;

  idmsg1.Body.Clear; // 先清空上次发送的内容
  idmsg1.CharSet :='GB2312'; // 不设置这个中文会乱码
  idmsg1.Subject := 'inde insmtp 测试发送邮件'; // 设置邮件发送的标题
  idmsg1.Body.Text := '测试下邮件发送的内容!!!!' ; //设置邮件发送的主题
  idmsg1.From.Address := 'abc123@163.com'; //设置发件人
  idmsg1.Recipients.EMailAddresses :='123abc@qq.com'; //设置收件人

  try
    idsmtp2.Send(idmsg1);
    showmessage('邮件发送成功!');
  except
    showmessage('邮件发送失败!');
  end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料