Question

I am making one application in vb6 which sends mail from an application, it gives me

Run time error - 2147220973 (80040213) The transport failed to contact to the server

, I did all the given solution gives before

Please help if any one knows solution.

Code: code:

{
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.

在邮件应用程序中使用此令牌作为密码，而不是您自己的密码。

Run time error - 2147220973 (80040213) The transport failed to connect to the server while sending mail from vb6

1 个答案: