problema con l'ivio delle email

[techno]

Ora mi dà questo errore:

CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido.

CODE:
Dim eml, config
Set eml= Server.CreateObject("CDO.Message")
Set config= Server.CreateObject("CDO.Configuration")

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

Set eml.Configuration = config
eml.From= email
eml.to ="contatti@digitalworld1.com"
eml.Subject= "NUOVO CONTATTO DIGITAL WORLD"
eml.HTMLBody= txt
eml.Send
Set eml= nothing
Set flds= nothing
set config= nothing