Visual y el MIME (emails)

[alehawk]

Buenas Gentes.
El tema es el siguiente, estoy haciendo una app para bajar mails, los mensajes bajan perfectamente pero tengo algunos problemitas, primero, el mail baja encodeado, o sea, si tiene un attachment o si no lo tiene, siempre baja encodeado. El que tiene attachment primero viene la parte del texto con los caracteres internacionales (no ASCII) codificados y luego el attachment.
La idea es parsearlo, dividir el mail en la parte de texto y attachmente y luego uudecodear el attachment por un lado, archivarlo y uudecodear el mail, el tema es que no se como hacerlo. Alguien tiene idea de como decodear el body de un email?
Abrazos

[Mickel]

Con Visual Basic? Si usas los controles MAPI no deberias tener problema. El MAPIMessage te dice si hay attachments o no...

[alehawk]

La verdad no lo use nunca, como es la onda con eso? Tenes algun ejemplo simple o algo asi para ver de que se trata? Debe ser sin utilizar controles de outlook, eso si...
Abrazos!

[Mickel]

Sin controles.. oops... me temo que no...

[alehawk]

No, puede ser con algun control, la idea es que no sea del outlook, porque seria una app para distribuir, de hecho recibo los mensajes desde un ocx...
Abrazos

[Mickel]

Ok. Entonces puedes usar los controles MAPI: MAPISession y MAPIMessage

Un ejemplo simple:
Sesion.LogonUI = True
Sesion.SignOn
Mensaje.SessionID = Sesion.SessionID

´mensajes no leidos
Mensaje.FetchUnreadOnly = True

´Crea un conjunto de mensajes a partir de los mensajes seleccionados en la Bandeja de entrada.
Mensaje.Fetch
If Mensaje.MsgCount 0 Then
For i = 0 To Mensaje.MsgCount - 1
Mensaje.MsgIndex = i
If Mensaje.AttachmentCount 0 Then
For X = 0 To Mensaje.AttachmentCount - 1
Mensaje.AttachmentIndex = X
FileCopy Mensaje.AttachmentPathName, App.Path ...
Next
End If
Next
´ borro el mensaje
Mensaje.Delete
End If

Sesion es un MAPISession
Mensaje es un MAPIMessage

te sirve?

[alehawk]

Muchas gracias!, le pego una probada!