Class TNotesDatabase (unit Class_LotusNotes)

Inherits from

TObject

Notes database

Constructors


constructor Create;

*****************************************************************************) // TNotesDatabase (


Functions

procedure Close;

Open mailbox.

procedure CopyRecords(SourceDB: TNotesDatabase);

close the database

***************************************************


function CreateDocument: TNotesDocument;

***************************************************

procedure CreateNew(aServer, dbFile: string; TemplateDB: string);

copies all records from SourceDB

***************************************************


procedure Delete(DocID: integer);

creates a new database with given name.

procedure DeleteDocument(Doc: TNotesDocument);

delete a document from database

***************************************************


destructor Destroy;

this doesn't open or create a database!

*****************************************************************************)


function FindDocument(Formula: string): TNotesDocument;

Delete an open document.

function FTSearch(query: string; maxDocs, sortOptions, otherOptions: integer): TNotesDocumentCollection;

creates new empty document in the database use Form property to assign the form

*****************************************************************************)


function Open (aServer, dbFile: string): boolean;

Search by Full-text index maxDocs limits returned docs number (now unused) for sortOptions and otherOptions look in Notes documentation {WARNING! SEARCHING OF RUSSIAN TEXT DOESN'T WORK!!! SHOULD BE INVESTIGATED

*****************************************************************************)


procedure OpenMail;

open specified database.

procedure OpenPrivateAddressBook;

finds one document

***************************************************


function OpenView(AName: string; notesDateTime: TDateTime; maxDocs: integer): TNotesDocumentCollection;

searches for documents by given formula.

function Search(formula: string; notesDateTime: TDateTime; maxDocs: integer): TNotesDocumentCollection;

open local address book

***************************************************


procedure SendMail (Address: string; Subject: string; Body: string);

returns all documents contained by given view notesDateTime and maxDocs are unused

**********************************************


function GetFullName: string;

***************************************************

function GetMailFileName: string;

*****************************************************************************)

function GetMailServer: string;

*****************************************************************************)

function GetNotesVersion: word;

***************************************************

function GetTitle: string;

***************************************************

function GetUserName: string;

*****************************************************************************)

procedure SetActive(Value: boolean);

*****************************************************************************)

procedure SetFileName(Value: string);

***************************************************

procedure SetServerName(Value: string);

***************************************************

procedure SetTitle(Value: string);

***************************************************

Properties

property Active : boolean

db server name

property FileName : string

if true, mailed docs are also saved in the database

property FullName : string


property Handle : integer

Simple mail sending

property MailFileName : string

name of logged user

property MailServer : string

name of mailbox database

property NotesVersion : word

mail server

property SaveMail : boolean

handle for direct access

property Server : string

db file name

property Title : string


property UserName : string

database title Don't use these properties until at least one database has been opened!

Events

Variables

FActive : boolean;


FFileName : string;


FHandle : integer;


FSaveMail : boolean;


FServerName : string;



Constructors


constructor Create;

*****************************************************************************) // TNotesDatabase (


Functions


procedure Close;

Open mailbox. Equal to Open (MailServer, MailFile);

*****************************************************************************)


procedure CopyRecords(SourceDB: TNotesDatabase);

close the database

***************************************************


function CreateDocument: TNotesDocument;

***************************************************


procedure CreateNew(aServer, dbFile: string; TemplateDB: string);

copies all records from SourceDB

***************************************************


procedure Delete(DocID: integer);

creates a new database with given name. TemplateDB is full name of template or ''

***************************************************


procedure DeleteDocument(Doc: TNotesDocument);

delete a document from database

***************************************************


destructor Destroy;

this doesn't open or create a database!

*****************************************************************************)


function FindDocument(Formula: string): TNotesDocument;

Delete an open document. Use this function if a document is akredy opened WARNING! After deleting, you cannot access document properties!

***************************************************


function FTSearch(query: string; maxDocs, sortOptions, otherOptions: integer): TNotesDocumentCollection;

creates new empty document in the database use Form property to assign the form

*****************************************************************************)


function Open (aServer, dbFile: string): boolean;

Search by Full-text index maxDocs limits returned docs number (now unused) for sortOptions and otherOptions look in Notes documentation {WARNING! SEARCHING OF RUSSIAN TEXT DOESN'T WORK!!! SHOULD BE INVESTIGATED

*****************************************************************************)


procedure OpenMail;

open specified database. Use blank server name to open from disk

*****************************************************************************)


procedure OpenPrivateAddressBook;

finds one document

***************************************************


function OpenView(AName: string; notesDateTime: TDateTime; maxDocs: integer): TNotesDocumentCollection;

searches for documents by given formula. notesDateTime limits documents by creation date (now unused) maxDocs limits returned docs number (now unused

***************************************************


function Search(formula: string; notesDateTime: TDateTime; maxDocs: integer): TNotesDocumentCollection;

open local address book

***************************************************


procedure SendMail (Address: string; Subject: string; Body: string);

returns all documents contained by given view notesDateTime and maxDocs are unused

**********************************************


function GetFullName: string;

***************************************************


function GetMailFileName: string;

*****************************************************************************)


function GetMailServer: string;

*****************************************************************************)


function GetNotesVersion: word;

***************************************************


function GetTitle: string;

***************************************************


function GetUserName: string;

*****************************************************************************)


procedure SetActive(Value: boolean);

*****************************************************************************)


procedure SetFileName(Value: string);

***************************************************


procedure SetServerName(Value: string);

***************************************************


procedure SetTitle(Value: string);

***************************************************


Properties


property Active : boolean

db server name


property FileName : string

if true, mailed docs are also saved in the database


property FullName : string


property Handle : integer

Simple mail sending


property MailFileName : string

name of logged user


property MailServer : string

name of mailbox database


property NotesVersion : word

mail server


property SaveMail : boolean

handle for direct access


property Server : string

db file name


property Title : string


property UserName : string

database title Don't use these properties until at least one database has been opened!


Events


Variables


FActive : boolean;


FFileName : string;


FHandle : integer;


FSaveMail : boolean;


FServerName : string;