Ver Mensaje Individual
  #3 (permalink)  
Antiguo 27/11/2008, 09:24
Avatar de akela
akela
 
Fecha de Ingreso: septiembre-2000
Ubicación: Frente a la compu
Mensajes: 660
Antigüedad: 23 años, 7 meses
Puntos: 2
De acuerdo Respuesta: Gracias Muzztein

He probado el código que has puesto y me regresa el valor "true true" por lo que deduzco que tiene lo necesario para mandar correos.

ahora en el siguiente código:

Código PHP:
function enviaEmail(para,cc,desde,asunto,mensaje,servidor)
* * 
on error resume next
*
* * 
enviaEmail false
* * 
* * 
dim objCDO,objCDOConfig,objFields
* * Set objCDO * * *= CreateObject("CDO.Message")
* * 
Set objCDOConfig *= CreateObject("CDO.Configuration")
* * 
Set objFields * *= objCDOConfig.Fields
* * * * 
* * 
With objFields
* * * .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = servidor
* * * .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
* * * .Item("http://schemas.microsoft.com/cdo/configuration/SendUsing") = 2
* * * .Update
* * End With
* * 
* * 
With objCDO
* * * .Configuration *= objCDOConfig
* * * .To * * * * *= para
* * 
* * if 
cc <> false then 
* * * .cc * * * * *= cc
* * end if * 
* * 
* * * .
From * * * *= desde
* * * .Subject * * = asunto
* * * .TextBody * *= mensaje
* * * .Send
* * End With
* * 
* * 
Set objFields Nothing
* * Set objCDO Nothing
* * Set objCDOConfig Nothing 
* * 
* * if 
err.number 0 then
* * * * enviaEmail true
* * else 
* * * * 
enviaEmail err.description
* * end if
* * 
on error goto 0
*
end function 
la variable servidor que valores puede tomar??

puede ser algo asi como "www.dominio.com"? o debe ser una IP? o aulguna otra cosa??

de antemano gracias!
__________________
Si quieres que las cosas sucédan

provocalas!