Based on the attachment that was successful sending the email, change the configuration settings to the below and it should work.
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =...