hola necesito hacer una aplicacion que pueda leer los mensajes basicos que te entran al email, es decir , cada email , es un archivo con varios datos , que despues el cliente de correos puede leerlos, como un outlook, pero hace mucho ya estoy buscando la manera de hacer uno que me permita descargar el mensaje , bueno eso lo hice pero despues necesito y abrirlo y obtener denuevo los datos.. pero no encuentro la forma de hacerlo..
hay un ejemplo masico de cliente email en delphi , pero kiero sumarle esas funcionalidades, trate de hacerlo asignando o cargando el mensaje ya guardado , al IdMessaje o al IdMesajeMime, pero me da error a la hora de acceder al fichero, o alos datos..
alguien con una idea..
aca muestro algo que hice hace rato ta pero tampoco sale..
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
int,ass :integer;
begin
IdMessage.LoadFromFile('md50000000010.msg');
IdMessage.ProcessHeaders;
int:=IdMessage.MessageParts.Count;
Memo1.Lines.Add('MessageParts ['+IntToStr(int)+']');
Memo1.Lines.Add('TextPartCount ['+IntToStr(IdMessage.MessageParts.TextPartCount)+']');
Memo1.Lines.Add('AttachmentCount ['+IntToStr(IdMessage.MessageParts.AttachmentCount)+']');
Memo1.Lines.Add('RelatedPartCount ['+IntToStr(IdMessage.MessageParts.RelatedPartCount)+']');
for ass:=0 to int do begin
Memo1.Lines.Add(IdMessage.MessageParts.Items[ass].ContentType);
end;
Memo1.Lines.Add(#13+'aca va el mensaje \/');
Memo1.Lines.Add('RelatedPartCount ['+IdMessage.Body.Text+']');
Memo1.Lines.Add(#13+'aca va el mensaje /\');
end;