cdos

[aspnet98]

I am using the following cdos code to connect to a remote smtp mail server. it works perfectly when a valid email address is given, if a fake one is given then it errors the page. is their anyway to prevent this? i tried the javascript approach but it still fails sometimes.

Const cdoSendUsingMethod = _
"

http://schemas.microsoft.com/cdo/configuration/sendusing"

Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
"

http://schemas.microsoft.com/cdo/configuration/smtpserver"

Const cdoSMTPServerPort = _
"

http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Const cdoSMTPConnectionTimeout = _
"

http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"

Const cdoSMTPAuthenticate = _
"

http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"

Const cdoBasic = 1
Const cdoSendUserName = _
"

http://schemas.microsoft.com/cdo/configuration/sendusername"

Const cdoSendPassword = _
"

http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = ""
.Item(cdoSMTPServerPort) = 587
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "administrator@efbp.net"
.Item(cdoSendPassword) = ""

.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
.To = strTo
.Bcc = "<>"
.From = "<>"
.Subject = ""
.TextBody = strMailBody
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

 

[tsuji]

Just control the most probable lines where the actions might fail, say for instance surrounding .send.
[tt]
on error resume next
With objMessage
.To = strTo
.Bcc = "<>"
.From = "<>"
.Subject = ""
.TextBody = strMailBody
.Send
End With
if err.number<>0 then
'do something for instance to keep an error log
err.clear
end if
on error goto 0
[/tt]

 

[aspnet98]

That worked! I am not sure I understand the error log part? how to I write to a error log the message?

 

[tsuji]

>I am not sure I understand the error log part?

That could be as simple as documenting the mishappening by writing the main data and date-time involved to a simple text file at the server. It really depends on your need.

If you do not find it a pressing issue, you could simple ignore the "if err.number<>0 then ... end if" block. Err object would automatically be cleared on the statementwhen encountering the statement "on error goto 0". And the script will continue no problem.