title: Intermittent "The transport failed to connect to the server" CDO error
body: <p>I am writing an application that sends emails to an admin when there is a problem with the data. The account it's sending through is a Network Solutions SMTP server.</p>
  
  <p>The code works most of the time, but about 1 out of 10 sends fail with the error -2147220973 "The transport failed to connect to the server".</p>
  
  <p>Any suggestions on how to handle this? </p>
  
  <pre><code>Set imsg = CreateObject("cdo.message")
  Set iconf = CreateObject("cdo.configuration")
  Set Flds = iconf.Fields
  
  With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.OurCompany.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "me@OurCompany.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    .Update
  End With
  
  With imsg
    Set .Configuration = iconf
    .To = "me@MyEmail.com" 'CMemail
    .From = "resupport@OurCompanycom"
  
    .Subject = ACT
    .HTMLBody = "Notification for " &amp; CTName &amp; " of " &amp; CTCname &amp; " " &amp; ACT &amp; ". You must manually Notify them about new docs for " &amp; pname &amp; ". " _
              &amp; "&lt;br&gt;Tell " &amp; CTName &amp; " to '" &amp; Nz(DLookup("Notify", "TBLINVOICESETTINGS"), "") &amp; " " &amp; PRName &amp; "_" &amp; pname &amp; ".pdf'"
  
    .Send
  End With
  
  Set imsg = Nothing
  Set iconf = Nothing
  </code></pre>