Archivos de msg de Outlook almacenados en un 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 alguna información de cada uno, su formato siempre es el mismo, solo cambian los datos , por favor avise.

gracias de antemano Raul

---

Gracias a todos,

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

He comprobado 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

Raul, se puede analizar archivos msg comprobar del Outlook MSG file format o el uso de un componente Delphi como SMMsg suite.

Answer 2

Puedes probar SMMsg de Scalabium.