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 xe android/ios 手势介绍

Delphi 如何识别应用程序没有响应

Delphi getwindowhandle

Delphi 十进制转十六进制

Delphi 调用win32 api操作串口

Delphi 实现程序 动态 类名

Delphi 时间到就触发事件

Delphi 随机程序名

Delphi 2010 fastmm 内存泄露使用方法

Delphi sql语句查询最新的各个台位的最后一个检测值

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

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