Ciao ragazzi se provo a mandare una mail con questo codice:

codice:
' stringa HTML da inviare
	strHTML = "<html><body>"
	strHTML = strHTML & "

Questo è un messaggio HTML.</p>"
	strHTML = strHTML & "</body></html>"
	
	set CDOmail = CreateObject("CDO.Message")
	
	CDOmail.To = sUserMail
	CDOmail.From = "prova@prova.com"
	CDOmail.Subject = "Prova"
	
	' testo da inviare
	CDOmail.HTMLBody = strHTML
	
	' invio del messaggio
	CDOmail.Send
mi esce questo errore:
CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido.

Dove sbaglio?