Trying to USE CDONTS for email ... oops

[jbguernsey]

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.

[lyle fairfield]

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

[jeff]

On Sep 27, 4:23*pm, lyle fairfield <[e-mail]:

[e-mail] wrote in news:d2d14219-b62c-4e84-98fb-
[e-mail]:

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.

[jeff]

On Sep 27, 6:04*pm, [e-mail] wrote:

On Sep 27, 4:23*pm, lyle fairfield <[e-mail]:

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.

[lyle fairfield]

je**@angelsystems.co.uk wrote in
news:a3**********************************@l64g2000 hse.googlegroups.com:

On Sep 27, 6:04*pm, [e-mail] wrote:

>On Sep 27, 4:23*pm, lyle fairfield <[e-mail]:

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

[jeff]

On Sep 28, 10:57*am, lyle fairfield <[e-mail]:

[e-mail] wrote innews:a3**********************************@l64g20 00hse.googlegroups.com:

On Sep 27, 6:04*pm, [e-mail] wrote:

On Sep 27, 4:23*pm, lyle fairfield <[e-mail]:

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.

[jeff]

On Sep 28, 10:57*am, lyle fairfield <[e-mail]:

[e-mail] wrote innews:a3**********************************@l64g20 00hse.googlegroups.com:

On Sep 27, 6:04*pm, [e-mail] wrote:

On Sep 27, 4:23*pm, lyle fairfield <[e-mail]:

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.