CDO email error - transport failed to connect the server

[musicgold]

Hi,

Please see the following code I am trying to use to send a simple email. I am getting the following error message: Run-time error '-2147220973 (80040213)' The transport failed to connect the server. What could be the problem?

Dim objEmail, toemail, schema
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = Create_Object("CDO.Message") 'The space between Create and
Object is on purpose. Otherwise the text editor of this forum gives an error.
 
With objEmail
.From = "ABCD@yahoo.com"
.To = "XYZ@yahoo.com"
.Subject = "Test Mail"
.Textbody = "The quick brown fox " & Chr(10) & "jumps over the lazy dog"
 
With .Configuration.Fields
.Item(schema & "sendusing") = 2
.Item(schema & "smtpserver") = "smtp.mail.yahoo.com"
.Item(schema & "smtpserverport") = 25
.Item(schema & "smtpauthenticate") = 1
.Item(schema & "sendusername") = "ABCD"
.Item(schema & "sendpassword") = "abcd"
End With
.Configuration.Fields.Update
.Send   'the error is created at this point
End With

Thanks,

MG.

[MWE]

this looks like something that belongs in the Outlook topic area, not Excel