ENVIAR ADJUNTOS CON RUTA DESDE OTRO SERVER

jonatatan
18 de Noviembre del 2004
Saludos, tengo una problema estoy desarrollando una aplicacion para la intranet de la empresa, y tengo que hacer que me envie un email con un archivo adjunto, tengo la aplicacion casi lista, el unico problema es este:
No hay manera de poder adjuntar el Archivo, de verdad es primera vez que trabajo con esto de email, estoy usando ASPEmail, y mas o menos creo que el error esta en la ruta del file, resulta que tengo un server configurado para la posta, un server de plataforma para la intranet, y otro server que es donde tengo el file que necesito enviar, y no se como dar la ruta del file, he intentado de todo, lo mas lejos que he llegado, es que me da el error Acceso Denegado, y la carpeta la tengo compartida para que todos los usuarios puedan tener acceso, tambien la cre como carpeta web y nada, bueno si necesitan el codigo aqui les va:

<html>
<body>
<%
tit = request.form("titolo")
note = request.form("comentario")
per = request.form("emal")
fil = request.form("file")
arg = request.form("argomento")
ent = request.form("ente")
num = request.form("numero")
sig = request.form("sigla")
ann = request.form("anno")

cuerpo = "Norma Richiesta" & VBNEWLINE & VBNEWLINE
cuerpo = cuerpo & "http://ntgedweb1/normeuni/uni.tif " &VBNEWLINE 'esta es la direccion web de la carpeta
if (arg<>"") then
cuerpo = cuerpo & "Argomento: " & arg & VBNEWLINE
end if
if (ente<>"") then
cuerpo = cuerpo & "Ente: " & ent & VBNEWLINE
end if
if (num<>"") then
cuerpo = cuerpo & "Numero: " & num & VBNEWLINE
end if
if (sig<>"") then
cuerpo = cuerpo & "Sigla: " & sig & VBNEWLINE
end if
if (ann<>"") then
cuerpo = cuerpo & "Anno: " & ann & VBNEWLINE
end if
cuerpo = cuerpo & "Titolo: " & tit & fil & VBNEWLINE
if (note<>"") then
cuerpo = cuerpo & "Note: " & note & VBNEWLINE
end if

Dim Mail
set Mail=Server.CreateObject("Persits.MailSender")
Mail.Host = "150.217.21.17" 'Server de Email
Mail.From = "[email protected]"
Mail.FromName = "Paolo Nicchi"
Mail.AddAddress per
Mail.Subject = tit
Mail.Body = cuerpo
MAil.addAttachment "NOSE COMO COLOCAR EL FILE EN ADJUNTO"
On Error Resume Next
Mail.Send

if Err <> 0 Then
Response.Write ( "Errore: " & Err.Description )
else
Response.Write ( "Mail Inviato." )
end if

%>
<p>
<br>
<a href=norme.asp>Ritorna</a>
<p>
</body>
</html>