continuacion.
set msg = server.CreateObject("CDO.Message")
msg.From = "
[email protected]"
msg.To = "
[email protected]"
msg.Subject = "Asunto"
msg.TextBody = "Cuerpo del mensaje"
msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "miservidorsmtp"
msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.Configuration.Fields.Update
msg.Send
saludos!!