CDO email - transport failed to connect the server

[musicgold]

Hi,

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

Code:
Public Sub email()
On Error Resume Next
Dim objEmail, toemail, schema

schema = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
With objEmail
From = "(e-mail address removed)"
To = "(e-mail address removed)"
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
End With

End Sub