Delphi IdMessage1 IdSMTP1 发送邮件支持https

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);

begin

 IdMessage1.From.Address := Edit1.Text;
  IdMessage1.Recipients.EMailAddresses := Edit3.Text;
  IdMessage1.Charset := 'UTF-8';

  IdMessage1.Subject := Edit4.Text;
  IdMessage1.Date := now;

  IdMessage1.Body.Text := UTF8Encode(Memo1.Text);

  IdSMTP1.Host := 'smtp.163.com';
  IdSMTP1.Port := 25;
  IdSMTP1.Username := Edit1.Text;
  IdSMTP1.Password := Edit2.Text;
  IdSMTP1.AuthType := satDefault;

  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdSSLIOHandlerSocketOpenSSL1.Destination :=IdSMTP1.Host + ':' + IntToStr(IdSMTP1.Port);
  IdSSLIOHandlerSocketOpenSSL1.Host := IdSMTP1.Host;
  IdSSLIOHandlerSocketOpenSSL1.Port := IdSMTP1.Port;
  IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;

  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
  IdSMTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
  IdMessage1.IsEncoded := True;

  IdSMTP1.Connect();
  IdSMTP1.Send(IdMessage1);
  Application.ProcessMessages;
  IdSMTP1.Disconnect();
end;
 

相关阅读 >>

Delphi暴力关机代码

Delphi image 等比例缩小

Delphi 弹窗显示sql字符串

Delphi 解析 png 图片的十六进制字符流

Delphi xe 安卓 memo设置字体颜色

Delphi xe8中的firemonkey应用程序将文本复制到剪贴板

Delphi xe6调用android标准功能

encryptit.pas

Delphi fmx 获取系统版本 android ios通用

Delphi编程之win10桌面图标设置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi IdMessage1 IdSMTP1 发送邮件支持https