Enviar boletin desde CDO

[pepelucho]

Holas, como puedo hacer para enviar un boletin a usuarios registrados a mi pagina, si tienen ejemplos se los agradeceria que lo muestre, ademas se puede hacer mediante programacion los textos del boletin??

[pepelucho]

aca la respuesta(si lo ven conveniente ponerlo en el FAQ creo yo ):
<%
'*************************************
'mail al user
Set objmensaje= Server.CreateObject("CDO.Message")
set iConf = Server.CreateObject("CDO.Configuration")
set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\\inetpub\\mailroot\\pickup"
Flds.Update()
objmensaje.Configuration = iConf
ObjMensaje.from = "[email protected]" 'correo que envia
ObjMensaje.To = "[email protected]" ' a donde debe llegar el correo
ObjMensaje.Subject = "Tienes un mensaje desde correo website" ' titulocuenta de correo quien lo recibe
objmensaje.CreateMHTMLBody "http://www.correows.ws/boletin.asp"
ObjMensaje.Send
Set ObjMensaje = Nothing
%>