codice scaricato dal sito http://www.microsoft.com/technet/scr....mspx?mfr=true
ovviamente va adattato alle tue esigenze
codice:
Set objMail = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server di posta"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Set objMail.Configuration = objConfig
objMail.From = "indirizzo mittente@dominio"
objMail.To = "destinatario@dominio"
objMail.Subject = "mail di prova"
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()
objMail.TextBody = "mail di prova mittente"
objMail.HTMLBody = "mail di prova mittente"
'objMail.AddAttachment "c:\prova.txt"
objMail.Send()
Set objMail = Nothing
spero di esserti stato utile