find out programatically whats available on the server to send email

[csphard]

I am having problems sending email.
Something that did work stopped working.
I think something changeds on the server.

I use System.Web.Mail.MailMessage through a vb app

and
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
with an asp app

They both have stopped working

How can I find out programatically whats available on the server.

Howard

 

[csphard]

code I am using (can anyone see any problems. it works with one ip address and not with the other)

Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPort = 2

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
.Item("

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

= cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("

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

= "dsmtpserver"
.Item("

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

= 25
.Update
End With

'load information
strSubject = "Forgotten Password on " & dtNow

' Build HTML for message body.

strHTML = strHTML & "<font face=Arial>Dear " & rs("fname")
strHTML = strHTML & "<br>"
strHTML = strHTML & "Thank you for the opportunity to serve you. </font>"


' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = strEmail
.From = "test@test.org"
.Subject = strSubject
.HTMLBody = strHTML
.Send
End With
'response.write "4"
'response.end
' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

'response.write "Mail Sent!"
'response.end