22/07/2011, 09:30
|
| | | Fecha de Ingreso: junio-2010 Ubicación: cali-colombia
Mensajes: 28
Antigüedad: 14 años, 10 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 |