adjuntar fichero con CDOnts

engonga · #1 (**permalink**) 16/05/2007, 16:20

Tengo un problema y es que no se como hacer para que me adjunte un fichero en un mail con CDNONTS

se que el fichero tiene que estar en el servidor primero

pero no se como implentaralgun upload en este codigo

alguien sabe? gracias

tengo este codigo

Código PHP:

  Sub Send
'composo el correu
fnom = Request.Form("nom")
fcognoms = Request.Form("Cognoms")
fhorari = Request.Form("horari")
ftel1 = Request.Form("Tel_1")
ftel2 = Request.Form("Tel_2")
fmail = Request.Form("Mail")
fadreca=Request.Form("adreca")
fpoblacio=Request.Form("poblacio")
fprovincia=Request.Form("provincia")
fCP=Request.Form("codi_post")
fpubli=Request.Form("publi")
fquevol=Request.Form("quevol")
fFitxeradjunt = Request.Form("adjunt")
 
sMessage = "<b>Incrició a l'oferta"&fquevol&"</b><br><br><br>"_
&"<b>Nom:</b> " & fnom &  "<br><br>" _
&"<b>Cognoms: </b>" & fcognoms &  "<br><br>" _
&"<b>Horari que el podem trucar: </b>" & fhorari &  "<br>" _
&"<b>Tel 1: </b>" & ftel1 &  "<br>" _
&"<b>Tel 2: </b>" & ftel2 &  "<br>" _
&"<b>Mail: </b>" & fmail &   "<br>" _
&"<b>Adreça: </b>" & fadreca &  "<br><br>" _
&"<b>Poblacio: </b>" & fpoblacio &  "<br>" _
&"<b>Provincia: </b>" & fprovincia &   "<br>" _
&"<b>Codi Postal: </b>" & fCP & "<br>" _
&"<b>Publi: </b>" & fpubli & "<br>"
'per enviar el correu
Set oMail = Server.CreateObject("CDO.Message")
'reemplazar aqui las variables principales
'para = "rrhh@sumer-consultora.com"
para = "info@sumer-consultora.com"
de = fmail
asunto = "Formulari Area Candidat <b>"&fquevol&"</b>"
mensaje = sMessage
adjunt = fFitxeradjunt
oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.htmlBody ="<html><body class=""text_titol_camp"" bgcolor=#ffffff>" &mensaje& "</BODY></HTML>" 
if fFitxeradjunt <> "" then
oMail.AddAttachment (fFitxeradjunt)
'oMail.AttachFile (adjunt)
else
end if
 
 
 
 

  
On Error Resume Next
oMail.Send 

'Mail.Sendtoqueue
End sub
%>
             <%Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in Request.Form
If ValidateField(Request.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If Request.Form.Count <> 0 And dictFields.Count  = 0 Then
%>
          <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br><br />
<div align="center">
           <span class="text_titol_camp"><b>Gr&agrave;cies<br>
             </b>               Aviat ens posarem amb contacte<br />
           [ <a href="#" class="contentstyle2" onclick="javascript:window.close()">Tanca la finestra</a> ]             </span>
             <%
Call Send
Set oMail = Nothing
Else
ShowForm
End If
%>

engonga · #2 (**permalink**) 17/05/2007, 00:35

he intentado hacer el formulario y pasa subir el fichero usar el xelupload

pero me da una serie de errores

dejo el codigo para si se lo puede repasar alguien

me falla cuando valido los campos ya que no puedo usar request.form si no objUpload.Form

pero me de el error

"Error de Microsoft VBScript en tiempo de ejecución (0x800A01C2)
Número de argumentos erróneo o asignación de propiedad no válida: 'Form'
"
en la linea "If objUpload.Form.Count <> 0 And dictFields.Count = 0 Then"

Si alguien me puede ayudar?

le estare agradecido

Código HTML:

Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in request.Form
If ValidateField(objUpload.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If objUpload.Form.Count <> 0 And dictFields.Count  = 0 Then

en otro post pongo el codigo entero

engonga · #3 (**permalink**) 17/05/2007, 00:36

aqui el codigo partido

Código PHP:

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="xelupload.asp"-->
<%
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero, aonguardo, tipo, tipo2, tipo3
'nuestro tamaño máximo
maxtam = 2000 * 1024
tipo = "application/pdf"
tipo2 = "application/msword"
tipo3 = "application/x-compressed"
aonguardo = "C:\Gestión Iberwall\Sitios Webs\Esigual\Sumer-Consultora\admin\CVS" 
set objUpload = new xelUpload
objUpload.Upload()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<%
dim quevol
quevol = request.QueryString("infoque")
if quevol <> "" then
quevol = request.QueryString("infoque")
else
quevol = "INSCRIPCIO GENERAL D'UN CANDIDAT"
end if %>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>FORMULARI -- <%=quevol%></title>
<link href="arxius/form_css.css" rel="stylesheet" type="text/css" />
<link href="../ajaxtabs/ajaxtabs.css" rel="stylesheet" type="text/css" />
<script languaje="javascript">
function habilita(form)
{ 
if (form1.avis_legal.checked = true) {
form1.Submit.disabled = false;
}
}
 
</script>
 
</head>
<body>
<%
 'em retorna la data i lora sense punts ni contrabarres 
Dim Dia, Mes, Hora, Minuts, Segons
if Day(Date) <10 Then
 Dia = 0 & Day(Date)
Else 
 Dia = Day(Date) 
 End If
if Month(Date) <10 Then
 Mes = 0 & Month(Date) 
Else
 Mes = Month(Date)
 End If
If Hour(Time) <10 Then
 Hora = 0 & Hour(Time)
Else
 Hora = Hour(Time)
 End If
If Minute(Time) <10 Then
 Minuts = 0 & Minute(Time)
Else
 Minuts = Minute(Time)
 End If
If Second(Time) <10 Then
 Segons = 0 & Second(Time)
Else
 Segons = Second(Time)
 End if
Data = Dia & Mes & Year(Date) & Hora & Minuts & Segons
'Data = Day & Month & Year(Date) & Hour & Minute & Second
%>  
<%
 
'valido el formulari
Function ValidateField(sFieldvalue, sFieldtype)
 ValidField = true
 Select Case LCase(sFieldtype)
  Case "nom"
  If Len(sFieldvalue) = 0 Then ValidField = False  
  Case "cognoms"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "horari"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "tel_1"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "adreca"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "poblacio"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "provincia"
  If Len(sFieldvalue) = 0 Then ValidField = False
  Case "codi_post"
  If Len(sFieldvalue) = 0 Then ValidField = False
 
  Case "mail"
   If Len(sFieldvalue) < 5 Then
    ValidField = False
   Else
    If InStr(1, sFieldvalue, "@", 1) < 2 Then
     ValidField = False
    Else
     If InStr(1, sFieldvalue, ".", 1) < 4 Then
      ValidField = False
     End If
    End If
   End If  
  Case "else"
   ValidField = False
 End Select
ValidateField = ValidField
End Function
 
'mostro el dormulari
Sub ShowForm%>
 
   <form id="form1" name="form" enctype="multipart/form-data" method="post" action="<%= Request.ServerVariables("Script_Name") %>">
 <table width="392" border="0" align="center" cellpadding="0" cellspacing="5">
      <tr>
        <td width="92" height="20" class="text_titol_camp" >Nom*</td>
        <td width="300" valign="top" class="text_titol_camp"><input name="Nom" type="text" class="camo_form"  id="Nom" value="<%=objUpload.Form("nom") %>" size="40" />
          <%If dictFields(LCase("nom")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
 
      <tr>
        <td class="text_titol_camp" >Cognoms*</td>
        <td valign="top" class="text_titol_camp"><input name="Cognoms" type="text" class="camo_form"  id="Cognoms" value="<%=objUpload.Form("cognoms") %>" size="40" />
          <%If dictFields(LCase("cognoms")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp">Horari que et podem trucar * </td>
        <td valign="top" class="text_titol_camp"><input name="horari" type="text" class="camo_form" id="horari" value="<%=objUpload.Form("horari") %>" size="40" />
  <%If dictFields(LCase("horari")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp">Tel&egrave;fon1*</td>
        <td valign="top" class="text_titol_camp"><input name="Tel_1" type="text" class="camo_form"  id="Tel_1" value="<%=objUpload.Form("tel_1") %>" size="30" />
  <%If dictFields(LCase("tel_1")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp">Tel&egrave;fon2</td>
        <td valign="top" class="text_titol_camp"><input name="Tel_2" type="text" class="camo_form"  id="Tel_2" value="<%=objUpload.Form("tel_2") %>" size="30" /></td>
      </tr>
      <tr>
        <td class="text_titol_camp" >E-mail*</td>
        <td valign="top" class="text_titol_camp"><input name="Mail" type="text" class="camo_form"  id="Mail" value="<%=objUpload.Form("mail") %>" size="40" />
          <%If dictFields(LCase("mail")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
      <tr>
        <td class="text_titol_camp"><p>Adre&ccedil;a*</p>          </td>
        <td valign="top" class="text_titol_camp"><input name="adreca" type="text" class="camo_form"  id="adreca" value="<%=objUpload.Form("adreca") %>" size="40" />
          <%If dictFields(LCase("adreca")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp"><p >Poblaci&oacute;*</p>          </td>
        <td valign="top" class="text_titol_camp"><input name="Poblacio" type="text" class="camo_form"  id="Poblacio" value="<%=objUpload.Form("poblacio") %>" size="40" />
          <%If dictFields(LCase("poblacio")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp"><p >Prov&iacute;ncia*</p>          </td>
        <td valign="top" class="text_titol_camp"><input name="Provincia" type="text" class="camo_form"  id="Provincia" value="<%=objUpload.Form("provincia") %>" size="40" />
          <%If dictFields(LCase("provincia")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp"><p>Codi Postal * </p>          </td>
        <td valign="top" class="text_titol_camp"><input name="codi_post" type="text" class="camo_form"  id="codi_post" value="<%=objUpload.Form("codi_post") %>" size="20" />
          <%If dictFields(LCase("codi_post")) Then %>
 
<%Response.Write "<font color=""red""  >*"%>
<% end if %></td>
      </tr>
   <tr>
        <td class="text_titol_camp">CV</td>
        <td class="text_titol_camp"><input name="adjunt"  id="adjunt" type="file" class="camo_form" size="30"></td>
      </tr>
   <tr>
     <td class="text_titol_camp">&nbsp;</td>
     <td class="text_titol_camp">&nbsp;</td>
      </tr>
    <tr>
        <td class="text_titol_camp" >Et podem enviar informaci&oacute;? </td>
        <td class="text_titol_camp"><input name="publi" type="checkbox" class="camo_form" id="Publi" value="si" checked="checked"  />
          <span >si estic d'acord que SUMER CONSULTORA m'envi&iuml; informaci&oacute; </span></td>
      </tr>
       <tr>
         <td>&nbsp;</td>
         <td><span class="text_titol_camp">
         <!-- <input name="avis_legal" type="checkbox" class="camo_form" id="avis_legal" value="1"  onclick="this.form.Submit.disabled = this.checked" checked="checked" />-->  
   <input name="avis_legal" type="checkbox" class="camo_form" id="avis_legal" value="1"  onclick="habilita(this.form)" />
 
         &nbsp;&nbsp;He llegit <a href="../sumer_legal.asp" target="_blank">l'av&iacute;s legal</a> i estic dacord </span></td>
       </tr>
      <tr>
        <td>&nbsp;</td>
        <td><%dim quevol
 
%>
<input type="hidden" name="quevol" id="quevol" value="<%=quevol%>" />
<input type="hidden" name="data" id="data" value="<%=data%>" /></td>
      </tr>
      <tr>
        <td class="text_titol_camp">&nbsp;</td>
        <td class="text_titol_camp"><input  name="Submit" id="Submit" type="submit" class="enviar" value="      Enviar       " disabled="disabled" /> 
        *camps obligatoris </td>
      </tr>
    </table>
         </form>
 
 
        <%
End sub

engonga · #4 (**permalink**) 17/05/2007, 00:37

aqui la parte 2 del codigo que es la que procesa el formulario

Código PHP:

  Sub Send
' xelupload
%>
<%
 
 
'composo el correu
fnom = objUpload.Form("nom")
fcognoms = objUpload.Form("Cognoms")
fhorari = objUpload.Form("horari")
ftel1 = objUpload.Form("Tel_1")
ftel2 = objUpload.Form("Tel_2")
fmail = objUpload.Form("Mail")
fadreca=objUpload.Form("adreca")
fpoblacio=objUpload.Form("poblacio")
fprovincia=objUpload.Form("provincia")
fCP=objUpload.Form("codi_post")
fpubli=objUpload.Form("publi")
fquevol=objUpload.Form("quevol")
fFitxeradjunt = Request.Form("adjunt")
'segueixo xelupload
set objFich = objUpload.Ficheros("adjunt")
    if (objFich.Tamano <= maxtam)and (objFich.TipoContenido = tipo or objFich.TipoContenido = tipo2 or o)  then
  'Es el fichero correcto, vamos a guardarlo en todas partes. :-)
 
 
 
 'ara agafo l'extensio del fitxer
    strExt =  Right(objFich.Nombre, 4)
    'ara agafo enom del fitxer original
    strNom = objFich.Nombre
 
 
    'Ahora, en el directorio upload, con la fecha de hoy como nombre
    strNombreFichero = fnom & fcognoms & data & strExt
    objFich.GuardarComo strNombreFichero, aonguardo
    end if
    'netejo els objectes
 
 
sMessage = "<b>Incrició a l'oferta"&fquevol&"</b><br><br><br>"_
&"<b>Nom:</b> " & fnom &  "<br><br>" _
&"<b>Cognoms: </b>" & fcognoms &  "<br><br>" _
&"<b>Horari que el podem trucar: </b>" & fhorari &  "<br>" _
&"<b>Tel 1: </b>" & ftel1 &  "<br>" _
&"<b>Tel 2: </b>" & ftel2 &  "<br>" _
&"<b>Mail: </b>" & fmail &   "<br>" _
&"<b>Adre&#231;a: </b>" & fadreca &  "<br><br>" _
&"<b>Poblacio: </b>" & fpoblacio &  "<br>" _
&"<b>Provincia: </b>" & fprovincia &   "<br>" _
&"<b>Codi Postal: </b>" & fCP & "<br>" _
&"<b>Publi: </b>" & fpubli & "<br>"
'per enviar el correu
Set oMail = Server.CreateObject("CDO.Message")
'reemplazar aqui las variables principales
'para = "[email protected]"
para = "[email protected]"
de = fmail
asunto = "Formulari Area Candidat <b>"&fquevol&"</b>"
mensaje = sMessage
 
oMail.From = de
oMail.To = para
oMail.Subject= asunto
oMail.htmlBody ="<html><body class=""text_titol_camp"" bgcolor=#ffffff>" &mensaje& "</BODY></HTML>" 
if fFitxeradjunt <> "" then
oMail.AddAttachment (aonguardo &"/"& strNombreFichero)
 
else
end if
 
 
 
 
 
 
On Error Resume Next
oMail.Send 
 
'Mail.Sendtoqueue
End sub
%>
             <%Set dictFields = Server.CreateObject("Scripting.Dictionary")
For Each Field in request.Form
If ValidateField(objUpload.Form(Field), Field) = False Then
dictFields.Add LCase(Field), true
End If
Next
If objUpload.Form.Count <> 0 And dictFields.Count  = 0 Then
%>
          <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br>
           <br><br />
<div align="center">
           <span class="text_titol_camp"><b>Gr&agrave;cies<br>
             </b>               Aviat ens posarem amb contacte<br />
           [ <a href="#" class="contentstyle2" onclick="javascript:window.close()">Tanca la finestra</a> ]             </span>
             <%
Call Send
Set oMail = Nothing
set oFich = nothing
set objUpload = nothing
Else
ShowForm
End If
%>
</div>
</body>
</html>

[/php]