By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,508 Members | 2,904 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,508 IT Pros & Developers. It's quick & easy.

CDO and sbcglobal

P: n/a
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
--
Feb 9 '07 #1
Share this Question
Share on Google+
4 Replies


P: n/a
On Fri, 09 Feb 2007 19:52:24 GMT, "Karl" <so*****@sbcglobal.bizwrote:

Try using -
.Item(cdoSendUsingMethod) = cdoSendUsingPickup

>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
Wayne Gillespie
Gosford NSW Australia
Feb 10 '07 #2

P: n/a
Wayne

Thanks but now its asking me for the Pickup folder.

I'm using A2000 and Outlook Express 6.
"Wayne Gillespie" <be*****@NOhotmailSPAM.com.auwrote in message
news:ns********************************@4ax.com...
On Fri, 09 Feb 2007 19:52:24 GMT, "Karl" <so*****@sbcglobal.bizwrote:

Try using -
.Item(cdoSendUsingMethod) = cdoSendUsingPickup

>>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

Wayne Gillespie
Gosford NSW Australia

Feb 13 '07 #3

P: n/a
"Karl" <so*****@sbcglobal.bizwrote in message
news:Yh*******************@newssvr21.news.prodigy. net...
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.
Likely because you didn't change this line...

..Item(cdoSMTPServer) = "smtp.comcast.net"
--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com
Feb 13 '07 #4

P: n/a
No

This is a copy after I changed the code back to comcast
"Rick Brandt" <ri*********@hotmail.comwrote in message
news:Hq*******************@newssvr13.news.prodigy. net...
"Karl" <so*****@sbcglobal.bizwrote in message
news:Yh*******************@newssvr21.news.prodigy. net...
>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.

Likely because you didn't change this line...

.Item(cdoSMTPServer) = "smtp.comcast.net"
--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

Feb 13 '07 #5

This discussion thread is closed

Replies have been disabled for this discussion.