Ver Mensaje Individual
  #2 (permalink)  
Antiguo 04/11/2008, 12:08
Avatar de Muzztein
Muzztein
 
Fecha de Ingreso: agosto-2002
Ubicación: Hangar 18
Mensajes: 1.703
Antigüedad: 24 años, 1 mes
Puntos: 16
Respuesta: Formulario en ASP? Duda

no te entendi, pero asumo que quieres enviar un correo electronico mediante un FORM
para eso usa esta funcion, funciona en la mayoria de los IIS


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