4 Replies Latest reply: Aug 29, 2014 12:40 PM by kapil dadheech RSS

    The message could not be sent to the SMTP server. The transport error code was 0x80040217.

      Hi ,

       

       

       

      I am getting error "The message could not be sent to the SMTP server.

      The transport error code was 0x80040217. The server response was not

      available "   on code line objMsg.Send

       

       

       

      Please help me

       

       

       

      thanks,

       

      Kapil

       

       

       

       

       

       

       

      Sub SendGMail1()

       

       

       

      ' Object creation

      Set objMsg = CreateObject("CDO.Message")

      Set msgConf = CreateObject("CDO.Configuration")

       

       

       

      ' Server Configuration

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")

      = 2

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")

      = "smtp.gmail.com"

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")

      = 465

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")

      = 1

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")

      = "kapil_dadheech@gmail.com"

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")

      = "kapil1"

      msgConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")

      = 1

       

       

       

      msgConf.Fields.Update

       

       

       

      ' Email

      objMsg.To = "kapil_dadheech@gmail.com"

      objMsg.From = "kapil_dadheech@gmail.com"

      objMsg.Subject = "Test send with Gmail account"

      objMsg.HTMLBody = "HTML/Plain text message."

      objMsg.Sender = "Mr. Name"

       

       

       

      Set objMsg.Configuration = msgConf

       

       

       

      ' Send

      objMsg.Send

       

       

       

      ' Clear

      Set objMsg = nothing

      Set msgConf = nothing

       

       

       

      End Sub