delphi 自动发邮件器 automail 报错

Question

procedure TForm1.Button1Click(Sender: TObject);
var
filename: string;

begin //发送邮件主函数
try
IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv3;
IdSMTP1.IOHandler:= IdSSLIOHandlerSocket1;
IdSMTP1.AuthenticationType:=atLogin;
IdSMTP1.Username:='[e-mail]';
IdSMTP1.Password:='cxtest';
IdSMTP1.Host:='smtp.exmail.163.com';
IdSMTP1.Port:=25;
if not idsmtp1.Connected then
begin
IdSMTP1.Connect(2000); //此处报错
end;
except
Showmessage('连接失败,请重试!');
Exit;
end;
IdMessage1.ContentType:= 'text/html';
IdMessage1.Body.Clear;
IdMessage1.Subject:='Delphi邮件发送测试'+datetimetostr(now);
IdMessage1.Body.Text:=memo1.Text;
IdMessage1.From.Address:= '[e-mail]';
IdMessage1.From.Name := '大族监控系统';
IdMessage1.Recipients.EMailAddresses:= '[e-mail]';
IdMessage1.Priority:=mpHighest; //邮件重要性
idSMTP1.Authenticate;
idSMTP1.Send(IdMessage1);
end;

Answer 1

正确答案:
IdSSLIOHandlerSocket1.SSLOptions.Method:=sslvSSLv23;