CDO type mismatch

[Karl Irvin]

I copied the following code from the MS website. It compiles OK but gives a
type mismatch message on
the line that says: Set Flds = iConf.Fields

What needs to be changed?
Also can I use this to send email from Access 2000? I just have Access.I
don't have Exchange Server or any other server type products.

Thanks

Dim iMsg as New CDO.Message
Dim iConf as New CDO.Configuration

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields ' Type Mismatch error line xxxxxxxx

With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerName) = "so******@microsoft.com"
.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "username"
.Item(cdoSendPassword) = "password"
.Item(cdoURLProxyServer) = "server:80"
.Item(cdoURLProxyBypass) = "<local>"
.Item(cdoURLGetLatestVersion) = True
.Update
End With

With iMsg
Set .Configuration = iConf
.To = """User A"" <us***@microsoft.com>"
.From = """User B"" <us***@microsoft.com>"
.Subject = "Hows it going? I've attached my web page"
.CreateMHTMLBody "http://mypage"
.AddAttachment "C:\files\mybook.doc"
.Send
End With

[Trevor Best]

On Tue, 04 Nov 2003 16:08:23 GMT in comp.databases.ms-access, "Karl
Irvin" <88********@comcast.net> wrote:

I copied the following code from the MS website. It compiles OK but gives a
type mismatch message on
the line that says: Set Flds = iConf.Fields

What needs to be changed?
Also can I use this to send email from Access 2000? I just have Access.I
don't have Exchange Server or any other server type products.

Thanks

Dim iMsg as New CDO.Message
Dim iConf as New CDO.Configuration

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields ' Type Mismatch error line xxxxxxxx
Perhaps forget Flds variable and use
With iConf.Fields
With Flds

--
A)bort, R)etry, I)nfluence with large hammer.