Mi problemas es que necesito enviar un correo con archivo adjunto para una recepcion de curriculums, esto ya lo habia hecho, pero cambiaron de servidor el sitio y a la vez cambio el componente de correos, antes esta CDONTS y lo hice bien, ahora el componente de correos es CDOSYS y me esta dando problemas.. me aparece como mensaje de error esto: Ah.. ASPUPLOAD es el componente para subir archivos y los permisos de escritura estan dados
ERROR
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'AddAttachment'
/curric.asp, line 37
<%@ Language=VBScript%>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "/uploads"
'email = Upload.form("mail")
Set File = Upload.Files("file")
If Not File Is Nothing Then
archivo = File.FileName
sTo = "[email protected]"
sCC = "[email protected]"
sFrom = Upload.Form("mail")
sMailServer = "127.0.0.1"
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields
With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.CC = sCC
.Subject = "Recepcion de Curriculums
".HTMLBody = "<b>Nombre: </b>"&Upload.Form("nombre")&"<br><b>Area de Interés: </b>"&Upload.Form("areas")&"<br><b>Cargo a Postular: </b>"&Upload.Form("cargo")&"<br><b>Estudios: </b>"&Upload.Form("estudios")&""
.AddAttachment = "/uploads/"&archivo&""
End With
objMail.Send
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing
Response.Redirect "confirma1.htm"
else
Response.redirect "curriculum.htm"
end if
%>
Espero me puedan ayudar
