Envio de email en ASP con CDO.Message

Para el envio de emails en ASP desde un servidor IIS7 podemos usar el objeto CMO.Message que no necesita instalar nada nuevo en el servidor.

La configuracion del objeto seria como sigue:

Set msg = Server.CreateObject("CDO.Message") msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="127.0.0.1" msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'Si el servidor necesita autenticacion msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") ="usuario@servidor.com" msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="contraseña" msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True msg.Configuration.Fields.Update msg.To = "direccion_destino" msg.From = "direccion_procedencia" msg.Subject = "Asunto" msg.HTMLBody = "Cuerpo del mensaje" 'Si lleva adjuntos msg.AddAttachment fichero msg.Send ' Destruimos el CDO if err <> 0 then response.write err.description response.End() end if Set msg=Nothing