本文整理自网络，侵删。
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 文件查找findfirst,findnext,findclose
Delphi使用project manager添加一个java库到你的应用程序
更多相关阅读请进入《Delphi》频道 >>
