One more thing, there is no registry trail after the tool runs. I installed it on my home machine and copied the files to my memory stick and launched it at work and nothing was ever added to the registry. The only trail is the ‘SyncToyData’ folder in your ‘My Documents’ folder where the settings . NotesSystem oveview
Private Class NotesSystem Public Sub New() Public Function hasWorkspace() As Boolean Public Function ThisWorkspace() As NotesUIWorkspace Public Function ThisDatabase() As NotesDatabase Public Function hasDocument() As Boolean Public Function ThisDocument() As NotesDocument Public Function hasUIDocument() As Boolean Public Function ThisUIDocument() As NotesUIDocument Public Function ThisSession() As NotesSession Public Function CurrentUser() As NotesName Public Function CurrentUserCommon() As String Public Function CurrentUserAbbreviated() As String End Class
NotesDocumentExtended oveview
Public Class NotesDocumentExtended Public Function getFieldValues ( fieldName As String ) As Variant Public Function getFieldItem ( fieldName As String ) As NotesItem Public Sub replaceField ( fieldName As String , Var As Variant ) Public Function getFieldText ( fieldName As String ) As String Public Function hasField ( fieldName As String ) As Boolean Public Function hasFieldText ( fieldName As String ) As Boolean Public Function hasDoc ( ) As Boolean Public Function hasDocument ( ) As Boolean Public Sub setDoc ( Doc As NotesDocument ) Public Function Doc() As NotesDocument Public Sub setDocument ( Document As NotesDocument ) Public Function Document As NotesDocument End Class
Class DaysOfTheWeek Public Function getWeekDay( dow As Integer ) Select Case dow Case 1 getWeekDay = "Sunday" Case 2 getWeekDay = "Monday" Case 3 getWeekDay = "Tuesday" Case 4 getWeekDay = "Wednesday" Case 5 getWeekDay = "Thursday" Case 6 getWeekDay = "Friday" Case 7 getWeekDay = "Saturday" Case Else getWeekDay = "" End Select End Function End Class
Dim DaysOfTheWeek As DaysOfTheWeek
Set DaysOfTheWeek = New DaysOfTheWeek
Use "Days of the Week"
Sub Initialize Print "Today's Day of the week:" + DaysOfTheWeek.getWeekDay( Weekday( Now ) ) Print "Day of the week1:" + DaysOfTheWeek.getWeekDay( 1 ) Print "Day of the week2:" + DaysOfTheWeek.getWeekDay( 2 ) Print "Day of the week3:" + DaysOfTheWeek.getWeekDay( 3 ) Print "Day of the week4:" + DaysOfTheWeek.getWeekDay( 4 ) Print "Day of the week5:" + DaysOfTheWeek.getWeekDay( 5 ) Print "Day of the week6:" + DaysOfTheWeek.getWeekDay( 6 ) Print "Day of the week7:" + DaysOfTheWeek.getWeekDay( 7 ) Print "Day of the week8:" + DaysOfTheWeek.getWeekDay( 8 ) End Sub