per mandare le email puoi usare il seguente codice
codice:
Set objMail = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sever_smtp"
.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 = "mittente@dominio.it"
objMail.To = "destinatario@dominio.it"
objMail.Subject = "mail di prova"
objMail.Fields("urn:schemas:httpmail:importance").Value = 2
objMail.Fields.update()
objMail.TextBody = "mail di prova"
objMail.HTMLBody = "mail di prova"
objMail.AddAttachment "c:\consegne\cccc\log\installa_patch.log"
objMail.Send()
Set objMail = Nothing
va salvato come .vbs