CDO Mail error 438

[Bill nguyen]

The following function gave an error 438 Object doesn't support this
property or method. The same function ran ok on another VB 6. What am i
missing?
Thanks
Bill


objConfig = CreateObject("CDO.Configuration")
Fields = objConfig.Fields
With Fields
Public Function sendCDOMail(ByVal fromAddr, ByVal recipients, ByVal subject,
ByVal bodyPath)
Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = _
"http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = _
"http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = _
"http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = _
"http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

objConfig = CreateObject("CDO.Configuration")
Fields = objConfig.Fields
With Fields

.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "exchangeserver"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "webmaster"
.Item(cdoSendPassword) = "intranet"

.Update
End With

objMessage = CreateObject("CDO.Message")
objMessage.Configuration = objConfig
With objMessage

.To = recipients
.From = fromAddr
.subject = subject
.HTMLBody = strMsgBody
.Send

End With
Fields = Nothing
objMessage = Nothing
objConfig = Nothing
End Function

[Chad Z. Hower aka Kudzu]

"Bill nguyen" <bi*****************@jaco.com> wrote in
news:ep**************@TK2MSFTNGP10.phx.gbl:

The following function gave an error 438 Object doesn't support this
property or method. The same function ran ok on another VB 6. What am
i missing?

Is CDO installed? If not you might try:
http://www.codeproject.com/csharp/IndySMTP.asp
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"

Make your ASP.NET applications run faster
http://www.atozed.com/IntraWeb/

[Chad Z. Hower aka Kudzu]

"Bill nguyen" <bi*****************@jaco.com> wrote in
news:ep**************@TK2MSFTNGP10.phx.gbl:

The following function gave an error 438 Object doesn't support this
property or method. The same function ran ok on another VB 6. What am
i missing?

Is CDO installed? If not you might try:
http://www.codeproject.com/csharp/IndySMTP.asp
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"

Make your ASP.NET applications run faster
http://www.atozed.com/IntraWeb/

[Bill Nguyen]

I found CDOsys.dll in my machine.
It works fine with VB.NET, but not VB 6.0.
Any idea?
Thanks
Bill

"Chad Z. Hower aka Kudzu" <cp**@hower.org> wrote in message
news:Xn**************************@127.0.0.1...

"Bill nguyen" <bi*****************@jaco.com> wrote in
news:ep**************@TK2MSFTNGP10.phx.gbl:

The following function gave an error 438 Object doesn't support this
property or method. The same function ran ok on another VB 6. What am
i missing?

Is CDO installed? If not you might try:
http://www.codeproject.com/csharp/IndySMTP.asp
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"

Make your ASP.NET applications run faster
http://www.atozed.com/IntraWeb/

[Chad Z. Hower aka Kudzu]

"Bill Nguyen" <bi*****************@jaco.com> wrote in news:#emEJq0dFHA.2420
@TK2MSFTNGP15.phx.gbl:

I found CDOsys.dll in my machine.
It works fine with VB.NET, but not VB 6.0.
Any idea?

Not that I can think of, sorry. I never used VB6. The last VB I used before VB.NET was 5 a bit, 4 I
fought with a lot (bugs) and I used 3 and 1 *a lot.*
--
Chad Z. Hower (a.k.a. Kudzu) - http://www.hower.org/Kudzu/
"Programming is an art form that fights back"

Empower ASP.NET with IntraWeb
http://www.atozed.com/IntraWeb/