ora o provato in questo modo:

DIM objMail, objConfig

Set objConfig=Server.CreateObject("CDO.Configuration")
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 ' cdoSendUsingPickup
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 0 ' cdoAnonymous
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")= "c:\inetpub\mailroot\pickup"
objConfig.Fields.Update

Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = objConfig

e mi da questo errore:
Oggetto Server, ASP 0177 (0x800401F3)
Stringa dell'interfaccia non valida.

alla riga:
Set objConfig=Server.CreateObject("CDO.Configuration")