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

envio automatico de correos

 Estas en el tema de envio automatico de correos en el foro de ASP Clásico en Foros del Web. buenas, quisiera saber si se puede programar y como se hace (si se puede) un script o algo en asp que me envie una pagina ...
  #1 (permalink)  
Antiguo 07/11/2008, 07:54
 
Fecha de Ingreso: octubre-2008
Mensajes: 23
Antigüedad: 16 años, 7 meses
Puntos: 0
envio automatico de correos
buenas, quisiera saber si se puede programar y como se hace (si se puede) un script o algo en asp que me envie una pagina que esta escrita en ASP tambien a varios destinatarios de correo, que necesito y como lo puedo hacer gracias
  #2 (permalink)  
Antiguo 07/11/2008, 08:04
Avatar de Adler
Colaborador
  
Fecha de Ingreso: diciembre-2006
Mensajes: 4.671
Antigüedad: 18 años, 4 meses
Puntos: 126
Respuesta: envio automatico de correos
Hola

No entiendo que es lo que quieres realmente, pero puedes empezar mirando este post

Suerte
__________________
Los formularios se envían/validan con un botón Submit
<input type="submit" value="Enviar" style="background-color:#0B5795; font:bold 10px verdana; color:#FFF;" />
  #3 (permalink)  
Antiguo 11/11/2008, 11:42
 
Fecha de Ingreso: octubre-2008
Mensajes: 23
Antigüedad: 16 años, 7 meses
Puntos: 0
Respuesta: envio automatico de correos
ya lo logre era muy simple, utilizando el server de la empresa y los servicios que este brinda... aca les dejo un codig de que fue lo que hice

Código asp: 
Ver original
  1. <%
  2.     Set cn = Server.CreateObject("ADODB.Recordset")'creando objeto para la conexion
  3.     Set cn1 = Server.CreateObject("ADODB.Recordset")'creando objeto para la conexion
  4.     'activando la conexion con el servidor y el ususario y password deseado en el DNS,osea en el ODBC
  5.     cn.ActiveConnection = "Server=sbw2k22;DSN=sla;UID=usr_hpsd;PWD=qwer1234;"
  6.     cn1.ActiveConnection = "Server=sbw2k22;DSN=sla;UID=usr_hpsd;PWD=qwer1234;"
  7.  
  8. equipo="(itsm_workgroups.wog_name='Evaluación del Negocio' or itsm_workgroups.wog_name='Procesos Comerciales' or itsm_workgroups.wog_name='Soporte Comercial' or itsm_workgroups.wog_name='Información Comercial' or itsm_workgroups.wog_name='Administración de Hardware y Software' or itsm_workgroups.wog_name='Administración HP Openview Service Desk' or itsm_workgroups.wog_name='Analista BO de EDC3264' or itsm_workgroups.wog_name='Analista de EDC3264' or itsm_workgroups.wog_name='Data Center' or itsm_workgroups.wog_name='Gestión de Proyecto' or itsm_workgroups.wog_name='Gestion Integral ISO' or itsm_workgroups.wog_name='Inmuebles' or itsm_workgroups.wog_name='Seguridad de Información' or itsm_workgroups.wog_name='Servicios Generales - Centro de Fotocopiado' or itsm_workgroups.wog_name='Servicios Generales - Chacao' or itsm_workgroups.wog_name='Servicios Generales - ' or itsm_workgroups.wog_name='Servicios Generales - El Márques' or itsm_workgroups.wog_name='Servicios Generales - Genevap,CA' or itsm_workgroups.wog_name='Servicios Generales - Guarenas' or itsm_workgroups.wog_name='Servicios Generales - La Guaira' or itsm_workgroups.wog_name='Servicios Generales - La Yaguara' or itsm_workgroups.wog_name='Servicios Generales - Los Teques' or itsm_workgroups.wog_name='Servicios Generales - OAM' or itsm_workgroups.wog_name='Servicios Generales - Oficinas Comerciales' or itsm_workgroups.wog_name='Servicios Generales - San Bernardino' or itsm_workgroups.wog_name='Servicios Generales - San Felipe' or itsm_workgroups.wog_name='Servicios Generales - Santa Rosa' or itsm_workgroups.wog_name='Soluciones Colaborativas' or itsm_workgroups.wog_name='Soluciones de Negocio Comerciales' or itsm_workgroups.wog_name='Soluciones de Negocio Financieras' or itsm_workgroups.wog_name='Soluciones de Negocio Operacionales' or itsm_workgroups.wog_name='Soporte en Sitio - Central' or itsm_workgroups.wog_name='Soporte en Sitio - Metro Foráneo' or itsm_workgroups.wog_name='Telecom - Fibra Optica' or itsm_workgroups.wog_name='Telecom - Internetworking' or itsm_workgroups.wog_name='Telecom - Telefonia' or itsm_workgroups.wog_name='Telecom - Transmision de Voz y Datos')"
  9. %>
  10.  
  11. <%
  12. sql="select count(distinct(inc_id))as cuenta from itsm_incidents,rep_codes,rep_codes_text,itsm_workgroups where (inc_sta_oid=rcd_oid) and (rct_rcd_oid=rcd_oid) and (RCT_NAME='Despachada' or RCT_NAME='Aceptada'OR RCT_NAME='Asignada'OR RCT_NAME='Cerrada QA'OR RCT_NAME='Cerrada'OR RCT_NAME='Confirmación'OR RCT_NAME='Despachada'OR RCT_NAME='Documentación Completada'OR RCT_NAME='En Ejecución'OR RCT_NAME='En Espera'OR RCT_NAME='Finalizada'OR RCT_NAME='No Aceptada'OR RCT_NAME='Pendiente por Documentación'OR RCT_NAME='Registrada'OR RCT_NAME='Resuelta') and (itsm_workgroups.wog_oid=itsm_incidents.inc_assign_workgroup) and "&equipo&" and (itsm_incidents.inc_actualfinish is null)"
  13. cn.Source=sql
  14. cn.open
  15. cuenta=cn("cuenta")
  16. cn.close
  17.  
  18. sql="select distinct(inc_id),rct_name,itsm_incidents.reg_created,inc_actualfinish,inc_deadline,inc_description,ini_information,itsm_persons.per_name from itsm_incidents,rep_codes,rep_codes_text,itsm_workgroups,itsm_inc_information,itsm_persons where (itsm_incidents.inc_assign_person_to=itsm_persons.per_oid) and (inc_oid=ini_inc_oid) and (inc_sta_oid=rcd_oid) and (rct_rcd_oid=rcd_oid) and (RCT_NAME='Despachada' or RCT_NAME='Aceptada'OR RCT_NAME='Asignada'OR RCT_NAME='Cerrada QA'OR RCT_NAME='Cerrada'OR RCT_NAME='Confirmación'OR RCT_NAME='Despachada'OR RCT_NAME='Documentación Completada'OR RCT_NAME='En Ejecución'OR RCT_NAME='En Espera'OR RCT_NAME='Finalizada'OR RCT_NAME='No Aceptada'OR RCT_NAME='Pendiente por Documentación'OR RCT_NAME='Registrada'OR RCT_NAME='Resuelta') and (itsm_workgroups.wog_oid=itsm_incidents.inc_assign_workgroup) and "&equipo&" and (itsm_incidents.inc_actualfinish is null)"
  19. cn.Source=sql
  20. cn.open
  21.  
  22. sql="select distinct(inc_id),rct_name,itsm_incidents.reg_created,inc_actualfinish,inc_deadline,inc_description,ini_information from itsm_incidents,rep_codes,rep_codes_text,itsm_workgroups,itsm_inc_information,itsm_persons where (itsm_incidents.inc_assign_person_to is null) and (inc_oid=ini_inc_oid) and (inc_sta_oid=rcd_oid) and (rct_rcd_oid=rcd_oid) and (RCT_NAME='Despachada' or RCT_NAME='Aceptada'OR RCT_NAME='Asignada'OR RCT_NAME='Cerrada QA'OR RCT_NAME='Cerrada'OR RCT_NAME='Confirmación'OR RCT_NAME='Despachada'OR RCT_NAME='Documentación Completada'OR RCT_NAME='En Ejecución'OR RCT_NAME='En Espera'OR RCT_NAME='Finalizada'OR RCT_NAME='No Aceptada'OR RCT_NAME='Pendiente por Documentación'OR RCT_NAME='Registrada'OR RCT_NAME='Resuelta') and (itsm_workgroups.wog_oid=itsm_incidents.inc_assign_workgroup) and "&equipo&" and (itsm_incidents.inc_actualfinish is null)"
  23. cn1.Source=sql
  24. cn1.open    
  25. %>
  26.  
  27. <%
  28.  
  29. Set objMessage = CreateObject("CDO.Message") 
  30. objMessage.Subject = "Informe Insidencias diarias abiertas"&year(date())&" al "&day(date())&"/"&month(date())&"/"&year(date())
  31.   objMessage.To ="[email protected]"
  32.   objMessage.From = "robinson fernandez <[email protected]>"
  33.   html="<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>"
  34.   html=html&"<html>"
  35.   html=html&"<head>"
  36.   html=html&"<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"
  37.   html=html&"<title>Llamadas de servicio NO resueltas</title>"
  38.   html=html&"<style type='text/css'>"
  39.   html=html&"<!--.style4 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #FFFFFF; font-weight: bold; }"
  40.   html=html&".style6 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px;}"
  41.   html=html&".style11 {font-family: Verdana, Arial, Helvetica, sans-serif}"
  42.   html=html&".style12 {font-size: 12px}"
  43.   html=html&".style9 {font-size: 12px; font-weight: bold; font-family: Verdana, Arial, Helvetica, sans-serif;}-->"
  44.   html=html&"</style>"
  45.   html=html&"</head>"
  46.   html=html&"<body>"
  47.   html=html&"<table width='296' border='1' cellspacing='0' cellpadding='0'>"
  48.   html=html&"<tr bgcolor='#003399'>"
  49.   html=html&"<td width='103' height='29'><div align='center' class='style4'>Id caso</div></td>"
  50.   html=html&"<td width='262'><div align='center' class='style4'>Descripción</div></td>"
  51.   html=html&"</tr>"
  52.   
  53.  
  54.   do while not cn1.Eof
  55.   id=cn1("inc_id")
  56.   desc=cn1("inc_description")
  57.   
  58.   html=html&"<tr align='center' valign='middle'>"
  59.   html=html&"<td><div align='center' class='style6'>"&(id)&"</div>"
  60.   html=html&"<td><div align='center' class='style6'>"&(desc)&"</div><div align='center' class='style6'></div></td>"
  61.   
  62.    
  63.     cn1.MoveNext
  64.     loop
  65.     cn1.close
  66.     
  67.   
  68.   html=html&"</tr>"
  69.   
  70.  
  71.   do while not cn.Eof
  72.   id1=cn("inc_id")
  73.   desc1=cn("inc_description")
  74.   
  75.   html=html&"<tr align='center' valign='middle'>"
  76.   html=html&"<td><div align='center' class='style6'>"&(id1)&"</div>"
  77.   html=html&"<td><div align='center' class='style6'>"&(desc1)&"</div>"
  78.   html=html&"<div align='center' class='style6'></div></td>"
  79.   
  80.     
  81.     
  82.     cn.MoveNext
  83.     loop
  84.     cn.close
  85.     
  86.       
  87.   html=html&"</tr>"
  88.   html=html&"</table>"
  89.   html=html&"</body>"
  90.   html=html&"</html>"
  91.   
  92.   objMessage.HTMLBody =html
  93.   objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
  94.   objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.2.101.63"
  95.   objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  96.   objMessage.Configuration.Fields.Update
  97.  
  98.   objMessage.Send
  99.   Set objMessage = Nothing
  100.  
  101. %>
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


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 12:31.