Path de AddAttachment
Publicado por ISAW (1 intervención) el 16/04/2007 01:44:59
Hola
Estoy haciendo un formulario de envio de un mail al que quiero que le atachen un fichero.
El problema que tengo es que me da problemas el path que introducen ya que solo me envía el fichero si lo tengo subido al servidor (que es externo)
Pero si quiero añadir un fichero del lado de cliente tipo c:\mifichero.ext me da error.
No me gustaría tener que hacer un upload para que se envíe el fichero.
Alguién sabe como se puede hacer? El código es el siguiente:
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
.Subject = sSubject
.TextBody = Texto
------------ Así me lo envía bien. El fichero está en el servidor
.AddAttachment Server.MapPath("LINIA.JPG")
------------Si lo pongo así me da error. El fichero está en mi ordenador local
.AddAttachment "C:\NAMI.JPG"
End With
objMail.Send
Gracias
Isa
Estoy haciendo un formulario de envio de un mail al que quiero que le atachen un fichero.
El problema que tengo es que me da problemas el path que introducen ya que solo me envía el fichero si lo tengo subido al servidor (que es externo)
Pero si quiero añadir un fichero del lado de cliente tipo c:\mifichero.ext me da error.
No me gustaría tener que hacer un upload para que se envíe el fichero.
Alguién sabe como se puede hacer? El código es el siguiente:
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
.Subject = sSubject
.TextBody = Texto
------------ Así me lo envía bien. El fichero está en el servidor
.AddAttachment Server.MapPath("LINIA.JPG")
------------Si lo pongo así me da error. El fichero está en mi ordenador local
.AddAttachment "C:\NAMI.JPG"
End With
objMail.Send
Gracias
Isa
Valora esta pregunta


0