CDOSYS

[raviyah]

When I try to use CDO sys I get an error message
"sendusing configuration value is invalid"

I am new to CDO and using it based on what I have seen here.

My code is:

Dim iMsg As Object
Dim iConf As Object
Dim iBP
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

With iMsg
Set .Configuration = iConf
..To = "(e-mail address removed)"
..CC = "(e-mail address removed)"
..Subject = "ABCDEFGHIJ"
..TextBody = "Task Complete"
..from = "(e-mail address removed)"
..send
End With

Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing

Any ideas?

 

[Stuart McCall]

When I try to use CDO sys I get an error message
"sendusing configuration value is invalid"

I am new to CDO and using it based on what I have seen here.

My code is:

Dim iMsg As Object
Dim iConf As Object
Dim iBP
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.CC = "(e-mail address removed)"
.Subject = "ABCDEFGHIJ"
.TextBody = "Task Complete"
.from = "(e-mail address removed)"
.send
End With

Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing

Any ideas?

The problem is that, although you're declaring an iConf object, you don't
make any of the necessary settings using it.

Please download this small mdb:

http://www.smccall.demon.co.uk/Downloads.htm#cdo

which will illustrate what is required.