delphi indy smtp 发送邮件


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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678