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 IdMessage1 IdSMTP1 发送邮件支持https

相关推荐

评论