intercettare errore mhtml

[agenti]

Dim objMessage, objConfig
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "localhost"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields.Update
Set objMessage.Configuration = objConfig

objMessage.To =  email
objMessage.From = "info@miosito.com"
objMessage.Subject = "Availability | INFO | "
objMessage.CreateMHTMLBody ("http://www.miosito.com/email.asp?p=1")


On Error Resume Next
objMessage.Send()

Set objMessage = Nothing
Set objConfig = Nothing

Della serie...

e se durante la creazione della pagina mhtml si creasse un errore 500 ????
Ho provato infattia debuggare e a bloccare l'invio ma non funziona..

invierebbe la pagina con l'errore 500...
come si potrebbe risolvere .. ?

[Domenix]

On Error Resume Next
if err = 0 then
objMessage.Send()
end if

[agenti]

no fratello..

mhtml non fa trasparire gli errori nella pagina di invio..
così come le sessioni...

[Domenix]

Puoi preventivamente verificare lo stato della pagina
http://www.miosito.com/email.asp?p=1
mediante XMLHTTP e verificare che .status sia uguale a "200" per inviare la mail.

[agenti]

questa già è una ottima soluzione..
gracias..