如何在Access 2010中使用TLS发送电子邮件 [英] How do I send email using TLS in Access 2010
问题描述
在Access 2010中,客户端升级到Outlook 365.我需要将我的代码从SSL更改为TLS。 这是我以前的代码。 我需要做出哪些改变? - 谢谢基思
 设置iMsg = CreateObject(" CDO.Message")
 设置iConf = CreateObject("CDO.Configuration")
  
     使用Flds
          .Item(" http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
          .Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver")=" smtp.live.com"
          .Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 ----在此更改为TLS ??
        '。Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 587
 
  .Item(" http://schemas.microsoft.com/cdo/configuration/smtpusessl")= True '使用SSL进行连接(正确或错误)
  '如果您的服务器需要传出身份验证,请取消注释,并使用有效的电子邮件地址和密码。
  .Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1 '基本(明文)身份验证
  .Item(" http://schemas.microsoft.com/cdo/configuration/sendusername")=""
  .Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword")="?
参见:
此外,
取自
http://stackoverflow.com/questions/12812408/is-there -some-to-making-vbscript-cdo-work-with-amazon-ses-smtp :
"CDO不支持TLS,但只支持SSL<
并再次从
http://www.codekabinett.com/rdumps.php?Lang=2&targetDoc=send-email-access-vba-cdo:
"某些邮件服务器不支持端口465上的隐式SSL连接,但只支持端口587上的显式TLS连接。不幸的是,CDO库不支持这种连接。"
以下是一些可能有用的链接:
In Access 2010 the client upgrade to Outlook 365. I need change my code from SSL to TLS. Here is the code I had before. What changes do I need to make? --Thanks Keith
Set iMsg = CreateObject("CDO.Message")Set iConf = CreateObject("CDO.Configuration")
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ---- Change here for TLS??
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False)
'If your server requires outgoing authentication uncomment the lines blow and use a valid email address and password.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "?
See:
Also, taken from http://stackoverflow.com/questions/12812408/is-there-some-trick-to-making-vbscript-cdo-work-with-amazon-ses-smtp:
"CDO does not support TLS, but only SSL"
and again taken from http://www.codekabinett.com/rdumps.php?Lang=2&targetDoc=send-email-access-vba-cdo:
"Some mail servers do not support implicit SSL connections on port 465 but only explicit TLS connections on port 587. This unfortunately is not supported by the CDO Library."
Here are a few more links that might be useful:
这篇关于如何在Access 2010中使用TLS发送电子邮件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!