delphi north america

Archivos de msg de Outlook almacenados en el disco local, cómo leer con Delphi

Question

Necesito recuperar el cuerpo de los archivos msg de outlooks almacenados en un disco local y extraer algo de información de cada uno, su formato siempre es el mismo, solo cambian los datos, por favor avise.

gracias de antemano Raúl

Gracias a todos,

debido a la restricción de responderme a mí mismo, escribiré mi solución justo debajo de mi pregunta.

Revisé algunos documentos de MS y aquí está mi solución funcionando como se esperaba.

procedure TForm1.displayOutlookMsg(aFileName: string);
const
olFormatHTML = 2;
olFormatPlain = 1;
olFormatRichText = 3 ;
olFormatUnspecified = 0;

var outlook: OleVariant;
    outlookMsg, bodyMsg: variant;
begin

  try
    Outlook := GetActiveOleObject(''Outlook.Application'');
  except
    Outlook := CreateOleObject(''Outlook.Application'');
  end;

  outlookMsg:= outlook.CreateItemFromTemplate(aFileName);
  outlookMsg.bodyFormat := olFormatPlain;

  bodyMsg:= outlookMsg.body;

  Memo1.Lines.Add(VarToStr(bodyMsg));
  outlook:= unassigned;

end;

Answer 1

Puedes probar SMMsg desde Scalabium.

Answer 2

Raul, usted puede analizar los archivos msg usted mismo revisando el Outlook MSG file format o usando un componente Delphi como SMMsg suite .