Delphi - Outlook eseményeinek naplózása

Az Outlook programhoz a TOutlookApplication komponens segítségével kapcsolódunk. A komponens alapértelmezett verziója függ a használt Delphi verziójától, de ezt módosíthatjuk, ha új Type Library-t importálunk.

Az Outlook eseményeinek eléréséhez egy TOutlookApplication komponenst használunk, amely a Delphi Servers palettáján található.

Miután a komponenst elhelyeztük a Form-on, az AutoConnect property-jét állítsuk igazra.

A Form OnCreate eseményében létrehozunk egy TEXT típusú állományt, amelybe az eseményeket naplózzuk. Ha az állomány még nem létezik, akkor létrehozzuk, egyébként csak hozzáfűzzük az adatokat.

AssignFile(f,ExtractFilePath(Application.ExeName)+'outlook.log');
if FileExists(ExtractFilePath(Application.ExeName)+'outlook.log') then
  Append(f)
else
  Rewrite(f);

A TEXT állományba egy sort az alábbi módon írhatunk be.

WriteLn(f,DateTimeToStr(Now)+' - Új üzenet érkezése');

Form-unk OnDestroy eseményében gondoskodnunk kell a naplóállomány megfelelő lezárásáról.

CloseFile(f);

Outlook események

Miután elindítottuk az Outlook programot, és annak minden eleme betöltődött, létrejön az OnStatup esemény.

procedure TForm1.OutlookApplication1Startup(Sender: TObject);

Amikor a felhasználó belép a MAPI-ba, létrejön az OnMAPILogonComplete esemény.

procedure TForm1.OutlookApplication1MAPILogonComplete(Sender: TObject);

Az OnItemSend esemény tartalma akkor valósul meg, amikor az Outlook programban a felhasználó létrehoz egy új üzenetet, majd a küldés gombra kattint.

procedure TForm1.OutlookApplication1ItemSend(ASender: TObject;
  const Item: IDispatch; var Cancel: WordBool);

Új üzenet érkezéséről az OnNewMail esemény tájékoztat bennünket. Az esemény tartalma akkor fut le, ha az Inbox-ba új üzenet érkezik.

procedure TForm1.OutlookApplication1NewMail(Sender: TObject);

Az Outlook bezárásakor az OnQuit esemény tartalma kerül végrehajtásra.

procedure TForm1.OutlookApplication1Quit(Sender: TObject);

Alkalmazás eltüntetése

Ha az alkalmazást el akarjuk rejteni, tegyük a következőket:

Nyissuk meg a dpr állományt, majd a Form1-et létrehozó utasítássor elé helyezzük el a következő kódot:

Application.ShowMainForm:=False;

Ekkor alkalmazásunk sehol nem látszik, csak a feladatkezelő folyamatokat megjelenítő részében szerepel az alkalmazás neve.