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

Trying to USE CDONTS for email ... oops

P: n/a
for:

There was no reference to CDO in the References so selected CDO.
Code didn't work (CDONTS.email unrecognised).

read

There was no reference to CDONTS in the References so selected CDO.
Code didn't work (CDONTS.email unrecognised).

Sorry!

Jeff B.
Sep 27 '08 #1
Share this Question
Share on Google+
6 Replies


P: n/a
jb********@aol.com wrote in news:d2d14219-b62c-4e84-98fb-
40**********@k13g2000hse.googlegroups.com:
for:

There was no reference to CDO in the References so selected CDO.
Code didn't work (CDONTS.email unrecognised).

read

There was no reference to CDONTS in the References so selected CDO.
Code didn't work (CDONTS.email unrecognised).

Sorry!

Jeff B.
I believe CDONTS was Windows NT.

You may have success with CDO as per:

http://www.ffdba.com/downloads/Send_E-Mail_With_CDO.htm

--
lyle fairfield
Sep 27 '08 #2

P: n/a
On Sep 27, 4:23*pm, lyle fairfield <lylef...@yah00.cawrote:
jbguern...@aol.com wrote in news:d2d14219-b62c-4e84-98fb-
40bb7eb34...@k13g2000hse.googlegroups.com:
for:
There was no reference to CDO in the References so selected CDO.
Code didn't work (CDONTS.email unrecognised).
read
There was no reference to CDONTS in the References so selected CDO.
Code didn't work (CDONTS.email unrecognised).
Sorry!
Jeff B.

I believe CDONTS was Windows NT.

You may have success with CDO as per:

http://www.ffdba.com/downloads/Send_E-Mail_With_CDO.htm

--
lyle fairfield
Thank you Lyle. I'll give it a try tomorrow.

Jeff B.
Sep 27 '08 #3

P: n/a
On Sep 27, 6:04*pm, j...@angelsystems.co.uk wrote:
On Sep 27, 4:23*pm, lyle fairfield <lylef...@yah00.cawrote:
I believe CDONTS was Windows NT.
You may have success with CDO as per:
http://www.ffdba.com/downloads/Send_E-Mail_With_CDO.htm
--
lyle fairfield

Thank you Lyle. *I'll give it a try tomorrow.

Jeff B.
No luck, I'm afraid. This is the code I tried (password etc changed,
of course):

===========================================
Public Sub SimpleSendMailWithCDOB()
'early binding
'requires reference to cdosys.dll

Dim iCfg As CDO.Configuration

'This where it fell over. Compile error at previous line!. User-
defined type not defined

Dim iMsg As CDO.Message

Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message

With iCfg.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerPort) = 587 'I use port 587
.Item(cdoSMTPServer) = "smtp.angelsystems.co.uk" 'my server
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "Jeff"
.Item(cdoSendPassword) = "*******"
.Item(cdoSendEmailAddress) = "me <me@myaddress>"
..Update
End With

With iMsg
.Configuration = iCfg
.Subject = "Test Late Binding"
.To = "me@myaddress"
.TextBody = "Test"
.send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub
======================================

I have referenced Microsoft CDO 1.21 Library.

I also tried re-registering ... Regsvr32.exe "C:\windows
\system32\cdosys.dll" No luck there either.
I got the error message ... DLLRegisterServer in C:\windows
\system32\cdosys.dll failed. Return code was 0x800704da.

I know that cdosys.dll is present in c:\windows\system32.

Anyone have a clue as to what's wrong?

Thanks in advance.

Jeff B.
Sep 28 '08 #4

P: n/a
je**@angelsystems.co.uk wrote in
news:a3**********************************@l64g2000 hse.googlegroups.com:
On Sep 27, 6:04*pm, j...@angelsystems.co.uk wrote:
>On Sep 27, 4:23*pm, lyle fairfield <lylef...@yah00.cawrote:
I believe CDONTS was Windows NT.
You may have success with CDO as per:
>http://www.ffdba.com/downloads/Send_E-Mail_With_CDO.htm
--
lyle fairfield

Thank you Lyle. *I'll give it a try tomorrow.

Jeff B.

No luck, I'm afraid. This is the code I tried (password etc changed,
of course):

==========================================Public Sub
SimpleSendMailWithCDOB() 'early binding
'requires reference to cdosys.dll

Dim iCfg As CDO.Configuration

'This where it fell over. Compile error at previous line!. User-
defined type not defined

Dim iMsg As CDO.Message

Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message

With iCfg.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServerPort) = 587 'I use port 587
.Item(cdoSMTPServer) = "smtp.angelsystems.co.uk" 'my server
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "Jeff"
.Item(cdoSendPassword) = "*******"
.Item(cdoSendEmailAddress) = "me <me@myaddress>"
.Update
End With

With iMsg
.Configuration = iCfg
.Subject = "Test Late Binding"
.To = "me@myaddress"
.TextBody = "Test"
.send
End With

Set iMsg = Nothing
Set iCfg = Nothing

End Sub
=====================================
I have referenced Microsoft CDO 1.21 Library.

I also tried re-registering ... Regsvr32.exe "C:\windows
\system32\cdosys.dll" No luck there either.
I got the error message ... DLLRegisterServer in C:\windows
\system32\cdosys.dll failed. Return code was 0x800704da.

I know that cdosys.dll is present in c:\windows\system32.

Anyone have a clue as to what's wrong?

Thanks in advance.

Jeff B.
from http://support.microsoft.com/kb/171440

"The dynamic-link libraries (DLLs) for CDO (1.1, 1.2, 1.21) and CDO
Rendering (1.1, 1.2) are MAPI client object libraries. As such, they
require MAPI and service providers (for example, the same service
providers as with Microsoft Exchange Server).

Collaboration Data Objects for NTS (CDONTS) is a Simple Mail Transfer
Protocol (SMTP) based Messaging offering, which is part of the overall
CDO (1.1, 1.2) Library, but is not MAPI dependent.

Collaboration Data objects for Windows 2000 (CDOSYS), is a quantum leap
in SMTP Messaging over CDONTS. CDOSYS provides for rich content through
extensive MIME support."

-------

I suggest that you try the late-binding version.

--
lyle fairfield
Sep 28 '08 #5

P: n/a
On Sep 28, 10:57*am, lyle fairfield <lylef...@yah00.cawrote:
j...@angelsystems.co.uk wrote innews:a3**********************************@l64g20 00hse.googlegroups.com:
On Sep 27, 6:04*pm, j...@angelsystems.co.uk wrote:
On Sep 27, 4:23*pm, lyle fairfield <lylef...@yah00.cawrote:
I believe CDONTS was Windows NT.
You may have success with CDO as per:
http://www.ffdba.com/downloads/Send_E-Mail_With_CDO.htm
--
lyle fairfield
Thank you Lyle. *I'll give it a try tomorrow.
Jeff B.
No luck, I'm afraid. *This is the code I tried (password etc changed,
of course):
==========================================Public Sub
SimpleSendMailWithCDOB() 'early binding
'requires reference to cdosys.dll
Dim iCfg As CDO.Configuration
'This where it fell over. Compile error at previous line!. *User-
defined type not defined
Dim iMsg As CDO.Message
Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message
With iCfg.Fields
* * .Item(cdoSendUsingMethod) = cdoSendUsingPort
* * .Item(cdoSMTPServerPort) = 587 * * * * * * * *'I use port 587
* * .Item(cdoSMTPServer) = "smtp.angelsystems.co.uk" * *'my server
* * .Item(cdoSMTPAuthenticate) = cdoBasic
* * .Item(cdoSendUserName) = "Jeff"
* * .Item(cdoSendPassword) = "*******"
* * .Item(cdoSendEmailAddress) = "me <me@myaddress>"
.Update
End With
With iMsg
* * .Configuration = iCfg
* * .Subject = "Test Late Binding"
* * .To = "me@myaddress"
* * .TextBody = "Test"
* * .send
End With
Set iMsg = Nothing
Set iCfg = Nothing
End Sub
=====================================
I have referenced Microsoft CDO 1.21 Library.
I also tried re-registering ... Regsvr32.exe "C:\windows
\system32\cdosys.dll" No luck there either.
I got the error message ... DLLRegisterServer in C:\windows
\system32\cdosys.dll failed. *Return code was 0x800704da.
I know that cdosys.dll is present in c:\windows\system32.
Anyone have a clue as to what's wrong?
Thanks in advance.
Jeff B.

fromhttp://support.microsoft.com/kb/171440

"The dynamic-link libraries (DLLs) for CDO (1.1, 1.2, 1.21) and CDO
Rendering (1.1, 1.2) are MAPI client object libraries. As such, they
require MAPI and service providers (for example, the same service
providers as with Microsoft Exchange Server).

Collaboration Data Objects for NTS (CDONTS) is a Simple Mail Transfer
Protocol (SMTP) based Messaging offering, which is part of the overall
CDO (1.1, 1.2) Library, but is not MAPI dependent.

Collaboration Data objects for Windows 2000 (CDOSYS), is a quantum leap
in SMTP Messaging over CDONTS. CDOSYS provides for rich content through
extensive MIME support."

-------

I suggest that you try the late-binding version.

--
lyle fairfield
Thanks again Lyle. I'll try the late binding.

Jeff B.
Sep 28 '08 #6

P: n/a
On Sep 28, 10:57*am, lyle fairfield <lylef...@yah00.cawrote:
j...@angelsystems.co.uk wrote innews:a3**********************************@l64g20 00hse.googlegroups.com:
On Sep 27, 6:04*pm, j...@angelsystems.co.uk wrote:
On Sep 27, 4:23*pm, lyle fairfield <lylef...@yah00.cawrote:
I believe CDONTS was Windows NT.
You may have success with CDO as per:
http://www.ffdba.com/downloads/Send_E-Mail_With_CDO.htm
--
lyle fairfield
Thank you Lyle. *I'll give it a try tomorrow.
Jeff B.
No luck, I'm afraid. *This is the code I tried (password etc changed,
of course):
==========================================Public Sub
SimpleSendMailWithCDOB() 'early binding
'requires reference to cdosys.dll
Dim iCfg As CDO.Configuration
'This where it fell over. Compile error at previous line!. *User-
defined type not defined
Dim iMsg As CDO.Message
Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message
With iCfg.Fields
* * .Item(cdoSendUsingMethod) = cdoSendUsingPort
* * .Item(cdoSMTPServerPort) = 587 * * * * * * * *'I use port 587
* * .Item(cdoSMTPServer) = "smtp.angelsystems.co.uk" * *'my server
* * .Item(cdoSMTPAuthenticate) = cdoBasic
* * .Item(cdoSendUserName) = "Jeff"
* * .Item(cdoSendPassword) = "*******"
* * .Item(cdoSendEmailAddress) = "me <me@myaddress>"
.Update
End With
With iMsg
* * .Configuration = iCfg
* * .Subject = "Test Late Binding"
* * .To = "me@myaddress"
* * .TextBody = "Test"
* * .send
End With
Set iMsg = Nothing
Set iCfg = Nothing
End Sub
=====================================
I have referenced Microsoft CDO 1.21 Library.
I also tried re-registering ... Regsvr32.exe "C:\windows
\system32\cdosys.dll" No luck there either.
I got the error message ... DLLRegisterServer in C:\windows
\system32\cdosys.dll failed. *Return code was 0x800704da.
I know that cdosys.dll is present in c:\windows\system32.
Anyone have a clue as to what's wrong?
Thanks in advance.
Jeff B.

fromhttp://support.microsoft.com/kb/171440

"The dynamic-link libraries (DLLs) for CDO (1.1, 1.2, 1.21) and CDO
Rendering (1.1, 1.2) are MAPI client object libraries. As such, they
require MAPI and service providers (for example, the same service
providers as with Microsoft Exchange Server).

Collaboration Data Objects for NTS (CDONTS) is a Simple Mail Transfer
Protocol (SMTP) based Messaging offering, which is part of the overall
CDO (1.1, 1.2) Library, but is not MAPI dependent.

Collaboration Data objects for Windows 2000 (CDOSYS), is a quantum leap
in SMTP Messaging over CDONTS. CDOSYS provides for rich content through
extensive MIME support."

-------

I suggest that you try the late-binding version.

--
lyle fairfield
Hooray! Late binding worked a treat. Free from Outlook at last.

Thanks for your patience Lyle, much appreciated.

Jeff B.
Sep 28 '08 #7

This discussion thread is closed

Replies have been disabled for this discussion.