Prova con questo:

codice:
  set iMsg=server.createobject("CDO.Message")
  set iconf=server.createobject("CDO.Configuration")

  Set Flds = iconf.Fields
  Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.1"
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 'Anonimous
  Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
  Flds.Update
  'Spedizione: mittente, destinatario, oggetto, messaggio
  mittente = "mittente@tuodominio.xx"
  destinatario = "destinatario@email.it"
  oggetto = "Prova email"
  messaggio = "Invio con CDOSYS"
  With iMsg
    'Assegnazione delle configurazioni
    Set .Configuration = iconf
    .From = mittente
    .To = destinatario
    .Subject = oggetto
    'Formato HTML
    .HTMLBody = messaggio
    'Formato testo (scegliere)
    .TextBody = messaggio
    'Invio di una pagina web
    .CreateMHTMLBody "http://www.novacomitalia.com/home/"
    'Invio con allegato
    '.AddAttachment server.mappath("/public/test.txt")
    'Invia l'email
    .Send
  End With
  Set Flds = Nothing
  Set iconf = Nothing
  Set iMsg = Nothing
Ovviamente devi cambiare l'smtp server e gli indirizzi di posta