在VB6中使用CDO/SMTP/TLS发送邮件smtp.office365.com邮件服务器 [英] Using CDO/SMTP/TLS in VB6 to send email smtp.office365.com mail server

问题描述

我搜索了几天，以了解如何在我的 VB6 应用程序中设置 Office365 SMTP 服务器.我的代码在端口 465 和其他邮件服务器上正常工作.但它不适用于端口 587 和 smtp.office365.com

I am searching for days to find out how can I set Office365 SMTP server in my VB6 application. My code is working properly with port 465 and other mail servers. BUT it is not working with port 587 and smtp.office365.com

有什么办法可以通过 VB6 中的 587 获得 TLS?

Is there any way I could have TLS via 587 in VB6?

谢谢

推荐答案

通过此代码，我可以使用 CDO 向 Office365 发送邮件.

With this code, I get to send mail using CDO to 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 = "[e-mail]"
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") = "[e-mail]"
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

结束子

这篇关于在VB6中使用CDO/SMTP/TLS发送邮件smtp.office365.com邮件服务器的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！