Samples

Delphi OpenMailbox, CloseMailbox sample.

// Sample 1:

uses MCore;

var

  Handle: TMailboxHandle:

begin

  Handle := OpenMailbox('c:\sample\Folders.dbx'); //Try open mailbox file 'c:\sample\Folders.dbx'

  if Handle > OMS_NOERROR then

    CloseMailbox(Handle) //If mailbox file open OK, close the mailbox file

  else

    WriteLn('Open mailbox file problem: ' + TokenizeErrorCode(Handle)); //If mailbox file open error – write the error code

end;

// Sample 2:

uses MCore;

var

  PSTFileName: string;

  PSTHandle: dword;

begin

  PSTFileName := ParamStr(1); //Get .PST file name from command line

  PSTHandle := OpenMailbox(PChar(PSTFileName)); //Open selected PST file by Mailbox Core

  if PSTHandle > OMS_NOERROR then //If Mailbox open OK

  begin

    //… Mailbox content routines

    CloseMailbox(PSTHandle); //Close Opened mailbox

  end;

end;

         © MCore Team 2005-2008, please contact as