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;

发表回复

登录... 后才能评论