在VB6中使用CDO/SMTP/TLS发送电子邮件smtp.office 365.com邮件服务器
在VB6中使用CDO/SMTP/TLS发送电子邮件smtp.office 365.com邮件服务器
提问于 2016-05-30 16:18:46
我正在搜索几天，以了解如何在我的Office365应用程序中设置VB6 SMTP服务器。我的代码正在与端口465和其他邮件服务器正常工作。但它不适用于端口587和smtp.office 365.com。
有没有办法让我在VB6通过587通过TLS？
谢谢
回答 5
Stack Overflow用户
回答已采纳
发布于 2016-08-11 16:55:35
通过这段代码，我可以使用CDO向Office365发送邮件。
Private Message As CDO.Message
Private Attachment, Expression, Matches, FilenameMatch, i
Sub enviar_mail()
Set Message = New CDO.Message
Message.Subject = "Test Mail"
Message.From = "YourEmail@yourdomain.com"
Message.To = ""
Message.CC = ""
Message.TextBody = "my text body here"
Dim Configuration
Set Configuration = CreateObject("CDO.Configuration")
Configuration.Load -1 ' CDO Source Defaults
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@yourdomain.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPass"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
Configuration.Fields.Update
Set Message.Configuration = Configuration
Message.Send结束子对象
Stack Overflow用户
发布于 2016-06-01 20:31:13
直到几天前，我们切换了ISP(或者服务器端发生了一些巧合)，这段代码才对我起作用。如果我指定端口587，则会得到一个传输错误，并且没有找到使用VBA的解决方案。请让我知道这是否对你有用，如果你想办法使用587。(端口25对我也不起作用，同样的错误。)
Public Function SMTPSend(vSendTo, vsubject As Variant, vmessage As Variant)
'This works
Set emailObj = CreateObject("CDO.Message")
emailObj.From = "name@myemail.com"
emailObj.To = vSendTo
emailObj.Subject = vsubject
emailObj.TextBody = vmessage
'emailObj.AddAttachment "c:\windows\win.ini"
Set emailConfig = emailObj.configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
'Must exclude port if specifying SSL
'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "name@myemail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mypassword"
emailConfig.Fields.Update
emailObj.Send
If Err.Number = 0 Then SMTPSend = True Else SMTPSend = False
End FunctionStack Overflow用户
发布于 2021-01-08 16:47:39
在各种论坛上似乎有许多帖子表明CDO库不适用于端口587，但事实并非如此。我认为真正的问题是使用端口587的SMTP服务这样做是因为它们需要STARTTLS身份验证，而http://schemas.microsoft.com/cdo/configuration/smtpusessl配置选项是特定于SSL的，而不是TLS (我知道，我知道--不是最精确的描述，但现在已经足够了)。
相反，还有另一个设置-- http://schemas.microsoft.com/cdo/configuration/sendtls --它确实支持TLS，因此，与端口587一起使用这个设置很好：
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2 '2 = cdoSendUsingPort
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = "smtp.example.com"
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport").Value = 587
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate").Value = 1 '1 = cdoBasic
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername").Value = "my_username"
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword").Value = "myy_very_secret_password"
config.Fields("http://schemas.microsoft.com/cdo/configuration/sendtls").Value = True
config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60
config.Fields.Update()页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37530037
复制相关文章
相似问题
腾讯云开发者
