स्थानीय डिस्क में संग्रहीत आउटलुक संदेश फ़ाइलें, डेल्फी

Question

के साथ कैसे पढ़ा जाए, मुझे स्थानीय डिस्क पर संग्रहीत दृष्टिकोण 'संदेश फ़ाइलों के निकाय को पुनर्प्राप्त करने और प्रत्येक से कुछ जानकारी निकालने की आवश्यकता है, उनका प्रारूप हमेशा डेटा परिवर्तन ही होता है , कृपया सलाह दें। पहले से

धन्यवाद राउल प्रतिबंध अपने आप को जवाब देने के लिए की वजह से सभी को

---

धन्यवाद,

, मैं बस अपना सवाल नीचे मेरी समाधान लिखेंगे।

मैंने कुछ एमएस दस्तावेज की जांच की है और यहां मेरा समाधान अपेक्षित काम कर रहा है।

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

राउल, आप पार्स कर सकते हैं msg फ़ाइलों खुद Outlook MSG file format जाँच या SMMsg suite की तरह एक डेल्फी घटक का उपयोग।

Answer 2

आप स्केलबियम से SMMsg को आजमा सकते हैं।