Class TNotesDatabase (unit Class_LotusNotes) |
Inherits from
TObject
Notes database
constructor Create;
- *****************************************************************************) // TNotesDatabase (
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);
***************************************************
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!
FActive : boolean;
FFileName : string;
FHandle : integer;
FSaveMail : boolean;
FServerName : string;
constructor Create;
*****************************************************************************) // TNotesDatabase (
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);
***************************************************
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!
FActive : boolean;
FFileName : string;
FHandle : integer;
FSaveMail : boolean;
FServerName : string;