| Class TNotesDatabase (unit Class_LotusNotes) |
TObject
Notes database
| Constructors |
constructor Create;| Functions |
procedure Close;
procedure CopyRecords(SourceDB: TNotesDatabase);***************************************************
function CreateDocument: TNotesDocument;
procedure CreateNew(aServer, dbFile: string; TemplateDB: string);***************************************************
procedure Delete(DocID: integer);
procedure DeleteDocument(Doc: TNotesDocument);***************************************************
destructor Destroy;*****************************************************************************)
function FindDocument(Formula: string): TNotesDocument;
function FTSearch(query: string; maxDocs, sortOptions, otherOptions: integer): TNotesDocumentCollection;*****************************************************************************)
function Open (aServer, dbFile: string): boolean;*****************************************************************************)
procedure OpenMail;
procedure OpenPrivateAddressBook;***************************************************
function OpenView(AName: string; notesDateTime: TDateTime; maxDocs: integer): TNotesDocumentCollection;
function Search(formula: string; notesDateTime: TDateTime; maxDocs: integer): TNotesDocumentCollection;***************************************************
procedure SendMail (Address: string; Subject: string; Body: string);**********************************************
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
property FileName : string
property FullName : string
property Handle : integer
property MailFileName : string
property MailServer : string
property NotesVersion : word
property SaveMail : boolean
property Server : string
property Title : string
property UserName : string| 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 : booleandb server name
property FileName : stringif true, mailed docs are also saved in the database
property FullName : string
property Handle : integerSimple mail sending
property MailFileName : stringname of logged user
property MailServer : stringname of mailbox database
property NotesVersion : wordmail server
property SaveMail : booleanhandle for direct access
property Server : stringdb file name
property Title : string
property UserName : stringdatabase 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;