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à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
%>