Chica En Apuros :(

[sweet2002]

TENGO PROBLEMAS CON LOS OBJETOS: objCDOMail.From: HE DE PONER UNA DIRECCION DE MAIL OBLIGATORIAMENTE??? y objCDOMail.To:TENGO Q PONER UN MAIL CON EL DOMINIO QUE TENGO EN MI SERVIDOR(POR EJEMPLO [email protected]) Asi he comprobado q el objeto me envia. Si por ejemplo yo quiero mandar un mail a una direccion de hotmail, que tengo q poner en mi SMTP???
¿hotmail.com?

por favor, es muy urgente!!!
mi codigo es:
Set ObjetoCDO = Server.CreateObject("CDO.Message")

ObjetoCDO.From = "[email protected]"'vmai l
ObjetoCDO.To = "[email protected]" ****POR QUE HE DE PONER EL DOMINIO DE MI SERVIDOR PARA Q LO ENVIE???? NO TENDRIA QUE PONER DIRECTAMENTE [email protected]???
ObjetoCDO.Subject = vasunto & " de " & vfactura
Dim strBody

strBody = "Nombre : " & vfactura & "<BR>"
strBody = strBody & "Dirección : " & vdireccion & "<BR>"
strBody = strBody & "eMail : " & vmail & "<BR>"
strBody = strBody & "Localidad : " & vlocalidad & "<BR>"
strBody = strBody & "Código Postal : " & vcpostal & "<BR>"
strBody = strBody & "Pais : " & vpais & "<BR>"
strBody = strBody & "Teléfono : " & vtelefono & "<BR>"
strBody = strBody & "CIF : " & vcif & "<BR>"
strBody = strBody & "Observaciones : " & vobs & "<BR>"
strBody = strBody & "Pago : " & vpago & "<BR>"

ObjetoCDO.HTMLBody = _
"<font face='Verdana' color='#0000ff' size='2'>" & _
strBody & _
"</font><BR><font face='Verdana' color='#3320dd' size='2'><p>Lista de pedidos</p></font><BR>" & _
strPedido & "</font>"
ObjetoCDO.Cc = "[email protected]"
ObjetoCDO.Send

Set ObjetoCDO = Nothing
nota: en mis pruebas la copia si q se envia. Por cierto, tengo q crear un dominio local o remoto???

Gracias a todos
monica

[dagui]

Hola.

Te coloco una función que hice para enviar correos con ASP.
A mi me funciona bien.

function enviarCorreo(dirDe, dirPara, titulo, cuerpo)
'Declaración de variables a usar
Dim OBJ_EMAIL

'Creación del objeto para enviar el correo
Set OBJ_EMAIL = Server.CreateObject("CDONTS.NewMail")

OBJ_EMAIL.From = dirOrigen 'No hace falta especificar un email valido
OBJ_EMAIL.To = dirDestino
OBJ_EMAIL.Subject = titulo
OBJ_EMAIL.Body =cuerpo ' Cuerpo del mensaje
OBJ_EMAIL.Send 'Envia el mail

'Cierra el Objeto
Set OBJ_EMAIL = Nothing
end function


Suerte.

[henryzs]

Hola:

Si no puedes enviar correos que no sean de tu dominio es probable que el servidor local que estas usando no pueda hacerlo. En la configuración del SMTP hay una opcion en el tab "Delivery" para definir un servidor smtp inteligente "Smart Server" para correos remotos. Pueda quizas que si los este enviando pero por problemas de tráfico y retransmisión se demoren en llegar.

saludos!!