Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Envío de mails con CDONTS
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Marcos Guardia
Starting Member

Argentina
8 Posts
Mensajes - 05 Dec 2006 :  16:19:54  Ver Perfil  Enviar Email  Visit Marcos Guardia's Homepage
Hola gente, estoy trabajando en la implemantación de sistemas ERPs. En este caso puntual, el sistema es un ASP modelizable con VBScript. El cliente me solicito que cada vez que genere una factura le envie un mail al cliente con formato HTML con el contenido de la factura. El código que uso es el siguiente:

' Código para envío de mail
mensaje = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
mensaje = mensaje & "<html xmlns=""http://www.w3.org/1999/xhtml"">"
mensaje = mensaje & "<head>"
mensaje = mensaje & "<title>Factura EFEPE</title>"
mensaje = mensaje & "<style type=""text/css"">"
mensaje = mensaje & "<!--"
mensaje = mensaje & ".style1 {"
mensaje = mensaje & " font-family: Arial, Helvetica, sans-serif;"
mensaje = mensaje & " font-weight: bold;"
mensaje = mensaje & " font-size: 12px;"
mensaje = mensaje & "}"
mensaje = mensaje & ".style4 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; }"
mensaje = mensaje & ".style9 {font-family: Arial, Helvetica, sans-serif}"
mensaje = mensaje & ".style10 {font-size: 10px}"
mensaje = mensaje & "body {"
mensaje = mensaje & " background-image: url(../website/htdocs/efepe.gif);"
mensaje = mensaje & " background-repeat: no-repeat;"
mensaje = mensaje & "}"
mensaje = mensaje & "-->"
mensaje = mensaje & "</style>"
mensaje = mensaje & "</head>"
mensaje = mensaje & "<body bottommargin=""0"" leftmargin=""0"" rightmargin=""0"" topmargin=""0"">"
mensaje = mensaje & "<table width=""100%"" border=""0"">"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""center"" class=""style1"">FACTURA DE VENTA </div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">Fecha de Emisión: "&campo("fecha")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">Comprobante: "&xNumero&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style4"">Cliente: "&xCliente&" - "&campo("cnombre")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style4"">Domicilio de Entrega: "&f.trc("o_domiciliodeentrega","isnull(domicilio, '') as detalle","Cliente = '"+xCliente+"'")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style4"">Localidad de Entrega: "&f.trc("o_domiciliodeentrega","isnull(localidad, '') as detalle","Cliente = '"+xCliente+"'")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style4"">Transporte: "&f.trc("expresos", "isnull(Nombre, '') as detalle", "codigo = '" + f.trc("o_domiciliodeentrega", "isnull(transporte, '') as detalle", "cliente = '" + xCliente + "'") + "'")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style4"">Pago: "&f.trc("pagos","isnull(detalle, '') as detalle","pago = '"+campo("pago")+"'")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style4"">Fecha de Vencimiento: "&campo("fechaven")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style1"">Items...</span></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & "</table>"
mensaje = mensaje & "<table width=""100%"" border=""1"" align=""center"">"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <th width=""15%"" scope=""col""><div align=""left"">Artículo</div></th>"
mensaje = mensaje & " <th width=""45%"" scope=""col""><div align=""justify"">Detalle</div></th>"
mensaje = mensaje & " <th width=""10%"" scope=""col""><div align=""left"">Cantidad</div></th>"
mensaje = mensaje & " <th width=""10%"" scope=""col""><div align=""left"">Precio</div></th>"
mensaje = mensaje & " <th width=""10%"" scope=""col""><div align=""left"">Descuento</div></th>"
mensaje = mensaje & " <th width=""10%"" scope=""col""><div align=""left"">Importe</div></th>"
mensaje = mensaje & " </tr>"

t.rDetalle.MoverInicio
for x=1 to t.rDetalle.count

mensaje = mensaje & " <tr>"
mensaje = mensaje & "<th scope=""col""><div align=""left""><span class=""style9""><span class=""style10""><span class=""style10""></span>"
mensaje = mensaje & ""& grilla("arti")&"</span></span></div></th>"
mensaje = mensaje & " <th scope=""col""><div align=""justify""><span class=""style9""><span class=""style10""><span class=""style10"">"
mensaje = mensaje & ""& grilla("deta")&"</span></span></div></th>"
mensaje = mensaje & " <th scope=""col""><div align=""right""><span class=""style9""><span class=""style10""><span class=""style10""></span>"
mensaje = mensaje & ""& grilla("canti")&"</span></span></div></th>"
mensaje = mensaje & " <th scope=""col""><div align=""right""><span class=""style9""><span class=""style10""><span class=""style10""></span>"
mensaje = mensaje & ""& grilla("precio")&"</span></span></div></th>"
mensaje = mensaje & " <th scope=""col""><div align=""right""><span class=""style9""><span class=""style10""><span class=""style10""></span>"
mensaje = mensaje & ""& grilla("bonif")&"</span></span></div></th>"
mensaje = mensaje & " <th scope=""col""><div align=""right""><span class=""style9""><span class=""style10""><span class=""style10""></span>"
mensaje = mensaje & ""& grilla("importe")&"</span></span></div></th>"
mensaje = mensaje & " </tr>"

t.rDetalle.Mover
next

mensaje = mensaje & "</table>"
mensaje = mensaje & "<table width=""100%"" border=""0"">"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><span class=""style1"">Pie...</span></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">Descuento: "&campo("d1")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">Subtotal: "&campo("subto")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">IVA: "&campo("iva")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">IVA No Inscripto: "&campo("noiva")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">Exento: "&campo("Exento")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">Percep. IB PBA: "&campo("impuestoaux3")&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & " <tr>"
mensaje = mensaje & " <td><div align=""right"" class=""style4"">TOTAL: "&xTotal&"</div></td>"
mensaje = mensaje & " </tr>"
mensaje = mensaje & "</table>"
mensaje = mensaje & "</body>"
mensaje = mensaje & "</html>"

Set objMessage = CreateObject("CDONTS.NewMail")
objMessage.From = PARAMVALUE("MAIL")
objMessage.To = email("email")
objMessage.Subject = "Notificación de envío de Factura: "&xNumero&" al Cliente: "&xCliente&" - "&campo("cnombre")
objMessage.BodyFormat=0
objMessage.MailFormat=0
objMessage.Body = mensaje
objMessage.Send

Por alguna razón los mails no salen. Investigando supe que en Windows 2003 tenía que instalar una dll (cdonts.dll) y además instalé el componenete SMTP del CD de Windows, pero nada. ¿¿Alguien sabe o ha trabajado con este código??? Desde ya muchas gracias. saluda atte.

Ing. Marcos A. Guardia

Ing. Marcos A. Guardia

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar