Delphi发送电子邮件

控件：idsmtp；idmsg

属性：
Host：smtp.163.com
Username：ai@163.com
Password:你的邮箱密码//必须提前到邮箱中设置打开SMTP功能

备注：账户信息填写在idsmtp的属性中

  try
    if idsmtpUser.Connected = False then
    begin
    idsmtpUser.Connect();
    end;
  except
    Application.MessageBox('请确保您的电脑已经链接至网络', '网络故障', MB_OK + MB_ICONSTOP);
    Exit;
  end;
  idmsgUser.Clear;
  idmsgUser.CharSet := 'UTF-8';
  idmsgUser.Subject := '标题：'+ UserID;
  idmsgUser.Body.Text := '内容：' + UserID + ' - ' + datetimetostr(Now) ;
  idmsgUser.From.Address := 'ai@163.com';//发送地址
  idmsgUser.Recipients.EMailAddresses:= '82@qq.com';//接收地址
  try
  idsmtpUser.Send(idmsgUser);
  except
//这里给报个错就可以。
  end;

指尖风暴终身VIP

收藏 海报分享