Yerel diskte saklanan Outlook msg dosyaları, delphi ile nasıl okunabilir

Question

Yerel bir diskte saklanan msg dosyalarının gövdesini almalı ve her birinin bazı bilgilerini ayıklamam gerekir, bunların formatı her zaman aynıdır sadece veri değişiklikleri , tavsiye lütfen. peşin

sayesinde Raul nedeniyle kendimi cevap kısıtlamaya herkese

---

sayesinde

, sadece sorumu altında benim çözüm yazacağım.

Bazı MS belgelerini kontrol ettim ve işte beklediğim gibi çalışıyorum.

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, sen msg kendiniz Outlook MSG file format kontrol eden veya SMMsg suite gibi Delphi bileşeni kullanarak dosyaları ayrıştırma yapabilir.

Answer 2

Scalabium'dan SMMsg deneyebilirsiniz.