Hola a todos (as):
Trabajo en una aplicación de correo en ASP.
Estoy tratando de desarrollar una función que:
1.- Abra un mensaje de correo (.eml)
2.- Verifique si tiene archivos adjuntos.
3.- Si los tiene que los guarde en la carpeta del usuario.
3.1.- Despliegue una tabla con los datos de dichos adjuntos, al desplegar el mensaje en el browser.
4.- En caso de que el dato adjunto sea otro mensaje (.eml,.msg,.dat) volver al paso 1 hasta que ya no haya datos adjuntos "anidados".
El punto 4 es el que me falta... ¿alguna sugerencia?
Esta es mi función en desarrollo:
Código:
FUNCTION DesglosarDatos(strMensaje,strCarpeta)
Set oMsg=Server.CreateObject("FathMail.Message")
oMsg.LoadFromFile strMensaje
'Algo así como: E:\WebMail\usuarios\Usuario\mensaje.eml
AttCnt=oMsg.GetAttachmentCount
If AttCnt > 0 Then
If InStr(oMsg.GetAttachmentName(0),".dat") > 0 Then
Ruta = attachmentRoot & strUsername & "\" & strCarpeta & ".attach\"
'Algo así como: E:\WebMail\attachments\Usuario\Mensaje.attach\
For j = 0 to AttCnt-1
Nombre=oMsg.GetAttachmentName(j)
Tamano=oMsg.GetAttachmentSize(j)
GuardarEn = Ruta & Nombre
Response.Write "<tr><td>"&j&"</td>"
Response.Write "<td>" & Nombre & "</td>"
Response.Write "<td>" & Tipo & "</td>"
Response.Write "<td>" & FormatBytes(Tamano) & "</td>"
Response.Write "<td>"&ico&"</td></tr>"
oMsg.SaveAttachment j, GuardarEn
Next
End If
End If
Set oMsg=Nothing
END FUNCTION
Espero me puedan ayudar. Muchas gracias.
