Test CDO Message Send Response

[jp2code]

Does the .Send method return anything from CDOSYS?

Ex:
Dim result
Set oMail = CreateObject("CDO.Message")
' other code
result = oMail.Send

I've tried searching, but I can't find where anyone says what "Send"
returns. An integer, a boolean, a string, or void?

 

[Anthony Jones]

Does the .Send method return anything from CDOSYS?

Ex:
Dim result
Set oMail = CreateObject("CDO.Message")
' other code
result = oMail.Send

I've tried searching, but I can't find where anyone says what "Send"
returns. An integer, a boolean, a string, or void?

No it doesn't return anything. Here is what the manual says?

http://msdn2.microsoft.com/en-gb/library/ms526482.aspx

 

[jp2code]

Hi Mr. Jones,

Since the Send method does not return anything, is there another value I can
examine to test for success?

If the submittal is successful, I want to direct them to a thank you page,
but not if the submittal failed.

 

[Anthony Jones]

Hi Mr. Jones,

Since the Send method does not return anything, is there another value I can
examine to test for success?

If the submittal is successful, I want to direct them to a thank you page,
but not if the submittal failed.

If it fails it will raise an error.

You could use:-

On Error Resume Next
oMsg.Send
If Err.Number = 0 then
'Redirect to thank you page
Else
'Respond with error info possibly using Err.description
End If