Io uso questo codice, e anche se un pò lento non mi ha dato problemi. Finora però l'ho testato su 100 invii di mail per volta...dovrei arrivare almeno a 400.

Posto il codice, magari ti può servire.

ps. la riga del tuo errore è la 58

<%@ Language=VBScript %>
<%

Dim strricecodifisc
strURL = Request.ServerVariables("URL")

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.Update

With iMsg
Set .Configuration = iConf
.To = "XXXXX@poste.it"
.From = "YYYY@ZZZZ.it"
.Bcc = "WWWW@poste.it"
.Subject = "zzzz n. 13-08 (prova)"
.CreateMHTMLBody "http://www.repubblica.it"
.Send
End With

%>