2

我想知道在TIdSMTPRelay使用indy. 这就是我的代码中邮件中继部分的样子：

procedure TMyForm.SMTPServerMsgReceive(ASender: TIdSMTPServerContext; AMsg : TStream; 
  var LAction: TIdDataReply);      
begin
  //The AMsg (TStream) is being transformed to MsgDecode (TIdMessage) and 
  // all relay recipients to RelayRecipients (TIdEMailAddressList) using     
  // [http://stackoverflow.com/questions/8499524/using-indy-smtpserver]

  // SSLRelayHandler is a TIdSSLIOHandlerSocketOpenSsl indy component and SMTPRelay is 
  // a TIdSMTPRelay indy component 
  SMTPRelay.DNSServer := myDNSServer;
  SSLRelayHandler.SSLOptions.Method := sslvSSLv23; 
  SSLRelayHandler.SSLOptions.KeyFile := myMailServerKey;
  SSLRelayHandler.SSLOptions.CertFile := myMailServerCert;
  SSLRelayHandler.SSLOptions.RootCertFile := myMailServerRootCert;
  SMTPRelay.IOHandler := SSLRelayHandler;
  SMTPRelay.SSLOptions.SSLSupport := SupportSSL;
  try
    SMTPRelay.Send(MsgDecode, RelayRecipients); 
  except on e : Exception do 
  end;
end;

有时邮件永远不会发送，有时它会被发送但会进入垃圾邮件部分（雅虎），尽管STARTTLS由于附加TIdSSLIOHandlerSocketOpenSSL到我的TIdSMTPRelay. 我可以连接到另一个邮件服务器的SMTPS端口465还是TIdSMTPRelay组件只能发送到端口25？有关更多详细信息，这是与 yahoo 的通信方式：

Stat Connected.
Recv 23.10.2014 ?. 15:32:15: 220 mta1418.mail.gq1.yahoo.com ESMTP ready<EOL>
Sent 23.10.2014 ?. 15:32:15: EHLO mail.mydomain.com<EOL>
Recv 23.10.2014 ?. 15:32:15: 250-mta1418.mail.gq1.yahoo.com<EOL>250-PIPELINING<EOL>250-SIZE      41943040<EOL>250-8BITMIME<EOL>250 STARTTLS<EOL>
Sent 23.10.2014 ?. 15:32:15: STARTTLS<EOL>
Recv 23.10.2014 ?. 15:32:15: 220 Start TLS<EOL>
Sent 23.10.2014 ?. 15:32:16: EHLO mail.mydomain.com<EOL>
Recv 23.10.2014 ?. 15:32:16: 250-mta1418.mail.gq1.yahoo.com<EOL>250-PIPELINING<EOL>250-SIZE 41943040<EOL>250 8BITMIME<EOL>
Sent 23.10.2014 ?. 15:32:16: MAIL FROM:<user229@mail.mydomain.com><EOL>
Recv 23.10.2014 ?. 15:32:16: 250 sender <user229@mail.mydomain.com> ok<EOL>
Sent 23.10.2014 ?. 15:32:16: RCPT TO:<test_user_mail@yahoo.com><EOL>
Recv 23.10.2014 ?. 15:32:16: 250 recipient <test_user_mail@yahoo.com> ok<EOL>
Sent 23.10.2014 ?. 15:32:16: DATA<EOL>
Recv 23.10.2014 ?. 15:32:17: 354 go ahead<EOL>
Sent 23.10.2014 ?. 15:32:17: From: "user229@mail.mydomain.com" <user229@mail.mydomain.com>   <EOL>Subject: =?UTF-8?B?0JfQsNCz0LvQsNCy0LjQtTIy?=<EOL>To: test_user_mail@yahoo.com<EOL>Date: Thu, 23     Oct 2014 15:32:17 +0300<EOL>
Sent 23.10.2014 ?. 15:32:17: <EOL>
Sent 23.10.2014 ?. 15:32:17: body of the mail here<EOL>
Sent 23.10.2014 ?. 15:32:17: <EOL>
Sent 23.10.2014 ?. 15:32:17: .<EOL>
Recv 23.10.2014 ?. 15:32:18: 250 ok dirdel<EOL>
Sent 23.10.2014 ?. 15:32:18: QUIT<EOL>
Recv 23.10.2014 ?. 15:32:18: 221 mta1418.mail.gq1.yahoo.com<EOL>
Stat Disconnected.
4

1 回答 1

2

TIdSMTPRelay可以使用其他端口。您应该将该Port属性设置为默认值 (25)，以便它可以根据内部管理其 SSL/TLS 连接的方式在 25 和 465 之间切换。

该SSLOptions属性控制如何TIdSMTPRelay管理其 SSL/TLS 连接。SSLOptions.SSLSupport可以设置为NoSSL、SupportSSL或RequireSSL，并且SSLOptions.TryImplicitTLS可以设置为 True 或 False。请参阅 中的实现TIdSMTPRelay.Connect()。

当SSLOptions.TryImplicitTLS为真（端口 465）时，Send()将尝试UseTLS=utImplicitTLS在连接时使用。这意味着一旦套接字连接，就会启动 SSL/TLS 握手。

如果失败，或者如果SSLOptions.TryImplicitTLS为假（端口 25 和 587），Send()将使用UseTLS=utNoTLSSupport、UseTLS=utUseExplicitTLS或UseTLS= utUseRequireTLS取决于 的值SSLOptions.SSLSupport：

NoSSL: SMTP 会话将不加密。

SupportSSL: SMTP 会话将在未加密的情况下启动，然后STARTTLS仅在支持的情况下才会发送到 SMTP 服务器，否则 SMTP 会话将继续未加密。如果 SSL/TLS 握手失败，则会引发异常。

RequireSSL: SMTP 会话将在未加密的情况下启动，然后STARTTLS将发送到 SMTP 服务器（如果支持），否则 SMTP 会话将关闭并引发异常。如果 SSL/TLS 握手失败，则会引发异常。

于 2014-10-24T00:27:25.307 回答