For several years I used CDO to send emails via Comcast
I recently switched to sbcglobal and changed the user name and password
Now I get a server not available message everytime I try to send an email.
Is anyone using sbcglobal and CDO?
My code is
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.fields
With iConf.fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.comcast.net"
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "realname"
.Item(cdoSendPassword) = "realpwd2"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "<" & Me.Email & ">"
.From = "<" & Me.txtFrom & ">"
.Subject = Me.txtSubject
.TextBody = Me.txtMessage
.Send
End With
Me.DateSent = Now()
MsgBox "Messge sent"
End Sub
--