Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/07/2011, 09:30
cristian_botina
 
Fecha de Ingreso: junio-2010
Ubicación: cali-colombia
Mensajes: 28
Antigüedad: 14 años, 9 meses
Puntos: 0
enviar correos CDONTS.NewMail

ola amigos delk foro, lo que pasa es que el siguiente codigo para enviar correos antes me funcionaba pero de un momento a otro dejo de funcionar, este mismo codigo lo pruevoen otros servidores y me funciona pero en el servidor donde tengo montado mi web no funciona

Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = nombre_remitente & "<" & remitente & ">"
objCDOMail.To = para
objCDOMail.Subject = asuntom
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = cuerpom
objCDOMail.Importance = 2
objCDOMail.Send
Set objCDOMail = Nothing