Foros del Web » Programando para Internet » ASP Clásico »

Enviar correo con diseño con CDO

Estas en el tema de Enviar correo con diseño con CDO en el foro de ASP Clásico en Foros del Web. Holas, tengo un server 2003 q usa el cdo para enviar mails, quisiera mandar a mis clientes el newsletter pero quisiera saber como se puede ...
  #1 (permalink)  
Antiguo 01/07/2005, 13:36
 
Fecha de Ingreso: enero-2002
Ubicación: Callao - Perú
Mensajes: 1.127
Antigüedad: 22 años, 5 meses
Puntos: 0
Enviar correo con diseño con CDO

Holas, tengo un server 2003 q usa el cdo para enviar mails, quisiera mandar a mis clientes el newsletter pero quisiera saber como se puede mandar ocn un diseño de un html, con los datos jalados por base de datos??

Set objmensaje= Server.CreateObject("CDO.Message")
set iConf = Server.CreateObject("CDO.Configuration")
set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/con...tion/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/con...ickupdirectory") = "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 = "web at com ' titulo
'******************
cad1="Nombres : " & nombre
cad2="Apellidos: " & apellidos
cad3="Telefono : " & telefono
cad4="Fecha de nacimiento: " & fecha
cad5="Dirección : " & direccion
cad6="Servicios" & servicios
cad7="Email: " & email
cad8="Distrito: " & distrito
cad9="Departamento: " & departamento
cad10="Pais: " & pais
'********************
ObjMensaje.TextBody = cad1 & Vbcrlf & cad2 & Vbcrlf & cad3 & Vbcrlf & cad4 & Vbcrlf & cad5 & Vbcrlf & cad6 & Vbcrlf & cad7 & Vbcrlf & cad8 & Vbcrlf & cad9 & Vbcrlf & cad10
ObjMensaje.Send()
Set ObjMensaje = Nothing
%>
__________________
SaLuDoS dE:
PePeLuChO dEl PeRú PaRa El MuNdO
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:49.