Trying to USE CDONTS for email ... oops

[jbguernsey@aol.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.

[lyle fairfield]

Re: Trying to USE CDONTS for email ... oops

jbguernsey@aol. com wrote in news:d2d14219-b62c-4e84-98fb-
40bb7eb343dc@k1 3g2000hse.googl egroups.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@angelsystems.co.uk]

Re: Trying to USE CDONTS for email ... oops

On Sep 27, 4:23 pm, lyle fairfield <lylef...@yah00 .cawrote:

jbguern...@aol. com wrote in news:d2d14219-b62c-4e84-98fb-
40bb7eb34...@k1 3g2000hse.googl egroups.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.

[jeff@angelsystems.co.uk]

Re: Trying to USE CDONTS for email ... oops

On Sep 27, 6:04 pm, j...@angelsyste ms.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 SimpleSendMailW ithCDOB()
'early binding
'requires reference to cdosys.dll

Dim iCfg As CDO.Configurati on

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

Dim iMsg As CDO.Message

Set iCfg = New CDO.Configurati on
Set iMsg = New CDO.Message

With iCfg.Fields
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rverPort) = 587 'I use port 587
.Item(cdoSMTPSe rver) = "smtp.angelsyst ems.co.uk" 'my server
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "Jeff"
.Item(cdoSendPa ssword) = "*******"
.Item(cdoSendEm ailAddress) = "me <me@myaddress >"
..Update
End With

With iMsg
.Configuration = iCfg
.Subject = "Test Late Binding"
.To = "me@myaddre ss"
.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\cdosy s.dll" No luck there either.
I got the error message ... DLLRegisterServ er in C:\windows
\system32\cdosy s.dll failed. Return code was 0x800704da.

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

Anyone have a clue as to what's wrong?

Thanks in advance.

Jeff B.

[lyle fairfield]

Re: Trying to USE CDONTS for email ... oops

jeff@angelsyste ms.co.uk wrote in
news:a361bc8a-55ef-4a20-bf37-e3b43c6e3cab@l6 4g2000hse.googl egroups.com:

On Sep 27, 6:04 pm, j...@angelsyste ms.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):
>
=============== =============== ============Pub lic Sub
SimpleSendMailW ithCDOB() 'early binding
'requires reference to cdosys.dll
>
Dim iCfg As CDO.Configurati on
>
'This where it fell over. Compile error at previous line!. User-
defined type not defined
>
Dim iMsg As CDO.Message
>
Set iCfg = New CDO.Configurati on
Set iMsg = New CDO.Message
>
With iCfg.Fields
.Item(cdoSendUs ingMethod) = cdoSendUsingPor t
.Item(cdoSMTPSe rverPort) = 587 'I use port 587
.Item(cdoSMTPSe rver) = "smtp.angelsyst ems.co.uk" 'my server
.Item(cdoSMTPAu thenticate) = cdoBasic
.Item(cdoSendUs erName) = "Jeff"
.Item(cdoSendPa ssword) = "*******"
.Item(cdoSendEm ailAddress) = "me <me@myaddress >"
.Update
End With
>
With iMsg
.Configuration = iCfg
.Subject = "Test Late Binding"
.To = "me@myaddre ss"
.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\cdosy s.dll" No luck there either.
I got the error message ... DLLRegisterServ er in C:\windows
\system32\cdosy s.dll failed. Return code was 0x800704da.
>
I know that cdosys.dll is present in c:\windows\syst em32.
>
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@angelsystems.co.uk]

Re: Trying to USE CDONTS for email ... oops

On Sep 28, 10:57 am, lyle fairfield <lylef...@yah00 .cawrote:

j...@angelsyste ms.co.uk wrote innews:a361bc8a-55ef-4a20-bf37-e3b43c6e3cab@l6 4g2000hse.googl egroups.com:
>
>
>

On Sep 27, 6:04 pm, j...@angelsyste ms.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):

>

=============== =============== ============Pub lic Sub
SimpleSendMailW ithCDOB() 'early binding
'requires reference to cdosys.dll

>

Dim iCfg As CDO.Configurati on

>

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

>

Dim iMsg As CDO.Message

>

Set iCfg = New CDO.Configurati on
Set iMsg = New CDO.Message

>

With iCfg.Fields
    .Item(cdoSendUs ingMethod) = cdoSendUsingPor t
    .Item(cdoSMTPSe rverPort) = 587                'I use port 587
    .Item(cdoSMTPSe rver) = "smtp.angelsyst ems.co.uk"    'my server
    .Item(cdoSMTPAu thenticate) = cdoBasic
    .Item(cdoSendUs erName) = "Jeff"
    .Item(cdoSendPa ssword) = "*******"
    .Item(cdoSendEm ailAddress) = "me <me@myaddress >"
.Update
End With

>

With iMsg
    .Configuration = iCfg
    .Subject = "Test Late Binding"
    .To = "me@myaddre ss"
    .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\cdosy s.dll" No luck there either.
I got the error message ... DLLRegisterServ er in C:\windows
\system32\cdosy s.dll failed.  Return code was 0x800704da.

>

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

>

Anyone have a clue as to what's wrong?

>

Thanks in advance.

>

Jeff B.

>
fromhttp://support.microso ft.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@angelsystems.co.uk]

Re: Trying to USE CDONTS for email ... oops

On Sep 28, 10:57 am, lyle fairfield <lylef...@yah00 .cawrote:

j...@angelsyste ms.co.uk wrote innews:a361bc8a-55ef-4a20-bf37-e3b43c6e3cab@l6 4g2000hse.googl egroups.com:
>
>
>

On Sep 27, 6:04 pm, j...@angelsyste ms.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):

>

=============== =============== ============Pub lic Sub
SimpleSendMailW ithCDOB() 'early binding
'requires reference to cdosys.dll

>

Dim iCfg As CDO.Configurati on

>

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

>

Dim iMsg As CDO.Message

>

Set iCfg = New CDO.Configurati on
Set iMsg = New CDO.Message

>

With iCfg.Fields
    .Item(cdoSendUs ingMethod) = cdoSendUsingPor t
    .Item(cdoSMTPSe rverPort) = 587                'I use port 587
    .Item(cdoSMTPSe rver) = "smtp.angelsyst ems.co.uk"    'my server
    .Item(cdoSMTPAu thenticate) = cdoBasic
    .Item(cdoSendUs erName) = "Jeff"
    .Item(cdoSendPa ssword) = "*******"
    .Item(cdoSendEm ailAddress) = "me <me@myaddress >"
.Update
End With

>

With iMsg
    .Configuration = iCfg
    .Subject = "Test Late Binding"
    .To = "me@myaddre ss"
    .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\cdosy s.dll" No luck there either.
I got the error message ... DLLRegisterServ er in C:\windows
\system32\cdosy s.dll failed.  Return code was 0x800704da.

>

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

>

Anyone have a clue as to what's wrong?

>

Thanks in advance.

>

Jeff B.

>
fromhttp://support.microso ft.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.