我正在尝试使用 Indy 和这篇 Marco Cantù 文章中阐述的技术从 smtps(安全 smtp)发送电子邮件。
这就是我正在使用的:
object SMTP: TIdSMTP
IOHandler = IdSSLIOHandlerSocketOpenSSL1
SASLMechanisms = <>
UseTLS = utUseExplicitTLS
Left = 32
Top = 196
end
和
SMTP.Host := 'smtps.pec.aruba.it';;
SMTP.Port := 465;;
SMTP.Username := 'myaddress@pec.it';
SMTP.Password := 'myPassw0rd';
MailMessage.Encoding := meDefault;
MailMessage.From.Address := 'myaddress@pec.it';
MailMessage.BccList.EMailAddresses := 'testaddress0@gmail.com';
MailMessage.Subject := 'Test Mail';
MailMessage.Body.Text := 'Please ignore this mail, This is a test';
SMTP.Connect; //failure!!!
SMTP.Send(MailMessage);
我的程序在 SMTP.Connect 上挂起,但没有任何异常或有用的错误。
如果不是 aboe,我使用 gmail 设置,如文章中所述,所有工作
你能给个建议吗?
我在与 exe 相同的路径中有 Indy 10.5.8 和 ssl dll。