Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/01/2011, 06:38
Avatar de Expinete
Expinete
 
Fecha de Ingreso: abril-2006
Ubicación: Zaragoza
Mensajes: 236
Antigüedad: 18 años, 1 mes
Puntos: 3
obtener dichero virtual

Hola a todos,

a ver mi pregunta es la siguiente, tengo un formulario de contacto que sube un archivo lo que querria hacer es sin guardarlo en ningún directorio de mi sitio enviarlo por email mediante
Código PHP:
Dim iMsg,iConf,FldsTextoCuerpoCli_Mail
    Set iMsg 
CreateObject("CDO.Message")
    
Set iConf CreateObject("CDO.Configuration")
    
Set Flds iConf.Fields
    With Flds
    
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 90 
    
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "correo.correo.es" 
    
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
    
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxx"
    
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false
    
.Update
    End With
    
    With iMsg
      Set 
.Configuration iConf
    
.From "[email protected]" '//mail de quien lo envia
    .To = "[email protected]"
    .bcc = "[email protected]"
    .Subject =  Subject
    .AddAttachment(Archivo)
     .htmlBody = Cuerpo '
para enviar html
     
    
.Send
    End With 
En archivo debería indicarle la ruta del archivo, pero no sé como obtener la ruta del archivo (repito no quiero guardar el archivo previamente en un directorio de mi sitio)
¿alguien sabe como podría hacerlo??