Hola que tal, espero que por ahi alguien tenga solucion a mi problema, sucede que el servidor me marca el error 500 cuando agrego la linea de .AddAttachment ya intente de todas las formas que se me ocurrieron y no funciono, como informacion tengo instalado el ISA Server no se si tenga algo que ver, adjunto el codigo que tengo en mi archivos ASP
(Suprimi todas las llamadas a url porque el foro no me lo permitio)
Set objMail = Server.CreateObject("CDO.Message")
Set objCon = Server.CreateObject ("CDO.Configuration")
With objCon
.Fields("schemas.microsoft.com/cdo/configuration/smtpserver") = "wserver"
.Fields("schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("schemas.microsoft.com/cdo/configuration/sendusername") = "ventas"
.Fields("schemas.microsoft.com/cdo/configuration/sendpassword") = "ventas"
.Fields("schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With
Set objMail.Configuration = objCon
sTo = "
[email protected]"
sFrom = "
[email protected]"
sSubject = "Bolsa de Trabajo"
sHTMLBody = sHTMLBody & " <br>Enviado por <Strong>" & request.form("nombre") & "<br><br></Strong>"
sHTMLBody = sHTMLBody & " Puesto Solicitado : " & request.form("puesto") & "<br>"
sHTMLBody = sHTMLBody & " Telefono " & request.form("telefono") & "<br>"
sHTMLBody = sHTMLBody & " Email : " & request.form("mail") & "<br>"
sHTMLBody = sHTMLBody & " Estos son sus comentarios : " & request.form("comentarios") & "<br>"
sHTMLBody = sHTMLBody & "<p><img src=""images/LOGO.gif"" width=""300"" height=""300""></p><br></font></body></html>"
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.HTMLBody = sHTMLBody
objMail.AddAttachment "c:\2006yrdon.jpg"
On Error Resume Next
objMail.Send
SendCDOEmail=Err