Capire da cosa dipende errore invio posta

[djjunior]

Carissimi,
mi capita l'errore:

error '8004020F'

Sulla riga .Send di questo script

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.miosito.it" 

Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

Flds("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 240

Flds.Update


With iMsg
Set .Configuration = iConf
.To = email
.From = "MIOSITO<contatti@miosito.it>"
.Subject = "oggetto"
.TextBody = "Gentile Cliente"
.AddAttachment server.mappath("../pdf/file.pdf") 
.Send
End With

Premetto che uso questo script in un ciclo dove recupero le mail.
Come posso capire meglio la causa dell'errore, tramite non so un debub, ma come?
Grazie
G.