运行时错误 - 2147220973 (80040213) 从 vb6 发送邮件时传输无法连接到服务器

Question

我正在 vb6 中制作一个应用程序，它从应用程序发送邮件，它给了我

运行时错误 - 2147220973 (80040213) 传输无法联系 到服务器

，我之前给出了所有给定的解决方案

如果有人知道解决方案，请帮忙。

代码： 代码：

{
mStrProcName = "MonthlyXlMail_EmployeePerformance"
sFilePath = (App.Path & "\TimeTaken.xls")
  iConf.Load -1

Set Flds = iConf.Fields
Set lobj_cdomsg = New CDO.Message

lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = Trim(rsMail!ServerUrl)
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort) = CInt(Trim(rsMail!Port))
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = IIf(rsMail!ReqSSL = "Y", True, False)

lobj_cdomsg.Configuration.Fields(cdoSMTPAuthenticate) = cdoBasic
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = Trim(rsMail!EMailID)
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = Trim(rsMail!EmailPassword)
                        lobj_cdomsg.Configuration.Fields(cdoSMTPConnectionTimeout) = 30

lobj_cdomsg.Configuration.Fields(cdoSendUsingMethod) = cdoSendUsingPort
lobj_cdomsg.Configuration.Fields.Update

lobj_cdomsg.To = Trim(strMail)

lobj_cdomsg.From = Trim(rsMail!EMailID)

lobj_cdomsg.Subject = IIf(Len(Trim(txtsubject.Text)) = 0, "Performance Report", Trim(txtsubject.Text))

lobj_cdomsg.TextBody = IIf(Len(Trim(txtDescription.Text)) = 0, "Find Attachment", Trim(txtDescription.Text))

'lobj_cdomsg.HTMLBody = strMsg
lobj_cdomsg.AddAttachment (sFilePath)

lobj_cdomsg.Send
}

Answer 1

您是否使用具有双因素身份验证的 Gmail？这也阻止了使用带有基本身份验证的 smtp。

在 Gmail 安全设置中创建自定义应用程序，为您的消息应用程序添加新密码。

1. Login into your Gmail account
2. Goto https://security.google.com/settings/security/apppasswords
3. Choose 'Custom' app.
4. Typ 'Gmail Smtp', or something
5. Click 'Generate'
6. It will give you a password token.

使用此令牌作为消息传递应用程序中的密码，而不是您自己的密码。

Answer 2

经过一番排查后，我发现关闭 VPN 并调整区域设置可以解决问题。

Answer 3

对我来说，这是我今天激活的 NordVPN 的威胁防护。关闭此功能后，邮件可以再次发送。