Australian Personal Computer 1999 April/APC443.iso/features/grpware/notes/50lbwic.exe/DATA1.CAB/NotesDataFilesRequiredDataFiles/mail50.ntf

Lotus Notes Storage Facility | 1999-01-29 | 4.1 MB | 45,497 lines

Mail (R5.0)
#1StdR50Mail
($Alarms)|$Alarms
$FolderInfo
$FolderRefInfo
($Inbox)
2\<{Xxb
cLr/~
?^pP\
0zL*i
CN=Lotus Notes Template Development/O=Lotus Notes
lWuBwL
CN=Ryan Jansen/O=IrisMailFSMail (R5.0)
#1StdR50Mail
?JF#############################################
CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##############################################
ACLManagements34Q1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
act_ADDRESSBOOK.GIFact_ADDRESSBOOKaddress book.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
completed.GIF
act_completed.GIFact_CSCOMPLETED1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@7
##########################################################
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
act_COPYINTO.GIFact_COPYINTOcopy into.GIF1#######################################
new.GIF
act_csnew.GIFact_CSNEWDOC1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
owner actions.GIF
act_csowneractions.GIFact_CSOWNERACTIONS1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
act_DELETE.GIFact_DELETEdelete.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONSdelivery options.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
discard changes.GIF
act_discardchanges.GIFact_CSDISCARD1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
act_EDIT.GIFact_EDITedit.GIF1####################################################
act_FOLDER.GIFact_FOLDERfolder.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
act_FORWARD.GIFact_FORWARDforward.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
calendar import dialog box.gif
act_IMPORTHOLIDAYact_IMPORTHOLIDAY
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
insert signature.GIF
act_INSERTSIG.GIFact_INSERTSIG
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
act_MOVEDOWN.GIFact_MOVEDOWNmove down.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
act_MOVEUP.GIFact_MOVEUPmove up.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
act_NEWMAIL.GIFact_NEWMAILnew mail.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
act_NEWMEMO.GIFact_NEWMEMOnew mail.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
act_NEWSTATIONERY.GIFact_NEWSTATIONERYnew.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
act_NEW.GIFact_NEWnew.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
ok.GIF
act_ok.GIFact_CSOK1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
participant actions.GIF
act_participantactions.GIFact_CSPARTACTIONS1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
act_RENAME.GIFact_RENAMErename.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
act_REPLY.GIFact_REPLYreply.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
act_SAVEASDRAFT.GIFact_SAVEASDRAFTsave as draft.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
tx],l
save.GIF
act_save.GIFact_CSSAVE1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
act_SEND.GIFact_SENDsend.GIF1####################################################
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
act_TOOLS.GIFact_TOOLStools.GIF1#################################################
add action.gif
add action.gifadd_action
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
add condition.gif
add condition.gifadd_condition
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
add exception.gif
add exception.gifadd_exception
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
Add Recipients\to new Group Calendar Entry
E4fL3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################
_Add Recipients\to new Group in Address Book|NewGroup
E4f3L
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
add to address book dialog pic.gif
address1.gifAddToAddressBook
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
?add to address book dialog pic.gif
address.giftb_ADDTOADDRESSBOOK
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
34CiQ
off white speckle.gif
bg_0bg_0
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
bBK2T
?scribble.gif
bg_1bg_1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
^agA6
34CiQ
green paper.gif
bg_2bg_2
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
34CiQ
glacier.gif
bg_3bg_3
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
34CiQ
diamonds.gif
bg_4bg_4
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
34CiQ
lotus tech.gif
bg_5bg_5
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
34CiQ
bg_MessagePadbg_MessagePadphone_top.jpg
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
I,G*i
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Bouncy EarthStdNotesLtr1bouncyearth3.GIF#####################
Calendar TitleC34WQ1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ACLDigest
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class DelegationACLManager
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const READWRITE=&h010&
Const CANDELETE = &h100&
Const READPUBLIC= &h200&
Const WRITEPUBLIC= &h400&
Const NO_UPDATE_MANAGER = 37
Const NO_UPDATE_ACL = 42
Const NO_UPDATE_OWNER = 68
Const NO_ACL_REFERENCE = 69
Const ERROR_ADMINP = 72
Const OWNER_IS_FLAT = 71
Const WINDOW_TITLE = 61
Class DelegationACLManager
    Public StringTable As MailToolsStringTable
    Private session As notessession
    Private note As notesdocument
    Private acl As notesacl
    Private aclentry As notesaclentry
    Private name As notesname
    Private agentDelegateAgent As notesagent
    Private ReadCal() As String
    Private WriteCal() As String
    Private ReadMail() As String
    Private WriteMail() As String
    Private EditMail() As String
    Private DeleteMail() As String
    Private OtherUsers() As String
    Private AddedUsers() As String
    Private DeletedUsers() As String
    Private OriginalOwner As String
    Private DefaultPublicReader As Integer
    Private DefaultPublicWriter As Integer
    Private MustDelegate As Integer
    Private ACLIsDirty As Integer
    Private nSuccess As Integer
    Private x As Integer
    Private CanChangeOwner As Integer
    Private nIsWebClient As Integer
    Sub New(note As notesdocument)
        Set Me.StringTable = New MailToolsStringTable
        Set Me.session = New notessession
        Set Me.acl = note.parentdatabase.ACL
        Set Me.note = note
        Me.note.autoreload = False
        OriginalOwner = Me.note.GetItemValue("Owner")(0)
        Set Me.aclentry = Me.acl.GetEntry(Me.session.Effectiveusername)
        If Me.aclentry Is Nothing Then
            Set Me.name = New NotesName(Me.session.Effectiveusername)
            Set Me.aclentry = Me.acl.GetEntry(Me.name.Common)
        End If
        If Me.aclentry Is Nothing Then
            'user not in ACL?
            Call RaiseUIError(NO_ACL_REFERENCE)
            End
        Elseif Me.aclentry.level < ACLLEVEL_MANAGER Then
            If Me.note.hasitem("Owner")  Then
                If Not NameCompare(Me.OriginalOwner,Me.session.Effectiveusername) Then
                    Me.CanChangeOwner = False
                Else
                    Me.CanChangeOwner = True
                End If
            Else
                Me.CanChangeOwner = True
            End If
            Me.MustDelegate = True
        Elseif Me.aclentry.level = ACLLEVEL_MANAGER Then
            Me.CanChangeOwner = True
        End If
    End Sub
    Public Function Init()
        Call GetDefaultAccess()
        Call GetAclEntries()
    End Function
    Property Set IsWebClient
        Me.nIsWebClient = IsWebClient
    End Property
    Property Set DelegateUsingAdminP
        Me.MustDelegate = DelegateUsingAdminP
    End Property
    Private Function InvokeAdminP() As Integer
        Dim vHomeServer As Variant
        Dim vSuccess As Variant
        If Me.nIsWebClient Then
            Redim vHomeServer(0)
            vHomeServer(0) = Me.session.Username 'the context of the server running the agent
        Else
            vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)
        End If
        vSuccess = Evaluate(|@AdminDelegateMailFile("| &_
        vHomeServer(0) & |";"admin4.nsf";"|& vHomeServer(0) &|";"| &_
        Me.session.Effectiveusername & |";PublicRead;ReadCalendar;PublicWrite;WriteCalendar;ReadMail;WriteMail;EditMail;DeleteMail;RemoveFromACL;Owner;@Subset(@DbName; -1))|, note)
        InvokeAdminP = 0 - Cint(vSuccess(0))
    End Function
    Private Function IsPublicReader()
        If Me.aclentry.IsPublicReader Then
            x = Ubound(Me.ReadCal)
            Me.ReadCal(x) = Me.aclentry.Name
            Redim Preserve Me.ReadCal(x + 1)
        End If
    End Function
    Private Function IsPublicWriter()
        If Me.aclentry.IsPublicWriter Then
            x = Ubound(Me.WriteCal)
            Me.WriteCal(x) = Me.aclentry.Name
            Redim Preserve Me.WriteCal(x + 1)
        End If
    End Function
    Private Function AddedUser()
        x = Ubound(Me.AddedUsers)
        Me.AddedUsers(x) = Me.aclentry.Name
        Redim Preserve Me.AddedUsers(x+1)
    End Function
    Private Function WasUserAdded()
        WasUserAdded = False
        Forall AddedNames In Me.AddedUsers
            If NameCompare(AddedNames,Me.aclentry.Name) Then
                WasUserAdded = True
                Exit Forall
            End If
        End Forall
    End Function
    Private Function AddToDeletedList()
        If Not WasUserAdded() Then
            x = Ubound(Me.DeletedUsers)
            Me.DeletedUsers(x) = Me.aclentry.Name
            Redim Preserve Me.DeletedUsers(x+1)
        End If
    End Function
    Function IsNameDesignerManager() As Integer
        IsNameDesignerManager = False
        If Me.aclentry.level => ACLLEVEL_DESIGNER Then
            IsNameDesignerManager = True
        End If
    End Function
    Public Function CommitACL(DiscardChanges As Integer) As Integer
        If DiscardChanges Then
            Exit Function
        Else
            CommitACL = ValidateOwner()
            Call SetDefaultAccess()
            If ACLHasChanged(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail)) Then
                Call UpdateACL(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail),ACLLEVEL_READER)
            End If
            If ACLHasChanged(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail)) Then
                Call UpdateACL(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail),READWRITE)
            End If
            If ACLHasChanged(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail)) Then
                Call UpdateACL(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail),ACLLEVEL_EDITOR)
            End If
            If ACLHasChanged(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail)) Then
                Call UpdateACL(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail),CANDELETE)
            End If
            If ACLHasChanged(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal)) Then
                Call UpdateACL(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal),READPUBLIC)
            End If
            If ACLHasChanged(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal)) Then
                Call UpdateACL(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal),WRITEPUBLIC)
            End If
            If Me.ACLIsDirty Then
                If Me.MustDelegate Then
                    Call Me.note.ReplaceItemValue("RemoveFromACL", DeletedUsers)
                    If Not InvokeAdminP() Then
                        Call RaiseUIError(ERROR_ADMINP)
                    End If
                Else
                    Call Me.ACL.SAVE()
                End If
            End If
        End If
    End Function
    Private Function ACLHasChanged(CurrentEntries As Variant,InitialEntries As Variant) As Integer
        ACLHasChanged = False
        If Ubound(CurrentEntries) <> Ubound(InitialEntries) Then
            Me.ACLIsDirty = True
            ACLHasChanged = True
            Exit Function
        Else
            For x = 0 To Ubound(InitialEntries)
                If Not CurrentEntries(x) = InitialEntries(x) Then
                    Me.ACLIsDirty = True
                    ACLHasChanged = True
                    Exit Function
                End If
            Next
        End If
    End Function
    Private Function GetDefaultAccess()
        Set Me.aclentry = Me.acl.getentry("-Default-")
        If Me.aclentry Is Nothing Then
            Set Me.aclentry = Me.acl.createACLEntry("-Default-",ACLLEVEL_NOACCESS)
        End If
        If Me.aclentry.ispublicreader Then
            Me.DefaultPublicReader = True
        Else
            Me.DefaultPublicReader = False
        End If
        If Me.aclentry.ispublicwriter Then
            Me.DefaultPublicWriter = True
        Else
            Me.DefaultPublicWriter = False
        End If
    End Function
    Private Function SetDefaultAccess()
        Set Me.aclentry = Me.acl.getentry("-Default-")
        If  Not Val(Me.note.getitemvalue("PublicRead")(0)) = Me.DefaultPublicReader Then
            If (0 - Val(Me.note.getitemvalue("PublicRead")(0))) Then
                aclentry.ispublicreader = True
            Else
                aclentry.ispublicreader = False
            End If
            Me.ACLIsDirty = True
        End If
        If Not Val(note.getitemvalue("PublicWrite")(0)) = Me.DefaultPublicWriter Then
            If (0 - Val(note.getitemvalue("PublicWrite")(0)))    Then
                aclentry.ispublicwriter = True
            Else
                aclentry.ispublicwriter = False
            End If
            Me.ACLIsDirty = True
        End If
    End Function
    Private Function IsNameInACL(ACLName As Variant) As Integer
        IsNameInACL = False
        Set Me.aclentry = Me.acl.getentry(ACLName)
        If Not aclentry Is Nothing Then IsNameInACL = True
    End Function
    Private Function RemoveIfNoAccess()
        If Me.aclentry.Level = ACLLEVEL_NOACCESS  Then
            If Not Me.aclentry.Ispublicreader And Not Me.aclentry.Ispublicwriter Then
                Call AddToDeletedList()
                Call Me.aclentry.remove()
            End If
        End If
    End Function
    Private Function UpdateACL(CurrentEntries As Variant,InitialEntries As Variant,LEVEL As Integer) As Integer
        UpdateACL = False
        Forall ACLName In InitialEntries
            If ACLName <> "" Then
                If Arraygetindex(CurrentEntries,ACLName) => 0 Then
                'we keep it as it was
                Else
                    Set Me.aclentry = Me.acl.getentry(ACLName)
                    If Not Me.aclentry Is Nothing Then
                        If IsNameInACL(ACLName) Then
                            If IsNameDesignerManager() Then
                                Call RaiseUIError(NO_UPDATE_MANAGER)
                            Else
                                Select Case LEVEL
                                Case CANDELETE
                                    Me.aclentry.candeletedocuments = False
                                Case READPUBLIC
                                    Me.aclentry.ispublicreader = False
                                    Me.aclentry.ispublicwriter = False
                                    Call RemoveIfNoAccess()
                                Case WRITEPUBLIC
                                    Me.aclentry.ispublicwriter = False
                                    Call RemoveIfNoAccess()
                                Case Else
                                    If Isnull(Arraygetindex(Me.AddedUsers,ACLName)) Then
                                        Call AddToDeletedList()
                                        Call Me.aclentry.remove()
                                    End If
                                End Select
                            End If
                        End If
                    End If
                End If
            End If
        End Forall
        Forall ACLName In CurrentEntries
            If ACLName <> "" Then
                If Arraygetindex(InitialEntries,ACLName) => 0 Then
                'it's there so leave it alone
                Else
                    If IsNameInACL(ACLName) Then
                        If IsNameDesignerManager() Then
                            Call RaiseUIError(NO_UPDATE_MANAGER)
                            Exit Function
                        End If
                    End If
                    Select Case LEVEL
                    Case ACLLEVEL_READER
                        If IsNameInACL(ACLName) Then
                            Me.aclentry.level = Acllevel_reader
                        Else
                            Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_reader)
                        End If
                        Call AddedUser()
                    Case READWRITE
                        If IsNameInACL(ACLName) Then
                            Me.aclentry.level = Acllevel_author
                        Else
                            Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_author)
                        End If
                        Call AddedUser()
                        Me.aclentry.cancreatedocuments = True
                        Me.aclentry.candeletedocuments = False
                    Case ACLLEVEL_EDITOR
                        If IsNameInACL(ACLName) Then
                            Me.aclentry.level = Acllevel_editor
                        Else
                            Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_editor)
                        End If
                        Call AddedUser()
                        Me.aclentry.cancreatedocuments = True
                        Me.aclentry.candeletedocuments = False
                    Case READPUBLIC
                        Set Me.aclentry = Me.acl.getentry(ACLName)
                        If Not Me.aclentry Is Nothing Then
                            Me.aclentry.ispublicreader = True
                        Else
                            Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
                            Call AddedUser()
                            Me.aclentry.ispublicreader = True
                        End If
                    Case WRITEPUBLIC
                        Set Me.aclentry = Me.acl.getentry(ACLName)
                        If Not Me.aclentry Is Nothing Then
                            Me.aclentry.ispublicreader = True
                            Me.aclentry.ispublicwriter = True
                        Else
                            Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
                            Call AddedUser()
                            Me.aclentry.ispublicreader = True
                            Me.aclentry.ispublicwriter = True
                        End If

                    Case CANDELETE
                        Set Me.aclentry = Me.acl.getentry(ACLName)
                        If Not Me.aclentry Is Nothing Then
                            If Me.aclentry.level < Acllevel_author Then
                                Me.aclentry.level = Acllevel_author
                            End If
                            Me.aclentry.candeletedocuments = True
                        Else
                            Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_AUTHOR)
                            Call AddedUser()
                            Me.aclentry.candeletedocuments = True
                        End If
                    End Select
                End If
            End If
        End Forall
    End Function
    Sub RaiseUIError(nStringID As Integer)
        'this empty function is overloaded in inheriting classesso the WEB and Client can handle them thier    own way
    End Sub
    Function ValidateOwner() As Integer
        ValidateOwner = False
        If Not Me.CanChangeOwner Then
            If Not NameCompare(Me.OriginalOwner, Me.note.GetitemValue("Owner")(0)) Then
                    'only a manager or the current owner of a mail file can alter the value
                Call note.ReplaceItemValue("Owner",Me.OriginalOwner)
                Call RaiseUIError(NO_UPDATE_OWNER)
                Exit Function
            End If
        End If
        Set Me.name = New notesname(Me.note.GetitemValue("Owner")(0))
        If Not Me.name.Ishierarchical Then
            Set Me.name = New notesname(Me.session.UserName)
            If Me.name.Ishierarchical Then
                Call RaiseUIError(OWNER_IS_FLAT)
            End If
        End If
        ValidateOwner = True
    End Function
    Private Function GetAclEntries()
'initialize dynamic array
        Redim Me.ReadCal(0)
        Redim Me.WriteCal(0)
        Redim Me.ReadMail(0)
        Redim Me.WriteMail(0)
        Redim Me.EditMail(0)
        Redim Me.DeleteMail(0)
        Redim Me.OtherUsers(0)
        Redim Me.AddedUsers(0)
        Redim Me.DeletedUsers(0)
        Set Me.aclentry = Me.acl.GetFirstEntry
        Do Until Me.aclentry Is Nothing
            Select Case Me.aclentry.Level
            Case ACLLEVEL_NOACCESS
                If Me.aclentry.Name = "-Default-" Then
                    If Me.aclentry.IsPublicReader Then
                        Me.note.PublicRead = "1"
                    Else
                        Me.note.PublicRead = "0"
                    End If
                    If Me.aclentry.IsPublicWriter Then
                        Me.note.PublicWrite = "1"
                    Else
                        Me.note.PublicWrite = "0"
                    End If
                Else
                    If Me.aclentry.IsPublicReader Or Me.aclentry.IsPublicWriter Then
                        Call IsPublicReader()
                        Call IsPublicWriter()
                    Else
                        'These are other NoAccess people and we don't want to change them
                        x = Ubound(Me.OtherUsers)
                        Me.OtherUsers(x) = Me.aclentry.Name
                        Redim Preserve Me.OtherUsers(x+1)
                    End If
                End If
            Case ACLLEVEL_READER
                x = Ubound(Me.ReadMail)
                Me.ReadMail(x) = Me.aclentry.Name
                Redim Preserve Me.ReadMail(x+1)
                Call IsPublicReader()
                Call IsPublicWriter()
            Case ACLLEVEL_AUTHOR
                If Me.aclentry.CanCreateDocuments Then
                    x = Ubound(Me.WriteMail)
                    Me.WriteMail(x) = Me.aclentry.Name
                    Redim Preserve Me.WriteMail(x+1)
                Else
                    x = Ubound(Me.ReadMail)
                    Me.ReadMail(x) = Me.aclentry.Name
                    Redim Preserve Me.ReadMail(x+1)
                End If
                If Me.aclentry.CanDeleteDocuments Then
                    x = Ubound(Me.DeleteMail)
                    Me.DeleteMail(x) = Me.aclentry.Name
                    Redim Preserve Me.DeleteMail(x+1)
                End If
                Call IsPublicReader()
                Call IsPublicWriter()
            Case ACLLEVEL_EDITOR
                x = Ubound(Me.EditMail)
                Me.EditMail(x) = Me.aclentry.Name
                Redim Preserve Me.EditMail(x+1)
                If Me.aclentry.CanDeleteDocuments Then
                    x = Ubound(Me.DeleteMail)
                    Me.DeleteMail(x) = Me.aclentry.Name
                    Redim Preserve Me.DeleteMail(x+1)
                End If
                Call IsPublicReader()
                Call IsPublicWriter()
            Case Else
                'These are Manager and Designers and we don't want to change them
                x = Ubound(Me.OtherUsers)
                Me.OtherUsers(x) = aclentry.Name
                Redim Preserve Me.OtherUsers(x+1)
            End Select
            Set Me.aclentry = Me.acl.GetNextEntry(Me.aclentry)
        Loop
        Me.note.ReadCalendar = Fulltrim(Me.ReadCal)
        Me.note.WriteCalendar = Fulltrim(Me.WriteCal)
        Me.note.ReadMail = Fulltrim(Me.ReadMail)
        Me.note.WriteMail = Fulltrim(Me.WriteMail)
        Me.note.EditMail = Fulltrim(Me.EditMail)
        Me.note.DeleteMail = Fulltrim(Me.DeleteMail)
        Me.note.OtherUsers = Fulltrim(Me.OtherUsers)
    End Function
End Class
Lotus Product
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
GIF89a
U/c:<`#V(
Oa)n3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
.!f&a
 JCv2.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
0t" &
NGv58
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$PublicAccess
GIF89a
___OOO
 1PQK
01357
i5la+o@B1DFHJ
>=1?M
j:RL{8
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
E>8W
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
bXXQJ
:b,>J
/Y!<FH
LEk40
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
___OOO
h^/&W@
!#ap=Y"%l`jyj
.g$:')
oP{3$<{
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"BQ4tD_.'
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
c\")%
)>@8$]! rZd
!=IK~$Qu6
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
(u3,&
BMb>Q
L"R<HJL
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
i9},K
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
`7kB!h=?2R\!rYZ
 /)s69
eV{=JLgOu5
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
#ER^w~
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$PublicAccess
GIF89a
S!t"W
='h1!K
t#8BD=Gvj_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
9^cE9!f
e^#:DF.XJCt36
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
k8V    T
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89at
f[61I4
2$g{/F/6
xwuFv6nb%
uX{z.
Y-ZT$
60eLM
h1X`&
 mC*V
Hj(M\
JaDkZ
ZtuB56
4%Y`d
O8BHd!^
`)b@6
_j]TqNP
Pn8[A_N
 Uc8A
`\$(L
$$zv;(
qH6sN
t@u$F
F6pr"
0*H/~
Nu K`
pbaQ%%a    de
41@j\
TU&s,(
}'$@$')
LTXFQ
e$/(Q,
j<H90
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
___OOO
'X5}~
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
s;|#HiR
!=5]!8
Y_Kl2#8l
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
TM)> 6.
{lX4aJ
<FH@bOo2#
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
pE9p]j
aQQ@C
8DFHJl3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
pE9p]j
aQQ@C
8DFHJl3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
 1PQK
01357
i5la+o@B1DFHJ
>=1?M
j:RL{8
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
 1PQK
01357
i5la+o@B1DFHJ
>=1?M
j:RL{8
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
g;}QS pW/
O9GIfMst
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
7FXV-
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
___OOO
qE1kr%
0mVi46
*m.AOC Y
mRw7`
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
d|]eD
fJbn*
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
)*  (
(P!1I$
tC`ac],:N=_RoV
WOQ)+
{/8EGIKDr3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
,T#{    o
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
t-@3"
'     C%
I1`G    q\=
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
___OOO
A*;8$
\vDe    ]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
@B$`)
eM! c:<~(&
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
GHn%.
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
$PublicAccess
GIF89a
___OOO
m[QNK
\#& 3
 QFv4#
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$PublicAccess
GIF89a
___OOO
]b\QK
:7->C%!
KMFop
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
fJ^ab
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$PublicAccess
GIF89a
```===
    |s    <
}cTPgInf8B
aXYCy
rxnXB
    QJXM{
q<B-S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
___<<<
    |s    <
Ut{Ht
WW>)&
1%hX4
RM:?a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
bbb>>>
Vxp\lF
5}d&N>f,p
dvO<z
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
|@xLW]
=PO)j/
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Untitled:
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim newnote As notesdocument
    Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
    Call DisplayGroupCalendarDlg(newnote, True)
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Common"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class AddToGroupStringTable
Declare Class GroupHelperLauncher As BaseApplication
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Class AddToGroupStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case 1
            GetString = "Rename target group"
        Case 2
            GetString = "Replace existing group with new group"
        Case 3
            GetString = "Append selected member(s) to existing group member(s)"
        Case 4
            GetString = "A group by this name is already defined. "
        Case 5
            GetString = "Please select the desired action"
        Case 6
            GetString = "Please enter new group name"
        Case  7
            GetString = "Lotus Notes"
        Case 8
            GetString = "-Untitled-"
        Case 9
            GetString = "Add recipients to new group"
        End Select
    End Function
End Class
Class GroupHelperLauncher As BaseApplication
    Private m_GroupHelperStringTable As AddToGroupStringTable
    Private m_uiws As notesuiworkspace
    Private m_dbLocalAddressBook As notesdatabase
    Private m_viewGroup As notesview
    Private m_collection As notesdocumentcollection
    Private m_noteOptions As notesdocument
    Private m_noteCandidate As notesdocument
    Private m_noteGroupEntry As notesdocument
    Private m_vUserDomain As Variant
    Private m_vTrimmedList As Variant
    Private m_strRecipientArray As Variant
    Private m_nSuccess As Integer
    Private m_nEntryNumber As Integer
'//Public Subs and Functions
'//Init//
    Sub Init()
        Set Me.m_GroupHelperStringTable = New AddToGroupStringTable
        Set Me.m_collection = GroupHelperLauncher..DocumentsToProcess
        If Not Me.m_collection.count > 0 Then
            Exit Sub
        End If
        Set Me.m_uiws = New notesuiworkspace
        Me.m_vUserDomain = Evaluate(|@Domain|)
        Set Me.m_dbLocalAddressBook = GroupHelperLauncher..LocalAddressBook
        Set Me.m_noteOptions = Me.m_db.CreateDocument
    End Sub
    Function ProcessCandidates()
        Set Me.m_noteCandidate = Me.m_collection.getfirstdocument
        While Not Me.m_noteCandidate Is Nothing
            If Not Isarray(Me.m_strRecipientArray) Then
                Redim Me.m_strRecipientArray(0)
                Me.m_strRecipientArray(0) = ""
            Else
                Me.m_nEntryNumber = Me.m_nEntryNumber + 1
            End If
            If Me.m_noteCandidate.hasitem("SendTo") And Len(Me.m_noteCandidate.GetItemValue("SendTo")(0)) Then
                Me.m_strRecipientArray = Arrayappend(Me.m_strRecipientArray,AppendDomain(Me.m_noteCandidate.GetItemValue("SendTo")))
            End If
            If Me.m_noteCandidate.hasitem("CopyTo") And Len(Me.m_noteCandidate.GetItemValue("CopyTo")(0)) Then
                Me.m_strRecipientArray = Arrayappend(Me.m_strRecipientArray,AppendDomain(Me.m_noteCandidate.GetItemValue("CopyTo")))
            End If
            If Me.m_noteCandidate.hasitem("BlindCopyTo") And Len(Me.m_noteCandidate.GetItemValue("BlindCopyTo")(0)) Then
                Me.m_strRecipientArray = Arrayappend(Me.m_strRecipientArray,AppendDomain(Me.m_noteCandidate.GetItemValue("BlindCopyTo")))
            End If
            Set Me.m_noteCandidate = Me.m_collection.getnextDocument(Me.m_noteCandidate)
        Wend
        Me.m_vTrimmedList = RemoveDuplicates(OptimizeAddressArray(Me.m_strRecipientArray))
        Call Me.m_noteOptions.replaceitemvalue("AllAddresses",Me.m_vTrimmedList)
        Me.m_nSuccess = Me.m_uiws.dialogbox("(GroupHelper)",True,True,False,False,False,False,_
        Me.m_GroupHelperStringTable.GetString(9,Null),Me.m_noteOptions,True,False)
        If Me.m_nSuccess Then
            Call CreateNABEnrty()
        End If
    End Function
    Private Function AppendDomain(EmailAddessArray As Variant) As Variant
        If Me.m_noteCandidate.hasitem("FromDomain") Then
            If Len(Me.m_noteCandidate.GetItemValue("FromDomain")(0)) Then
                Dim x As Integer
                For x = 0 To Ubound(EmailAddessArray)
                    If Not EmailAddessArray(x) = "" And Not Isnull(EmailAddessArray(x)) Then
                        If Not Me.m_vUserDomain(0) = Me.m_noteCandidate.GetItemValue("FromDomain")(0) Then
                            EmailAddessArray(x) =  EmailAddessArray(x) & "@" & Me.m_noteCandidate.GetItemValue("FromDomain")(0)
                        End If
                    End If
                Next
            End If
        End If
        AppendDomain = EmailAddessArray
    End Function
    Private Function OptimizeAddressArray(EmailAddress As Variant) As Variant
        On Error Goto TRAP
        If Isarray(EmailAddress) Then
            Dim x As Integer
            Dim vTempName As Variant
            For x = 0 To Ubound(EmailAddress)
                If Not EmailAddress(x) = "" Or Not Isnull(EmailAddress(x)) Then
                    vTempName = Evaluate(|@OptimizeMailAddress("| & EmailAddress(x) &|")|)
                    EmailAddress(x) = vTempName(0)
                End If
            Next
        Else
            EmailAddress = Evaluate(|@OptimizeMailAddress("| & EmailAddress &|")|)
        End If
        OptimizeAddressArray = EmailAddress
        Exit Function
TRAP:
        vTempName(0) = EmailAddress(x)
        Resume Next
    End Function
    Function RemoveDuplicates(strArray As Variant) As Variant
        Dim x As Integer
        Dim y As Integer
        Dim tmpstrArray() As String
        Redim tmpstrArray(0)
        For x = 0 To Ubound(strArray)
            If Isnull(Arraygetindex(tmpstrArray,strArray(x),1)) Then
                tmpstrArray(y) = strArray(x)
                y = y+1
                Redim Preserve tmpstrArray(y)
            End If
        Next
        RemoveDuplicates = Fulltrim(tmpstrArray)
    End Function
    Function CreateNABEnrty()
        Set Me.m_viewGroup = Me.m_dbLocalAddressBook.GetView("($PeopleGroupsFlat)")
        Set Me.m_noteGroupEntry = Me.m_viewGroup.Getdocumentbykey(Me.m_noteOptions.GroupName(0),True)
        If Me.m_noteGroupEntry Is Nothing Then
            '// this is a new group and we'll just populate it
            Set Me.m_noteGroupEntry = Me.m_dbLocalAddressBook.createdocument
            With Me.m_noteGroupEntry
                Call .replaceitemvalue("Form","Group")
                Call .replaceitemvalue("Type","Group")
                Call .replaceitemvalue("ListName",Me.m_noteOptions.GetItemValue("GroupName"))
                Call .replaceitemvalue("GroupType",Me.m_noteOptions.GetItemValue("GroupType"))
                Call .replaceitemvalue("ListDescription", Me.m_noteOptions.GetItemValue("Description"))
                Call .replaceitemvalue("Members", Me.m_noteOptions.GetItemValue("SelectedGroupMembers"))
                Call .save(True,True,True)
            End With
        Else
            '// this group is already in the NAB, so lets see what they want to do!
            Dim Options(2) As String
            Dim strResponse As String
            Options(0) = Me.m_GroupHelperStringTable.GetString(1,Null)
            Options(1) = Me.m_GroupHelperStringTable.GetString(2,Null)
            Options(2) = Me.m_GroupHelperStringTable.GetString(3,Null)
            strResponse = Me.m_uiws.Prompt(prompt_okcancellist,_
            Me.m_GroupHelperStringTable.GetString(7,Null),_
            Me.m_GroupHelperStringTable.GetString(4,Null) & Chr(13) & _
            Me.m_GroupHelperStringTable.GetString(5,Null),_
            Options(0), Options)
            Select Case strResponse
            Case Options(0)
                'get new group string name from user
                Dim strtmpGroupString As String
                strtmpGroupString = Inputbox(Me.m_GroupHelperStringTable.GetString(6,Null),_
                Me.m_GroupHelperStringTable.GetString(7,Null),_
                Me.m_GroupHelperStringTable.GetString(8,Null))
                Call Me.m_noteOptions.replaceitemvalue("GroupName",strtmpGroupString)
                Call CreateNABEnrty()
            Case Options(1)
                'replace the members
                With Me.m_noteGroupEntry
                    Call .replaceitemvalue("GroupType",Me.m_noteOptions.GetItemValue("GroupType"))
                    Call .replaceitemvalue("Members", Me.m_noteOptions.GetItemValue("SelectedGroupMembers"))
                    Call .save(True,True,True)
                End With
            Case Options(2)
                'append the members to the list (check for unique entries)
                With Me.m_noteGroupEntry
                    Call Me.m_noteOptions.ReplaceItemValue("SelectedGroupMembers",_
                    RemoveDuplicates(OptimizeAddressArray(Arrayappend(Me.m_noteOptions.GetItemValue("SelectedGroupMembers"),_
                    .GetItemValue("Members")))))
                    Call .replaceitemvalue("Members", Me.m_noteOptions.GetItemValue("SelectedGroupMembers"))
                    Call .save(True,True,True)
                End With
            End Select
        End If
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim copyfunction As New GroupHelperLauncher
    Call copyfunction.init()
    Call copyfunction.ProcessCandidates()
End Sub
Lotus Product
}H    #8
~###1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
GIF89a4
~~~jjjEEE
nO$pI$
&+,.]5
x,1$4
og0)<
WT)`UV
5!MD;
^D,'2
`<8.un
cq-*2vD
AM5{u&;`
gZ-%E
="h_t
gSTV?
.iU&!zRV
zUh6te
TjC7Z
pDz'3
ozHZI(t
1`> ")uWx
s585'
E(a>)eETzL
`j^+3u
GL1t|P
15lQX
    7)rP
h\X',-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"i=+l
NONV59
~?%6#
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a4
~~~jjjEEE
nO$pI$
&+,.]5
x,1$4
og0)<
WT)`UV
5!MD;
^D,'2
`<8.un
cq-*2vD
AM5{u&;`
gZ-%E
="h_t
gSTV?
.iU&!zRV
zUh6te
TjC7Z
pDz'3
ozHZI(t
1`> ")uWx
s585'
E(a>)eETzL
`j^+3u
GL1t|P
15lQX
    7)rP
h\X',-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImageData
$ImageNames
$ImagesColorize
$TITLE
(GIF89a
]Zqfp
5iCu2aNFPr%$d{
|!BP!
-`1"<
jg6:o
6"$l&D
H0    xI
BB;(AY
GEMep
A$39w
`gi!:h
#SIx&
m-$`$07NsZ
N"7@y
    v_t"
+ZY"V9
:X]+XY(
wgbt/
`U)iiBL:/
2IBSe
2X['
6vq7m
wZOxQ
7&K2F
cp8[QA
5!6RW
R$1MH1
c'54Af
d dBaq8
FEfh^h
-!4`n
pK\U3
6T.VyI@
<Bl)$
    vUYY
e)Ts{
X=7lK
<93>
Rk$rk
y.${n
_Sa;d
-c)}"@J&
.LoD|
B)l1S
c1@ru
M Z%j
wedAPg@    hT#
J!=wHg
8 R2n
zXPLa
ZKc/:s
<^A#.N*
L32u^
8c"(|
    1X6w
dpdMD
N!V#E
x"e:oA
R)HSe
SwU-d
xDyY4[N5
2!?%(
R"=a\
wRIhqIIyF
pK`2:
t'yc[
)C    {4o[8
pSG#>z
%v    E/1bv
14Qr}
ij%}*K}j
~ay'!
_@n]6
g     i    [
,7Rr92
/{=KN
7))BiC+d!qO
    +ZQ&
^6;t0
)v}ab
w%?<,
`&W-fFj
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
(GIF89a
X=TuvQO(R
^H'2>
'*KSk
(C<Bv
0xN()Q
4m`]j
MnRAa
&2_lHBR
Cg~i)
hI@6J6!
cx ]l
GW\n3wzQ
(?xCR
U#DF$
 lr/,
LFC*D
Cad{
tj:55
U GdH+*
cQ3XZ0
5SGF=c
V"!<?@
htw_u
66dlO
u(B]w
aJbvW    y
JUh_bI
)-W?d
IXlqRG8
7_uIu
#bk5@l
sCt@:w
2tqHF
7c^d!
(TB9~ PjEA
$MF=#
##UCnT
*e|qd
Tc`m;[n
F=yuI
azYtO
"(D#c>
A6@Ry
4B<5^
D77cd
T dPcQ
S2nH    H
hQ5,N
>mcVg
42I1f|
\rF":
6v#C4
px/9
5eb4<
)ara"q
78Rsy\'1
WT*#rV
#:Tr3
S&CxR
W[ VX
 iC%9qzk%F
-bd-Ts
@rDf.
~8x-
d-c2;goC((y
uw\&=}
Jc48%
^U"{'
(a0}*8T
FyacYL
_2ECq
Up+zX
x4M53p
rSc)(
    fa%cB
N!qt6l>U
q4.d(
DaZ^L
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
}E$g{
cPS3q
$ImagesWide
$ImagesHigh
$ImageData
$ImageNames
$TITLE
(GIF89a
Qd9Rs
$kO=r
_UK_GM4
;_/T.O/
CD0&)
,Zfxx
UL #
p6;RF
hVVkT
0JPN'
YF(si
%mbz}
DXy3k*
;!f^"
mKE8r
%_y#u
`Zkxm_
6FI=(
#(XIX
yHvo
    dXx%w]
N8a0rb&
ugsS\
ob    v0
B+O(o
#(ls@
W,f Y`4-*
kctFR
r*1QM$z
Wy3gS]"^
c=#13P
W.ta%"
`!S5"X
S2c#-
Agu[]@
:#(HrI
LrkhV)
YQ/fI"
\E6 1
r$-C{;
j&'`{
3-#ML
@VO^b
RmGjx
    R2.&A
H(92yF
e:eDJ
Lhm?
G(4Yu
3)JvH
aC5p$
%A    Y,
E]Y>|
n ;_3
,1IU0
t@    M3
,sHZ:r
J10`z
@9    2Zg%H|
4a3A6
Sx<70
fvk~*%
id&e8g
%R2R<_/
UR}<
@DN19
3Wqa
Av5ow
\    !$5
h(c$m
f,jCD
 io5R
t>k+'
F    <b1
q5&BK
LS-%M$
2X[!q
f=P$W<
l5bB8
A xlB
    y<`b
\(JC%,
E8LE'
}xDI9
)(    LLP
,U,bl
]iDl5
OM (O
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
(GIF89a
o*P!/14/5
>h:Mj
TxOWl
#8b[b+
|.Wf?
H,<7
\&{9*J1N,
zbA(\
}1 jo
    ij*G
m6UQn
"~(+ru
%IH<]
E7eN$
H"k!O
0`.@R!
7.C96
     [\FOr
E}k&u
Vt\4Po
e'6$*g5x
wt:bo'#
UupXu
hy%UJI
henH)
wlqoST3
XrvX`n
xdH9X
nH7Q3gDP
/ed"HR
+"y8"
^*zbk
pZ!88g
?LoA=
$w    !:
CE}*Jd
z?A9PMT
WM)(5
-y{0N
0(Aj64
,:/-\
    U<ZV
JH$Od
,QO}Y
!'"w)
dLH$\
{\pi8
B?$0A
LK:Z
e)]W7
DR$';m(
rK#    T
kG4FO
@)TWm
cWHI>
*O" {
;1!@d
4Cb1"
f*B$XWY<
1i:ap12b
SaZ]S%J{
+a*~]
US:%<=
$)n]_I
^d\[sh5
QRHe^
PIurs
MT!`B
]l:Xl.
R8L=    &
);^;:y
M0'@6"
oF@8S
I`c+R
;E>A"a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
qS'7.
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
(GIF89a
>@_K((
S2IoC
C+"%%
.]dN4
!..:{
E7Gf#k
8{WsUz
.SXg+rn
S!F7D
}`#WL
n1D$u
NC{rXW
X.f]<g
:>EK?d!EB/e'+
ahM'WS4y
A6>pa
(aw    ]t
2=2Wt
CV%X9/
qw+H*w
v,q)I
8pPvH
Z6aY%c
0J1Oz
]z1Zj)J0
uiuXF.|
4c    1c]
e*pHa&
Z?vKP!
OZuL>
uL0    ah
h0[LB
A}nXI
4E+1E
N)*u7$
b@Ls(
 `U6Q
|sUSl
k6{    Rn
Sbb-qQ
9u**M
`P%wmK
;Lj3G
L-|Rf
"g\pB
A%]    ,$tB
`W2-~
d(58C&
.$/s-i
bp*=_mA
@e1ez
!@sFY
RyZ"]l&u
$$R#Br&
E'ZL.
eE ?Q
nA=Z
PSmBI
sH-#9
P[`cX0
KDKuA
,H 0N
tK5rO
*&hM]pA
,|A8K.
-%!IAj
. 8u
9j<zxe
92ZC7
3koC?
Vdca2
4Qy@zt
{3sJE
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
:,U..
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
%GIF89a
\:b>{.W
y(+-SY5
IJeDu
]NXIIh
~6.FY
;kV,e
    1<]5
Y%J;Jh
a{)0`
L)<AXR
:N4]:Z
I'*_Z
&noG-
IV4Ine
Wy Erw
`Zd%P
Rp(>f
nZN"8[
(z5z\
W%`5hQ
2d"    h
[6(W[
gZ(\S
rf=A4H
PG#kC$
D/)<k
S%H&'
E#%cC
zCIoc
WEn5J
"    }gB
 1.^X$
pp`;\
)q(q}(D
]N"T7
M\nch<"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
 $.' ",#
(7),01444
'9=82<.342
!22222222222222222222222222222222222222222222222222
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz
&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz
mmln|
mB]5.`
5-CUt-
FO~p~
mmln|
<M71*
l2pHU
7jw>D
DhQUU6
rp=~S
O,bh^&$+
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aZ
TUwX\kIT
aNlhI
HO_BGp%
7tXa@
+P\>|
Lx.6o
RL#]X
0I$r0qD
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
PbEs#
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Buck Rogers MailStdNotesLtr2Buck Rogers.gif##################
Calendar PickerC34WQ1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
Calendar SwitcherC34WQ1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Bugs Bunny/O=WarnerCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCalendarFS|CalendarFS1#4C#####################################################
CN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm341
CalendarOutlineCalendarOutline####################################
?clipboard
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes1to do.gif##########################
CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Damien Katz/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Damien Katz/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Damien Katz/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Damien Katz/O=IrisCN=William Zircher/O=IrisCN=Damien Katz/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Daffy Duck/O=WarnerCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCommons34Q1##########################################################
CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCommonUIs34Q1##################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notescomputer chip.gif
ComputerChipStdNotesLtr3####################
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCoreEmailClassess34Q1#########################################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCSEventClasss34Q1#######################
CN=Ryan Jansen/O=IrisCN=Daisy Duck/O=DisneyCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCSUIDocClasss34Q1########################################
CN=Ryan Jansen/O=IrisCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Mickey Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Rob Slapikoff/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCSUIViewClasss34Q1############
CN=Daisy Duck/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Daffy Duck/O=WarnerCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCSWebs34Q1#############
C_heck Calendar|Check Calendar
E41f3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
CN=Ryan Jansen/O=IrisCN=Damien Katz/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1######################################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
DeccoStdNotesLtr4Deco.gif####################################
cLr/~
CN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
DialogButton Address.GIFAddressbig address icon.gif
?###############################
DialogButton.GIF34Ci
DialogButton.GIF
CN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
@##########################################################
?dk+blue+circle(1).gif
dk+blue+circle(1).gifBlueCircle1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
DocumentConversionss34Q1
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesentrybgforest.gif####################################################
exclamation.gif
exclamation.giftb_EXCLAMATION
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Falling SpheresStdNotesLtr5falling spheres.gif###############
rtrQU
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Frank LloydStdNotesLtr7Frank Lloyd.gif#######################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
From The DeskStdNotesLtr8desk.gif############################
ftbusy.gif
ftbusy.gif34CiP
CN=Bugs Bunny/O=WarnerCN=Lotus Notes Template Development/O=Lotus Notes######################################
ftconf.gif
ftconf.gif34CiP
CN=Bugs Bunny/O=WarnerCN=Lotus Notes Template Development/O=Lotus Notes######################################
)R 3S|E
ftfree.gif
ftfree.gif34CiP
CN=Bugs Bunny/O=WarnerCN=Lotus Notes Template Development/O=Lotus Notes######################################
ftno.gif
ftno.gif34CiP
CN=Bugs Bunny/O=WarnerCN=Lotus Notes Template Development/O=Lotus Notes##########################################
ftok.gif
ftok.gif34CiP
CN=Bugs Bunny/O=WarnerCN=Lotus Notes Template Development/O=Lotus Notes##########################################
    34Ci
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
GatewayStdNotesLtrGatewaygateway.gif##########################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Geometry StdNotesLtr9geometry2.GIF###########################
    34Ci
Gray Gradient with Lines|StdNotesLtr13gray gradient with lines.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################################
    34Ci
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Green and Yellow DiamondStdNotesLtr14green & yellow diamonds.gif
##########################################################
Group Calendars|(GroupCalendarFolder)1Group Calendars|(GroupCalendarFolder)z
Subject
Subject
Members
Subject$106$Conflict
Subject
0SubjectTitle
Subject
Subject
$106Members0
Members
3FYwB
CN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
######################
GroupCalendarFS|GroupCalendarFS1#4C
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
0zL*i
    34Ci
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesleaves.gif
LeavesStdNotesLtr6#################################
Lightning StormStdNotesLtr36release cand1.gif
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
Mail PickerC34WQ1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
Mail SwitcherC34WQ1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
Mail TitleC34WQ1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
Metal FloorStdNotesLtr41metal plate.gif
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
FOLDER_DIRECTORY_OBJECT
Group Calendars|(GroupCalendarFolder)
Rules|(Rules)|Rules
GIF89a[
Fbhq~
&;LHUT
    754^D@
 !""!
>=<;::
I%J)A
HR==8
0YGqS
Q$Vz
@\UC-
7NQiJ
bkYUA"
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
+7h+d
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
Lotus Product
Calendar Picker'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Dim dtNow As New NotesDateTime(Now())
    Call Source.document.ReplaceItemValue("$DatePickerMonth",1)
FIELD zh := $DatePickerMonth;
@SetField("$DatePickerMonth";1)' -> set to current month
%END REM
End Sub
Lotus Product
OBJECT
CalendarOutline
CalendarOutlineNotesView
vspacer.GIF
out_Month
$DatePickerMonthV
    1S2S
out_rMonth
$DatePickerMonthV
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$PublicAccess
"Small Fonts
Lotus Product
Calendar Switcher
GIF89a
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
ZluxbL6    I
MailFramesetTARGET="_top"
MailFS|MailFS
TodoFramesetTARGET="_top"
ToDoFS|ToDoFS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
Lotus Product
Calendar Title
Calendar
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Hrk?JIG
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
Calendar Title
NotesNavigatorNotesView?
Calendar Picker?
Switcher
Calendar Switcher?
NotesViewNotesPreview?
($Calendar)|Calendar
NotesPreview
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
j"jt5O
$TITLE
$Comment
$PublicAccess
$FrameSet
$Flags
Calendar
($Calendar)|CalendarH
Meetings
($Meetings)|MeetingsH
Group Calendars
Group Calendars|(GroupCalendarFolder)?H
Trash
($Trash)
Trash
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$PublicAccess
$SiteMapList
(GIF89a
HB22C
NYJN>"
72<(5cLu
hU)US
kMkU7
ftM|bvB
}]Ml0c
uCqmn
{=L.G9~
q?yzsmo
G\iwH
W`!3'
h$w['
*Gh%T(&
r*|&*\
jbJD&4d
Y7wE5wY
)>%o^i
^:&\:fb)
@++cf:%
io!u@
qj.M#Oa
- z6b
BIxMJa
URX"5
%(q<s
.<&2gJ
8D'?-
i3C[v
i7K=}
$]sn)
Y4?:n.
{>xJ0
y/yi&V?
Ep 6g
e<LHLHX^8
.xdn-7
GuE9$
{`gwx
w~wukW^
M&vvO
uy?ht
w~(Uh
m)k    y
(u$)#
E\1i>
k\(8f    1
Qxa8%'
Q.U)6
4%C?}n
7^|Q?-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$TITLE
$PublicAccess
$ImageData
$ImageNames
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class BaseApplication
Declare Class BaseDocument
Declare Class BaseCSStringTable
Declare Class BaseEventOwnerStringTable As BaseCSStringTable
Declare Class MeetingOwnerStringTable As BaseEventOwnerStringTable
Declare Class TaskOwnerStringTable As BaseEventOwnerStringTable
Declare Class BaseEventParticipantStringTable As BaseCSStringTable
Declare Class MeetingParticipantStringTable As BaseEventParticipantStringTable
Declare Class TaskParticipantStringTable As BaseEventParticipantStringTable
Declare Class MessageTrackStringTable
Declare Class MailToolsStringTable
Declare Class MemoStringTable
Declare Class CopyFactory
Declare Class BaseNoteCopy
Declare Class MemoCopy As BaseNoteCopy
Declare Class CalendarCopy As BaseNoteCopy
Declare Class TaskCopy As BaseNoteCopy
Declare Class GroupCalendarCopy As BaseNoteCopy
Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer
Declare Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
Declare Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
Declare Function NAMEGetNumOrgUnits(sName) As Integer
Declare Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime)
Declare Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
Declare Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
Declare Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
Declare Function STRGetToken(sValue,sToken) As String
Declare Function NAMEAbbreviate(vNamesList As Variant) As Variant
Declare Function TIMEFindInSortedList(vKey As Variant, vTimeList As Variant) As Integer
Declare Function ARRAYIsValid(vArray As Variant) As Integer
Declare Function CSGetMailFileOwner() As String
Declare Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
Declare Function NOTEUserIsCreator(note As NotesDocument) As Integer
Declare Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
Declare Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
Declare Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
Declare Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
Declare Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
Declare Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
Declare Function CSEventDTItemsModified(vBEObject As Variant) As Integer
Declare Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
Declare Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
Declare Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
Declare Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
Declare Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
Declare Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
Declare Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
Declare Sub wInstantiateObjectVariables
Declare Sub wMessagePageHeader
Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
Declare Function wGetDBPath  As Variant
Declare Sub SetInternationalFormatHelpers( note As NotesDocument)
Declare Sub wMarkTempFields(doc As NotesDocument)
Declare Sub wCreateDefaultCalendarProfile
Declare Function wGetCalendarProfile As Integer
Declare Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
Declare Function CSGetMainEventObject(vBEObject As Variant) As Variant
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'Common:
%INCLUDE "lsconst.lss"
%INCLUDE "orgconst.lss"
'Back end classes
Dim session As NotesSession
Dim db As NotesDatabase
Dim note As NotesDocument
Dim profile As NotesDocument
Dim item As NotesItem
Dim NameLookup As NotesName
Dim agentlog As noteslog
Dim PathAndName As String
'General Purpose classes
Dim Owner As String
Dim NewDocument As Integer
'Client Differenciation
Dim IsWebClient As Variant
Class BaseApplication
 ' Properties
    m_session As NotesSession  ' pointer to current session object
    m_db As NotesDatabase    ' pointer to current database
    m_nClientType As Integer
    m_stringtable As Variant    ' Reference to a StringTable object
    Property Get Session As NotesSession
        Set Session = m_session
    End Property
    Property Get Database As NotesDatabase
        Set Database = m_db
    End Property
    Property Get StringTable As Variant
        Set StringTable = m_stringtable
    End Property
    Property Get DocumentsToProcess As NotesDocumentCollection
        Set DocumentsToProcess = m_db.UnprocessedDocuments
    End Property
    Property Get LocalAddressBook As NotesDatabase
        Dim sAddressLine As String
        Dim nPos As Integer
        sAddressLine = m_session.getenvironmentstring("names",True)
        If Len(sAddressLine) Then
            nPos = Instr(sAddressLine,",")
            If (nPos = 0) Then
                Set LocalAddressBook = m_session.GetDatabase("",sAddressLine)
            Else
                Set LocalAddressBook = m_session.GetDatabase("",Left$(sAddressLine,nPos-1))
            End If
        Else
            Set LocalAddressBook = m_session.GetDatabase("","names.nsf")
        End If
    End Property
    Property Get AllAddressBooks As Variant
        AllAddressBooks = m_session.AddressBooks
    End Property
    Property Get AllPrivateAddressBooks As Variant
        Dim vBooks As Variant
        Redim vLocalBooks(0) As Variant
        Dim nCnt As Integer
        nCnt = 0
        vBooks = m_session.AddressBooks
        Forall book In vBooks
            If Not book.IsPublicAddressBook Then
                Set vLocalBooks(nCnt) = book
                nCnt = nCnt + 1
                Redim Preserve vLocalBooks ( nCnt )
            End If
        End Forall
        If nCnt > 0 Then
            Redim Preserve vLocalBooks(nCnt-1)
            AllPrivateAddressBooks = vLocalBooks
        End If
    End Property
    Property Set ClientType As Integer
        m_nClientType = ClientType
    End Property
 ' Methods
    Sub New
        Set m_session = New NotesSession
        Set m_db = m_session.CurrentDatabase
        m_nClientType = CLIENT_NOTES
    End Sub
    Function CreateDocument As NotesDocument
        Set CreateDocument = New NotesDocument(m_db)
    End Function
End Class
Class BaseDocument
 ' Properties
    m_note As NotesDocument    ' pointer to backend document
    m_app As Variant           ' pointer to the backend application; we declare this as variant so that any subclass can be returned
    m_me As Variant            ' reference to self for rtti; subclasses should set it to "me"
    m_bWasMailed As Integer   ' Determines if the document was sent; each subclass needs to define a sent document
    m_bValid As Integer
    Property Get Document As NotesDocument
        Set Document = m_note
    End Property
    Property Get IsValid As Integer
        IsValid = m_bValid
    End Property
    Property Get IsNew As Integer
        If (m_bValid) Then
            IsNew = m_note.IsNewNote
        Else
            IsNew = False
        End If
    End Property
    Property Get Application As Variant
        Set Application = m_app
    End Property
    Property Get WasMailed As Integer
        WasMailed = m_bWasMailed
    End Property
    Property Set WasMailed As Integer
        m_bWasMailed = WasMailed
    End Property
    Property Set AutoSave As Integer
        If (m_bValid) Then
            Select Case AutoSave
            Case Enabled
                Call m_note.ReplaceItemValue("SaveOptions","1")
            Case Disabled
                Call m_note.ReplaceItemValue("SaveOptions","0")
            Case Removed
                Call m_note.RemoveItem("SaveOptions")
            End Select
        End If
    End Property
    Property Set AutoMail As Integer
        If (m_bValid) Then
            Select Case AutoMail
            Case Enabled
                Call m_note.ReplaceItemValue("MailOptions","1")
            Case Disabled
                Call m_note.ReplaceItemValue("MailOptions","0")
            Case Removed
                Call m_note.RemoveItem("MailOptions")
            End Select
        End If
    End Property
    Sub MaintainSecureMail
        Dim session As NotesSession
        Set session = m_app.session
        If (session.GetEnvironmentValue("SecureMail", True)) Then
            Call m_note.ReplaceItemValue("Sign","1")
            Call m_note.ReplaceItemValue("Encrypt","1")
        End If
    End Sub
 ' Methods
    Sub New
    End Sub
    Sub Init(note As NotesDocument)
        If Not(note Is Nothing) Then
            Set m_note = note
            m_bValid = True
            Call m_note.RemoveItem("Mailoptions")
            Call m_note.RemoveItem("SaveOptions")
        End If
    End Sub
    Sub SetItemValue(sItemName As String, vValue As Variant)
        Call m_note.ReplaceItemValue(sItemname, vValue)
    End Sub
    Function GetItemValue(sItemName As String) As Variant
        GetItemValue = m_note.GetItemValue(sItemname)
    End Function
    Sub RemoveItem ( sItemName As String)
        m_note.RemoveItem ( sItemName )
    End Sub
    Function ValidateItem(sItemName As String, Byval lMinLength As Long)  As Integer
  This routine validates one item including the length
%ENDREM
        Dim item As NotesItem
        ValidateItem = False
        If (IsValid) Then
            Set item = m_note.GetFirstItem(sItemName)
            If (item Is Nothing) Then
                Exit Function
            End If
            If (lMinLength > 0) Then
                lMinLength = lMinLength + 2
                If (m_note.Isuidocopen) Then
                    lMinlength = lMinLength + 4
                End If
                If (item.ValueLength < lMinLength) Then
                    Exit Function
                End If
            End If
            ValidateItem = True
        End If
    End Function
    Sub MarkTempItems
        Dim items As Variant
        If (m_bvalid) Then
            items = m_note.Items
            Forall n In items
                If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
            End Forall
        End If
    End Sub
End Class
Class BaseCSStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case INC_COMMENTS                                            ' Include comments on reply notice
            GetString = "Do you want to include any comments on the reply?"
        Case ALARM_TITLE
            GetString = "Alarm Options"
        Case DBLBOOK_TITLE
            GetString = "Double Book"
        Case ERR_FREETIME
            GetString = "An error occured while searching for free time. Continue?"
        Case RPTCHANGE_TITLE
            GetString = "Change Repeating Entry"
        Case ENTRY_CONF
            GetString = "This entry conflicts with an existing entry. Create anyway?"
        Case USER_INVALID_DOCUMENT
            GetString = "You must select an instance document to perform these actions."
        End Select
    End Function
End Class
Class BaseEventOwnerStringTable As BaseCSStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case CANC_TITLE
            GetString = "Cancel options"
        Case RESC_TITLE
            GetString = "Reschedule options"
        Case STS_TITLE
            GetString = "Participant Status"
        Case MODTYPE_TITLE
            GetString = "Change entry type"
        Case PAST_TITLE
            GetString = "Create in Past"
        Case CONF_TITLE
            GetString = "Confirm event"
        Case REM_PART
            GetString = "Select the participant(s) you wish to remove from this event."
        Case REM_PART_TITLE
            GetString = "Remove Participants"
        Case REPEAT_TITLE
            GetString = "Repeat Options"
        Case NO_SEND_LIST
            GetString = "There are no participants to send the notice to."
        Case USER_ACTION_INVALID
            GetString = "You are the owner of this entry. You can not perform that particular action."
        Case Else
            GetString = BaseCSStringTable..GetString(nIndex, vData)
        End Select
    End Function
End Class
Class MeetingOwnerStringTable As BaseEventOwnerStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case ENTRY_TYPE
            GetString = "Changing the entry type will cancel this meeting. Change anyway?"
        Case INV_DUPL
            GetString = "That person is already invited to this meeting."
        Case ENTRY_DTMOD
            GetString = "Are you sure you want to change the date/time of this entry?"
        Case ENTRY_PAST
            GetString = "This entry is being created in the past. Create anyway?"
        Case DTMOD_TITLE
            GetString = "Change date/time"
        Case SEND_ROOM
            GetString = "Sending reservation requests to room(s)..."
        Case SEND_RES
            GetString = "Sending reservation requests to resource(s)..."
        Case CTRACPT_TITLE
            GetString = "Accept Counter"
        Case CTRDECL_TITLE
            GetString = "Decline Counter"
        Case RESC_UPD_MSG
            GetString = "An update notice will be sent to the participants and any rooms/resources you may have requested informing them of this change. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
        Case CONF_MSG
            GetString = "A notice will be sent to the participants confirming this meeting and informing them of the participants' status. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
        Case MA_RESC
            GetString = "Reschedule Meeting"
        Case MA_CANC
            GetString = "Cancel Meeting"
        Case MA_CONF
            GetString = "Confirm Meeting"
        Case MA_VWSTS
            GetString = "View Participant Status"
        Case MA_SNDMAIL
            GetString = "Send Memo to Participants"
        Case MA_TITLE
            GetString = "Meeting Activities"
        Case SEND_INV_MSG
            GetString = "Do you want to send meeting invitations to the appropriate users?"
        Case SEND_INVRES_MSG
            GetString = "Do you want to send meeting invitations and reservation requests?"
        Case SEND_INV_TITLE
            GetString = "Send Invitations"
        Case Else
            GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
        End Select
    End Function
End Class
Class TaskOwnerStringTable As BaseEventOwnerStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case ENTRY_TYPE
            GetString = "Changing the entry type will cancel this to do. Change anyway?"
        Case INV_DUPL
            GetString = "That person is already a participant of this to do."
        Case ENTRY_DTMOD
            GetString = "Are you sure you want to change the date this to do is due?"
        Case ENTRY_PAST
            GetString = "This to do is being created in the past. Create anyway?"
        Case MA_RESC
            GetString = "Reschedule to do"
        Case MA_CANC
            GetString = "Cancel to do"
        Case MA_CONF
            GetString = "Confirm to do"
        Case MA_VWSTS
            GetString = "View Participant Status"
        Case MA_SNDMAIL
            GetString = "Send Memo to Participants"
        Case MA_TITLE
            GetString = "to do Activities"
        Case SEND_INV_MSG
            GetString = "Send to do assignments to the appropriate users?"
        Case SEND_INV_TITLE
            GetString = "Send Assignments"
        Case RESC_UPD_MSG
            GetString = "An update notice will be sent to all participants of this to do informing them of this change. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
        Case CONF_MSG
            GetString = "A notice will be sent to the participants confirming this to do and informing them of the participants' status. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
        Case Else
            GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
        End Select
    End Function
End Class
Class BaseEventParticipantStringTable As BaseCSStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case PAST_TITLE
            GetString = "Past"
        Case ACPT_TITLE
            GetString = "Accept options"
        Case DECL_TITLE
            GetString = "Decline options"
        Case UPD_TITLE
            GetString = "Meeting update"
        Case DELE_TITLE
            GetString = "Delegate options"
        Case CNTR_TITLE
            GetString = "Propose options"
        Case ERR_DELE_MSG
            GetString = "You can not delegate to an existing participant. Please select someone else."
        Case USER_ACTION_INVALID
            GetString = "You are a participant of this entry. You can not perform that particular action."
        Case Else
            GetString = BaseCSStringTable..GetString(nIndex, vData)
        End Select
    End Function
End Class
Class MeetingParticipantStringTable As BaseEventParticipantStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case RESC_MSG                                        ' Reschedule notice
            GetString = "This meeting has been rescheduled. Would you like to open the reschedule notice?"
        Case CANCEL_MSG
            GetString = "This meeting has been cancelled."    ' Message that appears for all cancellation notices
        Case CANCEL_UPD
            GetString = Me.GetString(CANCEL_MSG, Nothing) & " The calendar entry will be updated to reflect this change."     ' User accepted main invitation that is now cancelled
        Case CANCEL_NOACTN
            GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action."                                ' The main invitation has not been accepted
        Case ACPT_MSG
            GetString = "Accepting this meeting request will automatically add this event to your calendar. A reply notice will be sent to " & Cstr(vData) & ". " & BaseEventParticipantStringTable..GetString(INC_COMMENTS, Null)
        Case DELE_MSG
            GetString = "This request will be forwarded to a person you specify. Any updates regarding this meeting will be sent to the delegee. A reply notice will be sent to " & Cstr(vData) & ". " & BaseEventParticipantStringTable..GetString(INC_COMMENTS, Null)
        Case CNTR_MSG
            GetString = "You can specify a new date/time for this meeting. A reply notice will be sent to " & Cstr(vData) & ". " & BaseEventParticipantStringTable..GetString(INC_COMMENTS, Null)
        Case ADD_MSG
            GetString = "This meeting request will be added to your calendar. No reply notice will be sent"
        Case ADD_TITLE
            GetString = "Add to Calendar"
        Case PA_ACCEPT
            GetString = "Accept"
        Case PA_DECLINE
            GetString = "Decline"
        Case PA_DELEGATE
            GetString = "Delegate"
        Case PA_COUNTER
            GetString = "Counter"
        Case PA_TITLE
            GetString = "Meeting Activities"
        Case Else
            GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
        End Select
    End Function
End Class
Class TaskParticipantStringTable As BaseEventParticipantStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case RESC_MSG                                        ' Reschedule notice
            GetString = "The due date for this to do has been changed. Would you like to open the update notice?"
        Case CANCEL_MSG
            GetString = "This to do has been cancelled."    ' Message that appears for all cancellation notices
        Case CANCEL_UPD
            GetString = Me.GetString(CANCEL_MSG, Nothing) & " The to do entry will be updated to reflect this change."     ' User accepted main invitation that is now cancelled
        Case CANCEL_NOACTN
            GetString = Me.GetString(CANCEL_MSG, Nothing) & " You do not need to take any action."                                ' The main invitation has not been accepted
        Case PA_ACCEPT
            GetString = "Accept"
        Case PA_DECLINE
            GetString = "Decline"
        Case PA_DELEGATE
            GetString = "Delegate"
        Case PA_COUNTER
            GetString = "Counter"
        Case PA_TITLE
            GetString = "Meeting Activities"
        Case Else
            GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
        End Select
    End Function
End Class
Const TOOL_STRING = 400
Const MEMO_STRING = 500
Const TRACKING_STRING = 700
Class MessageTrackStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case TRACKING_STRING+1
            GetString = "UNKNOWN "
        Case TRACKING_STRING+2
            GetString = "In Que "
        Case TRACKING_STRING+4
            GetString = "DELIVERED "
        Case TRACKING_STRING+8
            GetString = "DELIVERY FAILED "
        Case TRACKING_STRING+16
            GetString = "TRANSFERED "
        Case TRACKING_STRING+32
            GetString = "TRANSER FAILED "
        Case  TRACKING_STRING+64
            GetString = "GROUP EXPANDED "
        Case  TRACKING_STRING+65
            GetString = "Message Tracking"
        Case  TRACKING_STRING+66
            GetString = "Please select recipient(s) to track."
        Case  TRACKING_STRING+67
            GetString = "You may only track messages that you have sent."
        Case  TRACKING_STRING+68
            GetString = "No recipient(s) were selected"
        End Select
    End Function
End Class
Class MailToolsStringTable
    Function GetString (nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case TOOL_STRING
            GetString = "Unable to locate your Name & Address Book.  Names not added."
        Case TOOL_STRING+1
            GetString = Str(vData) + " name(s) processed."
        Case TOOL_STRING+2
            GetString = Str(vData) + " name(s) added to your personal address book."
        Case TOOL_STRING+3
            GetString = Str(vData) + " name(s) not added; already in your personal address book."
        Case TOOL_STRING+4
            GetString = "Error adding name(s) to personal address book: " + Str(vData)
        Case TOOL_STRING+10
            GetString = "Unable to create a calendar entry for your time off."
        Case TOOL_STRING+11
            GetString = "An Out of office document has been added to your Calendar."
        Case TOOL_STRING+12
            GetString = "Would you like to create an Out of Office Calender entry?"
        Case TOOL_STRING+13
            GetString =  "Welcome Back!  Please disable your Out of Office Agent.  To disable the agent, " & _
            "Open your Out of Office profile and select the 'Disable' button."  & Chr(13)_
            & "While you were out, the 'Out of Office' agent notified the following people of your absence." & Chr(13)
        Case TOOL_STRING+14
            GetString = "Welcome Back!  Please disable your Out of Office Agent.  To disable the agent, " & _
            "Open your Out of Office profile and select the 'Disable' button."  & Chr(13)  &_
            "While you were out, your Out of Office Agent did not notify anyone of your absence."
        Case TOOL_STRING+15
            GetString = "Welcome Back!"
        Case TOOL_STRING+16
            GetString = "This is a repeat reminder! Please disable your Out of Office Agent.  To disable the agent, " & _
            "Open your Out of Office profile and select the 'Enable/Disable' button."
        Case TOOL_STRING+17
            GetString = "Out of Office Profile ERROR"
        Case TOOL_STRING+18
            GetString = "ERROR: You must create an Out of Office profile BEFORE running your Out of Office Agent."
        Case TOOL_STRING+19
            GetString = "ERROR: You must enable your Out of Office profile BEFORE running your Out of Office Agent."
        Case TOOL_STRING+31
            GetString = " can already read mail."
        Case TOOL_STRING+32
            GetString = " can already send mail."
        Case TOOL_STRING+33
            GetString = " can already edit documents."
        Case TOOL_STRING+34
            GetString = " can already manage the calendar."
        Case TOOL_STRING+37
            GetString = vData & Chr(13) & "Managers and Designers cannot be modified using the Delegation Profile."
        Case TOOL_STRING+38
            GetString =   "You must add " & Str(vData) & " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list."
        Case TOOL_STRING+39
            GetString =   "You must add " & Str(vData) & " to either the ""Read and send"" or the ""Read, send, and edit"" list before adding them to the ""Delete"" list."
        Case TOOL_STRING+40
            GetString =   Str(vData) & " is currently a Manager of this database."
        Case TOOL_STRING+41
            GetString = Str(vData) & " is currently a Designer of this database. "
        Case TOOL_STRING+42
            GetString = "You do not have the priviledge to change the ACL settings in this database."
        Case TOOL_STRING+43
            GetString = "Reminder Please Turn Off your Out Of Office Agent"
        Case TOOL_STRING+44
            GetString = "Your Out of Office agent is still enabled."
        Case TOOL_STRING+45
            GetString = "Please ask a Manager or Designer of this database to disable the agent for you."
        Case TOOL_STRING+46
            GetString = "Lotus Notes Out of Office"
        Case TOOL_STRING+47
            GetString = "Your 'Out of Office' agent is currently enabled."
        Case TOOL_STRING+48
            GetString = "Do you want to disable it ?"
        Case TOOL_STRING+49
            GetString = "Your Out of Office has been disabled."
        Case TOOL_STRING+50
            GetString = "Please ask a Manager or Designer of this database to enable the agent for you."
        Case TOOL_STRING+51
            GetString = "Your current location doesn't have a 'Mail Server' specified."'
        Case TOOL_STRING+52
            GetString = "Please edit your current record and specify your Mail Server."
        Case TOOL_STRING+53
            GetString = "The Out of Office agent is now enabled to run on the following server: "
        Case TOOL_STRING+54
            GetString = "When people send you mail between "
        Case TOOL_STRING+55
            GetString = " and " &  vData & " it will inform them of your absence."
        Case TOOL_STRING+56
            GetString = "The Out of Office agent was not enabled."
        Case TOOL_STRING+57
            GetString = "You must indicate when you are leaving and when you will be back."
        Case TOOL_STRING+58
            GetString = "Your return date must be after today's date."
        Case TOOL_STRING+59
            GetString = "Your return date cannot be earlier than the leave date."
        Case TOOL_STRING+60
            GetString = "Your return date must be after your leave date."
        Case TOOL_STRING+61
            GetString = "Preferences"
        Case TOOL_STRING+62
            GetString = "Add sender to address book"
        Case TOOL_STRING+63
            GetString = "A contact with your name should not be added to your address book."
        Case TOOL_STRING+64
            GetString = Cstr(vData) & " conflicts"
        Case TOOL_STRING+65
            GetString = "Are you sure you wish to exit without enabling your Out of Office agent?"
        Case TOOL_STRING+66
            GetString = "Do you wish to disable 'Busy Time' for your 'Out of Office' calendar entry?"
        Case TOOL_STRING+67
            GetString = "Unable to disable 'Busy Time' for your 'Out of Office' calendar entry." & Chr(13) & "Entry not found."
        Case TOOL_STRING+68
            GetString = "Only the Owner or a Manager may modify the value of 'Owner'"
        Case TOOL_STRING+69
            GetString = "Your name cannot be found in the ACL, please contact your administrator."
        Case TOOL_STRING+70
            GetString = "You do not have sufficient rights to edit preferences for this database"
        Case TOOL_STRING+71
            GetString = "The 'Owner' of a mail file should be specified in 'Hierarchical' format." & Chr(13) &  "i.e. John Doe/MyDomain"
        Case TOOL_STRING+72
            GetString = "Error creating AdminP request, please contact your administrator"
        End Select
    End Function
End Class
Class MemoStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case MEMO_STRING   ' task notification mail message
            GetString = "Notfication has been sent to "
        Case MEMO_STRING+1   ' name a stationery document
            GetString = "What would you like to call this stationery?"
        Case MEMO_STRING+2
            GetString = "This action cannot be performed on a new document."
        Case MEMO_STRING+3
            GetString = "Please select one document before executing this command."
        Case MEMO_STRING+4   ' user trying to copy a document that has the prevent copy bit set
            GetString = "This document is prevented from being copied.  The body will not be copied into the new document."
        Case MEMO_STRING+5
            GetString = "Mail Schedule Profile not found.  You must define your Mail schedule profile before you can schedule a document."
        Case MEMO_STRING+6
            GetString = "Your Mail Scheduler agent is currently disabled.  The agent must be enabled before you can schedule a document."
        Case MEMO_STRING+7
            GetString = "Unable to locate your mail schedule profile.  A mail schedule profile must exist in your database before you can schedule a document."
        Case MEMO_STRING+8
            GetString = "Your Mail scheduling profile is not configured to run the Notes mail scheduler.  You must set the current status to enabled in order to schedule a document."
        Case MEMO_STRING+9
            GetString = Str(vData) & " document(s) processed."
        Case MEMO_STRING+10
            GetString = "The document(s) can be referenced via your Drafts view."
        Case MEMO_STRING+11
            GetString = Str(vData) & " document(s) put on hold."
        Case MEMO_STRING+12
            GetString = Str(vData) & " document(s) scheduled."
        Case MEMO_STRING+13
            GetString = Str(vData) & " document(s) no longer accessible from this view."
        Case MEMO_STRING+14
            GetString = "No Mail Schedule Profile"
        Case MEMO_STRING+15
            GetString = "You must enter a 'SendTo' name in order to schedule a document."
        Case MEMO_STRING+16
            GetString = "Lotus Notes"
        Case MEMO_STRING+17
            GetString = "-Untitled-"
        Case MEMO_STRING+18
            GetString = "Include Signature"
        Case MEMO_STRING+19
            GetString = "Please place the cursor at the desired insertion point of the body field."
        Case MEMO_STRING+20
            GetString = "Do you wish to save this document?"
        Case MEMO_STRING+21
            GetString = "Address recipients"
        Case MEMO_STRING+22
            GetString = "Do you wish to save this new stationery?"
        Case MEMO_STRING+23
            GetString = "Do you wish to save this new message?"
        End Select
    End Function
End Class
Class CopyFactory
    '**This is a method for creating new copy objects
    '** It ensures that all documents will be mapped to their correct
    '** copy object
    Function createFromExisting( note As NotesDocument) As BaseNoteCopy
        If Not note Is Nothing Then
            Select Case Lcase( note.GetItemValue( "Form")(0))
            Case "memo","reply"
                Set createFromExisting = New MemoCopy( note)
            Case "appointment"
                Set createFromExisting = New CalendarCopy( note)
            Case "task"
                Set createFromExisting = New TaskCopy( note)
            Case "(groupcalendar)"
                Set createFromExisting = New GroupCalendarCopy( note)
            Case Else
                Set createFromExisting = New BaseNoteCopy( note)
            End Select
        Else
            Set createFromExisting = New BaseNoteCopy( Nothing)
        End If
    End Function
    Function createNew( nType As Integer) As BaseNoteCopy
        Select Case nType
        Case CREATE_MEMO
            Set createNew = New MemoCopy( Nothing)
        Case CREATE_CALENDAR
            Set createNew = New CalendarCopy( Nothing)
        Case CREATE_TASK
            Set createNew = New TaskCopy( Nothing)
        Case CREATE_GROUPCALENDAR
            Set createNew = New GroupCalendarCopy( Nothing)
        End Select
    End Function
End Class
Class BaseNoteCopy
    '**This class defines an interface for copying items from one document to another
    Private m_session As NotesSession
    Private m_db As NotesDatabase
    Private m_note As NotesDocument
    Public copyIntoAsLink As Integer
    Private m_maps List As Variant
    Sub new (note As NotesDocument)
        Set m_note = note
        If m_note Is Nothing Then
            Set m_session = New NotesSession
            Set m_db = m_session.currentDatabase
            Set m_note = m_db.createDocument
            Call setNewNoteInfo
        Else
            Set m_db = m_note.parentDatabase
            Set m_session = m_db.parent
        End If
        Dim tempMaps As Variant
        tempMaps = Evaluate( |@Explode("| & ItemMapsStr & |"; ";")| )
        Forall aMapStr In tempMaps
            Dim tempArray As Variant
            tempArray = Evaluate( |@Explode("| & aMapStr & |"; "||")| )
            Forall x In tempArray
                m_maps( x) = tempArray
            End Forall
        End Forall
    End Sub
    Public Property Get document As NotesDocument
        Set document = m_note
    End Property
    Private Sub setNewNoteInfo
        'This method is used to write information
        'to the document if it's new.
        'It is meant to be overridden and used to set items such as form
        m_note.replaceItemValue"Principal", CSGetMailFileOwner()
    End Sub
    Public Function getBodyItem As NotesRichTextItem
        'This will get the body item.  If the body item in not richtext
        'then it converts in into richtext
        Dim body As NotesItem
        Dim rtBody As NotesRichTextItem
        If m_note.hasItem( "Body") Then
            Set body = m_note.getFirstItem( "Body")
            If body.type = RICHTEXT Then
                Set getBodyItem = body
            Else
                Dim tempStr As String
                tempStr = body.text
                body.remove
                Set rtBody = New NotesRichTextItem( m_note, "Body")
                rtBody.appendText( tempStr)
                Set getBodyItem = rtBody
            End If
        Else
            Set getBodyItem = New NotesRichTextItem( m_note, "Body")
        End If
    End Function
    Public Sub copyIntoBody( noteToCopy As BaseNoteCopy)
        Dim body As NotesRichTextItem
        Set body = Me.getBodyItem
        If copyIntoAsLink Then
            If Not noteToCopy.document.isNewNote Then    Call body.AppendDocLink(noteToCopy.document,"")
        Elseif Not noteToCopy.document.getItemValue( "$KeepPrivate")(0) = "1" And noteToCopy.document.hasItem( "Body") Then
            body.AddNewLine 2
            body.AppendText "__________________"
            body.AddNewLine 2
            body.appendRTItem noteToCopy.getBodyItem
        End If
    End Sub
    Function element0( x As Variant) As String
        element0= x(0)
    End Function
    Public Function copyIntoMe( ToCopy As BaseNoteCopy)
        Dim noteToCopy As NotesDocument
        Set noteToCopy = ToCopy.document
        copyIntoBody ToCopy
        copyOtherStuff ToCopy
        Forall copyMap In ToCopy.m_maps
            If Iselement( m_maps(Listtag(copyMap) )) Then
                If noteToCopy.hasItem( Listtag(copyMap)) Then
                    copyItem noteToCopy.getFirstItem(Listtag(copyMap)), element0(m_maps(Listtag(copyMap)))
                End If
            End If
        End Forall
        postCopyProcessing ToCopy
    End Function
    Private Sub copyItem( item As NotesItem, itemName As String)
        If Not item Is Nothing Then
            If m_note.hasItem( itemName ) Then
                m_note.removeItem itemName
            End If
            m_note.copyItem item, itemName
        End If
    End Sub
    Private Sub copyOtherStuff( toCopy As BaseNoteCopy)
        '**this is used to copy special case items.  meant to be overidden
    End Sub
    Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
        '**this is used to process the document after all the copying is done.  meant to be overidden
    End Sub
    Property Get ItemMapsStr As String
        ItemMapsStr = "Subject|Topic;SendTo|RequiredAttendees|AssignedTo;CopyTo|OptionalAttendees|OptionalAssignees;BlindCopyTo|FYIAttendees|FYIAssignees"
    End Property
End Class
Class MemoCopy As BaseNoteCopy
    Sub new (note As NotesDocument), BaseNoteCopy( note)
    End Sub
    Private Sub setNewNoteInfo
        BaseNoteCopy..setNewNoteInfo
        m_note.replaceItemValue "Form", "Memo"
        m_note.ReplaceItemValue "Logo", m_session.currentdatabase.getprofiledocument("CalendarProfile").GetItemValue("DefaultLogo")(0)
    End Sub
    Property Get ItemMapsStr As String
        ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";AltSendTo;AltCopyTo;AltBlindCopyTo;iSendTo;iCopyTo;iBlindCopyTo;$StorageTo;$StorageCc;$StorageBcc;$NameLanguageTags"
    End Property
End Class
Class CalendarCopy As BaseNoteCopy
    Sub new (note As NotesDocument), BaseNoteCopy( note)
    End Sub
    Private Sub setNewNoteInfo
        BaseNoteCopy..setNewNoteInfo
        m_note.replaceItemValue "Form", "Appointment"
    End Sub
    Property Get ItemMapsStr As String
        ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;EndDate;EndDateTime" &_
        ";EndTime;Resources;RoomsToReserve;AppointmentType;CalendarDateTime;RoomToReserve;OrgConfidential;BookFreeTime;Categories;Location" &_
        ";Alarms;$Alarm;$AlarmDescription;$AlarmOffset;$AlarmSound;$AlarmUnit"
    End Property
End Class
Class TaskCopy As BaseNoteCopy
    Sub new (note As NotesDocument), BaseNoteCopy( note)
    End Sub
    Private Sub setNewNoteInfo
        BaseNoteCopy..setNewNoteInfo
        m_note.replaceItemValue "Form", "Task"
    End Sub
    Property Get ItemMapsStr As String
        ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;DueDate;DueDateTime"
    End Property
    Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
        If Len( m_note.getItemValue( "SendTo")(0)) > 0 Then Call m_note.replaceItemValue( "TaskType", "2")
    End Sub
End Class
Class GroupCalendarCopy As BaseNoteCopy
    Sub new (note As NotesDocument), BaseNoteCopy( note)
    End Sub
    Private Sub setNewNoteInfo
        m_note.replaceItemValue "Form", "(GroupCalendar)"
    End Sub
    Property Get ItemMapsStr As String
        ItemMapsStr = "Members|SendTo;Subject"
    End Property
    Private Sub postCopyProcessing(toCopy As BaseNoteCopy)
        Dim NoteToCopy As NotesDocument
        Set noteToCopy = toCopy.m_note
        m_note.replaceItemValue "Members", Arrayappend( Arrayappend( m_note.getItemValue( "Members"), noteToCopy.getItemValue( "CopyTo")), noteToCopy.getItemValue( "BlindCopyTo"))
        Evaluate |Field Members := @Unique( @Trim( Members));""|, m_note
    End Sub
    Public Sub copyIntoBody( noteToCopy As BaseNoteCopy)
        'Don't ever copy the body
    End Sub
End Class
'++LotusScript Development Environment:2:2:NAMEGetComponents:1:8
Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
    Dim nameUser As NotesName
    Set nameUser = New NotesName(sUsername)
    If Instr(sUserName,"@") Then
        sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@")
        sRetDomain = Strright(nameUser.abbreviated,"@")
    Else
        sRetAbbreviatedName = nameUser.abbreviated
        sRetDomain = ""
    End If
End Sub
'++LotusScript Development Environment:2:1:NAMECompare:1:8
Function NAMECompare(sName1 As String, sName2 As String) As Integer
    Returns true if two names are equal, False otherwise
%END REM
    Dim sCanName1 As String
    Dim sDomainName1 As String
    Dim sCanName2 As String
    Dim sDomainName2 As String
    Dim nLenName1 As Integer
    Dim nLenName2 As Integer
    Dim name1 As NotesName
    Dim name2 As NotesName
    Call NAMEGetComponents(sName1, sCanName1, sDomainName1)
    Call NAMEGetComponents(sName2, sCanName2, sDomainName2)
    Set name1 = New NotesName(sCanName1)
    Set name2 = New NotesName(sCanName2)
    ' Do a canonical comparison if both names are hierarchical
    If (name1.IsHierarchical) And (name2.IsHierarchical) Then
        If (Strcompare(sCanName1, sCanName2) = 0) Then
            NAMECompare = True
            Exit Function
        Else
            Exit Function
        End If
    End If
     ' Compare the common names
    If (Strcompare(name1.common, name2.common) = 0) Then
        NAMECompare = True
        Exit Function
    End If
    NAMECompare = False
End Function
'++LotusScript Development Environment:2:1:NAMEFindInList:1:8
Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
    Given a name and a list of names return the index position if the user is found, -1 otherwise
%END REM
    Dim x As Integer
    Dim iNames As Integer
    NAMEFindInList = -1
    If Isempty(vListOfNames) Then
        Exit Function
    End If
    If Isarray(vListOfNames) Then
        iNames = Ubound(vListOfNames)
        For x = 0 To iNames
            If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then
                NAMEFindInList = x
                Exit Function
            End If
        Next
    Else
        NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames))
    End If
End Function
'++LotusScript Development Environment:2:1:NAMECompareWildcards:1:8
Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
allowable wildcard formats
*/OU/O
*/OU/OU/O
*/OU/OU/OU/O
%END REM
    Dim name1 As NotesName
    Dim name2 As NotesName
    Dim nWIldcardUnits As Integer
    Dim nNameUnits As Integer
    Dim nPos As Integer
    NAMECompareWildcards = False
    If Left$(sWildcard,1) <> "*" Then
        Exit Function
    End If
    Set name1 = New NotesName(sName)
    Set name2 = New NotesName(sWildcard)
     ' first, determine how many "/" are in the wildcard and in name
    nWildcardUnits = NAMEGetNumOrgUnits(sWildcard)
    nNameUnits = NAMEGetNumOrgUnits(sName)
     ' if there are more "/" in widlcard, the names can't possibly match
    If (nWildcardUnits > nNameUnits) Then
        Exit Function
    End If
     ' Now that we validated the # of arguments, assume the names will match
     ' We do it this way so that if any particular comparison fails, we set to false and exit
     ' In addition, if nWildcard units = 0, then the wildcard must be "*", so everything matches
    NAMECompareWildcards = True
    If (nWildcardUnits > 0) Then
      ' First, compare the Organization
        If Not(Strcompare(name1.organization, name2.organization) = 0) Then
            NAMECompareWildcards = False
            Exit Function
        End If
    End If
    If (nWildcardUnits > 1) Then
      ' compare the OU1
        If Not(Strcompare(name1.Orgunit1, name2.orgunit1)=0) Then
            NAMECompareWildcards = False
            Exit Function
        End If
    End If
    If (nWildcardUnits > 2) Then
      ' compare the OU2
        If Not(Strcompare(name1.Orgunit2, name2.orgunit2)=0) Then
            NAMECompareWildcards = False
            Exit Function
        End If
    End If
    If (nWildcardUnits > 3) Then
      ' compare the OU3
        If Not(Strcompare(name1.Orgunit3, name2.orgunit3)=0) Then
            NAMECompareWildcards = False
            Exit Function
        End If
    End If
    If (nWildcardUnits > 4) Then
      ' compare the OU4
        If Not(Strcompare(name1.Orgunit4, name2.orgunit4)=0) Then
            NAMECompareWildcards = False
            Exit Function
        End If
    End If
   ' if we made it this far, the name matches the wildcard
End Function
'++LotusScript Development Environment:2:1:NAMEGetNumOrgUnits:1:8
Function NAMEGetNumOrgUnits(sName) As Integer
    Dim nPos As Integer
    Dim nUnits As Integer
    nPos = Instr(sName,"/")
    While (nPos > 0)
        nUnits = nUnits + 1
        sName = Right$(sName,Len(sName)-nPos)
        nPos = Instr(sName,"/")
    Wend
    NAMEGetNumOrgUnits = nUnits
End Function
'++LotusScript Development Environment:2:2:TIMEGetFromItem:1:8
Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime)
    Dim item As NotesItem
    ' If the user passed in an existing allocated object, delete it
    If Not(dt1 Is Nothing) Then
        Delete dt1
    End If
    If Not(TIMEValidateArgs(sItemName, "", note)) Then
        Exit Sub
    End If
    Set item = note.GetFirstItem(sItemName)
    If (Len(item.text) = 0) Then
        Exit Sub
    End If
    Set dt1 = New NotesDateTime("")
    Set dt1 = item.DateTimeValue
End Sub
'++LotusScript Development Environment:2:1:TIMECompareDates:1:8
Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
    Dim dtMy1 As NotesDateTime
    Dim dtMy2 As NotesDateTime
    TIMECompareDates = 0
    If (dt1 Is Nothing) Or (dt2 Is Nothing) Then
        Exit Function
    End If
    Set dtMy1 = New NotesDateTime(dt1.DateOnly)
    Set dtMy2 = New NotesDateTime(dt2.DateOnly)
    TIMECompareDates = dtMy1.TimeDifference(dtMy2)/86400
End Function
'++LotusScript Development Environment:2:2:TIMEGetNotesFromLS:1:8
Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
    Set dtNotes = New NotesDateTime("")
    If Isdate(vLS) Then dtNotes.LSLocalTime = vLS
End Sub
'++LotusScript Development Environment:2:1:TIMEValidateArgs:1:8
Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
    TIMEValidateArgs = False
    If (note Is Nothing) Then
        Exit Function
    End If
    If (Len(sItemname1) > 0) Then
        If Not(note.HasItem(sItemName1)) Then
            Exit Function
        End If
    End If
    If (Len(sItemname2) > 0) Then
        If Not(note.HasItem(sItemName2)) Then
            Exit Function
        End If
    End If
    TIMEValidateArgs = True
End Function
'++LotusScript Development Environment:2:1:STRGetToken:1:8
Function STRGetToken(sValue,sToken) As String
    Dim nPos As Integer
    nPos = Instr(sValue,sToken)
    If (nPos > 0) Then
        STRGetToken = Left$(sValue,nPos-1)
        sValue = Right$(sValue,Len(sValue)-nPos)
    Else
        STRGetToken = sValue
        sValue = ""
    End If
End Function
'++LotusScript Development Environment:2:1:NAMEAbbreviate:1:8
Function NAMEAbbreviate(vNamesList As Variant) As Variant
    Dim vResult As Variant
    Dim nameEntry As NotesName
    Dim nitems As Integer
    Dim i As Integer
    If Isarray(vNamesList) Then
        nItems = Ubound(vNamesLIst)
        Redim vResult(nItems)
        For i = 0 To nItems
            Set nameEntry = New NotesName(vNamesList(i))
            vresult(i) = nameEntry.Abbreviated
        Next
    Else
        Set nameEntry = New NotesName(vNamesList)
        vresult = nameEntry.Abbreviated
    End If
    NAMEAbbreviate = vResult
End Function
'++LotusScript Development Environment:2:1:TIMEFindInSortedList:1:8
Function TIMEFindInSortedList(vKey As Variant, vTimeList As Variant) As Integer
    Dim nMiddle As Integer
    Dim nHigh As Integer
    Dim nLow As Integer
    nLow = 0
    nHigh = Ubound(vTimeList)
    While (nLow <= nHigh)
        nMiddle = (nLow + nHigh) / 2
        If (vKey = vTimeList(nMiddle)) Then
            TIMEFindInSortedList = nMiddle
            Exit Function
        Elseif (vKey < vTimeList(nMiddle)) Then
            nHigh = nMiddle - 1
        Else
            nLow = nMiddle + 1
        End If
    Wend
    ' If we got this far, we didn't find the value
    TIMEFindInSortedList = -1
End Function
'++LotusScript Development Environment:2:1:ARRAYIsValid:1:8
Function ARRAYIsValid(vArray As Variant) As Integer
    ARRAYIsValid = False
    If Isempty(vArray) Then
        Exit Function
    Elseif Not(Isarray(vArray)) Then
        Exit Function
    Else
        If Ubound(vArray) = 0 And Len(vArray(0)) = 0 Then
            Exit Function
        End If
    End If
    ARRAYIsValid = True
End Function
'++LotusScript Development Environment:2:1:CSGetMailFileOwner:1:8
Function CSGetMailFileOwner() As String
    Dim session As New notessession
    Dim profile As notesdocument
    Dim strOwner As String
    Set profile = session.currentdatabase.getprofiledocument("CalendarProfile")
    strOwner = profile.GetItemValue("Owner")(0)
    If Len(strOwner) Then
        CSGetMailFileOwner = strOwner
    Else
        CSGetMailFileOwner = session.UserName
    End If
End Function
'++LotusScript Development Environment:2:2:TIMEGetComponents:1:8
Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
    Dim itemST As NotesItem
    Dim itemSD As NotesItem
    ' If the user passed in an existing allocated object, delete it
    If Not(dt1 Is Nothing) Then
        Delete dt1
    End If
    If Not(TIMEValidateArgs(sDateItem, sTimeItem, note)) Then
        Exit Sub
    End If
    Set itemSD = note.GetFirstItem(sDateItem)
    Set itemST = note.GetFirstItem(sTimeItem)
    Set dt1 = New NotesDateTime(itemSD.DateTimeValue.DateOnly & " " & itemST.DateTimeValue.TimeOnly)
End Sub
'++LotusScript Development Environment:2:1:NOTEUserIsCreator:1:8
Function NOTEUserIsCreator(note As NotesDocument) As Integer
    Dim strMailOwner As String
    Dim strFrom As String
    Dim session As New NotesSession
    NOTEUserIsCreator = True
    ' By default, all new documents are creators
    If (note Is Nothing) Then
        Exit Function
    End If
    If (note.IsNewNote) Then
        Exit Function
    End If
    strMailOwner = CSGetMailFileOwner()
    If (note.HasItem("Chair")) Then
        strFrom = note.getitemvalue("Chair")(0)
    Elseif (note.HasItem("Principal")) Then
        strFrom = note.getitemvalue("Principal")(0)
    Elseif (note.hasItem("From")) Then
        strFrom = note.getitemvalue("From")(0)
    Else
        strFrom = session.UserName
    End If
    If Len(strFrom) = 0 Then strFrom = session.UserName
    NOTEUserIsCreator = NAMECompare(strMailOwner, strFrom)
End Function
'++LotusScript Development Environment:2:1:NAMEExistsInList:1:8
Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
    Given a name and a list of names return True if sKeyName exists in vListOfNames
        false if they are not
%END REM
    NAMEExistsInList = False
    NAMEExistsInList = (NAMEFindInList(sKeyName, vListOfNames) >= 0)
End Function
'++LotusScript Development Environment:2:1:NOTECopyIntoNewDocument:1:8
Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
    Dim copyInto As BaseNoteCopy
    Dim copyFactory As New CopyFactory
    Set copyInto = copyFactory.createNew( iNewType)
    copyInto.copyIntoAsLink = iFlags
    copyInto.copyIntoMe copyFactory.createFromExisting( note)
    If Len( strNewForm) >0 Then
        copyInto.document.replaceItemValue "Form", strnewForm
    End If
    Set NOTECopyIntoNewDocument = copyInto.document
End Function
'++LotusScript Development Environment:2:1:YesNoPrompt:1:8
Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
    Dim nResult As Integer
    nResult = Messagebox(sPrompt, MB_YESNO + MB_ICONQUESTION, sTitle)
    YesNoPrompt = (nResult = IDYES)
End Function
'++LotusScript Development Environment:2:1:YesNoCancelPrompt:1:8
Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
    YesNoCancelPrompt = Messagebox(sPrompt, MB_YESNOCANCEL+MB_ICONQUESTION , sTitle)
End Function
'++LotusScript Development Environment:2:1:DisplayWarn:1:8
Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
    DisplayWarn = Messagebox (sError, nPrompt+MB_ICONEXCLAMATION, sTitle)
End Function
'++LotusScript Development Environment:2:2:TIMEAdjustByDifference:1:8
Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
    Dim iSeconds As Integer
    Dim iMinutes As Integer
    Dim iHours As Integer
    Dim iDays As Integer
    If (Abs(lDifference) >= 86400) Then
        iDays = lDifference / 86400
        lDifference = lDifference Mod 86400
    End If
    If (Abs(lDifference) >= 3600) Then
        iHours = lDifference / 3600
        lDifference = lDifference Mod 3600
    End If
    If (Abs(lDifference) >= 60) Then
        iMinutes = lDifference / 60
        lDifference = lDifference Mod 60
    End If
    iSeconds = lDifference
    If (iDays) Then Call dtAdjust.AdjustDay(iDays, True)
    If (iHours) Then Call dtAdjust.AdjustHour(iHours, True)
    If (iMinutes) Then Call dtAdjust.AdjustMinute(iMinutes, True)
    If (iSeconds) Then Call dtAdjust.AdjustSecond(iSeconds, True)
End Sub
'++LotusScript Development Environment:2:1:CSEventDTItemsModified:1:8
Function CSEventDTItemsModified(vBEObject As Variant) As Integer
    Determines if either one of the date/time values of
    a cs object were modified
%ENDREM
    If (vBEobject.OriginalEndDate.TimeDifference(vBEObject.CurrentEndDate) <> 0) Then
        CSEventDTItemsModified = True
        Exit Function
    End If
    If (vBEobject.OriginalStartDate.TimeDifference(vBEObject.CurrentStartDate) <> 0) Then
        CSEventDTItemsModified = True
        Exit Function
    End If
    CSEventDTItemsModified = False
End Function
'++LotusScript Development Environment:2:1:CSEventNeedsReschedule:1:8
Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
    Dim dtCurrentEnd As NotesDateTime
    Dim dtCurrentStart As NotesDateTime
    CSEventNeedsReschedule = False
    ' if the document was never mailed, no need to reschedule it
    If Not(vBEobject.WasMailed) Then
        Exit Function
    End If
    Set dtCurrentEnd = vBEObject.CurrentEndDate
    If (vBEObject.OriginalEndDate.TimeDifference(dtCurrentEnd) <> 0) Then
        CSEventNeedsReschedule = True
        Exit Function
    End If
        ' If there are no invitees, we do not need to reschedule
    If vBEObject.WasMailed Then
        Set dtCurrentStart = vBEObject.CurrentStartDate
        If (vBEObject.OriginalStartDate.TimeDifference(dtCurrentStart) <> 0) Then
            CSEventNeedsReschedule = True
        End If
    End If
End Function
'++LotusScript Development Environment:2:2:CSDocOpen:1:8
Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
    Provides all backend processing for opening a cs document
%ENDREM
    Dim dInitFlags As Long
    If Not(dtCalInstance Is Nothing) Then Set vBEObject.CalendarInstance = dtCalInstance
    ' If we do not have a note, bail now
    If (note Is Nothing) Then Exit Sub
    If (dOptions And CS_DOC_WEBUSER) Then dInitFlags = 8
    Call vBEobject.Init(note, dInitFlags)
    ' See if this is a new document
    If (note.IsNewNote) Then
        If Not((note.getitemvalue("WebDateTimeInit")(0)="1")) Then
            Call note.replaceitemvalue("WebDateTimeInit", "1")
            Call vBEObject.InitDateTimeItems(vBEObject.CalendarInstance)
            If (dOptions And CS_DOC_ALARMS) Then Call vBEObject.SetDefaultAlarm()
        End If
    End If
    Call note.removeitem("tmpOwnerHW")
    Call note.removeitem("tmpNoActionBar")
    If (vBEObject.WasMailed) Then
        Call note.ReplaceItemValue("tmpWasMailed", "1")
    End If
End Sub
'++LotusScript Development Environment:2:2:CSDocSave:1:8
Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
    Dim note As notesDocument
    Dim vDates As Variant
    Dim strAction As String, strCurrentType As String, strOriginalType As String
    Dim bOwner As Integer, bTask As Integer, bCreateRepeat As Integer, nChangeWhich As Integer
    Set note = vBEObject.Document
    bOwner = ((dOptions And CS_DOC_FOROWNER) = CS_DOC_FOROWNER)
    bTask = ((dOptions And CS_DOC_TASK) = CS_DOC_TASK)
    strAction = note.GetItemValue("tmpAction")(0)
    If Len(strAction) Then dAction = (dAction Or Clng(strAction))
    ' Call the function that allows outside apps to do some pre-save stuff
    Call CSExtAppDocSave(note, dAction, bTask, vContinue)
    ' If the ext app does not want to continue, bail
    If Not(vContinue) Then Exit Sub
    strCurrentType = vBEObject.CurrentType
    strOriginalType = vBEObject.OriginalType
    ' set the public access flag
    If (note.GetItemValue("OrgConfidential")(0) = "1") Then
        Call note.removeitem("$PublicAccess")
    Else
        Call note.replaceitemvalue("$PublicAccess","1")
    End If
    ' If this is a repeating instance, store off the original start date
    If (vBEObject.Context = CTX_REPEAT_INST) Then Call note.ReplaceitemValue("OriginalStartDate", vBEObject.OriginalStartDate)
    If (bOwner) Then
        If (dOptions And CS_DOC_ISCOUNTER) = 0 Then
            If (dOptions And CS_DOC_WEBUSER) > 0 Then Call vBEObject.UpdateDateTimeItems()
            ' Perform actions on calendar entries
            If (bTask = False) Then
                Call CSDocSaveCalendarEntry(vBEObject, bOwner, strCurrentType)
            Else
                Call vBEObject.SetDueState
            End If
            ' If we are rescheduling, update the sequence num
            If (dAction And ACTION_RESCHEDULE) Then Call vBEObject.IncrementSequenceNum()
            Call vBEObject.SetCalendarDateTime()
            Call vBEObject.SetViewIcon()
            If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then
                If Not(note.HasItem("RepeatDates")) Then
                    vDates = vBEObject.GenerateRepeatDates()
                    Call note.ReplaceItemValue("RepeatDates", vDates)
                    bCreateRepeat = True
                End If
            End If
            Call vBEObject.UpdateBusyTimeInfo(note.GetItemValue("BookFreeTime")(0)  <> "1")
        ' Check to see if we need to mail this thing
            If (dAction And ACTION_SEND) Then Call CSDocSendPrimaryNotice(vBEObject, vCallBackObject, vContinue)
            If (bCreateRepeat) Then Call vBEObject.CreateRepeatHierarchy()
        End If
    End If
    If (dOptions And CS_DOC_ALARMS) Then
        If (note.HasItem("$Alarm") And Not(vbeobject.InAlarmFolder)) Then
            If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
                ' The user wants this entry to have an alarm by default
                Call vbeobject.AddDefaultAlarm()
            End If
        End If
    End If
    Call vBEObject.MarkTempItems
End Sub
'++LotusScript Development Environment:2:2:CSDocSaveCalendarEntry:1:8
Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
    Dim note As notesdocument, profile As NotesDocument
    Dim item As notesitem
    Dim nYearly As Integer
    If (strCurrentType = "1") Then
        Set note = vBEObject.Document
        ' See if this should automatically repeat
        If Not(note.hasitem("OrgRepeat")) Then
            Set profile = vBEObject.CalendarProfile.Document
            If (profile.hasitem("AutoAnniversaryRepeat")) Then nYearly = profile.GetItemValue("AutoAnniversaryRepeat")(0)
            If (nYearly > 0) Then
                Set item = note.getfirstitem("StartDate")
                Call item.copyitemtodocument(note, "RepeatStartDate")
                Call note.replaceitemvalue("OrgRepeat","1")
                Call note.replaceitemvalue("RepeatHow", "F")
                Call note.replaceitemvalue("RepeatFor", nYearly)
                Call note.replaceitemvalue("RepeatForUnit","Y")
                Call note.replaceitemvalue("RepeatUnit","Y")
                Call note.replaceitemvalue("RepeatInterval", "1")
                Call note.replaceitemvalue("RepeatWeekends", "D")
            End If
        End If
    End If
End Sub
'++LotusScript Development Environment:2:2:CSDocSendPrimaryNotice:1:8
Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
    Dim fSendOptions As Integer
    If Not(vBEObject.IsWorkflowEnabled) Then Exit Sub
    fSendOptions = vBEObject.PrimarySendOptions
    If (fSendOptions = 0) Then Exit Sub
    If ( (fSendOptions And 2) Or (fSendOptions And 4) ) Then Call vBEObject.InviteRooms()
    If (fSendOptions And 1) Then
        ' first, prepare the backend document for sending
        On Error Resume Next
        Err = 0
        Call vBEObject.PreSendPrimaryRequest()
        ' invoke the callback object
        Call vCallBackObject.SendPrimaryRequest()
        Call vBEObject.PostSendPrimaryRequest(Err <> 0)
    End If
    If (Err <> 0) Then vContinue = False
End Sub
'++LotusScript Development Environment:2:2:CSDocUpdatePersonalCategories:1:8
Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
    Dim vCategories As Variant
    Dim vResult As Variant
    Dim nentries As Integer
    Dim strSelectedCategory As String
    If (note Is Nothing) Or (profile Is Nothing) Then Exit Sub
    ' See if we need to update categories
    strSelectedCategory = note.GetItemValue("Categories")(0)
    If (strSelectedCategory = "H" Or strSelectedCategory = "V" Or strSelectedCategory = "N") Then Exit Sub
    vCategories = profile.GetItemValue("UserCategories")
    On Error Resume Next
    vResult = Arraygetindex(vCategories, strSelectedCategory)
    If Isnull(vResult) = True Then
        nEntries = Ubound(vCategories) + 1
        Redim Preserve vCategories(nEntries)
        vCategories(nEntries) = strSelectedCategory
        Call profile.replaceitemvalue("UserCategories", vCategories)
        Call profile.save(True, False)
    End If
End Sub
'++LotusScript Development Environment:2:2:CSExtAppDocSave:1:8
Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
End Sub
'++LotusScript Development Environment:2:2:wInstantiateObjectVariables:1:8
Sub wInstantiateObjectVariables
    Set session = New NotesSession
    Set db = session.CurrentDatabase
    Set note = session.DocumentContext
    Set agentlog = New noteslog("Agent log")
    Call agentlog.openagentlog
End Sub
'++LotusScript Development Environment:2:2:wMessagePageHeader:1:8
Sub wMessagePageHeader
     'Create the action bar
    Evaluate("@ReplaceSubstring(""" + PathAndName$ + """;"" "";""+"")")
    Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>|
    Print |<TR VALIGN=middle BGCOLOR="C0C0C0">|
    Print |<TD><A HREF="| & PathAndName$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>|
    Print |<TD><A HREF="| & PathAndName$ & |($Calendar)?OpenView&Grid=| & profile.wCalGridType(0) & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>|
    Print |<TD><A HREF="| & PathAndName$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>|
    Print |<TD><A HREF="| & PathAndName$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>|
    Print |<TD><A HREF="| & PathAndName$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD>|
    Print |</TR></TABLE><HR>|
End Sub
'++LotusScript Development Environment:2:2:CopyProfileValues:1:8
Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
    Dim x As Integer
    Dim item As NotesItem
    Dim item2 As NotesITem
    noteDest.Owner = noteSrc.Owner(0)
    Call agentlog.logaction("owner is "+notesrc.owner(0))
    noteDest.DefaultDuration = noteSrc.DefaultDuration(0)
    noteDest.AutoAnniversaryRepeat = noteSrc.AutoAnniversaryRepeat(0)
    If (noteSrc.HasItem("AutoRemoveFromInbox")) Then
        noteDest.AutoRemoveFromInbox = noteSrc.AutoRemoveFromInbox(0)
    Else
        noteDest.AutoRemoveFromInbox = "0"
    End If
    If (noteSrc.hasitem("FormatReplies")) Then
        noteDest.FormatReplies=noteSrc.FormatReplies(0)
    End If
    If(noteSrc.hasitem("OffsetChar")) Then
        noteDest.OffSetchar=noteSrc.Offsetchar(0)
    End If
    If (noteSrc.HasItem("PreventAll")) Then
        noteDest.PreventAll = noteSrc.PreventAll(0)
    End If
    If (noteSrc.HasItem("PreventSent")) Then
        noteDest.PreventSent=noteSrc.PreventSent(0)
    End If
    If (noteSrc.Hasitem("ConflictEvent")) Then
        noteDest.ConflictEvent = noteSrc.ConflictEvent(0)
    End If
    If (noteSrc.Hasitem("ConflictMeeting")) Then
        noteDest.ConflictMeeting = noteSrc.ConflictMeeting(0)
    End If
    If (noteSrc.Hasitem("ConflictAnniversary")) Then
        noteDest.ConflictAnniversary = noteSrc.ConflictAnniversary(0)
    End If
    If (noteSrc.Hasitem("TaskFollow")) Then
        noteDest.TaskFollow = noteSrc.TaskFollow(0)
    End If
    If (noteSrc.hasitem("AutoProcessType")) Then
        noteDest.AutoProcessType=noteSrc.AutoProcessType(0)
        If (noteSrc.getitemvalue("AutoProcessType")(0)="2") Then
            'pull autoprocessuserlist
            Set item = noteSrc.getfirstitem("AutoProcessUserList")
            Call noteDest.removeitem("AutoProcessUserList")
            Call item.copyitemtodocument(noteDest, "AutoProcessUserList")
        End If
        If (noteSrc.getitemvalue("AutoProcessType")(0)="1") Then
            'pull forward
            Set item = noteSrc.getfirstitem("AutoProcessForward")
            Call noteDest.removeitem("AutoProcessForward")
            Call item.copyitemtodocument(noteDest, "AutoProcessForward")
        End If
    End If
    If (noteSrc.hasitem("PreventRepliesFromInbox")) Then
        noteDest.PreventRepliesFromInbox=noteSrc.PreventRepliesFromInbox(0)
    End If
    If (noteSrc.hasitem("AutoRemoveFromInbox")) Then
        noteDest.AutoRemoveFromInbox=noteSrc.AutoRemoveFromInbox(0)
    End If
    Set item = noteSrc.GetFirstItem("AllowBusyAccess")
    Call noteDest.RemoveItem("AllowBusyAccess")
    Set item2 = item.CopyItemToDocument(noteDest, "AllowBusyAccess")
    If Len(item2.text) Then
        If Not(item2.Contains(noteSrc.GetItemValue("Owner")(0))) Then
            Call item2.AppendToTextList(noteSrc.GetItemValue("Owner")(0))
        End If
    End If
    If(noteSrc.hasitem("ReadMail")) Then
        Set item = noteSrc.getfirstitem("ReadMail")
        Call noteDest.removeitem("ReadMail")
        Call item.copyitemtodocument(noteDest, "ReadMail")
    End If
    If (noteSrc.hasitem("WriteMail")) Then
        Set item = noteSrc.getfirstitem("WriteMail")
        Call noteDest.removeitem("WriteMail")
        Call item.copyitemtodocument(noteDest, "WriteMail")
    End If
    If (noteSrc.hasitem("EditMail")) Then
        Set item = noteSrc.getfirstitem("EditMail")
        Call noteDest.removeitem("EditMail")
        Call item.copyitemtodocument(noteDest, "EditMail")
    End If
    If (noteSrc.hasitem("DeleteMail")) Then
        Set item = noteSrc.getfirstitem("DeleteMail")
        Call noteDest.removeitem("DeleteMail")
        Call item.copyitemtodocument(noteDest, "DeleteMail")
    End If
    If (noteSrc.hasitem("PublicRead")) Then
        noteDest.PublicRead=noteSrc.PublicRead(0)
        Set item = noteSrc.getfirstitem("ReadCalendar")
        Call noteDest.removeitem("ReadCalendar")
        Call item.copyitemtodocument(noteDest, "ReadCalendar")
    End If
    If (noteSrc.hasitem("PublicWrite")) Then
        noteDest.PublicWrite=noteSrc.PublicWrite(0)
        Set item = noteSrc.getfirstitem("WriteCalendar")
        Call noteDest.removeitem("WriteCalendar")
        Call item.copyitemtodocument(noteDest, "WriteCalendar")
    End If
    noteDest.Sunday = noteSrc.sunday(0)
    noteDest.Monday = noteSrc.monday(0)
    noteDest.tuesday = noteSrc.Tuesday(0)
    noteDest.Wednesday = noteSrc.Wednesday(0)
    noteDest.Thursday = noteSrc.Thursday(0)
    noteDest.Friday = noteSrc.Friday(0)
    noteDest.Saturday = noteSrc.Saturday(0)
    For x = 1 To 7
        Set item = noteSrc.GetFirstItem("$Times" & x)
        If Not(item Is Nothing) Then
            Call noteDest.RemoveItem(item.name)
            Call item.copyitemtodocument(noteDest,"")
        End If
    Next
End Sub
'++LotusScript Development Environment:2:1:wGetDBPath:1:8
Function wGetDBPath  As Variant
    Dim strtmp As String
    Dim npos As Integer
    Dim nposofspace As Integer
    wGetDBPath=""
    Call agentlog.logaction("insidewgetdbpath")
        'check to see if the database is in a directory
    If Instr(db.filepath,"\") Or  Instr(db.filepath, " ") Then
        If Instr(db.filepath,"\") Then
            wgetdbpath = Left$(db.filepath, Instr(db.filepath,"\")-1) + "/" + Right$(db.filepath,Len(db.filepath)-Instr(db.filepath,"\"))
        End If
        If Instr(db.filepath, " ") Then
            strtmp = wgetdbpath
            npos = 1
            While Instr(npos, strtmp, " ") > 0
               'extract to the space
                nposofspace% = Instr(npos, strtmp, " ")
               'replace the space with a + sign
                strtmp = Left$(strtmp, nposofspace -1 )+"+"+Right$(strtmp, (Len(strtmp)-nposofspace))
                npos = nposofspace+1
            Wend
            wgetdbpath = strtmp
        End If
    End If
    If wgetdbpath="" Then wgetdbpath = db.filepath
    Call agentlog.logaction("wgetdbpath is "+wgetdbpath)
End Function
'++LotusScript Development Environment:2:2:SetInternationalFormatHelpers:1:8
Sub SetInternationalFormatHelpers( note As NotesDocument)
    Const DayString = "DD"
    Const MonthString = "MM"
    Const YearString = "YY"
    Const HourString = "HH"
    Const MinuteString = "MM"
    Dim s As New NotesSession
    Dim intl As NotesInternational
    Set intl = s.International
     ' do the date format helper
    Dim dHelp1 As String
    Dim dHelp2 As String
    Dim dHelp3 As String
    Dim tHelp1 As String
    Dim tHelp2 As String
    If intl.isDateDMY Then
        dHelp1 = DayString
        dHelp2 = MonthString
        dHelp3 = YearString
    Elseif intl.isDateMDY Then
        dHelp1 = MonthString
        dHelp2 = DayString
        dhelp3 =  YearString
    Else
        dHelp1 = YearString
        dHelp2 = MonthString
        dHelp3 = DayString
    End If
    note.DateFormatHelper = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
    note.DateFormatHelper2 = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
     ' do the time format helper
    tHelp1 = HourString + intl.TimeSep + MinuteString
    If Not intl.isTime24Hour Then
        tHelp2 = " " + intl.PMString
    End If
    note.TimeFormatHelper = tHelp1 + tHelp2
    note.TimeFormatHelper2 = tHelp1 + tHelp2
    note.DurationFormatHelper = tHelp1
    note.DurationFormatHelper2 = tHelp1
End Sub
'++LotusScript Development Environment:2:2:wMarkTempFields:1:8
Sub wMarkTempFields(doc As NotesDocument)
    Dim itemlist As Variant
'Mark all temporary and compute for display fields such that they will not be saved to disk
    On Error Resume Next
    itemlist = doc.Items
    Forall n In itemlist
        If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
    End Forall
     'remove web CGI variable so that they will get updated on the next doc read
    Call doc.RemoveItem("Path_Info")
    Call doc.RemoveItem("Query_String")
     'if the mail option fields are all default values, remove them
    If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _
    doc.Form(0) <> "Task") Then
        Call doc.RemoveItem("Importance")
        Call doc.RemoveItem("DeliveryPriority")
        Call doc.RemoveItem("DeliveryReport")
    End If
End Sub
'++LotusScript Development Environment:2:2:wCreateDefaultCalendarProfile:1:8
Sub wCreateDefaultCalendarProfile
 *This routine creates a calendar profile document
  containg default values for required fields
%END REM
    On Error Goto ErrorRoutine
'the global variable "profile" is a profile document already
'we need to add the fields to it
    profile.Form = "CalendarProfile"
    Call profile.ComputeWithForm(False, False)
    profile.wDefaultMailOpt = "2"
    profile.wCalGridType = "3"
    Call profile.Save(True,True,True)
    Exit Sub
ErrorRoutine:
    Messagebox(Cstr(Err)+":  "+Error+" wCreateDefaultCalendarProfile")
End Sub
'++LotusScript Development Environment:2:1:wGetCalendarProfile:1:8
Function wGetCalendarProfile As Integer
    On Error Goto ErrorRoutine
    wGetCalendarProfile=True
    Set profile = db.GetProfileDocument("CalendarProfile")
    If profile Is Nothing Then wCreateDefaultCalendarProfile
    If profile.getitemvalue("Owner")(0) = "" Then wGetCalendarProfile=False
    Owner = profile.getitemvalue("Owner")(0)
    Exit Function
ErrorRoutine:
    Messagebox(Cstr(Err)+":  "+Error+" wGetCalendarProfile")
End Function
'++LotusScript Development Environment:2:2:CSDocSaveRepeatingEntry:1:8
Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
    Dim nContext As Integer, nChangeWhich As Integer
    nContext = vBEobject.Context
    If (nContext = CTX_REPEAT_INST Or nContext = CTX_REPEAT_MSG) Then
        nChangeWhich = vBEObject.RepeatModify
        If nChangeWhich <> REPEAT_CANCEL Then
            If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
            If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
        End If
    End If
End Sub
'++LotusScript Development Environment:2:1:CSGetMainEventObject:1:8
Function CSGetMainEventObject(vBEObject As Variant) As Variant
    Select Case vBEObject.Context
    Case CTX_REPEAT_MSG
        Set CSGetMainEventObject = vbeobject.RepeatInstanceEvent
    Case CTX_REPEAT_NONE
        If (vBEObject.Document.IsResponse) Then
            Set CSGetMainEventObject = vbeobject.ParentEvent
        Else
            Set CSGetMainEventObject = vbeobject
        End If
    Case Else
        Set CSGetMainEventObject = vBEObject
    End Select
End Function
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
r4W4W
Lotus Product
\`%KP%-
1+T!\`%$
K`<,x
IH>]X>#1
D!(" '
$L2((
%4/ + +
p%p%
 +t0d)
2HAHAHAx5
;p<p< ?
2H9@,
X>X>t
FDHDHDH
M@O@O@O
lRlR$L
RHTHTHT
ZT[T[
ctctc
x$x$x
x<y<y,y,y
x\y\y
DzDz4z4z
{\{\{,{,{
L{l{P
+K`%-
^`,KP%,
]P,KP%,8
]P,KP%,8
]P,KP%,8
-KP%-l
/KP%-l
\`%KP%-
1+T!\`%$
K`<,x
IH>]X>#1
/84#8~
J8A5t
](E}$3
](E}P3
](E}|3
](E}h4
](E} 5
](E0<Ba
]|G}|6
]|G}`7
]|G}X8
]|G}$;
]|G}H;
]|G}l;
I}l@0
I}0A0
]$L}\B
]$L}lB
]$L}$C
]$L0<Ba
]xN}TE
]xN}hFI
]xN}`GI
]xN}<I
]xN}0J
]xN}HJ
P/4P~
P/4P~
U}@PI
U}DYI
U}DYI
](X}0i
](X}pi
](X}<j
](X}|k
](X}dl
](X}Hm
](X}Xn
](XIHX
](XIHX
](XIHX
](XIHX
](X}Lq
](X}0r
](X}@s
]|Z*ln]
]4[*ln
}pw#8y
K<a-d
],aJ<a
^\aK<a-
]}pw$
],aJLa
]}pw$
cM ]5
h ]x8.
#/$by
m ]##
ILd#8
]<dILd#1
00]]xh#
e#}T{
}Pt}D|#1
e#}`|
00]]`o#
}Pt}l~#1
e#}|~
00]]|s#
}Pt}$
]Tu}H
xK$x-4
xK$x-4
xK$x-4
y^,y#
K\y-X
#Kly-X
K\y-|
#Kly-|
)4x]$zX
)4x]$zI4z
#K<{-
#K<{-
#K<{-
#K<{-
K,{-@
#K<{-@
]$|I$|
}+T|}
~+T|K
~+T|K
)4x^l
)|y]D
}Pt]<
[D!Kp -
"Kp -$
K("St
KD!-X
KD!-X
KD!-X
KD!-X
KD!-X
KD!-X
KD!-X
KD!-X
KD!-X
KD!-X
K("Q0
K("Qt
[("KD!,
$K(",
Members
Members
    1S2S3S5S7S
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
Declare Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:DisplayGroupCalendarDlg:1:8
Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
    Dim ws As New notesuiworkspace
    Dim strAction As String
    Call ws.dialogbox("(GroupCalendarDlg)", True, True, True,,,,"New Group Calendar", note, True, True)
    strAction = note.GetItemValue("Action")(0)
    If (strAction = "" Or strAction = "Cancel") Then Exit Sub
    note.replaceItemValue "ExcludeFromView", "D"
    Call note.save(True, False)
    If (bPutInFolder) Then Call note.PutInFolder("(GroupCalendarFolder)")
    Call ws.viewrefresh
    If (strAction = "ViewNow") Then Call ws.editdocument(True, note)
End Sub
'++LotusScript Development Environment:2:1:UICopyIntoNewDocument:1:8
Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
    Dim session As New notessession
    Dim ws As New notesuiworkspace
    Dim note As notesdocument
    Dim newnote As notesdocument
    Dim uidoc As notesuidocument
    Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument()
    If note Is Nothing Then
        Set uidoc = ws.currentdocument
        If Not(uidoc Is Nothing) Then Set note = uidoc.document
    End If
    If note Is Nothing Then
        Msgbox "Unable to locate document to copy from"
        Exit Function
    End If
    Set newnote = NOTECopyIntoNewDocument(nType, False, note, "")
    If (bLaunch) Then Call ws.editdocument(True, newnote)
    Set UICopyIntoNewDocument = newnote
End Function
Lotus Product
OBJECT
#,`    #
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
GIF89aX
`h!qPJ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIMemoDocument
Declare Sub MEMOReplyToAll(note As notesdocument)
Declare Function IsDocAltNameCandidate(note As notesdocument) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const MEMO_OWNER                    =            &h00000001&
Const MEMO_AUTOSIGNATURE        =             &h00000002&
Const MEMO_SPELLCHECK            =            &h00000004&
Const MEMO_SIGN                        =            &h00000008&
Const MEMO_EDITSTATIONERY     =             &h00000020&
Const MEMO_ISSTATIONERY        =             &h00000100&
Const MEMO_TOMGR                     =            &h00000200&
Const MEMO_SEND                         =            &h00000400&
Const MEMO_SAVE                         =            &h00000800&
Const MEMO_DRAFT                     =            &h00001000&
Const MEMO_ISNEWDOC                 =            &h00002000&
Const MEMO_READER                     =            &h00004000&
Const MEMO_ISDIRTY                     =            &h00008000&
Const MEMO_WASMAILED             =            &h00010000&
Const MEMO_REPLYTOALL            =            &h00020000&
Const MEMO_WASSAVED             =            &h00080000&
Const MEMO_SEND_FILE                 =            &h00200000&
Const MEMO_CANCEL                     =            &h00400000&
Const MEMO_STATPUTINFOLD         =            &h00800000&
Const MEMO_ACTION_NONE         =            &h01000000&
Const MEMO_NEWCOPY                =            &h04000000&
Const MEMO_ALWAYSSAVE            =            &h08000000&
Const MEMO_ALWAYSPROMPT        =            &h10000000&
Const MEMO_NEVERSAVE            =            &h20000000&
Const MEMO_DISCARD                    =            &h40000000&
Const MEMO_STATIONERYSAVE    =            &h00000010&
Const ITEM_NO_FORCE_ACTION    =             0
Const ITEM_FORCE_ACTION            =            1
Const ITEM_REMOVE                    =             2
'editor option fields....
Const ITEM_MAILOPTION$        =            "MailOptions"
Const ITEM_SAVEOPTIONS$        =            "SaveOptions"
Const ITEM_AUTOSPELL$        =            "$AutoSpell"
Const ITEM_MAILSAVEOPTIONS        =            "MailSaveOptions"
Const ITEM_VERSIONOPTIONS        =            "$VersionOpt"
Const ITEM_ACTIONINPROGRESS        =        "ActionInProgress"
Const ITEM_MERGEFLAG            =    "MergeFlag"
Class UIMemoDocument
    'Objects
    Public  m_noteUIMemo As notesuidocument
    Private m_uiws As notesuiworkspace
    Private m_calprofile As notesdocument
    Private m_noteMemo As notesdocument
    Private m_noteCursorDoc As notesdocument
    Private m_session As notessession
    Private m_objStringTable As MemoStringTable
    Private m_acl As notesacl
    Private m_aclentry As notesaclentry
    ' Properties
    Private m_vValidUsers As Variant
    Private m_vManager As Variant
    Private m_vFILTER As Variant
    Private m_nNameInValid As Integer
    Private m_lngFlags As Long
    Private m_lngActionInProgress As Long
    Private m_nSuccess As Integer
    Private m_nSignatureOption As Integer
    Private m_nWasSaved As Integer
    Private m_nSaveFlag As Integer
    Private m_strEditType As String
    Private m_strSignature As String
    Private m_strResponse As String
    Private m_strFromname As String
    Private m_strNameArray() As String
    Private m_nNonServerNames As Integer
    Private m_nNonServerFound As Integer
    Private m_nTempSignatureOption As Integer
    Private m_nCallFolderOp    As Integer
'//Constructor//
    Sub New
        Set Me.m_session = New notessession
        Set Me.m_calprofile = Me.m_session.CurrentDatabase.GetProfileDocument("CalendarProfile")
        If Not Me.m_calprofile.HasItem("Owner") Then 'must create if never setup
            Call Me.m_calprofile.replaceitemvalue("Form","CalendarProfile")
            Call Me.m_calprofile.replaceitemvalue("Owner", Me.m_session.username)
            Call Me.m_calprofile.ComputeWithForm(True,False)
            Call Me.m_calprofile.RemoveItem("$CSVersion")
            Call Me.m_calprofile.save(True,False,True)
        End If
        If Isnumeric(Me.m_calprofile.GetItemValue("Spellcheck")(0)) Then
            Call SetFlag(MEMO_SPELLCHECK)
        End If
        If Isnumeric(Me.m_calprofile.GetItemValue("SignatureOption")(0)) Then
            Me.m_nSignatureOption = Cint(Me.m_calprofile.GetItemValue("SignatureOption")(0))
            Me.m_strSignature = Me.m_calprofile.GetItemValue("Signature")(0)
        End If
        If Isnumeric(Me.m_calprofile.GetItemValue("EnableSignature")(0)) Then
            Call SetFlag(MEMO_AUTOSIGNATURE)
        End If
        If Isnumeric(Me.m_calprofile.GetItemValue("SignMail")(0)) Then
            Call SetFlag(MEMO_SIGN)
        End If
    End Sub
    Function Init(uidoc As notesuidocument, bIsNewDoc As Variant)
        If Isobject(uidoc) Then
            If Not uidoc.inpreviewpane Then
                Set Me.m_objStringTable = New MemoStringTable
                If Not bIsNewDoc Then
                    Set Me.m_noteMemo = uidoc.document
                Else
                    Call SetFlag(MEMO_OWNER)
                    Call SetFlag(MEMO_ISNEWDOC)
                End If
                Call SetActionInProgress(MEMO_ACTION_NONE)
                Set Me.m_uiws = New notesuiworkspace
                Set Me.m_noteUIMemo = uidoc
                Me.m_noteUIMemo.autoreload = False
            End If
        End If
    End Function
    Function PostOpen(uidoc As notesuidocument)
        Set Me.m_noteUIMemo = uidoc
        Set Me.m_noteMemo = uidoc.document
        If Not uidoc.inpreviewpane Then
            If Me.m_noteMemo.hasitem("PostedDate") Then
                Call SetFlag(MEMO_WASMAILED)
                Me.m_vValidUsers = Fulltrim(Arrayappend(Me.m_noteMemo.GetItemValue("from"),_
                Me.m_noteMemo.GetItemValue("Principal")))
                Me.m_nNameInValid = NAMEFindInList(Me.m_session.username, Me.m_vValidUsers)
                If Me.m_nNameInValid < 0 Then
                    Call SetFlag(MEMO_READER)
                Else
                    Call SetFlag(MEMO_OWNER)
                End If
            End If
            Call GetMemoType(Me.m_noteMemo)
            If IsFlagSet(MEMO_OWNER) Then
                Call SetPreferenceFields()
                If IsFlagSet(MEMO_TOMGR) Then
                    Call ClearFlag(MEMO_TOMGR)
                    Me.m_vManager = Evaluate("@DbManager")   'this contains all managers, let's parse out server names
                    Call Me.m_noteMemo.replaceitemvalue("EnterSendTo",RemoveServersFromList(Me.m_vManager))
                    Call MarkDirty()
                Elseif IsFlagSet(MEMO_REPLYTOALL) Then
                    Call MEMOReplyToAll(Me.m_noteMemo)
                    Call MarkDirty()
                End If
            End If
'Get the editor's default document disposition
            Select Case Me.m_noteMemo.GetItemValue("DefaultMailSaveOptions")(0)
            Case "0"
                Call SetFlag(MEMO_NEVERSAVE)
            Case "1"
                Call SetFlag(MEMO_ALWAYSSAVE)
            Case "2"
                Call SetFlag(MEMO_ALWAYSPROMPT)
            End Select
            Call ProcessStationery()
            If Not Me.m_noteMemo.IsNewNote Then
                If Not IsFlagSet(MEMO_WASMAILED) Then
                    Me.m_noteUIMemo.editmode = True
                End If
                If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
                    Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
                    Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
                End If
            Else
                If IsFlagSet(MEMO_AUTOSIGNATURE) Then
                    Call InsertSignature(True)
                End If
                If Me.m_noteUIMemo.EditMode Then
                    If IsFlagSet(MEMO_READER) Then
                        Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
                        Call SetOptionField(ITEM_MAILSAVEOPTIONS,ITEM_REMOVE)
                    Else
                        If Not IsFlagSet(MEMO_ISSTATIONERY) Then
                            Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
                            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
                        End If
                    End If
                End If
            End If
            If IsFlagSet(MEMO_ISDIRTY) Then
                Call reload()
            End If
        End If
    End Function
    Function QueryModeChange(uidoc As notesuidocument) As Integer
        If uidoc.inpreviewpane Then
            QueryModeChange = False
        Else
            QueryModeChange = True
        End If
    End Function
    Function PostModeChange
        If Me.m_noteUIMemo.EditMode Then
            If IsFlagSet(MEMO_READER) Then
                Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
                Call SetOptionField(ITEM_MAILSAVEOPTIONS,ITEM_REMOVE)
            Else
                Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
                Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
            End If
        End If
    End Function
    Function QuerySave(continue As Variant)
        On Error Goto TRAP
        Call GetActionInProgressFromNoteItem()
        Call MergeFlagFromNoteItem()
        Select Case Me.m_lngActionInProgress
        Case MEMO_CANCEL
            Call SetOptionField(ITEM_AUTOSPELL,ITEM_NO_FORCE_ACTION)
            Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
            Exit Function
        Case MEMO_DRAFT
            Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
            Call SetViewFields()
            If IsFlagSet(MEMO_ISDIRTY) Then
                Call reload()
            End If
        Case MEMO_SAVE
            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
        Case MEMO_SEND
            If Me.m_lngFlags And MEMO_ALWAYSPROMPT Then
                Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+23,""), MB_YESNOCANCEL ,_
                Me.m_objStringTable.getstring(MEMO_STRING+16,""))
                If Me.m_nSaveFlag = IDCANCEL Then
                    Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
                    Call SetActionInProgress(MEMO_ACTION_NONE)
                    continue = False
                    Exit Function
                Else
                    Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
                    Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
                    Call Me.m_noteUIMemo.Send()
                    Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                    If Me.m_nSaveFlag = IDYES Then
                        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
                    Else
                        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
                    End If
                End If
            Else
                Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
                Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
                Call Me.m_noteUIMemo.Send()
                Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                If Me.m_lngFlags And MEMO_ALWAYSSAVE Then
                    Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
                End If
                If Me.m_lngFlags And MEMO_NEVERSAVE Then
                    Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
                End If
            End If
        Case MEMO_SEND_FILE
            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
            Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
            Call Me.m_noteUIMemo.Send()
            Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
            Me.m_nCallFolderOp = True
        Case Else
            If IsFlagSet(MEMO_ISSTATIONERY) Then
                If IsFlagSet(MEMO_ISNEWDOC) Then
                    If Not (m_lngActionInProgress = MEMO_STATIONERYSAVE) Then
                'the user pressed esc key if the doc is dirty let's get their save disposition
                        Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+22,""), MB_YESNO , _
                        Me.m_objStringTable.getstring(MEMO_STRING+16,""))
                        If Me.m_nSaveFlag = IDNO Then
                            Call SetActionInProgress(MEMO_CANCEL)
                            Exit Function
                        End If
                    End If
                End If
                If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
                    Me.m_strResponse = Inputbox$(Me.m_objStringTable.getstring(MEMO_STRING+1,""),_
                    Me.m_objStringTable.getstring(MEMO_STRING+16,""),Me.m_objStringTable.getstring(MEMO_STRING+17,""))
                    If Me.m_strResponse = "" Then
                        Continue = False
                    End If
                    Call Me.m_noteMemo.replaceitemvalue("MailStationeryName" , Me.m_strResponse)
                    Call SetFlag(MEMO_STATPUTINFOLD)
                    With Me.m_noteMemo
                        Call .replaceitemvalue("Form", "Memo")
                        Call .replaceitemvalue("IsMailStationery" , 1)
                        Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
                        Call .removeitem("PostedDate")
                        Call .removeitem("DeliveredDate")
                    End With
                Else
                    If Me.m_lngActionInProgress = MEMO_STATIONERYSAVE Then
                        Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
                    Else
                        Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+20,""), MB_YESNOCANCEL , _
                        Me.m_objStringTable.getstring(MEMO_STRING+16,""))
                        Select Case Me.m_nSaveFlag
                        Case IDYES
                            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
                        Case IDNO
                            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
                        Case IDCANCEL
                            Continue = False
                            Exit Function
                        End Select
                    End If
                End If
                Call SetViewFields()
                If IsFlagSet(MEMO_ISDIRTY) Then
                    Call reload()
                End If
            End If
            If Me.m_noteMemo.HasItem(ITEM_VERSIONOPTIONS) Then
                Call Me.m_noteMemo.ReplaceItemValue(ITEM_VERSIONOPTIONS, "0")
            End If
        End Select
        Exit Function
TRAP:
        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
        Call SetActionInProgress(MEMO_ACTION_NONE)
        continue = False
        Exit Function
    End Function
    Function QueryClose(continue As Integer)
        If Me.m_nCallFolderOp Then
            Call Me.m_uiws.folder(,1)
        End If
    End Function
    Private Function SetOptionField(Itemname As String, nFlag As Integer)
        With Me.m_noteMemo
            Select Case nFlag
            Case ITEM_NO_FORCE_ACTION
                Call .replaceitemvalue(Itemname,"0")
            Case ITEM_FORCE_ACTION
                Call .replaceitemvalue(Itemname,"1")
            Case ITEM_REMOVE
                Call .removeitem(Itemname)
            End Select
        End With
    End Function
    Public Function GetActionInProgressFromNoteItem()
        If Me.m_noteMemo.HasItem(ITEM_ACTIONINPROGRESS) Then
            Call SetActionInProgress(Val(Me.m_noteMemo.GetItemValue(ITEM_ACTIONINPROGRESS)(0)))
            Call SetOptionField(ITEM_ACTIONINPROGRESS,ITEM_REMOVE)
        End If
    End Function
    Public Function MergeFlagFromNoteItem()
        If Me.m_noteMemo.HasItem(ITEM_MERGEFLAG) Then
            Call SetFlag(Val(Me.m_noteMemo.GetItemValue(ITEM_MERGEFLAG)(0)))
            Call SetOptionField(ITEM_MERGEFLAG,ITEM_REMOVE)
        End If
    End Function
    Sub ReplyToAll
        Call MEMOReplyToAll(Me.m_noteMemo)
        Call Reload()
    End Sub
    Private Function RemoveServersFromList(arrayNames As Variant) As Variant
        Set Me.m_acl = Me.m_session.currentdatabase.acl
        Me.m_nNonServerNames = 0
        Forall strNames In arrayNames
            Set Me.m_aclentry = Me.m_acl.getentry(strNames)
            If Not Me.m_aclentry.Isserver Then
                Redim Preserve Me.m_strNameArray(Me.m_nNonServerNames)
                Me.m_strNameArray(Me.m_nNonServerNames) = strNames
                Me.m_nNonServerFound = True
                Me.m_nNonServerNames = Me.m_nNonServerNames + 1
            End If
        End Forall
        If Me.m_nNonServerFound Then
            RemoveServersFromList = Me.m_strNameArray
        Else
            RemoveServersFromList = arrayNames
        End If
    End Function
    Sub InsertSignature(FromMailPreference As Integer)
        Select Case Me.m_noteMemo.GetItemValue("Form")(0)
        Case "Bookmark", "Phone Message"
            Exit Sub
        End Select
        If Not FromMailPreference Then
            If Not Me.m_noteUIMemo.CurrentField = "Body" Then
                Messagebox(Me.m_objStringTable.getstring(MEMO_STRING+19,""))
                Exit Sub
            End If
            Set Me.m_noteCursorDoc = Me.m_session.currentdatabase.CreateDocument
            Me.m_nSuccess = Me.m_uiws.dialogbox("(SignatureOption)", True,True,False,False,False,False,_
            Me.m_objStringTable.getstring(MEMO_STRING+18,""),Me.m_noteCursorDoc,True)
            If Me.m_nSuccess Then
                Me.m_nTempSignatureOption = Cint(Me.m_noteCursorDoc.GetItemValue("SignatureOption")(0))
                If Me.m_nTempSignatureOption = 2 Then
                    Me.m_nSignatureOption = Me.m_nTempSignatureOption
                    Me.m_strSignature = Me.m_noteCursorDoc.GetItemValue("Signature")(0)
                End If
            Else
                Exit Sub
            End If
        End If
        Select Case Me.m_nSignatureOption
        Case 1
            If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
            Call Me.m_noteUIMemo.inserttext(Me.m_strSignature)
            If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
        Case 2
            If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
            Me.m_vFILTER = Evaluate(|@RightBack("| & Me.m_strSignature & |";".")|)
            Select Case Ucase(Me.m_vFILTER(0))
            Case "TXT"
                Me.m_vFILTER(0) = "ASCII"
            End Select
            Call Me.m_noteUIMemo.Import(Me.m_vFILTER(0),Me.m_strSignature)
            If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
        End Select
        If  FromMailPreference And Not Me.m_noteMemo.GetItemValue("Form")(0) = "Memo" Then
            Call Me.m_noteUIMemo.GotoField("Body")
        Elseif FromMailPreference Then
            Call Me.m_noteUIMemo.GotoField("EnterSendTo")
        End If
    End Sub
    Sub Reload()
        ClearFlag(MEMO_ISDIRTY)
        If Me.m_noteUIMemo.editmode Then
            Call Me.m_noteUIMemo.reload
        End If
        Call Me.m_noteUIMemo.RefreshHideFormulas
    End Sub
    Function PostSave()
        'clean up flags so they don't fire next round
        Select Case Me.m_lngActionInProgress
        Case MEMO_SEND_FILE,MEMO_SEND,MEMO_STATIONERYSAVE
            Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
            Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
        End Select
        Call SetActionInProgress(MEMO_ACTION_NONE)
        If IsFlagSet(MEMO_STATPUTINFOLD) Then
'REMOVED 01/05/99 folder reverted to a view!
'            Call Me.m_noteMemo.putinfolder("Stationery")
            Call ClearFlag(MEMO_STATPUTINFOLD)
        End If
        If IsFlagSet(MEMO_ISNEWDOC) Then
            Call ClearFlag(MEMO_ISNEWDOC)
            Call SetFlag(MEMO_WASSAVED)
        End If
    End Function
    Function SetActionInProgress(lngAction As Long)
        Me.m_lngActionInProgress = lngAction
    End Function
    Function SetFlag(lngOption As Long)
        If Not (Me.m_lngFlags And lngOption) = lngOption Then
            Me.m_lngFlags = Me.m_lngFlags Or lngOption
        End If
    End Function
    Function ClearFlag(lngOption As Long)
'        Me.m_lngFlags = Me.m_lngFlags And Not(lngOption)
        If (Me.m_lngFlags And lngOption) = lngOption Then
            Me.m_lngFlags = Me.m_lngFlags Xor lngOption
        End If
    End Function
    Function IsFlagSet(lngOption As Long) As Integer
        If (Me.m_lngFlags And lngOption) = lngOption Then
            IsFlagSet = True
        End If
    End Function
    Property Get EditType(bRemove As Integer) As String
        Me.m_strEditType = Me.m_session.GetEnvironmentString("MailStEd")
        If Len(Me.m_strEditType) And (bRemove) Then
            Call Me.m_session.SetEnvironmentVar("MailStEd","")
            EditType = Me.m_strEditType
        Else
            EditType = Me.m_strEditType
        End If
    End Property
    Function GetMemoType(note As NotesDocument)
        Me.m_strEditType = EditType(True)
        If (note.isnewnote) Then
            If (Len(Me.m_strEditType)) Then
                If (Me.m_strEditType = "1") Then
                    Call SetFlag(MEMO_ISSTATIONERY)
                Elseif (Me.m_strEditType = "5") Then
                    Call SetFlag(MEMO_NEWCOPY)
                Elseif (Me.m_strEditType = "6") Then
                    Call SetFlag(MEMO_TOMGR)
                Elseif (Me.m_strEditType = "9") Then
                    Call SetFlag(MEMO_REPLYTOALL)
                End If
            End If
            Call SetFlag(MEMO_OWNER)
        Else
            If Me.m_strEditType = "2" Then    'User is editing a stationery
                Call SetFlag(MEMO_ISSTATIONERY)
                Call SetFlag(MEMO_EDITSTATIONERY)
                Exit Function
            End If
            If note.HasItem("IsMailStationery") Then
                If Isnumeric(Me.m_noteMemo.GetItemValue("IsMailStationery")(0)) Then
                    If Cint(Me.m_noteMemo.GetItemValue("IsMailStationery")(0)) Then
                        Call SetFlag(MEMO_ISSTATIONERY)
                    End If
                End If
            End If
            If note.HasItem("Principal") Then
                Me.m_strFromname = note.GetItemvalue("Principal")(0)
                If Len(Me.m_strFromname) = 0 Then
                    Me.m_strFromname = note.GetItemValue("From")(0)
                End If
            Else
                Me.m_strFromname = note.GetItemValue("From")(0)
            End If
            If NAMECompare(Me.m_strFromname, Me.m_session.username) Then
                Call SetFlag(MEMO_OWNER)
            Else
                Call SetFlag(MEMO_READER)
            End If
        End If
    End Function
    Sub SetPreferenceFields()
        If IsFlagSet(MEMO_SPELLCHECK) Then
            Call SetOptionField(ITEM_AUTOSPELL,ITEM_FORCE_ACTION)
            Call MarkDirty()
        End If
    End Sub
    Sub ProcessStationery()
        If IsFlagSet(MEMO_ISSTATIONERY) Then
            If Not IsFlagSet(MEMO_ISNEWDOC) Then
                If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
                    With Me.m_noteMemo
                        Call .RemoveItem("IsMailStationery")
                        Call .RemoveItem("MailStationeryName")
                        Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
                        Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
                        Call .ReplaceItemValue(ITEM_VERSIONOPTIONS, "6")
                    End With
                    Call ClearFlag(MEMO_ISSTATIONERY)
                Else
                End If
            Else  'make sure a new note has the flags set so it prompts for stationery name
                Call Me.m_noteMemo.replaceitemvalue("IsMailStationery",1)
                Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
                Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
                Call MarkDirty()
            End If
        End If
    End Sub
    Sub SetViewFields()
%REM
THIS WAS REMOVED 01/05/99 by WEZ
        'this allow other programs (3rd party) that expect standard address items
        'to find the correct values on a draft operation
        With Me.m_noteMemo
            If .HasItem("EnterSendTo") Then
                Call .replaceitemvalue("SendTo", .EnterSendTo)
                Call MarkDirty()
            End If
            If .HasItem("EnterCopyTo") Then
                Call .replaceitemvalue("CopyTo", .EnterCopyTo)
                Call MarkDirty()
            End If
            If .HasItem("EnterBlindCopyTo") Then
                Call .replaceitemvalue("BlindCopyTo", .EnterBlindCopyTo)
                Call MarkDirty()
            End If
        End With
%END REM
    End Sub
    Sub MarkDirty()
        Call SetFlag(MEMO_ISDIRTY)
    End Sub
End Class
'++LotusScript Development Environment:2:2:MEMOReplyToAll:1:8
Sub MEMOReplyToAll(note As notesdocument)
    Dim vAltName As Variant
    Dim vInheritedSendTo As Variant
    Dim vRealInheritedSendTo As Variant
    Dim iSenderIndex As Integer
    Dim x As Integer
    Dim strOwner As String
    Dim strInheritedDomain As String
    strOwner = CSGetMailFileOwner()
    If IsDocAltNameCandidate(note) Then
        vInheritedSendTo = note.GetItemValue("InheritedAltSendTo")
        strInheritedDomain = note.GetItemValue("InheritedAltFromDomain")(0)
    Else
        vInheritedSendTo = note.GetItemValue("InheritedSendTo")
        strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    End If
    ' Remove the sender from the list
    iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo)
    If (iSenderIndex >= 0) Then
        vInheritedSendTo(iSenderIndex) = ""
    End If
'// Remove the sender from the list if the sender has an alternate language that
'// is in the reply chain regardless of personal preference mode as well!
    vAltName = Evaluate(|@UserName(1)|)
    If Not NAMECompare(strOwner, vAltName(0)) Then
        iSenderIndex = NAMEFindInList(vAltName(0), vInheritedSendTo)
        If (iSenderIndex >= 0) Then
            vInheritedSendTo(iSenderIndex) = ""
        End If
    End If
    vRealInheritedSendTo = Fulltrim(vInheritedSendTo)
    ' Append the inheritedfromdomain
    If Len(strInheritedDomain) Then
        For x = 0 To Ubound(vRealInheritedSendTo)
            If Not vRealInheritedSendTo(x) = "" Then
                vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain
            End If
        Next
    End If
    Call note.ReplaceItemValue("EnterCopyTo", vRealInheritedSendTo)
    ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain
    ' Find all addresses without a domain and append FromDomain
    ' Find all addresses whose domain is the same as ours and strip it off
End Sub
'++LotusScript Development Environment:2:1:IsDocAltNameCandidate:1:8
Function IsDocAltNameCandidate(note As notesdocument) As Integer
    IsDocAltNameCandidate = False
    If note.GetItemValue("NamePreference")(0) = "1" Then  'user wants to view alt names
        If (note.IsNewNote) Or Not (note.HasItem("PostedDate"))Then  'this is a routed note, parse the language tags
            If note.HasItem("$NameLanguageTags") Then
                Dim tmp_vNameLanguageTags As Variant
                IsDocAltNameCandidate = True
                tmp_vNameLanguageTags = note.GetItemValue("$NameLanguageTags")
                Forall tmpLanguages In note.GetItemValue("LanguagePreference")
                    If Isnull(Arraygetindex(tmpLanguages,tmp_vNameLanguageTags)) Then
                        IsDocAltNameCandidate = False 'a language tag was encoutered that the user doesn't understand
                        Exit Function
                    End If
                End Forall
            Else
                IsDocAltNameCandidate = True 'new notes or drafts don't have language tags, so display by preference only
            End If
        End If
    End If
End Function
Lotus Product8~
,H!}t
-t"#\
,x!}p
-P$#8m
'0'0'
'\#\#
'`'`'
"x!x!,$,$H!H!
t"t"H(H(
P$P$@
`%`%l
,x!}H
-t"##1
,,#},
,,#},
,,#}P
,,#}h
,H!}t
-t"#\
,x!}p
-P$#8m
-\##8
-P$#8\
%,x!}H
%,x!}
&,x!It
&,x!It
,H!}<
,,#}<
,D&F4&
,,#}H
,,#},
,,#}P
,`'HP
,,#}H
,0'}p
-P$#8
-t"##8
),x!}
,,#}P
,,#}|
^(*4<
,x!}(
 ,,#}D
 -,$#K
 ,H!}t
 ,H!}h
 ,,#}h
 ,,#}
#58*/
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIEventObject
Declare Sub Initialize
Declare Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
Declare Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime) As Integer
Declare Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
Declare Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
Declare Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
Declare Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
Class UIEventObject
    m_ws As NotesUIWorkspace
    m_noteStatus As NotesDocument
    m_beobject As Variant
    m_strtable As Variant                        ' This is a reference to the backend objects StringTable
    m_lAction As Long                            ' These are OR'd together
    m_bSendComments As Integer
    m_nEventType As Integer
    m_bOwner As Integer
    Property Get ActionInProgress As Long
        ActionInProgress = m_lAction
    End Property
    Property Set ActionInProgress As Long
        ' If the caller passes ACTION_NONE, remove all existing actions set
        If (ActionInProgress = ACTION_NONE) Then
            m_lAction = ACTION_NONE
        Else
            m_lAction = (m_lAction Or ActionInProgress)
        End If
    End Property
    Property Get BEObject As Variant
        Set BEObject = m_beobject
    End Property
    Property Get SendComments As Integer
        SendComments = m_bSendComments
    End Property
    Property Get StringTable As Variant
        Set StringTable = m_strtable
    End Property
    Property Get Workspace As NotesUIWorkspace
        Set Workspace = m_ws
    End Property
    Property Get RepeatChange As Integer
        RepeatChange = m_beobject.RepeatModify
    End Property
    Property Get EventType As Integer
        EVentType = m_nEventType
    End Property
    Property Get IsOwner As Integer
        IsOwner = m_bOwner
    End Property
    Property Get NeedsReschedule As Integer
        NeedsREschedule = False
        ' if this is a new document, return false
        If Not(m_beobject.WasMailed) Then
            Exit Property
        End If
        NeedsReschedule = CSEventDTItemsModified(m_beObject)
    End Property
    Property Set SendComments As Integer
        m_bSendComments = SendComments
    End Property
    Property Get OkToReschedule As Integer
        Dim nResult As Integer
        If (m_beobject.IsWorkflowEnabled) And (m_beobject.WasMailed) Then
            nResult = YesNoCancelPrompt(m_strtable.GetString(RESC_UPD_MSG, Null),m_strtable.GetString(RESC_TITLE,Null))
            If (nResult <> 2) Then
                ActionInProgress = ACTION_RESCHEDULE
                m_bSendComments = (nResult = 6)
                OkToReschedule = True
            Else
                Call RemoveActionInProgress(ACTION_RESCHEDULE)
                m_bSendComments = False
                OkToReschedule = False
            End If
        Else
            OkToReschedule = YesNoPrompt(m_strtable.GetString(ENTRY_DTMOD, Null), m_strtable.GetString(DTMOD_TITLE,Null))
        End If
    End Property
    Function OkToAccept(Byval bIncludeComments As Integer) As Integer
        ' First, make sure the time is valid
        Dim note As NotesDocument
        Set note = m_beobject.Document
        If AllowDoubleBook() Then
            m_bSendComments = bIncludeComments
            OkToAccept = True
            ActionInProgress = ACTION_ACCEPT
        End If
    End Function
    Sub New (nEventType As Integer, bOwner As Integer)
        m_nEVentType = nEventType
        m_bOwner = bOwner
        Set m_ws = New NotesUIWorkspace
        If (bOwner) Then
            Set m_beobject = New NotesCSEventOwnerDocument(nEventType)
            If (nEventType = 1) Then
                Set m_strtable =  New MeetingOwnerStringTable()
            Else
                Set m_strtable =  New TaskOwnerStringTable()
            End If
        Else
            Set m_beobject = New NotesCSEventParticipantDocument(nEventType)
            If (nEventType = 1) Then
                Set m_strtable =  New MeetingParticipantStringTable()
            Else
                Set m_strtable =  New TaskParticipantStringTable()
            End If
        End If
    End Sub
    Sub delete()
        If Not(m_beobject Is Nothing) Then Delete m_beobject
    End Sub
    Function IsActionInProgress(lAction As Long) As Integer
        IsActionInProgress =  ((m_lAction And lAction) = lAction)
    End Function
    Function RemoveActionInProgress(lAction As Long)
        If (m_lAction And lAction) Then m_lAction = (m_lAction Xor lAction)
    End Function
    Function AlarmDialog() As Integer
        Dim note As notesdocument
        Dim profile As NotesDocument
        Dim nresult As Integer
        On Error Resume Next
        If Not(Isempty(m_beobject)) Then
            ' Make sure the date/time items are up to date
            Call m_beobject.UPdateDateTimeItems
            Set note = m_beobject.document
            nresult = m_ws.DialogBox("AlarmOptions",True,True,,,,,m_strtable.GetString(ALARM_TITLE, Null),note, True)
            If nresult Then
                If (note.GetItemValue("tmpDisable")(0) = "1") Then
                    ' the user wants to disable the alarm for this event
                    Call m_beobject.RemoveAlarm()
                Else
                    If Not(m_beobject.CalendarProfile.Alarmsenabled) Then
                        Set profile = m_beobject.CalendarProfile.Document
                        Call profile.ReplaceItemValue("EnableAlarms","1")
                        Call profile.save(False, False)
                        Call m_ws.EnableAlarms(True)
                    End If
                    Call m_beobject.EnableAlarm()
                End If
            End If
        End If
        AlarmDialog = nresult
    End Function
    Function AllowInPast(dtDate As NotesDateTime, bDateOnly As Integer) As Integer
    Return True if the event can be saved, false otherwise
%END REM
        Dim dtNow As NotesDateTime
        Set dtNow = New Notesdatetime("")
        Call dtNow.setnow
        ' Allow a 5 minute window
        AllowInPast = True
        If Len(dtDate.DateOnly) = 0 Then Exit Function
        If (bDateOnly) Then
            If (TIMECompareDates(dtDate, dtNow) < 0) Then
                AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), m_strtable.getstring(PAST_TITLE,Null))
            End If
        Else
            If dtNow.TimeDifference(dtDate) > 300 Then
                AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), m_strtable.getstring(PAST_TITLE, Null))
            End If
        End If
    End Function
    Function AllowDoubleBook() As Integer
        Dim vResult As Variant
        Dim note As NotesDocument
        AllowDoubleBook = True
        If m_beobject.CheckDoubleBook() Then
            vResult = m_beobject.IsValidTime()
            If Not(Isarray(vResult)) Then
                Select Case vResult
                Case 1
                    Exit Function
                Case 2
                    AllowDoubleBook = YesNoPrompt(m_strtable.GetString(ENTRY_CONF, Null), m_strtable.getstring(DBLBOOK_TITLE, Null))
                Case Else
                    AllowDoubleBook = YesNoPrompt(m_strtable.getstring(ERR_FREETIME, Null),m_strtable.getstring(DBLBOOK_TITLE, Null))
                End Select
            Else
                If Len(vResult(0)) Then
                    Set note = m_beobject.document
                    Call note.replaceitemvalue("tmpPrompt", "The following repeat dates contained conflicts")
                    Call note.replaceitemvalue("tmpListOfDates", vResult)
                    AllowDoubleBook = m_ws.DialogBox("(RepeatOpenList)", True, True, , , , , , , True)
                End If
            End If
        End If
    End Function
    Sub EditNotice
        Dim note As NotesDocument, notice As NotesDocument
        Dim vBEObject As Variant
        Dim strSendTo As String, strCopyTo As String, strBCCTo As String
        Set vBEObject = m_beobject
        If (m_bOwner = True) And IsActionInProgress(ACTION_COUNTER_ACCEPT) Then
            If (m_beobject.context = CTX_REPEAT_MSG) Then
                Set vBEObject = m_beobject.RepeatInstanceEvent
            Else
                Set vBEObject = m_beobject.ParentEvent
            End If
        End If
        Set notice = vbeobject.NoticeDocument
        If Not(notice Is Nothing) Then
            ' make sure we have an invitee list
            strSendTo = notice.GetItemValue("SendTo")(0)
            strCopyTo = notice.GetItemValue("CopyTo")(0)
            strBCCTo = notice.GetItemValue("BlindCopyTo")(0)
            If Len(strSendTo) = 0 And Len(strCopyTo) = 0 And Len(strBCCTo) = 0 Then
                Msgbox m_strtable.getstring(NO_SEND_LIST, Null)
                Exit Sub
            End If
            Call notice.ReplaceItemValue("FormToUse", notice.GetItemValue("Form")(0))
            Call notice.REplaceItemValue("Form", "(ReplyNotice)")
            Call notice.ReplaceItemValue("_ViewIcon2", 11)
            Call m_ws.EditDocument(True,notice)
        End If
    End Sub
    Function ChangeRepeatDialog() As Integer
        ChangeRepeatDialog = CSEventChangeRepeatDialog(m_beobject, m_strtable.getstring(RPTCHANGE_TITLE,Null))
    End Function
    Function OkToPerformAction(vData As Variant, Byval iTitle As Integer, Byval lAction As Long, strDialog As String, Byval nOptions As Integer) As Integer
        Dim note As NotesDocument
        Set note = m_beobject.Document
        Select Case lAction
        Case ACTION_ACCEPT
            Call note.replaceitemvalue("tmpActionType","A")
        Case ACTION_DELEGATE
            Call note.replaceitemvalue("tmpActionType","D")
        Case ACTION_COUNTER_PROPOSE
            Call note.replaceitemvalue("tmpActionType","T")
        Case ACTION_RESCHEDULE
            Call note.replaceitemvalue("tmpActionType","U")
        Case ACTION_CANCEL
            Call note.replaceitemvalue("tmpActionType","C")
        Case ACTION_CONFIRM
            Call note.replaceItemValue("tmpActionType","N")
        Case ACTION_COMPLETED
            Call note.replaceitemvalue("tmpActionType","F")
        Case ACTION_COUNTER_ACCEPT
            Call note.replaceitemvalue("tmpActionType","B")
        Case Else
            Call note.RemoveItem("tmpActionType")
        End Select
        If (m_nEventType = 2) Then Call note.replaceitemvalue("tmpTask","1")
        If (nOptions And 1) = 0 Then
            Call note.replaceitemvalue("tmpHideComments","1")
        Else
            Call note.removeitem("tmpHideComments")
        End If
        OkToPerformAction = m_ws.DialogBox(strDialog, True, True, , , , ,m_strtable.GetString(iTitle, vData), note, True)
        If (OkToPerformAction) Then
            Me.ActionInProgress = lAction
            If (nOptions And 1) = 1 Then m_bSendComments = (note.GetItemValue("tmpIncludeComments")(0) = "1")
        Else
            Call RemoveActionInProgress(lAction)
        End If
    End Function
    Function RepeatDialog() As Integer
        RepeatDialog = CSEventRepeatDialog(m_beobject, m_strtable.getstring(REPEAT_TITLE, Null))
    End Function
    Sub PerformAction(strAction As String, vArgs As Variant)
        Call m_beobject.ActionHandler(strAction, Not(m_bSendComments), vArgs)
    End Sub
    ' Owner type actions
    Function Cancel(fCancelFlags As Integer) As Integer
        Dim note As NotesDocument
        Cancel = False
        Set note = m_beobject.Document
      ' See if the user wants to delete the event; if they do, we must mark our owning document
      ' for deletion and let the backend remove the responses; otherwise, we end up removing the document
      ' from underneath ourselves
        If (note.GetItemValue("tmpDeleteEntry")(0) = "1" And Not((fCancelFlags And REMOVE_DELETED) = REMOVE_DELETED)) Then
            fCancelFlags = fCancelFlags + REMOVE_RESPONSES
            Cancel = True
        End If
        Call PerformAction(ORS_MSGTYPE_CANCEL, Cint(fCancelFlags))
    End Function
    Sub SortParticipantStatus(Byval nSortType As Integer)
        Dim LLStatus As NotesCSParticipantTable
        Dim LinkedList As NotesCSParticipantTable
        Set LinkedList = m_beobject.ParticipantTable
        Call m_beobject.GetParticipantStatus
        ' The current list is sorted via name; create a table sorted by status
        Set LLStatus = LinkedList.CreateAndCopy(nSortType)
        Call m_noteStatus.ReplaceItemValue("tmpSortType", Cstr(nSortType))
        Call CSTableAppendStatus(llStatus, m_noteStatus, True)
        Delete LLStatus
    End Sub
    Sub ViewParticipantStatus()
        If (m_noteStatus Is Nothing) Then
            Set m_noteStatus = New NotesDocument(m_beobject.Document.PArentDatabase)
            Call SortParticipantStatus(4)
        End If
        Call m_ws.DialogBox("ParticipantTable",True,True,True,True,True,False,m_strtable.GetString(STS_TITLE,Null),m_noteStatus, True, True)
    End Sub
    Sub RemoveParticipants()
        Dim vParticipantList As Variant
        Dim vRemovedList As Variant
        Dim vDisplayList As Variant
        Dim vNewRemovedList As Variant
        Dim note As NotesDocument
        ' First, get a list of all users who can be removed
        vParticipantList = m_beobject.GetParticipantNames()
        Set note = m_beobject.Document
        vRemovedList = note.GetItemValue("Uninvited")
        If Len(vRemovedList(0)) Then
            vDisplayList = Fulltrim(Arrayreplace(vParticipantList, vRemovedList,""))
        Else
            vDisplayList = vParticipantList
        End If
        vNewRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.GetString(REM_PART,Null), m_strtable.getstring(REM_PART_TITLE,Null), "", vDisplayList)
        If Isarray(vNewRemovedList) Then
            Call note.ReplaceItemValue("tmpRemoveNames", vNewRemovedList)
            Call m_beobject.ActionHandler(ORS_MSGTYPE_STATUSUPDATE, True, Cstr(ORS_STATUS_REMOVED))
        End If
    End Sub
    Sub CreateMemo(bUseOriginal As Integer)
        Dim noteMemo As NotesDocument
        Set noteMemo = m_beobject.CreateMemo()
        Call m_ws.EditDocument(True, noteMemo)
    End Sub
    Sub RemoveRoomsResources(Byval bIsResource As Integer)
        Dim note As notesdocument
        Dim vList As Variant, vRemovedList As Variant
        Dim strItemName As String
        If (bIsResource) Then
            strItemName = "RequiredResources"
        Else
            strItemName = "Room"
        End If
        Set note = m_beobject.Document
        vList = note.GetItemValue(strItemName)
        vRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.getstring(REM_PART,Null), m_strtable.GetString(REM_PART_TITLE, Null), "", vList)
        If Isarray(vRemovedList) Then
            Set note = m_beobject.Document
            Call note.ReplaceItemValue("tmpRemoveNames", vRemovedList)
            Call m_beobject.ActionHandler(ORS_MSGTYPE_REMOVERES, True, bIsResource)
        End If
    End Sub
    ' Participant Type actions
    Sub Accept()
        Dim note As NotesDocument
        Dim strAction As String
        Set note = m_beobject.Document
        If (note.GetItemValue("tmpPencilIn")(0) = "1") Then
            strAction = ORS_MSGTYPE_PENCILIN
        Else
            strAction = ORS_MSGTYPE_ACCEPT
        End If
        Call PerformAction(strAction, 0)
    End Sub
    Sub Decline()
        Dim bKeepPosted As Integer
        bKeepPosted = (m_beobject.Document.GetItemValue("tmpKeepPosted")(0) = "1")
        Call PerformAction(ORS_MSGTYPE_REJECT, Cint(bKeepPosted))
    End Sub
    Sub Delegate()
        Dim vExistingNames As Variant
        Dim note As NotesDocument
        Dim sDelegeeName As String
        Dim bFailed As Integer
        Dim bKeepPosted As Integer
        Set note = m_beobject.document
        ' The user selected a name; make sure it is not someone who is already invited
        sDelegeeName = note.GetItemValue("Delegee")(0)
        vExistingNames =     note.GetItemValue("RequiredAttendees")
        If (NAMEExistsInList(sDelegeeName,vExistingNames)) Then
            bFailed = True
        Else
            vExistingNames =  note.GetItemValue("OptionalAttendees")
            If (NAMEExistsInList(sDelegeeName,vExistingNames)) Then
                bFailed = True
            End If
        End If
        If (bFailed) Then
            Messagebox m_strtable.GetString(ERR_DELE_MSG, Nothing),0,m_strtable.GetString(DELE_TITLE,Nothing)
            Call RemoveActionInProgress( ACTION_DELEGATE)
            Exit Sub
        End If
        ' This is a two step process
        ' First, create the outgoing delegation notice to the person we are delegating to and send it
        ' Second, create the notice to the chairperson and optionally send it
        Call m_beobject.ActionHandler(ORS_MSGTYPE_DELEGATE, False, Null)
        bKeepPosted = (m_beobject.Document.GetItemValue("tmpKeepPosted")(0) = "1")
        Call PerformAction(ORS_MSGTYPE_DELEGATING, Cint(bKeepPosted))
    End Sub
    Sub ScanForUpdates
        Dim po As Variant ' The main meeting invitation document object
        Dim riNotice As NotesCSUpdateInstance
        Dim riConfirmation As NotesCSUpdateInstance
        Dim bReadingCurrent As Integer
        Dim noteInEditor As NotesDocument      ' the document currently in the editor
        Dim noteMain As NotesDocument     ' The main meeting invitation document
        Set noteInEditor = m_beobject.Document
        ' If this is a main repeating document, we can leave now
        If (m_beobject.Context = CTX_REPEAT_MAIN) Then Exit Sub
        Set po = CSGetMainEventObject(m_beobject)
        ' If there is no primary object, bail
        If (po Is Nothing) Then Exit Sub
        Set noteMain = po.Document
        ' If there is no main document then bail
        If (noteMain Is Nothing) Then Exit Sub
        Call m_beobject.GetMostRecentEventNotices()
        Set riNotice = m_beobject.UpdateNotice
        Set riConfirmation = m_beobject.ConfirmNotice
        If Not(riNotice Is Nothing) Then
            bReadingCurrent = (Lcase(noteInEditor.noteid) = Lcase(riNotice.noteid))
            Select Case riNotice.NoticeType
            Case ORS_MSGTYPE_RESCHEDULE
                If rinotice.sequencenum > po.Sequencenum Then
                    If Not(bReadingCurrent) Then
                         ' The user is not reading the most up-to-date notice; inform them of the change
                        If YesNoPrompt(m_strtable.GetString(RESC_MSG,Nothing),m_strtable.GetString(UPD_TITLE, Null)) Then
                            ActionInProgress = ACTION_OPENRESCHEDULE
                        Else
                            Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
                        End If
                    End If
                Else
                     ' The user is reading the most up-to-date notice; we need to validate the sequenceitems
                    If (bReadingCurrent) Then
                        Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
                    End If
                End If
            Case ORS_MSGTYPE_CANCEL
                ' It doesn't matter if the user is reading the most up-to-date notice;
                If (noteMain.GetItemValue("NoticeType")(0) = ORS_MSGTYPE_ACCEPT) Then
                     ' The main invitation has been accepted; we need to cancel it
                    Messagebox m_strtable.GetString(CANCEL_UPD, Null),0, m_strtable.GetString(UPD_TITLE,Null)
                    Call po.DeCommitEvent(ORS_MSGTYPE_CANCEL)
                    Call noteMain.Save(True,True,True)
                Else
                     ' The main invitation has not been accepted; however, if the user is not reading the most up-to-date notice, inform them this has been cancelled
                    If Not(bReadingCurrent) Then
                        Messagebox m_strtable.GetString(CANCEL_NOACTN,Nothing), 0,m_strtable.GetString(UPD_TITLE,Null)
                    End If
                End If
                ' We always set this item for cancels; user's do not need to take any action on cancels
                Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
            Case ORS_MSGTYPE_STATUSUPDATE
            ' we need to see if we are being removed or forced
            Case ORS_MSGTYPE_COUNTERREJECT
            End Select
        Else
        End If
    End Sub
    Function SendInvitations(bIncludeRooms As Integer) As Integer
        If (bIncludeRooms) Then
            SendInvitations = YesNoPrompt(m_strtable.getstring(SEND_INVRES_MSG,Null),m_strtable.getstring(SEND_INV_TITLE, Null))
        Else
            SendInvitations = YesNoPrompt(m_strtable.getstring(SEND_INV_MSG, Null), m_strtable.getstring(SEND_INV_TITLE, Null))
        End If
    End Function
    Function CSEventGetCalendarInstance(bDateRequired As Integer, note As notesdocument) As notesdatetime
        Dim vSelectedDT As Variant
        Dim ws As New notesuiworkspace
        Dim dtCalDate As notesdatetime
        ' Get the selected date/time from the calendar
        vSelectedDT = ws.CurrentCalendarDateTime
        If Len(vSelectedDT) Then
            Call TIMEGetNotesFromLS(vSelectedDT, dtCalDate)
        Else
            If (note Is Nothing) Then Exit Function
            ' see if this is a v5 repeating instance
            If (note.HasItem("OrgRepeat") And note.HasItem("$CSVersion") And note.IsResponse) Then
                If Not(CSOpenV5RepeatInstanceFromFlatView(m_beobject, note, dtCalDate)) Then
                    bDateRequired = True
                    Exit Function
                End If
            End If
        End If
        Set CSEventGetCalendarInstance = dtCalDate
    End Function
    Function CheckForRepeatChanges() As Integer
        CheckForRepeatChanges = True
        If (m_BEObject.Context = 0) Or (m_BEobject.Context = CTX_REPEAT_MAIN) Then Exit Function
        If (Me.ChangeRepeatDialog() = REPEAT_CANCEL) Then CheckForRepeatChanges = False
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:CSTableAppendStatus:1:8
Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
    Dim itemPeople As NotesItem
    Dim itemRole As NotesItem
    Dim itemStatus As NotesItem
    Dim itemOrigPeople As NotesItem
    Dim itemOrigRole As NotesItem
    Dim itemOrigStatus As NotesItem
    Dim itemDelegation As NotesItem
    Dim instance As NotesCSParticipantInstance
    Dim i As Integer
    Dim lnnode As NotesCSParticipantInstance
    Dim lnnode2 As NotesCSParticipantInstance
    Dim namePerson As NotesName
    Dim nameDelegee As NotesName
    Set itempeople = note.getfirstitem("tmpParticipantList")
    If Not(itempeople Is Nothing) Then
        Call itempeople.remove
    End If
    Set itemrole = note.getfirstitem("tmpRoleList")
    If Not(itemrole Is Nothing) Then
        Call itemrole.remove
    End If
    Set itemstatus = note.getfirstitem("tmpStatusList")
    If Not(itemstatus Is Nothing) Then
        Call itemstatus.remove
    End If
    Set itemPeople = New NotesItem(note, "tmpParticipantList","")
    Set itemRole = New NotesItem(note, "tmpRoleList","")
    Set itemStatus = New NotesItem(note, "tmpStatusList","")
    If (bUpdateOrig) Then
        Set itemOrigPeople = New NotesItem(note, "tmpOriginalPeople","")
        Set itemOrigRole = New NotesItem(note, "tmpOriginalRole","")
        Set itemOrigStatus = New NotesItem(note, "tmpOriginalStatus","")
        Set itemDelegation = New NotesItem(note, "tmpDelegationHistory","")
    End If
        ' Now that we have the status, display it in the order
    Set lnNode = Table.GetFirstInstance()
    While Not(lnnode Is Nothing)
        Set instance = lnnode
        Set namePerson = New NotesName(instance.replyto)
        Call itemPeople.AppendToTextList(namePerson.Common)
        Call itemRole.AppendToTextList(instance.RoleName)
        Call itemStatus.AppendToTextList(instance.StatusName)
        If (bUpdateOrig) Then
            Call itemOrigPeople.AppendToTextList(namePerson.Common)
            Call itemOrigRole.AppendToTextList(Cstr(instance.Role))
            Call itemOrigStatus.AppendToTextList(Cstr(instance.Status))
            If (instance.Status = 15) Then
                Set nameDelegee = New NotesName(instance.Delegee)
                Call itemDelegation.AppendToTextList(namePerson.Common & " -> " & nameDelegee.Common)
            End If
        End If
        Set lnnode = Table.GetNextInstance()
    Wend
End Sub
'++LotusScript Development Environment:2:1:CSOpenV5RepeatInstanceFromFlatView:1:8
Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime) As Integer
    ' Return TRUE if we should continue, FALSE otherwise
    Dim ws As New notesuiworkspace
    Dim dtToday As New NotesDateTime("")
    Dim vValues As Variant
    Dim nItems As Integer, i As Integer
    vValues = note.GetItemValue(vBEObject.StartItemName)
    If Len(vValues(0)) = 0 Then Exit Function
    nItems = Ubound(vValues)
    If nItems > 0 Then
        ' Find the one closest to today
        Call dtToday.SetNow()
            Call TIMEGetNotesFromLS(vValues(i), dtCalDate)
            i = i + 1
        Loop While ((dtCalDate.TimeDifference(dtToday) < 0) And (i  =< nItems))
        Call note.replaceitemvalue("tmpListOfDates", note.getitemvalue("StartDateTime"))
        Call note.replaceitemvalue("tmpPrompt","Select the repeat instance to open")
        Call note.replaceitemvalue("tmpDateList", dtCalDate.DateOnly & " " & dtCalDate.TimeOnly)
        If Not(ws.DialogBox("(RepeatOpenList)", True, True, , , , , , note, True)) Then Exit Function
        Call TIMEGetFromItem("tmpDateSelected", note, dtCalDate)
    Else
        Call TIMEGetFromItem(vBEObject.StartItemName, note, dtCalDate)
    End If
    CSOpenV5RepeatInstanceFromFlatView = True
End Function
'++LotusScript Development Environment:2:2:CSAutoEnableOutOfOffice:1:8
Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
    Dim profileOffice As notesdocument
    Dim agentOffice As NotesAgent
    Dim note As notesdocument
    Dim db As NotesDatabase
    Dim ws As New notesuiworkspace
    Set note = vBEObject.Document
    Set db = note.ParentDatabase
    Set agentOffice = db.GetAgent("OutOfOffice")
    If agentOffice Is Nothing Then Exit Sub
    If agentOffice.IsEnabled Then Exit Sub
    ' Prompt the user to see if they want to enable the OutOfOffice agent
    If Not(YesNoPrompt("Would you like to setup the Out of Office agent to handle messages while you are away?","Lotus Notes")) Then Exit Sub
    ' The user would like to go through the wizard
    Set profileOffice = db.GetprofileDocument("OutOfOfficeProfile")
    Call profileOffice.ReplaceItemValue("FirstDayOut", vBEObject.CurrentStartDate)
    Call profileOffice.ReplaceItemValue("FirstDayBack", vBEObject.CurrentEndDate)
    Call profileOffice.ReplaceItemValue("BookBusyTime", "1")
    Delete agentOffice
    Call ws.dialogbox("OutOfOfficeProfile",True,True,True,False,False,False,"Out of Office",profileOffice,True,True)
End Sub
'++LotusScript Development Environment:2:1:CSEventRepeatDialog:1:8
Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
    Dim note As notesdocument
    Dim ws As New notesuiworkspace
    Set note = vBEObject.Document
        ' Display the correct document in the correct dialog
    If (note.IsNewNote) Then
        Call vBEObject.UpdateDateTimeItems()
        Call ws.CurrentDocument.Reload()
        If (ws.DialogBox("(RepeatForm)",True,True,,,,,strDialogTitle,,True)) Then
            Call note.ReplaceItemValue("OrgRepeat","1")
            CSEventRepeatDialog = True
        Else
            CSEventRepeatDialog = False
        End If
    Else
        If (note.IsResponse) Then
            Call ws.DialogBox("(RepeatForm)",True,True,,,,True,strDialogTitle,vBEObject.ParentEvent.Document,True)
        Else
            Call ws.DialogBox("(RepeatForm)",True,True,,,,True,strDialogTitle,note,True)
        End If
        CSEventRepeatDialog = False
    End If
End Function
'++LotusScript Development Environment:2:1:CSEventChangeRepeatDialog:1:8
Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
    Dim ws As New notesuiworkspace
    Dim note As NotesDocument
    Dim nResult As Integer
    Set note = vBEObject.Document
    If (note.HasItem("RescheduleWhich")) Then
        nResult = Cint(note.GetItemValue("RescheduleWhich")(0))
    Else
        If (ws.DialogBox("(ChangeRepeat)", True, True, , , , , strDialogTitle, note, True)) Then
            nResult = Cint(note.getitemvalue("tmpChangeWhich")(0))
        Else
            vBEObject.RepeatModify = REPEAT_CANCEL
            CSEventChangeRepeatDialog = REPEAT_CANCEL
            Exit Function
        End If
    End If
    vBEObject.RepeatModify = nResult
    CSEventChangeRepeatDialog = nResult
End Function
'++LotusScript Development Environment:2:1:CSEventDisableWorkflow:1:8
Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
    ' Return -1 to bail, 0 to do nothing, 1 to cancel
    Dim vBEObject As Variant
    Dim strOriginalType As String, strCurrentType As String
    Set vBEObject = vUIobject.BEObject
    strOriginalType = vBEObject.OriginalType
    strCurrentType = vBEObject.CurrentType
    If (strOriginalType = strWorkflow) And (strCurrentType <> strWorkflow) Then
    ' Make sure we have participants before asking
        If (vBEObject.WasMailed) Then
            If (YesNoPrompt(vuiobject.StringTable.GetString(ENTRY_TYPE, Null),vuiobject.StringTable.GetString(MODTYPE_TITLE,Null))) Then
                If (vuiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 0)) Then
                    CSEventDisableWorkflow = 1
                Else
                    CSEventDisableWorkflow = -1
                End If
            Else
                CSEventDisableWorkflow = -1
            End If
        End If
    End If
End Function
p/pL @XF
@T7xF
=$G`@$L
CpLP:8F
\J\JTCTCTDTD
Lotus Product
SD:~ ;~
SD:~@;~
O(<P4<
O(<PP;
Dt<t<@<@<<H
 h h
x"H)p
"X"X"
"h"H"H"8"8"
tAtA#
'x'x'
@+@+P+P+
.h.h.
dIdI"
4d4d4
l6l6x'
<6\6L6L6
7$7$7
D9D9(+
P:p:,
TBTB|
8FxF\
SD:~`:~
SD:~ ;~
SD:~@;~
O(<P4<
O(<PP;
=~(M&
=~@M&
=~XM&
SD:~8>~pM&
SD:~X>~
SD:~x>~
SD:~X>~
,@<}h
 Kx ,
 Kx ,
 Kx ,
Kx ,@<}d
Kx ,@<}|
Kx ,@<}
Kh",@<}
Kh",@<}
Kh",@<}
Kh",@<}
Kh",@<}
Kh",@<}
Kh",@<}
Kh",@<}
Kh",@<},
Kh",@<}@
SD:]("]
]8"#1
&,tAI8%#
,@<}\
^x'^X'^h'}
^x'JX'
A~$BN
SD:~DB~0N&
SD:~dB~HN&
',@<}
^8)}4
;J8)#
^()K@
A~$BN
SD:~DB~`N&
SD:~dB~xN&
),@<}
^()#1
OP;S C}0
^`+KP+,
^@+KP+,
)TC^`+^@+#8
^@+KP+,
)TC^`+^@+#8
OP;S C}0
/ #}8
^(,)TD\
-N(,PP;
E#N(,P
SD:~(F
SD:~HF~
,,@<}
,,@<}
SD:~HF~
SD:~HF~
,,@<}
G~ O&
SD:~4G~8O&
G~PO&
.-DG#
G}4!#K
G}L!#
 #~,H
0,<H}
1,lH#
0,<H}H$#
1,lH#
0,<H}d$#
1,lH#
0}H$}
0}d$}
2-@I##
2-dI##
4Kt4,
;Nd4U$J
Kt4,@<}h
Kt4,@<}
Kt4,@<}
4-0J#
)\J}T']t4]
)\JNd4U$J
^<6N|5PP;
^L6K<6-
^,6KL6,
J}((#
:}\(}
5KL6,4K}X)
5,@<}
)N|5UhK
5,@<}
)N|5UtK
5,@<}
7T|;'
K47,@<}4!}
I$7J47
7Qd9~,H
7Qd9X
LSD:~4L~hO&
LSD:~TL~
8SdL~
L~P@}8,
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
)1mqV
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIEventDocument
Declare Sub Initialize
Declare Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const UI_FLAG_REPEAT    = &h00000001
Const UI_FLAG_ALARM     = &h00000002
Const UI_FLAG_WASSAVED  = &h00000004
Const UI_FLAG_DONOTCLOSE = &h00000008
Class UIEventDocument
    m_uidoc As NotesUIDocument
    m_uiobject As UIEventObject
    m_lFlags As Long
 ' Properties
    Property Get UIObject As Variant
        Set UIObject = m_uiobject
    End Property
    Property Get UIDocument As NotesUIDocument
        Set UIDocument = m_uidoc
    End Property
    Property Get WasSaved As Integer
        WasSaved = ((m_lFlags And UI_FLAG_WASSAVED) = UI_FLAG_WASSAVED)
    End Property
    Property Set WasSaved As Integer
        If (WasSaved) Then
            m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
        Else
            If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
        End If
    End Property
    Property Get DoNotClose As Integer
        DoNotClose = ((m_lFlags And UI_FLAG_DoNotClose) = UI_FLAG_DoNotClose)
    End Property
    Property Set DoNotClose As Integer
        If (DoNotClose) Then
            m_lFlags = m_lFlags Or UI_FLAG_DONOTCLOSE
        Else
            If (m_lFlags And UI_FLAG_DONOTCLOSE) Then m_lFlags = m_lFlags Xor UI_FLAG_DONOTCLOSE
        End If
    End Property
    Sub New(source As NotesUIDocument, nType As Integer, bOwner As Integer)
        Set m_uidoc = source
        Set m_uiobject = New UIEventObject(nType, bOwner)
    End Sub
    Sub PerformActionAndClose(vData As Variant, Byval iTitle As Integer, Byval dAction As Long, strDlg As String, Byval dOptions As Long)
        If m_uiobject.OkToPerformAction(vData, iTitle,dAction,strDlg,dOptions) Then
            If Not m_uidoc.editmode Then m_uidoc.editmode = True
            Call m_uidoc.reload
            Call m_uidoc.save
            Call m_uidoc.close
        End If
    End Sub
    Sub QueryOpen(nMode As Integer, bIsNew As Variant, bContinue As Variant)
        Dim vBEObject As Variant, vSelectedDT As Variant
        Dim ws As New notesuiworkspace
        Dim note As NotesDocument, notetmp As NotesDocument
        Dim item As NotesItem
        Dim dtCalDate As NotesDateTime
        Dim bNeedsDate As Integer
        m_uidoc.AutoReload = False
        Set note = m_uidoc.document
        Set vBEObject = m_uiobject.BEObject
        Set dtCalDate = m_uiobject.CSEventGetCalendarInstance(bNeedsDate, note)
        If (bNeedsDate And dtCalDate Is Nothing) Then
            bContinue = False
            Exit Sub
        End If
        Call CSDocOpen(vBEObject, note, dtCalDate, CS_DOC_ALARMS)
          ' If the Editor thinks this is a new document, we are done
        If (bIsNew) Then Exit Sub
        ' See if a new note was passed in to editdocument
        If (note.isnewnote) Then Exit Sub
        ' If we are a participant, scan for updates
        If Not(m_uiobject.IsOwner) Then Call m_uiobject.ScanForUpdates()
    End Sub
    Sub PostOpen()
        Dim vBEObject As Variant
        Dim note As NotesDocument
        Dim ws As NotesUIWorkspace
        Dim session As New notessession
        Dim strType As String
        Set note = m_uidoc.document
        Set vBEObject = m_uiobject.BEObject
          ' if we need to open the reschedule notice; do it now
        If (m_uiobject.IsActionInProgress(ACTION_OPENRESCHEDULE)) Then
            Set ws = New NotesUIWorkspace
            Set session = New notessession
            Set note = session.CurrentDatabase.GetDocumentByID(m_uiobject.beobject.UpdateNotice.NoteID)
            If Not(note Is Nothing) Then
                Call m_uidoc.close
                Call ws.editdocument(False,note)
                Call m_uiobject.RemoveActionInprogress(ACTION_OPENRESCHEDULE)
                Exit Sub
            End If
        End If
       ' If this is a new document, initialize our backend document
        If(m_uidoc.IsNewDoc Or note.isnewnote) Then
            Call CSDocOpen(vBEObject, note, Nothing, Clng(CS_DOC_ALARMS))
            Call m_uidoc.Reload()
            Call m_uidoc.Refresh()
        Else
            If (note.GetItemValue("Repeats")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_REPEAT
            If (note.GetItemValue("Alarms")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_ALARM
            If (m_uiobject.IsOwner And vbeobject.Context <> CTX_REPEAT_MAIN) Then m_uidoc.EditMode = True
        End If
    End Sub
    Sub PostRecalc()
        Dim note As NotesDocument
        Dim bRefreshHide As Integer
        Set note = m_uidoc.document
        If (note.GetItemValue("Repeats")(0) = "1") Then
            If Not((m_lFlags And UI_FLAG_REPEAT) = UI_FLAG_REPEAT) Then
                If m_uiobject.RepeatDialog() Then
                    m_lFlags = m_lFlags Or UI_FLAG_REPEAT
                Else
                    Call note.replaceitemvalue("Repeats","")
                    bRefreshHide = True
                End If
            End If
        Elseif (m_lFlags And UI_FLAG_REPEAT) Then
            Call note.replaceitemvalue("Repeats","")
            bRefreshHide = True
        End If
        If (note.HasItem("$Alarm")) Then
            If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
            ' If we have a $Alarm, but not Offset or Time, then this is the default alarm; enable settings
                Call note.replaceitemvalue("Alarms","1")
                m_lFlags = m_lFlags Or UI_FLAG_ALARM
                bRefreshHide = True
            End If
        Elseif (note.GetItemValue("Alarms")(0) = "1") Then
            ' The user clicked on the alarms checkbox to enable them
            If Not((m_lFlags And UI_FLAG_ALARM) = UI_FLAG_ALARM) Then
                If m_uiobject.AlarmDialog() Then
                    m_lFlags = m_lFlags Or UI_FLAG_ALARM
                    Call note.replaceitemvalue("$Alarm",1)
                Else
                    Call Me.RemoveAlarmSettings()
                    bRefreshHide = True
                End If
            Else
                ' The checkbox is set, but so are the flags; this must be left over from a default setting remove
                Call Me.RemoveAlarmSettings()
                bRefreshHide = True
            End If
        Elseif (m_lFlags And UI_FLAG_ALARM) Then
            ' The user is removing the alarm
            Call Me.RemoveAlarmSettings()
            bRefreshHide = True
        End If
        If (bRefreshHide) Then
            Call m_uidoc.refreshhideformulas
            Call m_uidoc.reload
        End If
    End Sub
    Sub QuerySave(bContinue As Variant)
        Dim vBEObject As Variant
        Dim note As NotesDocument
        Dim dtStart As NotesDateTime, dtEnd As notesDateTime
        Dim item As NotesItem
        Dim sCurrentType As String,  soriginalType As String, strCategory As String,  strWorkflow As String
        Dim strAction As String,  strNoticeType As String
        Dim lCurrentAction As Long
        Dim dOptions As Long
        Dim fSendOptions As Integer
        Dim bIsCounter As Integer
        Dim bDateOnly As Integer
        Dim bCancel As Integer
        On Error Goto ErrorRoutine
        On Error 4412 Goto CancelSave
        On Error 4411 Goto CancelSave
        On Error 4421 Goto CancelSave
        ' reset close flag
        Me.DoNotClose = False
        Call m_uidoc.refresh(True)
        Set vBEObject = m_uiobject.BEObject
        Set note = vBEObject.Document
        strNoticeType = note.getitemvalue("NoticeType")(0)
        If (strNoticeType = "T") Then dOptions = (dOptions Or CS_DOC_ISCOUNTER)
        If (m_uiobject.EventType = 2) Then dOptions = (dOptions Or CS_DOC_TASK)
        strAction = note.getitemvalue("tmpAction")(0)
        If Len(strAction) Then m_uiobject.ActionInprogress = Clng(strAction)
    ' Build up the flags about the current document
        If (m_uiobject.IsOwner) Then
            ' If this is not a counter propose notice, disallow save
            dOptions = (dOptions Or CS_DOC_FOROWNER)
            If (dOptions And CS_DOC_ISCOUNTER) = 0 Then
                If (NAMECompare(vBEObject.CalendarProfile.OwnerName, note.getitemvalue("Principal")(0)) = False) Then
                    Call note.replaceitemvalue("SaveOptions","0")
                    Exit Sub
                End If
                Call vBEObject.UpdateDateTimeItems()
            End If
        End If
        sCurrentType = vBEObject.CurrentType
        sOriginalType = vBEObject.OriginalType
        Set dtStart = vBEObject.CurrentStartDate
        Set dtEnd = vBEObject.CurrentEndDate
        ' Query the user for several things to setup our context
        If (note.IsNewNote) Then
            ' Make sure this is not being created in the past
            If (m_uiobject.EventType = 1) Then
                If (sCurrentType = "1" Or sCurrentType = "2") Then bDateOnly = True
            Else
                bDateOnly = True
            End If
            If Not(m_uiobject.AllowInPast(dtStart, bDateOnly)) Then    Goto CancelSave
            ' Make sure we are not double booking
            If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
            ' See if out of office should be enabled
            strCategory = note.GetItemValue("Categories")(0)
            If (strCategory = "V") Then Call CSAutoEnableOutOfOffice(vBEObject)
        Else
            ' If this is a repeating event, see if changes should be applied
            If Not(m_uiobject.CheckForRepeatChanges()) Then Goto CancelSave
            If (dOptions And CS_DOC_FOROWNER) And ((dOptions And CS_DOC_ISCOUNTER) = 0) Then
            ' See if we are going from a workflow enabled entry to a non-workflow enabled
                If (m_uiobject.EventType = 1) Then
                    strWorkflow = "3"
                Else
                    strWorkflow = "2"
                End If
                Select Case CSEventDisableWorkflow(m_uiobject, strWorkflow)
                Case -1
                    Goto CancelSave
                Case 1
                    Call uiobject.Cancel(0)    '-> Need to call save
                    Exit Sub
                End Select
            ' See if we should reschedule
                If (m_uiobject.NeedsReschedule) Then
                    If Not(m_uiobject.OkToReschedule) Then Goto CancelSave
                    ' Make sure we are not double booking
                    If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
                End If
            End If
        End If
        If (dOptions And CS_DOC_FOROWNER) And ((dOptions And CS_DOC_ISCOUNTER) = 0) Then
            If (vBEObject.IsWorkflowEnabled()) Then
                fSendOptions = vBEObject.PrimarySendOptions
                If (fSendOptions > 0) Then
                ' See if the user wants to send this
                    If Not(m_uiobject.IsActionInProgress(ACTION_SEND)) Then
                        If m_uiobject.SendInvitations((fSendOptions > 1)) Then
                            m_uiobject.ActionInProgress = ACTION_SEND
                        End If
                    End If
                End If
            End If
        End If
        lCurrentAction = m_uiobject.ActionInProgress
    ' call the shared document save routine
        Call CSDocSave(vBEObject, Me, lCurrentAction, dOptions, bContinue)
        If Not(bContinue) Then Goto CancelSave
        If (dOptions And CS_DOC_FOROWNER) Then
            If (lCurrentAction And ACTION_RESCHEDULE) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_RESCHEDULE, 0)
            Elseif (lCurrentAction And ACTION_CANCEL) Then
                Call m_uiobject.Cancel(REMOVE_CALENDAR)
            Elseif (lCurrentAction And ACTION_COUNTER_ACCEPT) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTERACCEPT, 0)
            Elseif (lCurrentAction And ACTION_COUNTER_REJECT) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTERREJECT, 0)
            Elseif (lCurrentAction And ACTION_COMPLETED) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
            End If
        Else
            If (lCurrentAction And ACTION_ACCEPT) Then
                Call m_uiobject.Accept
            Elseif (lCurrentAction And ACTION_DECLINE) Then
                Call m_uiobject.Decline
            Elseif (lCurrentAction And ACTION_DELEGATE) Then
                Call m_uiobject.Delegate
            Elseif (lCurrentAction And  ACTION_ADDTOCALENDAR) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_ADDCALENDAR, 0)
            Elseif (lCurrentAction And ACTION_COUNTER_PROPOSE) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTER, 0)
            Elseif (lCurrentAction And ACTION_COMPLETED) Then
                Call m_uiobject.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
            End If
        End If
        ' We have to update the repeat instances after performing the action
        If (note.isnewnote = False) Then Call CSDocSaveRepeatingEntry(vBEObject)
        Goto Done
ErrorRoutine:
        Msgbox "Error -> " & Error & "[" & Err & "]" & " (QuerySave)"
CancelSave:
        If (Me.WasSaved) Then Me.WasSaved = False
        bContinue = False
        Me.DoNotClose = True
Done:
        Call m_uidoc.reload()
        Exit Sub
    End Sub
    Sub PostSave()
        m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
    End Sub
    Sub QueryClose(bContinue As Variant)
        Dim vbeobject As Variant
        Dim vDates As Variant
        Dim note As NotesDocument
        Dim profile As NotesDocument
        Dim ws As New notesuiworkspace
        If (Me.DoNotClose = True) Then
            Me.DoNotClose = False
            bcontinue = False
        End If
    ' See if the document needs to be placed into the alarm folder
        Set note = m_uidoc.document
        Set vbeobject = m_uiobject.beobject
        If (note.HasItem("$Alarm")) Then
            If Not(vbeobject.InAlarmFolder) Then             Call vbeobject.PutInAlarmsFolder()
            Call m_uiobject.Workspace.CheckAlarms()
        End If
        ' Update categories
        Set profile = vBEObject.CalendarProfile.Document
        Call CSDocUpdatePersonalCategories(note, profile)
If (m_uiobject.SendComments) Then Call m_uiobject.EditNotice
    Call ws.viewrefresh()
    End Sub
    Sub SendPrimaryRequest()
        ' callback routine from backend to send the primary notice
        Call m_uidoc.reload()
        Call m_uidoc.send()
    End Sub
    Sub RemoveAlarmSettings()
        Call m_uidoc.Document.replaceitemvalue("Alarms","")
        m_lFlags = m_lFlags Xor UI_FLAG_ALARM
        Call m_uiobject.BEObject.RemoveAlarm()
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:1:CSUIDocOpen:1:8
Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
    Dim note As NotesDocument
    Dim uidoc As UIEventDocument
    Dim bOwner As Integer
    If (source.InPreviewPane) Then Exit Function
    Set note = source.document
    bOwner = NOTEUserIsCreator(note)
    Set uidoc = New UIEventDocument(source, iType, bOwner)
    Call uidoc.QueryOpen(mode, Isnewdoc, continue)
    Set CSUIDocopen = uidoc
End Function
)8(8(8
@*H$$+
Lotus Product
OBJECT
    x    x    h
]X    Ih    Ix    ]
.\ Jd
S0%%8U
'~h'#1
,d&}4
)$+^t
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
($Trash)
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function InitEventObject(note As NotesDocument) As UIEventObject
Declare Sub ProcessViewCommand(lAction As Long)
Declare Function CheckForRepeatChanges(uievent As UIEventObject) As Integer
Declare Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag  As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'CSUIViewClass:
'CSUIViewClass:
Const ACTION_VIEWSTATUS = 123
Const ACTION_SENDMEMO = 125
'++LotusScript Development Environment:2:1:InitEventObject:1:8
Function InitEventObject(note As NotesDocument) As UIEventObject
    Dim vBEObject As Variant
    Dim dtCalendar As NotesDateTime
    Dim uievent As UIEventObject
    Dim ws As New notesUIWorkspace
    Dim bNeedsDate As Integer, bChair As Integer
    Dim sForm As String
    bChair = NOTEUserIsCreator(note)
    sForm = note.GetItemValue("Form")(0)
    If (Strcompare(sForm, "Task") = 0) Then
        Set uievent = New UIEventObject(2, bChair)
    Else
        Set uievent = New UIEventObject(1, bChair)
    End If
    Set vbeobject = uievent.BEObject
    Set dtCalendar = uievent.CSEventGetCalendarInstance(bNeedsDate, note)
    If (dtCalendar Is Nothing And bNeedsDate) Then Exit Function
    Call CSDocOpen(vBEObject, note, dtCalendar, 0)
    Set InitEventObject = uievent
End Function
'++LotusScript Development Environment:2:2:ProcessViewCommand:1:8
Sub ProcessViewCommand(lAction As Long)
    Dim collection As NotesDocumentCollection
    Dim note As NotesDocument
    Dim session As New notessession
    Dim ws As New notesuiworkspace
    Dim uievent As UIEventObject
    Dim vBEobject, vContinue, strtable As Variant
    Dim dOptions As Long
    Dim nChangeWhich As Integer
    Dim bSave As Integer
    Set collection = session.currentdatabase.unprocesseddocuments
    If (collection.count = 0) Then Exit Sub
    Set note = collection.getfirstdocument()
    Set uievent = InitEventObject(note)
    If (uievent Is Nothing) Then Exit Sub
    Set vBEObject = uievent.BEObject
    If note.HasItem("OrgRepeat") And Not note.IsResponse Then
        If Not note.GetItemValue("NoticeType")(0) = "I" Then
        ' This is not an invitation and we need to tell them to select an instance document
            Set strtable = uievent.StringTable
            Call DisplayWarn(strtable.getstring(USER_INVALID_DOCUMENT, Null) ,MB_OK, "")
            Exit Sub
        End If
    End If
    If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
    If (uievent.IsOwner) Then
        Select Case lAction
        Case ACTION_RESCHEDULE
            If Not(uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)) Then Goto Done
        Case ACTION_CANCEL
            If Not(uievent.OkToPerformAction(Null, CANC_TITLE, lAction, "(OwnerDlg)",1)) Then Goto Done
        Case ACTION_CONFIRM
            If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)",1) Then
                Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
            End If
            Goto Done
        Case ACTION_VIEWSTATUS
            Call uievent.ViewParticipantStatus()
            Goto Done
        Case ACTION_SENDMEMO
            Call uievent.CreateMemo(True)
            Goto Done
        Case ACTION_COMPLETED
            If Not(CheckForRepeatChanges(uievent)) Then Goto Done
        Case Else
            Msgbox uievent.stringtable.getstring(USER_ACTION_INVALID,  Null)
            Goto done
        End Select
    Else
        Call uievent.ScanForUpdates
        If note.GetItemValue("tmpDoNotProcess")(0) = "1" Then
          ' if we need to open the reschedule notice; do it now
            If uievent.ActionInProgress = ACTION_OPENRESCHEDULE Then
                Set ws = New NotesUIWorkspace
                Set session = New notessession
                Set note = session.CurrentDatabase.GetDocumentByID(vBEObject.UpdateNotice.NoteID)
            End If
            If Not(note Is Nothing) Then
                Call ws.editdocument(False,note)
                Exit Sub
            End If
            Exit Sub
        End If
        Select Case lAction
        Case ACTION_ACCEPT
            If Not(uievent.OkToPerformAction(Null, ACPT_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
        Case ACTION_DECLINE
            If Not(uievent.OkToPerformAction(Null, DECL_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
        Case ACTION_DELEGATE
            If Not(uievent.OkToPerformAction(Null, DELE_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
        Case ACTION_COUNTER_PROPOSE
            If Not(uievent.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
        Case ACTION_COMPLETED
            If Not(uievent.OkToPerformAction(Null, 0, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
        Case Else
            Msgbox uievent.stringtable.getstring(USER_ACTION_INVALID,  Null)
            Goto done
        End Select
    End If
    ' if we got here, then we want to perform the action
    ' check for repeating changes
    If Not(CheckForRepeatChanges(uievent)) Then Goto Done
    vContinue = True
    If (uievent.IsOwner) Then dOptions = CS_DOC_FOROWNER
    dOptions = dOptions Or CS_DOC_ALARMS
    Call CSDocSave(vBEObject, Null, lAction, dOptions, vContinue)
    If Not(vContinue) Then Goto Done
    Select Case lAction
    Case ACTION_RESCHEDULE
        Call vBEObject.UpdateDateTimeItems()
        Call uievent.PerformAction(ORS_MSGTYPE_RESCHEDULE, 0)
    Case ACTION_CANCEL
        Call uievent.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT)
    Case ACTION_COMPLETED
        Call uievent.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
    Case ACTION_ACCEPT
        Call uievent.Accept()
    Case ACTION_DECLINE
        Call uievent.Decline()
    Case ACTION_DELEGATE
        Call uievent.Delegate()
    Case ACTION_COUNTER_PROPOSE
        Call uievent.PerformAction(ORS_MSGTYPE_COUNTER, 0)
    End Select
    ' We have to update the repeat instances after performing the action
    Call CSDocSaveRepeatingEntry(vBEObject)
    Call note.save(True, True, True)
    If (uievent.SendComments) Then Call uievent.EditNotice
Done:
    Delete uievent
    Delete note
    Call ws.ViewRefresh
End Sub
'++LotusScript Development Environment:2:1:CheckForRepeatChanges:1:8
Function CheckForRepeatChanges(uievent As UIEventObject) As Integer
    Dim vBEObject As Variant
    CheckForRepeatChanges = True
    Set vBEObject = uievent.BEObject
    If (vBEObject.Context <> CTX_REPEAT_INST) Then Exit Function
    If (uievent.ChangeRepeatDialog() = REPEAT_CANCEL) Then CheckForRepeatChanges = False
End Function
'++LotusScript Development Environment:2:2:ViewDragPasteHandler:1:8
Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag  As Integer)
    Dim ws As New notesuiworkspace
    Dim collection As NotesDocumentCollection
    Dim note As NotesDocument
    Dim dtCalDrop As NotesDateTime
    Dim dtCal As notesdatetime
    Dim dtStart As NotesDateTime
    Dim dtEnd As NotesDateTime
    Dim uiview As UIEVentObject
    Dim vBEObject As Variant
    Dim strtable As Variant
    Dim strAction As String
    Dim dOptions As Long
    Dim lAction As Long
    Dim lDifference As Long
    Dim bRefresh As Integer
    Dim nChangeWhich As Integer
    Dim bSave As Integer
    Dim bContinue As Integer
    Call TIMEGetNotesFromLS(source.calendardatetime, dtCalDrop)
    Set collection = source.documents
    Set note = collection.getfirstdocument
    bContinue = True
    Set uiview = InitEventObject(note)
    Set vBEObject = uiview.BEObject
    Set strtable = uiview.StringTable
    Set dtStart = vBEObject.OriginalStartDate
    Set dtEnd = vBEObject.OriginalEndDate
    dOptions = CS_DOC_ALARMS
        ' set the new date/time values
    Call TIMEGetNotesFromLS(source.CalendarDateTime, dtCal)
        ' If the document was dropped on a date but no time, use the existing time
    If (Hour(dtCalDrop.LSLocalTime) = 0) Then
        Set dtCal = New notesdatetime(dtCalDrop.DateOnly & " " & dtStart.TimeOnly)
    Else
        Call TIMEGetNotesFromLS(dtCalDrop.LSLocalTime, dtCal)
    End If
    If Len(dtStart.LocalTime) = 0 Then dtStart.LSLocalTime = dtCal.LSLocalTime
    If Len(dtEnd.LocalTime) = 0 Then dtEnd.LSLocalTime = dtCal.LSLocalTime
    lDifference = dtCal.TimeDifference(dtStart)
    Call TIMEAdjustByDifference(lDifference, dtStart)
    Call TIMEAdjustByDifference(lDifference, dtEnd)
    If (uiview.EventType = 1) Then
        Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
        Call note.ReplaceItemValue("StartTime", dtStart.LSLocalTime)
        Call note.ReplaceItemValue("EndDate", dtEnd.LSLocalTime)
        Call note.ReplaceItemValue("EndTime", dtEnd.LSLocalTime)
    Else
        Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
        Call note.ReplaceItemValue("DueDate", dtEnd.LSLocalTime)
        dOptions = dOptions Or CS_DOC_TASK
    End If
    If (uiview.IsOwner) Then dOptions = dOptions Or CS_DOC_FOROWNER
    If (bDrag) Then
        If uiview.IsOwner Then
            If (vBEObject.WasMailed()) Then
                strAction = ORS_MSGTYPE_RESCHEDULE
                lAction = ACTION_RESCHEDULE
                If uiview.OkToPerformAction(Null, RESC_TITLE, lAction, "(OwnerDlg)", 0) = False Then Exit Sub
            Else
                If YesNoPrompt(strtable.getstring(ENTRY_DTMOD, Null), strtable.getstring(DTMOD_TITLE, Null)) = False Then Exit Sub
            End If
        Else
            strAction = ORS_MSGTYPE_COUNTER
            lAction = ACTION_COUNTER_PROPOSE
            If (uiview.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)",0)) = False Then Exit Sub
        End If
    End If
    If (uiview.CheckForRepeatChanges() = False) Then Exit Sub
    If (uiview.AllowDoubleBook() = False) Then Exit Sub
    Call vBEObject.UpdateDateTimeItems()
    Call CSDocSave(vBEObject, Nothing, lAction, dOptions, bContinue)
    If (bContinue = False) Then Exit Sub
    Call vBEObject.MarkTempItems()
    If (lAction) Then    Call uiview.PerformAction(strAction, 0)
        ' We have to update the repeat instances after performing the action
    Call CSDocSaveRepeatingEntry(vBEObject)
    Call note.save(True, True, True)
    If (uiview.SendComments) Then Call uiview.EditNotice
    Call ws.viewrefresh
End Sub
Lotus Product
OBJECT
~d ~
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class CSWebOwnerObject
Declare Sub Initialize
Declare Sub WebQueryOpen()
Declare Sub WebQuerySave()
Declare Function ParseURLForCalDate(strURL As String) As NotesDateTime
Declare Function ParseQueryStringForEntry(strQueryString As String, strKey As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
'CSWeb:
Class CSWebOwnerObject
    m_note As NotesDocument
    Sub new(note As notesdocument)
        Set m_note = note
    End Sub
    Sub SendPrimaryRequest()
        If Not(m_note Is Nothing) Then Call m_note.send(False)
    End Sub
End Class
Dim vBEObject As Variant
Dim vCallBack As CSWebOwnerObject
Dim strQueryString As String
Dim fOptions As Long
Dim bOwner As Integer
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:WebQueryOpen:1:8
Sub WebQueryOpen()
    Dim dtinit As New notesdatetime("")
    Dim dtCal As notesdatetime
    Dim session As New notessession
    Dim nEventType As Integer
    Set note = session.documentcontext
    bOwner = NOTEUserIsCreator(note)
    If (note.GetItemValue("Form")(0) = "Task") Then
        neventType = 2
        fOptions = CS_DOC_TASK
    Else
        nEventType = 1
    End If
    If (bOwner) Then
        Set vBEobject = New NotesCSEventOwnerDocument(nEventType)
        fOptions = fOPtions Or CS_DOC_FOROWNER
    Else
        Set vBEobject = New NotesCSEventParticipantDocument(nEventType)
    End If
    fOptions = fOptions Or CS_DOC_WEBUSER
    strQueryString = note.GetItemValue("Query_String")(0)
    Set dtCal = ParseURLForCalDate(strQueryString)
    Call CSDocOpen(vBEObject, note, dtCal, fOptions)
    Call note.replaceitemvalue("tmpOwner", vBEObject.CalendarProfile.OwnerName)
    ' If this is a new document, set the type
    If (note.isnewnote) Then
        Dim strType As String
        strType = ParseQueryStringForEntry(strQueryString, "&Type=")
        If Len(strType) Then Call note.replaceitemvalue(vBEObject.TypeItemName, strType)
    End If
End Sub
'++LotusScript Development Environment:2:2:WebQuerySave:1:8
Sub WebQuerySave()
    Dim vContinue As Variant
    Dim strAction As String
    Dim dAction As Long
    Dim session As New notessession
    Dim db As notesdatabase
    Set db =session.currentdatabase
    Call WebQueryOpen()
    vContinue = True
    If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = CTX_REPEAT_MSG) Then
        vBEObject.RepeatModify = Cint(note.getitemvalue("tmpChangeWhich")(0))
    End If
    If (bOwner) Then Set vCallBack = New CSWebOwnerObject(note)
    Call CSDocSave(vBEObject, vCallBack, 0, fOptions, vContinue)
    If Not(vContinue) Then
        Call note.replaceitemvalue("SaveOptions","0")
        Exit Sub
    End If
    strAction = note.getitemvalue("tmpAction")(0)
    If Len(strAction) Then
        dAction = Clng(strAction)
        If (bOwner) Then
            If (dAction And ACTION_RESCHEDULE) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_RESCHEDULE, True, 0)
            Elseif (dAction And ACTION_CANCEL) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_CANCEL, True, REMOVE_CALENDAR)
            Elseif (dAction And ACTION_CONFIRM) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_CONFIRMATION, True, 0)
            End If
        Else
            If (dAction And ACTION_ACCEPT) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_ACCEPT, True, 0)
            Elseif (dAction And ACTION_DECLINE) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_REJECT, True, 1)
            Elseif (dAction And ACTION_COUNTER_PROPOSE) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_COUNTER, True, 0)
            Elseif (dAction And ACTION_DELEGATE) Then
                Call vBEObject.ActionHandler(ORS_MSGTYPE_DELEGATE, True, 1)
            End If
        End If
    End If
    ' Delete the repeat cache note
    If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = CTX_REPEAT_MSG) Then
        ' We have to update the repeat instances after performing the action
        Call CSDocSaveRepeatingEntry(vBEObject)
        Dim profile As notesdocument
        Set profile = note.parentdatabase.getprofiledocument("RepeatCache")
        Call profile.remove(True)
    End If
    If note.form(0)="Task" Then
        Print "[" & db.filepath &"/TodoFS?OpenFrameSet]"
    Else
        Print "[" & db.filepath &"/CalendarFS?OpenFrameSet]"
    End If
End Sub
'++LotusScript Development Environment:2:1:ParseURLForCalDate:1:8
Function ParseURLForCalDate(strURL As String) As NotesDateTime
    ' this will return an empty date/time object is the URL does not contain the info we need
    Dim session As New notessession
    Dim intl As NotesInternational
    Dim nPos As Integer
    Dim strDate As String
    Dim strYear As String
    Dim strMonth As String
    Dim strDay As String
    Dim strSep As String
    strDate = ParseQueryStringForEntry(strURL, "&Date=")
    If Len(strDate) = 0 Then Exit Function
    Set intl = session.International
    strSep = intl.DateSep
    strYear = Strleft(strDate, "-")
    strDate = Strright(strDate,"-")
    strMonth = Strleft(strDate,"-")
    strDay = Strright(strDate,"-")
    If (intl.IsDatedmy) Then
        Set ParseURLForCalDate = New notesdatetime(strDay & strSep & strMonth & strSep & strYear)
    Elseif (intl.Isdatemdy) Then
        Set ParseURLForCalDate = New notesdatetime(strMonth & strSep & strDay & strSep & strYear)
    Elseif (intl.isdateymd) Then
        Set ParseURLForCalDate = New notesdatetime(strYear & strSep & strMonth & strSep & strDay)
    End If
End Function
'++LotusScript Development Environment:2:1:ParseQueryStringForEntry:1:8
Function ParseQueryStringForEntry(strQueryString As String, strKey As String) As String
    Dim nPos As Integer, nTotalLength As Integer, nKeyLength As Integer, nNextPos As Integer
    nTotalLength = Len(strQueryString)
    nKeyLength = Len(strKey)
    If nTotalLength = 0 Or nKeyLength = 0 Then Exit Function
    'find the first occurence of the variable
    nPos = Instr(strQueryString, strKey)
    If (nPos = 0) Then Exit Function
    ' See if the is a parameter after this one
    nNextPos = Instr(nPos+1, "&", strQueryString)
    If (nNextPos = 0) Then
        ParseQueryStringForEntry = Mid$(strQueryString, nPos+nKeyLength, nTotalLength - nPos)
    Else
        ParseQueryStringForEntry = Mid$(strQueryString, nPos+nKeyLength, nNextPos)
    End If
End Function
Lotus Product
    x    x
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
DateToGoto
StartDateTime
StartDateTime
DueDateTime
DueDAteTime
NewStarTDateh
NewStartDAte
    1S2S
Calendar
DateToGoto
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
Use "CommonUI"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postdragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
Declare Sub Postdocumentdelete(Source As Notesuidatabase)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDATABASE
Set Source = Bind(Objectname_)
On Event Postdragdrop From Source Call Postdragdrop
On Event Postdocumentdelete From Source Call Postdocumentdelete
End Sub
'++LotusScript Development Environment:2:2:Postdragdrop:1:12
Sub Postdragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
    If EntryName = "Group Calendars" Then
        Dim ws As New NotesUIWorkspace
        Dim note As notesdocument
        Dim newnote As notesdocument
        Dim uidoc As notesuidocument
        Set note = source.documents.getFirstDocument
        If note Is Nothing Then
            Exit Sub
        Elseif Lcase(note.form(0)) = "(groupcalendar)" Then
            Exit Sub
        End If
        continue = False
        Set newnote = NOTECopyIntoNewDocument(CREATE_GROUPCALENDAR, False, note, "")
        Call DisplayGroupCalendarDlg(newnote, True)
    Elseif EntryName = "Trash Bin" Then
        ' user wants to delete the documents
        Call source.documents.RemoveAll(True)
    End If
End Sub
'++LotusScript Development Environment:2:2:Postdocumentdelete:1:12
Sub Postdocumentdelete(Source As Notesuidatabase)
    Dim ws As New notesuiworkspace
    Dim uiview As NotesUIView
    Dim session As New NotesSession
    Dim dbmail As notesdatabase
    Dim note As NotesDocument
    Dim collection As NotesDocumentCollection
    Dim profile As notesdocument
    Dim vrulenum As Variant
    Dim strfilteritem As String
    Dim strViewName As String
    Dim strAction As String
    Dim uiobject As UIEventObject
    Dim vBEObject As Variant
    Dim bRemoveNote As Integer
    Dim nChangeWhich As Integer
    Set uiview = ws.CurrentView
    ' IF we do not have a current view, bail
    If uiview Is Nothing Then Exit Sub
    strViewName = uiview.ViewName
    If Strcompare(strViewName, "(Rules)")  = 0 Then
        Set dbmail = session.currentdatabase
        Set profile= dbmail.GetProfileDocument("CalendarProfile")
        Set collection = source.documents
        Set note = collection.GetFirstDocument
        While Not(note Is Nothing)
            If note.getitemvalue("enable")(0)="1" Then
            'remove $filterformula item from the profile note
                vrulenum = note.getitemvalue("ordernum")(0)
                strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
                Call profile.removeitem(strfilteritem)
            End If
            Set note = collection.getnextdocument(note)
        Wend
        Call profile.save(True, True, False)
    Elseif Strcompare(strViewName, "($Sent)")  = 0 Then
        ' We are deleting from the Sent view; see if the user wants to delete or remove
        If (session.GetEnvironmentValue("DeleteFromSent", True) = 0) Then
            ' The user wants to be prompted
            Set note = New NotesDocument(session.currentdatabase)
            Call ws.DialogBox("(DeleteSentDlg)", True, True, True, False, False, False, , note, True, True)
            strAction = note.GetItemValue("Action")(0)
            If (Strcompare(strAction, "Cancel") <> 0) Then
                If (note.GetItemValue("tmpDontAsk")(0) = "1") Then Call session.SetEnvironmentVar("DeleteFromSent", "1",True)
                If (Strcompare(strAction, "Remove") = 0) Then
                    Call source.documents.stampall("ExcludeFromView","S")
                Else
                    Call source.documents.RemoveAll(False)
                End If
                Call ws.viewrefresh
            End If
'            Continue = False
        End If
    Elseif Strcompare(strViewName, "($Calendar)") = 0 Then
        Set collection = source.documents
        Set note = collection.GetFirstDocument
        While Not(note Is Nothing)
            Set uiobject = InitEventObject(note)
            Set vBEObject = uiobject.BEObject
            bRemoveNote = False
            If CheckForRepeatChanges(uiobject) Then
                If (vBEobject.WasMailed) Then
                    If (uiobject.IsOwner) Then
                        ' we need to cancel the event
                        If uiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1) Then
                            Call uiobject.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT Or REMOVE_DELETED)
                        Else
            '                continue = False
                            Exit Sub
                        End If
                    Else
                        ' we need to decline the event
                        uiobject.SendComments = True
                        If uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",1) Then
                            Call uiobject.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT)
                        Else
                '            continue = False
                            Exit Sub
                        End If
                    End If
                Else
                    ' workflow is not enabled, simply delete the entries
                    Call vBEObject.ActionHandler("H", 0, 0)
                End If
                If (vBEObject.Context = CTX_REPEAT_INST) Then
                    nChangeWhich = vBEObject.RepeatModify
                    If (nChangeWhich <> REPEAT_CURRENT) Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
                    If (nChangeWhich <> REPEAT_ALL) Then Call vBEObject.CreateRepeatExceptions(nChangeWhich)
                End If
            End If
            Set note = collection.getnextdocument(note)
        Wend
    End If
    Call ws.viewrefresh
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$DBScript
$DBScript_O
$TITLE
$Flags
$PublicAccess
GIF89a[
()'&%
l    Snt
2NSU0
@gwny]'
    htM\
33R>*1
4@Y[o
IpFbY
#eL#y
Lq8=B
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
buJT*
U`=SX
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesHigh
$ImagesColorize
$TITLE
$Comment
$ImageData
$ImageNames
$ImagesWide
GIF89a/
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
%("Ix
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$ImagesWide
$Comment
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImageData
$ImageNames
$TITLE
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub CreateNewDoc(nType As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'DocumentConversions:
'DocumentConversions:
'This script library wraps person folders and views created prior to 5.0_
' into 5.0 functions and classes
Const NEW_MEMO             =     &h00000001&
Const NEW_CALENDAR     =     &h00000002&
Const NEW_TASK             =     &h00000004&
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:CreateNewDoc:1:8
Sub CreateNewDoc(nType As Integer)
    Select Case nType
    Case NEW_MEMO
        Call UICopyIntoNewDocument(CREATE_MEMO, True)
    Case NEW_CALENDAR
        Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
    Case NEW_TASK
        Call UICopyIntoNewDocument(CREATE_TASK, True)
    Case Else
        Messagebox("Undefined document type!")
    End Select
End Sub
Lotus Product
Kd{,D
^,|J,|
^d~}D
^t~}l
^T~}D
^t~}l
^T~}l
^d~}D
JT~KD~-
JT~KD~-
KD~-<
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
v5??@
$TITLE
$Flags
$PublicAccess
$ScriptLib
$ScriptLib_O
(GIF89a
)))999JJJ
ZcZJZJ9J9
k{scsk
k{{css
9JJJcc)99
3w))To
H7+&v"{
Pl+]t_J!
4T<df
P2_Cf
q62L3
4((N0
?fQ w
S,UW(4
qFtmG?
KN<Dy
uc;9T
Cy{RQ|RdzrQ
6s15)
~~Er/#k
%TRK4
b4'_0
[p8O4
n aZ[
.P(bL
yU}rQ
G`Sw|
VC7MGW6=
u]ciRhN
SlYdw
3[ZJ\*
:tHoY
E$k;8
4EKr)
XV9'?Mx
X    85T
0~D(ary
BX%p\
.OJ    "
R~j)Rb
@|N:,
E3D>A
SfvjZ
lAh)rn
y_Qhvb
 Cn,$
/*T8w
PRI\g
F%JDM5
oclu'
W}3D$
aW0p3
$e'%)
&J?fr
,&NQ
IEbRq
K)JJa
DuD]upDvq
7fA(f
^FfEWtW
@y50z
V8}d    ~
zQfJ~hZm<
0lm@[
.ptHKhO
m\xY]
;8;+;
-<%%(>
/2..//
q!3f,y
4,JcL
C0't]
Gv)%(\
$hgL#
0h@:9
,eu\Y
G:Nzj
gvqEwM7ZyT
g~?sc
Gf{Qf
%GwH
tS7,2
IH9$h
I2cwFC
HzzQym
PKMi    !
Fj^T"
""B" j
]xY%L
){e {
;cR    O(
lCtvr
pn1"7
u-t"F
A|w)/
%1<0;-+-
b@'Vs
0X9L+hZ
SC*1<
M;y$CE2x
'p8f%qZ
umniC
*z C
F$,'f
QHJJ(3M(r"w_
qEE(v
TO:VY
UVRA;
`WFbU3
49$RGL
ahJ_8
0O"h9
Y~9U~
bZTT-
H%|:S
9@fCO
0f3yB
5-(?>>
50(:1-5
TW^e%
'LPU<
QX27o
D8$1t
4eFPI
vAh]n
rPA`iA
fL-",
%(1`@
/ke_D
IyJ~pI
Ia"x0
Y[    Jt
d7+RU
fG6-2(7
&pb    s
5Pwn'
]%!\!AI
eoEqfi
4yX2ij0
bTF:0
I8pyT#
~S7+!
A*B`;
oIFHj
L#;E'Yu
-iLgL
y*fC=Z
"](SVc
(.hUz4
M.IjZ
#q;5ZZ[l
:e=HE
=#+>J
l-._K
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
tb9lO7
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
]X_X{|<
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
JnnmQj
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a[
44/53K
9IX @
|5Hx^
E)CI#n
a?W0Zy
*yH?v
+J)I4
3)#&2
D>Q&E/
2;THl
u=4N,
4 . !N\
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
#9qw6
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a[
jC>6_ZR
fg2d%
JR!PJ
5fi2w^v
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
T@24l
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a[
QI>aYO/*%
"l0A_{M
25$QK
"` Ca
-@,iMe
?"-#t
Bx<q0w6
f V?&$26LMAT
7Lu_Q
mD#S~
<`%bqh@
Q.&8,
Hy:Zxr&
bL^aS
}~R-i
#VOu/
C5.Kp/
Kpn,(
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
lU)kM#
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
~pK4,F
0B0L|C
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
TLq1$
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
GIF89aX
@B|xN
`-P=aP
(`0/    eT-o
Z    Blv,eN
Q3M(@
%5KI9@
A1VV8
bfzYg
9y]9C
%7;t1
n}b"d
L,WP9 ]`
8Y/(Sv
?)W:[
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
GN_BLc
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
 bH9k^
T_g4;{
!OtP+p7
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"<v^D
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aZ
~~~{{{yyyvvvsssqqqnnnllljjjhhheeeccc```___
C43221VXZ\^`bdfhjlnprtvxz|
WY[]_acegikmoqsuwy{}
pDszt
iUb0n
n(aw(~
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a[
AA=-)
M#P\m
\i_Qz
&ze#    &2
Qt"qa
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
_Forward
_Edit Document
Categori_zeK
_Move To Folder...
_Remove From Folder...
New Group Calendar'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim note As New notesdocument(session.currentdatabase)
    Dim ws As New notesuiworkspace
    Dim strAction As String
    Call note.ReplaceItemValue("Form", "(GroupCalendar)")
    Call DisplayGroupCalendarDlg(note, True)
End Sub
act_csnew.GIF|act_CSNEWDOC
Edit'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim note As notesdocument
    Dim ws As New notesuiworkspace
    Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument
    If (note Is Nothing) Then Exit Sub
    Call DisplayGroupCalendarDlg(note, False)
End Sub
act_EDIT.GIF|act_EDIT?
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
_Forward
_Edit Document
Categori_zeK
_Move To Folder...
_Remove From Folder...
New Group Calendar'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim note As New notesdocument(session.currentdatabase)
    Dim ws As New notesuiworkspace
    Dim strAction As String
    Call note.ReplaceItemValue("Form", "(GroupCalendar)")
    Call DisplayGroupCalendarDlg(note, True)
End Sub
Edit'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim note As notesdocument
    Dim ws As New notesuiworkspace
    Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument
    If (note Is Nothing) Then Exit Sub
    Call DisplayGroupCalendarDlg(note, False)
End Sub
Delete
    0S0E
Tools\Preferences...2
(Preferences)
    0S0E
Lotus Product
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$ViewGlobalScript
$ViewGlobalScript_O
GroupCalendarCtlCalendarView
(GroupCalendar)|(GroupCalendar)?
CalendarView
GroupCalendarIntro
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$PublicAccess
$FrameSet
$Flags
GIF89a[
16C8h@0
LS)4X
H$`v)
q01JR
`fW`Ut$
a"x    /
BXj>t
oM[#Y
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
:aQOe!
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89aG
6r0Cc
S>#P"
QHaPC
n= ALVdM
|4W$U
.S(]9
TN\E&5V
#!BpYK
tK $"!
s,Sc/
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$TITLE
$ImageData
$ImageNames
out_STAMPS|out_STAMPS
Mail Picker
MailOutline
MailOutlineNotesView
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Background
$Info
$$ScriptName
$Body
$PublicAccess
"Small Fonts
Mail Switcher
GIF89a
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
P#M;b
)6)%FD%
OpenCalendar_1TARGET="_top"
CalendarFS|CalendarFS
OpenToDo_1TARGET="_top"
ToDoFS|ToDoFS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Body
$PublicAccess
Lotus Product
Mail Title
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesMailFS|MailFS#4C######
CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm34
MailOutlineMailOutline####
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
MarqueeStdNotesLtr34release cand1.gif########################
uwr|7
MemoMemo
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Metal PlateStdNotesLtr15metal plate.gif#######################
OutOfOffice|OutOfOffice
*1Sf3L
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes1.gif34CiP
out_Month1out_Month1
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes10.gif34CiP
out_Month10out_Month102
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes11.gif34CiP
out_Month11out_Month110
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes12.gif34CiP
out_Month12out_Month12/
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes2.gif34CiP
out_Month2out_Month2
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes3.gif34CiP
out_Month3out_Month3
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes4.gif34CiP
out_Month4out_Month4
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes5.gif34CiP
out_Month5out_Month5
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes6.gif34CiP
out_Month6out_Month6
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes7.gif34CiP
out_Month7out_rMonth7
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes8.gif34CiP
out_Month8out_Month8
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes9.gif34CiP
out_Month9out_Month9
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr1.gif34CiP
out_rMonth1out_rMonth1#
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr10.gif34CiP
out_rMonth10out_rMonth10##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr11.gif34CiP
out_rMonth11out_rMonth11##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr12.gif34CiP
out_rMonth12out_rMonth12##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr2.gif34CiP
out_rMonth2out_rMonth2
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr3.gif34CiP
out_rMonth3out_rMonth3
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr4.gif34CiP
out_rMonth4out_rMonth4
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr5.gif34CiP
out_rMonth5out_rMonth5
##########################################################
r6.gif
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes34CiP
out_rMonth6out_rMonth6
##########################################################
r8.gif
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes34CiP
out_rMonth8out_rMonth8
##########################################################
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesr9.gif34CiP
out_rMonth9out_rMonth9
##########################################################
mail outline.gif
out_STAMPSout_STAMPS
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
to do.gif
out_TODOout_TODO
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Pencil and GridStdNotesLtr16pencil and grid.gif##############
T'_fmPk
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Plain TextStdNotesLtr0default.gif##########################################
    34Ci
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Pony ExpressStdNotesLtr17ponyexpress99b.GIF##################
    34Ci
postmark.gif
Post MarkStdNotesLtr33
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
Purple GeometryStdNotesLtr18purple geometry.gif
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#
ReplywReplyReply
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendTo
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
Reply With HistoryReply With HistoryReply
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendTo
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
2\<{Xxb
rooms.GIF34Ci
CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesbig resource icon.gif########
To Do TitleC34WQ1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
$View?
Mail Title
NotesNavigatorNotesView?
Mail Picker?
Switcher
Mail Switcher?
NotesViewNotesPreview?
($Inbox)
NotesPreview
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$FrameSet
$Flags
Inbox
($Inbox)
Drafts
($Drafts)?
($Sent)?
All Documents
($All)
Trash
($Trash)
Trash
Discussion Threads
(Discussion Threads)|ThreadsH
Rules
Rules|Rules?H
Stationery
Stationery|Stationery?H
Other Folders
Other Views
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SiteMapList
GIF89aG
6r0Cc
S>#P"
QHaPC
n= ALVdM
|4W$U
.S(]9
TN\E&5V
#!BpYK
tK $"!
s,Sc/
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
N#Q4ni
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
New Memo
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
wMemo
returnreceipt
wMemoOpen
Query_string
forward
wMemoOpen
    13R24S
(Help)
MAIL_F_MEMO
    0S0E
&Arial
FComic Sans MS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CoreEmailClasses"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim cMemoObject As Variant
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
 Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Querysave From Source Call Querysave
    On Event Postmodechange From Source Call Postmodechange
    On Event Postopen From Source Call Postopen
    On Event Postsave From Source Call Postsave
    On Event Queryclose From Source Call Queryclose
    On Event Postrecalc From Source Call Postrecalc
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set cMemoObject = New UIMemoDocument
    Call cMemoObject.Init(Source,Isnewdoc)
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QuerySave(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
    Call cMemoObject.PostModeChange()
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Call cMemoObject.PostOpen(Source)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Call cMemoObject.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QueryClose(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Continue = cMemoObject.QueryModeChange(Source)
End Sub
'++LotusScript Development Environment:2:2:Click:1:8
Sub Click(Source As Button)
    Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
    Always hidden:
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
AltFrom
    10SAltFrom
CalendarProfile
DefaultLogo
stdNotesLtr0
CalendarProfile
DefaultLogo
StdNotesLtrGateway
    4S13S24R25S29S32S34S
Logoz
BG_IMAGE_PREFIX
    0S0E
StdNotesLtr0
    0RR1RT2RT3S4S6RTT13RT14RT
Image
StdNotesLtr
Image
Gateway
BG_IMAGE_PREFIX
Image
Image
    0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
BG_IMAGE_PREFIX
    0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
Principal
Principal
Principal
NamePreference
AltFrom
PostedDateh
$LangFrom
LanguagePreferencet
AltFrom
    1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
    0RR1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
    0S0E
Encrypt
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
.,$,  , :
Path_Info_DEcoded
Path_Info
.,$,  , :
Query_String_Decoded
Query_String
(WebSpecificFields)
    0S0E
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
    Subject:
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
SendToz
SIZE=80
CopyToz
SIZE=80
    bcc:
BlindCopyTo
SIZE=80
    Subject:
Subject
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_Preview_1
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy_1z
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_Preview_1Time/date memo was created or mailed.
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo_1
tmpDisplayReplyInfo_1
    Attachment(s):
    <font size=-1>
    </font>
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateTime/date memo was created or mailed.z
tmpDisplayDate_Pre
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
IsMailStationery
    4S5S
    Stationery name:
MAILSTATIONERYNAME
-Untitled-
MAILSTATIONERYNAME
    0S0E
StatNamez
Statio
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
    To:
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    5S6S9S10S14S
EnterSendTo
    0S0E
EnterSendTo
    cc:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    5S6S7S9S10S14S
EnterCopyTo
    0S0E
EnterCopyTo
        cc:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    11S12S13S15S16S20S
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
CC_Content
BCC_Content
    0R3S4S
tmpEnterCopyTo
    bcc:
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    5S6S7S9S10S14S
EnterBlindCopyTo}
    0S0E
EnterBlindCopyTo
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
Lotus Fax Placeholder
    Subject:
SIZE=50
Subject
ISMAILSTATIONERYh
    0S0E
MailedThisPass
MailedThisPass
MailedThisPass
    0R1RT4RTTT11RT
ReplyDate
ReplyDate
ReplyDate
Importanceh
Importance
Importance
Importance(
DeliveryReporth
DeliveryReport
DeliveryReport
DeliveryReport(
DeliveryPriorityh
DeliveryPriority
DeliveryPriority
DeliveryPriority(
UpdateProfileNote
UpdateProfileNote
UpdateProfileNote
ReturnReceipt
ReturnReceipt
ReturnReceipt
$KeepPrivateh
$KeepPrivate
$KeepPrivate(
ExpireDateh
ExpireDate
ExpireDate(
ReplyTo
ReplyTo
ReplyTo
MimeFormath
MimeFormat
MimeFormat
MimeFormat(
SMTPEncodingh
SMTPEncoding
SMTPEncoding
SMTPEncoding(
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
$AutoSpellh
$AutoSpell
$AutoSpell(
WebSubjecth
WebSubject
WebSubject(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Bodyz
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
_Move To Folder...
_Remove From FolderK
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SEND.GIF|act_SEND?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
act_TOOLS.GIF|act_TOOLS?
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
New Memo(
    0S0E
act_NEW.GIF|act_NEW?
ForwardK
act_FORWARD.GIF|act_FORWARD?
alert('Feature not implemented yet.')
Send\Send
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Send and Save`
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Save as Draft`
tmpSendOptions
act_SEND.GIF|act_SEND?
Reply\ReplyK*
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Address...z
Appointment
AppointmentType
TaskType
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=550');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=530');
Delivery Options...K
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=180');
Edit
    0S0E
act_EDIT.GIF|act_EDIT?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Copy Into\New Task
act_COPYINTO.GIF|act_COPYINTO?
var pathname = window.location.pathname
filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4))
window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
Copy Into\New Calendar Entry
act_COPYINTO.GIF|act_COPYINTO?
alert('Feature in Progress')
Next
    0S0E
Previous
    0S0E
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
Reply\ReplyK0
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
_Forward
Delete
    0S0E
_Move To Folder...
_Remove From FolderK
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...R
DialogMode
(Preferences)
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
New Memo(
    0S0E
Send\Send
tmpSendOptions
Send\Send and Save`
tmpSendOptions
Send\Save as Draft`
tmpSendOptions
Reply\ReplyK*
wReply
    0S0E
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Reply\Reply to All with HistoryK
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Edit
    0S0E
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Next
    0S0E
Previous
    0S0E
Lotus Product
OBJECT
Lotus Product
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Background
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$SCRIPTOBJ_26
$SCRIPTOBJ_31
$SCRIPTOBJ_32
    GIF89a[
DNcWbxjv
NYn`l
^]^KZ
lnqs~
",xC H
dG=|x
$H5pV
&$>X$
hXvKt
{L!v!
$r#<O
GTUG%
 !c@z
(JC0f
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
    GIF89a[
DNcWbxjv
NYn`l
^]^KZ
lnqs~
",xC H
dG=|x
$H5pV
&$>X$
hXvKt
{L!v!
$r#<O
GTUG%
 !c@z
(JC0f
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class OutOfOfficeApplication
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'OutOfOffice:
Const SINGLE_DAY = 86400
Class OutOfOfficeApplication
    Public  m_profileOffice As NotesDocument
    Public  m_calprofile As notesdocument
    Public  m_itemNotified As NotesItem
    Private m_OutOfOfficeLog As noteslog
    Private m_StringTable As MailToolsStringTable
    Private m_collectionUnprocessedNotes As notesdocumentcollection
    Private m_Session As notessession
    Private m_db As notesdatabase
    Private m_noteDocument As notesdocument
    Private m_noteDisable As notesdocument
    Private m_noteEmail As NotesDocument
    Private m_rItem As notesrichtextitem
    Private m_dtNow As NotesDateTime
    Private m_dtLeave As notesdatetime
    Private m_dtReturn As notesdatetime
    Private m_dtLastRun As notesdatetime
    Private m_dtdelivered As NotesDateTime
    Private m_nameOwner As NotesName
    Private m_nameNotify As NotesName
    Private m_nameFrom As NotesName
    Private m_vNamesList As Variant
    Private m_vSendTo As Variant
    Private m_IgnoreSubjectPhrase As Variant
    Private m_vNotified As Variant
    Private m_vFieldData As Variant
    Private m_strSubject As String
    Private m_strNameFrom As String
    Private m_strDomain As String
    Private m_strNotifiedMsg As String
    Private m_strForm As String
    Private m_strFrom As String
    Private m_strSendToName As String
    Private m_strMsg As String
    Public  m_nUpdate As Integer
    Private m_nExcludeInternetEmail As Integer
    Private m_bSINGLE_DAY_LEAVE As Integer
    Private m_nFirstReminder As Integer
    Private m_nSendSpecial As Integer
Declare Public Function run() As Integer
    Sub New
        Set Me.m_Session = New notessession
        Set Me.m_db = Me.m_Session.currentdatabase
        Set Me.m_OutOfOfficeLog = New NotesLog("Out of Office Log")
        Set Me.m_profileOffice = Me.m_db.GetProfileDocument("OutOfOfficeProfile")
        Call Me.m_OutOfOfficeLog.OpenAgentLog
        Set Me.m_StringTable = New MailToolsStringTable
        Set Me.m_calprofile = Me.m_db.GetProfileDocument("CalendarProfile")
        Set Me.m_nameOwner = New NotesName(Me.m_calprofile.GetItemValue("Owner")(0))
        If Me.m_profileOffice.isnewnote Then
            Print(Me.m_stringtable.GetString(418,Nothing))
            End
        End If
        If Isnumeric(Me.m_profileOffice.ExcludeInternetEmail(0)) Then
            Me.m_nExcludeInternetEmail = Cint(Me.m_profileOffice.ExcludeInternetEmail(0))
        Else
            Me.m_nExcludeInternetEmail = 0
        End If
        Me.m_IgnoreSubjectPhrase = Me.m_profileOffice.IgnoreSubjectPhrase
        Set Me.m_collectionUnprocessedNotes = Me.m_db.UnprocessedDocuments
        Set Me.m_itemNotified = Me.m_profileOffice.GetFirstItem("Notified")
        Call Me.m_OutOfOfficeLog.LogAction(Cstr(Me.m_collectionUnprocessedNotes.count) & " found for processing.")
    End Sub
    Function Run() As Integer
        If AgentOKToRun() Then
            Set Me.m_noteDocument = Me.m_collectionUnprocessedNotes.getfirstdocument
            While Not Me.m_noteDocument Is Nothing
                If DocumentOK(Me.m_noteDocument) Then
                    Call NotifySender(Me.m_noteDocument)
                End If
                Call Me.m_Session.UpdateProcessedDoc(Me.m_noteDocument)
                Set Me.m_noteDocument = Me.m_collectionUnprocessedNotes.getnextdocument(Me.m_noteDocument)
            Wend
            If Me.m_nUpdate Then
                Call Update
            End If
        End If
    End Function
    Sub Delete
        If (Me.m_OutOfOfficeLog.NumErrors >0) Then
            Call Me.m_OutOfOfficeLog.LogAction(Cstr(Me.m_OutOfOfficeLog.NumErrors)  & " error detected." )
        Else
            Call Me.m_OutOfOfficeLog.LogAction("No errors detected.")
        End If
        Call Me.m_OutOfOfficeLog.Close
        If (Me.m_nUpdate) Then
            Call Update
        End If
    End Sub
    Sub Update
         ' track when the agent last ran..
        Set Me.m_dtNow = New NotesDateTime("")
        Me.m_dtNow.SetNow
        Call Me.m_profileOffice.ReplaceItemValue ( "Notified", Me.m_itemNotified)
        Call Me.m_profileOffice.ReplaceItemValue ( "AgentLastRun", Me.m_dtNow)
        Call Me.m_profileOffice.Save(True, False , True)
        Me.m_nUpdate = False
    End Sub
    Sub SendDisableReminder ( FirstReminder As Integer )
        Me.m_vNotified = Me.m_itemNotified.Values
        If FirstReminder Then
            Me.m_strSubject = Me.m_stringtable.GetString(415,Nothing)
            If Len(Me.m_vNotified(0)) Then
                Me.m_strNotifiedMsg = Me.m_stringtable.GetString(413,Nothing)
                Forall a In Me.m_vNotified
                    Set Me.m_nameNotify = New NotesName ( a )
                    If (Strcompare(Me.m_nameNotify.Common, Me.m_nameNotify.Canonical)= 0) Then
                        Me.m_strNotifiedMsg = Me.m_strNotifiedMsg & Me.m_nameNotify.Common & " (" & Me.m_nameNotify.Canonical & ")" & Chr(13)
                    Else
                        Me.m_strNotifiedMsg = Me.m_strNotifiedMsg & a & Chr(13)
                    End If
                End Forall
            Else
                Me.m_strNotifiedMsg = Me.m_stringtable.GetString(414,Nothing)
            End If
        Else
            Me.m_strSubject = Me.m_stringtable.GetString(443,Nothing)
            Me.m_strNotifiedMsg = Me.m_stringtable.GetString(416,Nothing)
        End If
        Set Me.m_noteDisable = New NotesDocument(Me.m_db)
        Set Me.m_rItem = New NotesRichTextItem(Me.m_noteDisable, "Body")
        Call Me.m_noteDisable.ReplaceItemValue ( "Form", "Memo")
        Call Me.m_noteDisable.ReplaceItemValue ( "SendTo", Me.m_NameOwner.canonical )
        Call Me.m_noteDisable.ReplaceItemValue ( "Subject", Me.m_strSubject )
        Call Me.m_noteDisable.ReplaceItemValue ( "$AutoForward", True )
        Me.m_rItem.AppendText ( Me.m_strNotifiedMsg )
        Me.m_noteDisable.Send (False)
    End Sub
    Function AgentOKToRun As Integer
          ' need to determine whether we should be running this agent.
        Me.m_nUpdate = True ' make sure time stamp gets updated on profile note
        Set Me.m_dtNow = New NotesDateTime("")
        Me.m_dtNow.SetNow
        Call TIMEGetFromItem("dateFirstDayBack", Me.m_profileOffice, Me.m_dtReturn)
        Call TIMEGetFromItem("dateFirstDayOut", Me.m_profileOffice, Me.m_dtLeave)
        If Me.m_dtReturn.timedifference(Me.m_dtLeave) <=  SINGLE_DAY Then
            Me.m_bSINGLE_DAY_LEAVE = True
        End If
        If Not Me.m_bSINGLE_DAY_LEAVE Then
            Call Me.m_dtReturn.AdjustHour(-6)
        End If
        '
        '  adding new condition for build #162
        '  If the duration of out of office is 1 calendar day
        '  we will allow the agent to process documents instead of creating a 1st reminder
        '  we'll use an exception flag to handle this
        '  we are considered returned if the current time is within 6 hours of our
        '  return date specified on the profile..
        ' we will send a reminder notice to the user informing them to turn off
        ' the agent.   Two types of notices are sent; a first time information and
        ' then a continuous reminder..
        Call TIMEGetFromItem("AgentLastRun", Me.m_profileOffice, Me.m_dtLastRun)
        If Me.m_dtLastRun Is Nothing Then
            Set Me.m_dtLastRun = New notesdatetime("")
        End If
        If Me.m_dtNow.TimeDifference(Me.m_dtReturn) > 0 Then
            Me.m_nFirstReminder = True
            If Not(Me.m_dtLastRun Is Nothing) Then
                If Me.m_dtLastRun.TimeDifference(Me.m_dtReturn) > 0 Then
                    Me.m_nFirstReminder = False
                End If
            End If
            Call SendDisableReminder (Me.m_nFirstReminder)
            AgentOKToRun = False
            Exit Function
        End If
          '
          ' if the current time is before the firstDayOut, nothing happens
          ' except that we are going to clear out the notified field..
          '
        If Me.m_dtNow.TimeDifference(Me.m_dtLeave) < 0 Then
            Call Me.m_profileOffice.ReplaceItemValue ("Notified", "")
            Call Me.m_OutOfOfficeLog.LogAction("Notified List has been cleared.")
            AgentOKToRun = False
            Exit Function
        End If
          '
          ' if the current time is after the firstDayOut (we know it is since we got
          ' past the above check,  and the lastRun is
          ' before the firstDayOut, then this is the first run for this out of office
          ' series..  clear the notified field..
          '
        If Me.m_dtLastRun.TimeDifference(Me.m_dtLeave) < 0 Then
            Call Me.m_profileOffice.ReplaceItemValue ("Notified", "")
        End If
        AgentOKToRun = True
    End Function
    Function DocumentOK ( doc As NotesDocument )
        DocumentOK = False
        'fix for MQUE439ULG - note document collection may return a soft deleted note
        If doc.IsDeleted Then
            Exit Function
        End If
          '
          ' if the note has been sent by an agent..
        If doc.HasItem("$AutoForward") Or doc.SentByAgent Then
            Exit Function
        End If
        'if the user has elected not to respond to mail coming from the internet skip
        If Me.m_nExcludeInternetEmail Then
            If doc.hasitem("SMTPOriginator") Then
                Exit Function
            End If
        End If
          '  the document must have a delivered date..
        If Not (doc.HasItem("DeliveredDate")) Then
            Exit Function
        End If
        ' if the documents subject has the phrase in it
        If Not (Me.m_IgnoreSubjectPhrase(0) = "") Then
            Dim x As Integer
            For x = 0 To Ubound(Me.m_IgnoreSubjectPhrase)
                If Not Len(Me.m_IgnoreSubjectPhrase(x)) = 0 Then
                    If Instr(doc.Subject(0),Me.m_IgnoreSubjectPhrase(x)) Then
                        Exit Function
                    End If
                End If
            Next
        End If
        Call TIMEGetFromItem("DeliveredDate", doc, Me.m_dtdelivered)
        If Me.m_dtdelivered Is Nothing Then
            Exit Function
        End If
          '
          ' the delivered date must be after the first day out..
        If Me.m_dtLeave.TimeDifference(Me.m_dtdelivered) > 0 Then
            Exit Function
        End If
          '
          ' if doc is a return receipt or a delivery failure report, don't send notice..
          '
        Me.m_strForm = doc.GetItemValue ( "Form")(0)
        If (Strcompare(Me.m_strForm, "Delivery Report") = 0) Then
            Exit Function
        End If
        If (Strcompare(Me.m_strForm, "NonDelivery Report") = 0) Then
            Exit Function
        End If
        If (Strcompare(Me.m_strForm, "Trace Report") = 0 ) Then
            Exit Function
        End If
        If (Strcompare(Me.m_strForm, "Return Receipt")= 0) Then
            Exit Function
        End If
          ' don't send a notice if this is from yourself..
          '
        Me.m_strFrom = doc.GetItemValue ( "From" )(0)
        If NAMECompare(Me.m_strFrom, Me.m_NameOwner.Canonical) Then
            Exit Function
        End If
          '
          ' if the sender has already been notified, don't send another notice..
        Me.m_vNamesList = Me.m_itemNotified.Values
        If Not NAMEFindInList(Me.m_strFrom, Me.m_vNamesList) = -1 Then
            Exit Function
        End If
          '
          ' do not send to anyone in the ignore list
          '
        Me.m_vNamesList = Me.m_profileOffice.GetItemValue ("IgnoreFromList")
        If Not NAMEFindInList(Me.m_strFrom, Me.m_vNamesList) = -1 Then
            Exit Function
        End If
          '
          ' do not send if the document was mailed to a group list and you do
          ' not want the actual sender to be notified or if the document is a
          ' reminder notice saved by the out of office agent..
          '
        Me.m_vNamesList = Me.m_profileOffice.GetItemValue ("IgnoreSend")
        Me.m_vSendTo = doc.GetItemValue ( "SendTo")
        If Len(Me.m_vSendTo(0)) And Len(Me.m_vNamesList(0)) Then
            Forall a In Me.m_vNamesList
                Forall b In Me.m_vSendTo
                    If NAMECompare(Cstr(b), Cstr(a)) Then
                        Exit Function
                    End If
                End Forall
            End Forall
        End If
        DocumentOK = True
    End Function
    Sub AddToNotifiedList ( NameFrom As String )
          '
          ' add name of person to the notified list
        Set Me.m_nameFrom = New NotesName ( NameFrom )
        Call Me.m_itemNotified.AppendToTextList ( Me.m_nameFrom.Canonical )
          '
        Me.m_nUpdate = True
    End Sub
    Sub NotifySender ( doc As NotesDocument )
        Me.m_vFieldData = Me.m_profileOffice.GetItemValue ( "SpecialPeople")
        Me.m_strNameFrom = doc.GetItemValue ( "From" )(0)
          '
          ' need to know whether this person is included in the
          ' special sender list..
          '
        Me.m_nSendSpecial = False
        If Not NAMEFindInList(Me.m_strNameFrom, Me.m_vFieldData) = -1 Then
            Me.m_nSendSpecial = True
        End If
        Me.m_strDomain = doc.GetItemValue ("FromDomain")(0)
        If Len(Me.m_strDomain) Then
            Me.m_strSendToName = Me.m_strNameFrom & "@" & Me.m_strDomain'(0)
        Else
            Me.m_strSendToName = Me.m_strNameFrom
        End If
          '
          '  get the day out generic message..
          '
        Me.m_vFieldData = Me.m_profileOffice.GetItemValue ( "DaysOut")(0)
        Me.m_strMsg = Me.m_vFieldData & Chr(13) & Chr(13)
          '
        If Me.m_nSendSpecial Then
            Me.m_vFieldData = Me.m_profileOffice.GetItemValue ( "SpecialMessage")(0)
            Me.m_strSubject = Me.m_profileOffice.GetItemValue ( "SpecialSubject")(0)
        Else
            Me.m_vFieldData = Me.m_profileOffice.GetItemValue ( "GeneralMessage")(0)
            Me.m_strSubject = Me.m_profileOffice.GetItemValue ( "GeneralSubject")(0)
        End If
          '
        Me.m_strMsg = Me.m_strMsg & Me.m_vFieldData
          '
          ' send the mail message..
          '
        Set Me.m_noteEmail = New NotesDocument(Me.m_db)
        Set Me.m_rItem = New NotesRichTextItem(Me.m_noteEmail, "Body")
        Call Me.m_noteEmail.ReplaceItemValue ( "Form", "Memo")
        Call Me.m_noteEmail.ReplaceItemValue ( "SendTo", Me.m_strSendToName )
        Call Me.m_noteEmail.ReplaceItemValue ( "Subject", Me.m_strSubject)
        Call Me.m_noteEmail.ReplaceItemValue ( "$AutoForward", True )
        Me.m_rItem.AppendText ( Me.m_strMsg )
        On Error Goto SendError
        Me.m_noteEmail.Send (False)
          '
          ' add the sendto person the list of those notified..
        Call AddToNotifiedList ( Me.m_strNameFrom)
        Call Me.m_OutOfOfficeLog.LogAction("Added " & Me.m_strNameFrom & " to list" )
        Exit Sub
SendError:
          'Log errors
        Call Me.m_OutOfOfficeLog.LogError( Err, Error$ )
        Exit Sub
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim OutOfOffice As New OutOfOfficeApplication
    Call OutOfOffice.run()
End Sub
Lotus Product
#K|    -
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
GIF89a
cccJBB)!!RB9
kZcBZcJJJRB9B919
I,T=7\m`C
1s%5l%
lTV/n
G Nbp
Cs?l`
!U^3Y
u5B%*
'R)n8
$42+/
8D!6jj\
FWBt57
c3uJn
 sT2@
h:y'<
(10VI
|g~mWs-
CF0j5
1tGg5
)*`Ty
7*v;:
anI~+
eVem*f
esHPD,a
9qemQYea
:Q2,/
+"@    h
K+CSE#
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
 ,m    |<L
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
 GIF89a
{cccJJsRRR99
0ApxC(jGEM
UaIQUJ
jB9aC
    DDG=L
AT.*m
4V:a<a
;Y"WJC
M8rLsB(
Q=$@4
}!Dx<
Ry@nk6+`i
8[PT\h#
Bp 3n
_)bUK
F3QZ/|
@K$Fr
W: '9
1$'    ^
rT7"h
u"wq+
q6BXr
]ia76
^| *IB
RxT@L
l+qA.
y2kyj
6c3"@/<
et)<`
3p3kg
EG*#=
0wz=
Va5zl
60B>m
V|!sFl-\
=?EdI
Sc}jg
z[rK~
9Ah`xj
;JrT"
\1`X `<
4rEm<s
'8J;^
x.&W.S
2,!Ffv
+|``$vaA
l[v58g$70
NiRT!
FaV!H>3
4Zmb%
|@f~;
h>,)=
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"[Ny)
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
!!!BBBRRR!
{1)k!
B)!B1)scRkZB
199!11
8yR+I
}khGC2
mMMPbu
l &km
jAaZT
@*<c\
HVtf:
q;swm
}`mdgr
k{V~"
L&f^'
zr){r
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
(GIF89a
kRBkB)ZB1Z9!
cB{R1J9))
Z{Z9J1
 5MVF-
B)]e-
p"tAdr;2p
BFv`:d/:V
@;=&p
6W[:TS
"UQ-Ra"
JkPDU
MhjB3
L.[DQB
U@@wH@
zLN8|)
2W3+\
0Wq"8~B
"&DQlP&
ANBdA
HF2;NY
!4&dE
FR2E=
|<        pa
']?2?
ns!}P@N*
?CA'a&Qy2u
/U`@'
8Wb1C1
Db>e`
HP]1O
Y'@Rb
7ee!I
hzvAu
Gh^Eh
lV~'*
 %>u\
-)V3=
b!;Tk
m{~>l
Co#yH
*~~!X
(f@.$
cy    Ml
%r6dY1
C0fRvkw10
<4y4E%!U
$QMyH
,0M(Jh
D%    r@
w+fcb    Q
jILAbh##
$&dnf
*QD !
!&juUe~D3^S
1$*Zt
P@, i
td+;S
h)VmCQO
* ""T
)(!Z'8
f5uP@3ED
SliPA
=Cg^dF
ILEBX@1
mlEGp
W.J!$ S
5laZ@
"A0aefC
c3,B4u
a'!%7
=&E$ ",V#
L'9Rk
!FsnD
osj^sj
b\1eI@
+kst|\
HV?QVH
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ai42X
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
skkkccZRR{ZZ
191JZZc{
Zk{9JZc
BZ{19J))1
"jYa@lj5
{q{4qI
t_WMuE
+IRd8
<hY?x
EX7AW
%o;`Y
#d*.Y
BKt#;
liw:]
HEY^%
_6q~y
Fu@!T<`jbQ
U`+E,
>Ud'h"
a{fr#
i"-z`-
hOcaAD
/H~f5
r@kRi
nG,:Y
6^c6^
`[iiF54I
rFsJi
S*c*8
3CPu@
,8cs9
83@    >
g6 J8I
p,0SC
u6,.L
[/rO+c,
    *4 >
    20#'p
PHU,1f%^-N<
:ZTPmN ehD)b9cp
prv{P
<:EQN
Z!@\Y3D
vF9e*N
*tF2@
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
sJ{B!
Fdi5l
~i5HS
F'0SgdJQb
eMF:6
*g    Wi
nE8Y]
#ml8E?N
$,@Ik
`(;A)W
mON]y
-K1zo
9d%{3v
twv#U
VE%S<
g uE}
'z|df
(|EVh~
S3uh8
;P:%pxA<9U
li)+vyo
o:v]I
[|9w7
w[cXL
gy#?\
SaLfa
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
999)!!
{{sssk
{kkcZZRccZRRJJJBBB911)
/w~_o+
7BD@9=g'g8%
>4Fnz
gPW<0
J;I*r
e4TZ!
 y4k@Cl
#}XFC
|A&|z
Z(f@@Ep
@y7%f
0a^U6H
e`UAp
2Y@cq
E.(0Vp
AS~sx%5
DwJk    0
P`HvL
W{Oxf
!,FbU
YQ9f
nD {J
l!g:P
I{X2*_
@|~HF
':RU*
SsYj&N
at>mzE
1a400(
4 xU]
I;-SNp
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
ZBJsJR
UMYR+
T3*|<z0MZdec~uo-1;G
2PU#N
,g;v=
X~![^
z!R    GV
Kf&\M
SEK"A
tB<;u
"6/z$
Wx_on
2qb+X`
PU:1d
2STq$
vH(;Px
U=v!K|
c/m8Q=X
D|^Xz
]K&a`
hb8I*
8tA iV
x@;T6
f|dgz6X
/Eths
r(lL"
h|Kn7
dwD)}S)
 \z>?
8xr4y
sYh@8
5DL `
@It}u-
[1HP,X
N1XdY9
rs.<$
QRf4v
    1E0S
[Xel2
"14fi
(7k!@
|AIgB$
YUR:E+
,<eP=18`
uE:X%sW
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
oh,=0
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
"GIF89a
ZZZ9))
Z1ZJB
sJJ9)!
9`    he/
3(CE|@&
L$K\dO\
NYTLtwdjL1umm
'^^eAb@
e0242+7
<<I0p;
)  2L2D
=182U
Ea:U96
h=':Q
KeiWA
},~;jW
=jagy
VifYP
}$5m(E
{op{+
]5~}ep
REyOH
N;}+k
Plr`Z
%x_WwIG
*    x;n
m=b\hT]T
K}B^F
bc"s
9yB8Lh2
CDJgU
Na#a7
 *U    Dm,
Ru<G
mlsS2
>~`5`
wRQ9r{
![aEG
-&bV0
V.yXM
"1.#@6
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
/"0"GIF89a
JBB1))
kckRJ
sB1)ZB1
0@O>u
`W^[Z\[
Bmn@<r;r|
3*:    H
6D.W.
rBL>P
A_eKzx
]$>IZO
!bW<{
[!e(+
\'@-U,
SDXl8
9t:U6
wIJfl
!xs3]
7|[pYI
u+x~{cB:
Yb"UP
0x*sF
#xj1?    @p
`A\j;"
pgAC$
V!8R(
;YHs>
cP)\5
    MttLl\
96\i.hn
9Zb2dR&
Oz[;8Xu
3V,b&
*    Txb
"Nj.d
=#d@c
 D7wFwL@
j^C*@
xD2^W
&?5ch
&xK-kZNc
H#tG=
%rb'rb ub+
b%.@'
%zb0R
'6@0"@1
4:@5V
#Nb!>@%
aB~a9
:Fd1Z
#).@3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
VKXL(I
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
#GIF89a
))))!!B1)RB1)!
ZkZBcR9
{JRJ9
OlW:\
wa]n+
eg->[|8_1Os
Uo\'F
bYyP:T
UD]B$
U,Dhl
4GRC!
21@O/:
|(p!A
vJ2)$
VMcS{&0
BAnjS#
0pe,f9
V3plN67sSy
"P.6R
W>R2>
\=T\!
R|)6V
zZ9!"
/-f ri:qW
R7'3P"
F6Di/
_sjhn(
1U\8|
bRXPQa
j:(5Y
2xX$M
lQYp/
(%Qr-`
3!jjF`Q
B"$\d
+g    )k
#@Mc3F
^IiUJ<
:$8TpT`T$
A01%Y
HR.:$
[jt1H
mfzjR
h<vTRV
n{vSG
 eP@[
 i@r_
Jy%R^Jm
xu[_}
uej,c:
X*j,%
=2y[
0>^,*m
_    FF&
$?6`9
A& ;JV1>ND
cLNV1
Lqb%v
 j"oJ
&cvgNveM
b{\'}
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
{9!s1
{kZ9)
k!kR91!
ID`Zw
By&Z0A
8 cd.
#'9MXK#~
'N3=6E
g\W@Ir
p|gM[Y
(T[8^
(/Yz*D
\>tJ+]k
Nl"5?
    |k6s|
dP7u;
cS6r3V}
L9g9c
tX>d~
XGwv?
Fc;fL
=/(ax
EhVe&Gj
h'pw]8
`I'y<
hFuXk
(4vf
<UYvrI
8<=Hv
0~HK4
gNdvzz
eTTFhbD
uzlh,mF:
LNnplqvb
mRJjj
{#L@x
C89BwZ;
drIVh
jT@x3
n%ko9
.osH
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
JJZJBJB9B9191)1)!)
wkIitGh
;e*poY
5 ,cW!A
`$V3&
 B#B#S
zuIU!
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
{cccJJsRRR99
@@QDKF
CBP544!W5f`:
!ZYRm
=RJr*
GI    Lf
ZxO\T
d[mlN
Ga#L\
y|c(q
N26E,#Fu
JRe4z
Hk4KIc
~4* J
cKGmW
WKLGp'
.y2^yt
;]"0]cva
@My0Mp
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
q3csk>
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
!!!BBBRRR!
{1)k!
B)!B1)scRkZB
199!11
YZ\'A'
=f;B21
DGE&8v
P$nvh
.9O#z
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
kRBkB)ZB1Z9!
cB{R1J9))
Z{Z9J1
 Gq$yH
"%&+5+)*B<D"
A8'=+#
VWufE
QiJ|2
O)\TX1
&&x]Y
B+d{@{
D9[@i`z
k5O(]iR
8`9~4
Jy6DC
X`EujIV,.
7EGtd
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
skkkccZRR{ZZ
191JZZc{
Zk{9JZc
BZ{19J))1
SsBqs7;qc=VM:k
SZTuy
UO2G%
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
sJ{B!
f"7gh
}xs0J]R
(eZ9`
Gt)IF#}P
3yA<@)
Zivj]q
DKfFF
<x*`3
L]    !n`C
h&]Qj
s@vQ4.6
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
999)!!
{{sssk
{kkcZZRccZRRJJJBBB911)
U|<Zirc
lBqC]
|}-k7n
XcUha
58y.U
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
a80%T
_U.8`
td    w9
`+~%OcK
ILI^$#Q
#uiP5
0O;:
`.DxB
,;&    |
N&S g
<B    Jd    m
$GZwI
D$UYJ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
v    v    GIF89a
ZZZ9))
Z1ZJB
sJJ9)!
v<n;f0SVHz
0xz2w
15;c    e
k'*7&
[$J,%pS)qI
`C    W]5
%@l@7
IM+y;Q
3G,6a
=5i}$
Asl0?
);) ry
#.F1}
\.BczCOE
Y0`pSY(
~3^IV
gXaB_y
vmYtQ
6J3OW
Z[;    \
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a
{9!s1
{kZ9)
k!kR91!
#%!,ZGI
ySUHJ
se]"pEYl iCqZWWcq
&P"MnHY
tQ^ivr
-F$    Q
`;6zk
X"XSS
b/=@`z
FB`    |t3
H>rPb[
9.>cLm
 m    =&
3^A'>
}o/#Se
'r.3d
M.AG.
d#$'B
V\(5
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
(GIF89a
1u)d#
$,]>U
N%nry
\}lM{zY
q0v];
@Mn?Y<
UfySr
c8V^kv
WVt3vidx
b+He@E
ODg@G
OWOW2
Y(TNhS
aIl~FTs
D5urK
}V}du
+jNc9
O'JDI
$WzxQ
\eF^|
/ejvde
Hw0.b
rEp+
vtxPd
|eCGY
M9(P %zh
H:|l#
6PyU7
q^XJ5
o"6mr
Y_P4e
wTxy:
J)a?`9
7o!F_
GgBES-G!
bEhx{>
7%S~j
GO7DH
7[?'{
S>r"u
{5CRk
gXwy%
tR_tOyJz
a@]8$|
C\Y9y:71
tz;vZ#
><    J'
L"7kA
[5L#2
xK*:B
U=/5-
S(FS6
%T q*
d*3s^
mOEGFo
@7!(0d
"\L#U&2,
Q#^"Htl
6r|1O(X
WEUS}
$cPek[
)23bJ    s
F_[    m
o\R e
?aAb#
F{8~8k
;plKO
*&7}{e?
lS#4Q
;Rpl|
"?Txr
f`$HH
`i2%7dAS
bh (o
wG4"3
RDB~z
(MDSj
.iX W4C
vuGr6K
j#j_fr
6~-tP
G1PP<
K3(uto
 ;P\gW
9$juc1
h1*!A
F)3Xc*
<K|Wx
l'    #7
:UneJp
d7zPCh
/S4-S`Y2
Qh&A\
X3L:(d
)uYLtC
I^2o*=
(l+o>
&hB?Y$
*L!B#J
}uJ]#
S>qj%
*R!1e
tJr>]
FWrad
Kky{P
7z/Wp_
_KwM;
heWgH
n]YU;g
zm7uX
yYW8
er4BB
RP%#i5,$p
;:Pz
Is"rl
w    5X!
xA#q!
Nab79=?
KNQOVVXW
U{hx$i
S&Q(QI
GUSeLq$
j0GGG0
mO&W#\
k6d0[
'@#]C
>1Jk@
WI%QR
fv{_G
<6=VIh
/<F6[
jI|?4
cxk"f
]7A.'
v|FgH
Xz de[
^!xM>HD
S$XuW
@    FDl
off^e
Yiaxk
6;Iv%
LLq0E
}    7*vx|
Yt=uu
?QYmF
Me63WMSY
j]9jv
V5ec&
-*c(m
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
(GIF89a
HB22C
NYJN>"
72<(5cLu
hU)US
kMkU7
ftM|bvB
}]Ml0c
uCqmn
{=L.G9~
q?yzsmo
G\iwH
W`!3'
h$w['
*Gh%T(&
r*|&*\
jbJD&4d
Y7wE5wY
)>%o^i
^:&\:fb)
@++cf:%
io!u@
qj.M#Oa
- z6b
BIxMJa
URX"5
%(q<s
.<&2gJ
8D'?-
i3C[v
i7K=}
$]sn)
Y4?:n.
{>xJ0
y/yi&V?
Ep 6g
e<LHLHX^8
.xdn-7
GuE9$
{`gwx
w~wukW^
M&vvO
uy?ht
w~(Uh
m)k    y
(u$)#
E\1i>
k\(8f    1
Qxa8%'
Q.U)6
4%C?}n
7^|Q?-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a[
,;b(c
B@q>Q
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aY
[yyXrre~~
?DDNSS#%%022
EccI
K*l:T*
GUg7H
t`@nQ
$@JB=
@@p,0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a
E231#$+
eBv]B
{?nL(
q2|W6pP1
vdTynd
McG0jS?
f3[?+
G5*aK=XE9#
C-#O>67.*L%
|nG96&
@32QFE
c+]s\Uc
Ci CC
NHQG?    P
P"G 4
)jl3Z0
J.VTQ
bMk\#"x
!^a    A
$NA    tY
,$AbI
96a    9L#
}T O+0
L!/KZ
q`    ~
zP    sP
[C `<#p
p#p(#
    &"GO
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a[
Wc(=9
?;hU3
Pa)9f
!./qY
o\TPx$XD{
*Y*fN
cNPP]g
Z,L^p
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89a[
`0!K-
\bWcT
W2Nq"
`F,,G
^xZA
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
$FORWARDSEP
    ----------------------
     Forwarded by
ForwardedFrom
     on
ForwardedDate
     ---------------------------
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
A9O.7
$Info
$$ScriptName
ForwardedDate
$Body
&Arial
 $LotusFaxMemoSubform
Lotus Fax Placeholder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Body
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
New Memo
Subject
Subject
Subject
    1RT4RTT6RT7RTT12S13S14S15S17RTTT18RTTTT21RTTTTT23RTTTTS24RTTT25RTTT26S28RTT32RTT33RT
wMemo
returnreceipt
wMemoOpen
Query_string
forward
wMemoOpen
Query_string
wMemoOpen
    13R24S
(Help)
MAIL_F_MEMO
    0S0E
&Arial
FComic Sans MS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CoreEmailClasses"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim cMemoObject As Variant
Lotus Product
[V0.0 -L
 Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Querysave From Source Call Querysave
    On Event Postmodechange From Source Call Postmodechange
    On Event Postopen From Source Call Postopen
    On Event Postsave From Source Call Postsave
    On Event Queryclose From Source Call Queryclose
    On Event Postrecalc From Source Call Postrecalc
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set cMemoObject = New UIMemoDocument
    Call cMemoObject.Init(Source,Isnewdoc)
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QuerySave(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
    Call cMemoObject.PostModeChange()
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Call cMemoObject.PostOpen(Source)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Call cMemoObject.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QueryClose(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Continue = cMemoObject.QueryModeChange(Source)
End Sub
'++LotusScript Development Environment:2:2:Click:1:8
Sub Click(Source As Button)
    Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
Lotus Product
yV0.0~
 ,,#}H
 -,$#K
 ,H!}t
 ,H!}l
 ,,#}l
 ,,#}
    Always hidden:
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Notes
PostedDateh
SendTo
CopyTo
InheritedSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
InheritedSendTo
InheritedSendTo
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
SendTo
CopyTo
InheritedAltSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53R
$AltNameLanguageTags
$AltNameLanguageTags
    0RR1S
$StorageTo
$StorageFrom
    0RR1S
$StorageTo
$StorageTo
    0RR1S
$StorageCc
$StorageCc
    0R1S
$StorageBcc
$StorageBcc
    0R1S
InetSendTo
InetSendTo
    0RR1S
InetCopyTo
InetCopyTo
    0R1S
InetBlindCopyTo
InetBlindCopyTo
    0R1S
InheritedAltSendToz
InheritedSendTo_1
Notes
PostedDateh
ReplyTo
ReplyTo
    1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
InheritedReplyToz
InheritedReplyTo
Principal
Principal
Principal
Fromh
    1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
InheritedFrom
AltPrincipalh
AltPrincipal
AltPrincipal
AltFrom
AltFrom
    1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
InheritedFrom_1
Notes
PostedDateh
FromDomain
InheritedFromDomain
FromDomain
    9S10S12S13SInheritedFromDomain
InheritedFromDomain
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
AltFrom
    10SAltFrom
CalendarProfile
DefaultLogo
stdNotesLtr0
CalendarProfile
DefaultLogo
StdNotesLtrGateway
    4S13S24R25S29S32S34S
Logoz
BG_IMAGE_PREFIX
    0S0E
StdNotesLtr0
    0RR1RT2RT3S4S6RTT13RT14RT
Image
StdNotesLtr
Image
Gateway
BG_IMAGE_PREFIX
Image
Image
    0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
BG_IMAGE_PREFIX
    0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
Principal
Principal
Principal
NamePreference
AltFrom
PostedDateh
$LangFrom
LanguagePreferencet
AltFrom
    1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
    0RR1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
    0S0E
Encrypt
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
.,$,  , :
Path_Info_DEcoded
Path_Info
.,$,  , :
Query_String_Decoded
Query_String
(WebSpecificFields)
    0S0E
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
    Subject:
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
MailAddress
InheritedReplyTo
InheritedReplyTo
InheritedFrom
NamePreference
AltSendTo
AltSendTo
SendTo
    1S2S22S2E23S24S25S
MailAddress
SendToz
SIZE=80
CopyTo
    0S0E
CopyToz
SIZE=80
    bcc:
BlindCopyTo
    0S0E
BlindCopyTo
SIZE=80
    Subject:
Subject
Topic
Subject
    1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
Subj"
    0R1RT10S12S16S17S19RTT21RT22S23S24RT
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_Preview_1
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy_1z
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_Preview_1Time/date memo was created or mailed.
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo_1
tmpDisplayReplyInfo_1
    Attachment(s):
    <font size=-1>
    </font>
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateTime/date memo was created or mailed.z
tmpDisplayDate_Pre
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
        To:
MailAddress
InheritedReplyTo
InheritedReplyTo
NamePreference
InheritedAltFrom
InheritedAltFrom
InheritedFrom
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
MailAddress
EnterSendTo
    0S0E
EnterSendTo
    cc:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
EnterCopyTo
    0S0E
EnterCopyTo
        cc:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
    bcc:
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
EnterBlindCopyTo}
    0S0E
EnterBlindCopyTo
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
Lotus Fax Placeholder
    Subject:
SIZE=50
Subject
Topic
Subject
    1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
Subj"
    0R1RT10S12S16S17S19RTT21RT22S23S24RT
Subject
        Subject:
Subject
tmpDisplaySubject
$HideMailHeader
tmpDisplayLink
ISMAILSTATIONERYh
    0S0E
MailedThisPass
MailedThisPass
MailedThisPass
    0R1RT4RTTT11RT
ReplyDate
ReplyDate
ReplyDate
Importanceh
Importance
Importance
Importance(
DeliveryReporth
DeliveryReport
DeliveryReport
DeliveryReport(
DeliveryPriorityh
DeliveryPriority
DeliveryPriority
DeliveryPriority(
UpdateProfileNote
UpdateProfileNote
UpdateProfileNote
ReturnReceipt
ReturnReceipt
ReturnReceipt
$KeepPrivateh
$KeepPrivate
$KeepPrivate(
ExpireDateh
ExpireDate
ExpireDate(
ReplyTo
ReplyTo
ReplyTo
MimeFormath
MimeFormat
MimeFormat
MimeFormat(
SMTPEncodingh
SMTPEncoding
SMTPEncoding
SMTPEncoding(
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
$AutoSpellh
$AutoSpell
$AutoSpell(
WebSubjecth
WebSubject
WebSubject(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Bodyz
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
_Move To Folder...
_Remove From FolderK
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SEND.GIF|act_SEND?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_REPLY.GIF|act_REPLY?
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
act_TOOLS.GIF|act_TOOLS?
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
New Memo(
    0S0E
act_NEW.GIF|act_NEW?
ForwardK
act_FORWARD.GIF|act_FORWARD?
alert('Feature not implemented yet.')
Send\Send
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Send and Save`
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Save as Draft`
tmpSendOptions
act_SEND.GIF|act_SEND?
Reply\ReplyK*
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply to All with HistoryK
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Address...z
Appointment
AppointmentType
TaskType
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=550');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=530');
Delivery Options...K
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=180');
Edit
    0S0E
act_EDIT.GIF|act_EDIT?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Copy Into\New Task
act_COPYINTO.GIF|act_COPYINTO?
var pathname = window.location.pathname
filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4))
window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
Copy Into\New Calendar Entry
act_COPYINTO.GIF|act_COPYINTO?
alert('Feature in Progress')
Next
    0S0E
Previous
    0S0E
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
Reply\ReplyK0
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
_Forward
Delete
    0S0E
_Move To Folder...
_Remove From FolderK
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...R
DialogMode
(Preferences)
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
New Memo(
    0S0E
Send\Send
tmpSendOptions
Send\Send and Save`
tmpSendOptions
Send\Save as Draft`
tmpSendOptions
Reply\ReplyK*
wReply
    0S0E
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply to All with HistoryK
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Edit
    0S0E
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Next
    0S0E
Previous
    0S0E
Lotus Product
[V0.0 -L
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
[V0.0 -L
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
aT@0`fA
$Background
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_18
$SCRIPTOBJ_22
$SCRIPTOBJ_26
$SCRIPTOBJ_27
$SCRIPTOBJ_28
$SCRIPTOBJ_33
$SCRIPTOBJ_34
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
New Memo
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
wMemo
returnreceipt
wMemoOpen
Query_string
forward
wMemoOpen
Query_string
wMemoOpen
Query_string
FormatG
wMemoOpen
    13R24S52SD
(Help)
MAIL_F_MEMO
    0S0E
&Arial
FComic Sans MS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CoreEmailClasses"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim cMemoObject As Variant
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
 Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Querysave From Source Call Querysave
    On Event Postmodechange From Source Call Postmodechange
    On Event Postopen From Source Call Postopen
    On Event Postsave From Source Call Postsave
    On Event Queryclose From Source Call Queryclose
    On Event Postrecalc From Source Call Postrecalc
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set cMemoObject = New UIMemoDocument
    Call cMemoObject.Init(Source,Isnewdoc)
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QuerySave(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
    Call cMemoObject.PostModeChange()
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Call cMemoObject.PostOpen(Source)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Call cMemoObject.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QueryClose(Continue)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Continue = cMemoObject.QueryModeChange(Source)
End Sub
'++LotusScript Development Environment:2:2:Click:1:8
Sub Click(Source As Button)
    Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
    Always hidden:
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Notes
PostedDateh
SendTo
CopyTo
InheritedSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
InheritedSendTo
InheritedSendTo
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
SendTo
CopyTo
InheritedAltSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53R
$AltNameLanguageTags
$AltNameLanguageTags
    0RR1S
$StorageTo
$StorageFrom
    0RR1S
$StorageTo
$StorageTo
    0RR1S
$StorageCc
$StorageCc
    0R1S
$StorageBcc
$StorageBcc
    0R1S
InetSendTo
InetSendTo
    0RR1S
InetCopyTo
InetCopyTo
    0R1S
InetBlindCopyTo
InetBlindCopyTo
    0R1S
InheritedAltSendToz
InheritedAltSendTo
Notes
PostedDateh
ReplyTo
ReplyTo
    1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
InheritedReplyToz
InheritedReplyTo
Principal
Principal
Principal
Fromh
    1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
InheritedFrom
AltPrincipalh
AltPrincipal
AltPrincipal
AltFrom
AltFrom
    1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
InheritedAltFrom
Notes
PostedDateh
FromDomain
InheritedFromDomain
FromDomain
    9S10S12S13SInheritedFromDomain
InheritedFromDomain
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
AltFrom
    10SAltFrom
CalendarProfile
DefaultLogo
stdNotesLtr0
CalendarProfile
DefaultLogo
StdNotesLtrGateway
    4S13S24R25S29S32S34S
Logoz
BG_IMAGE_PREFIX
    0S0E
StdNotesLtr0
    0RR1RT2RT3S4S6RTT13RT14RT
Image
StdNotesLtr
Image
Gateway
BG_IMAGE_PREFIX
Image
Image
    0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
BG_IMAGE_PREFIX
    0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
Principal
Principal
Principal
NamePreference
AltFrom
PostedDateh
$LangFrom
LanguagePreferencet
AltFrom
    1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
    0RR1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
    0S0E
Encrypt
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
.,$,  , :
Path_Info_DEcoded
Path_Info
.,$,  , :
Query_String_Decoded
Query_String
(WebSpecificFields)
    0S0E
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
    Subject:
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
MailAddress
InheritedReplyTo
InheritedReplyTo
InheritedFrom
NamePreference
AltSendTo
AltSendTo
SendTo
    1S2S22S2E23S24S25S
MailAddress
SendToz
SIZE=80
CopyTo
    0S0E
CopyToz
SIZE=80
    bcc:
BlindCopyTo
    0S0E
BlindCopyTo
SIZE=80
    Subject:
Subject
Topic
Subject
    1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
Subj"
    0R1RT10S12S16S17S19RTT21RT22S23S24RT
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_Preview_1
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy_1z
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_Preview_1Time/date memo was created or mailed.
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo_1
tmpDisplayReplyInfo_1
    Attachment(s):
    <font size=-1>
    </font>
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateTime/date memo was created or mailed.z
tmpDisplayDate_Pre
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
        To:
MailAddress
InheritedReplyTo
InheritedReplyTo
NamePreference
InheritedAltFrom
InheritedAltFrom
InheritedFrom
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
MailAddress
EnterSendTo
    0S0E
EnterSendTo
    cc:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
EnterCopyTo
    0S0E
EnterCopyTo
        cc:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
    bcc:
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
EnterBlindCopyTo}
    0S0E
EnterBlindCopyTo
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
Lotus Fax Placeholder
    Subject:
SIZE=50
Subject
Topic
Subject
    1S2S5S6S8S10S
Subj"
    0R10S12S16S17S19S21S22S23S
Subject
        Subject:
Subject
tmpDisplaySubject
$HideMailHeader
tmpDisplayLink
ISMAILSTATIONERYh
    0S0E
MailedThisPass
MailedThisPass
MailedThisPass
    0R1RT4RTTT11RT
ReplyDate
ReplyDate
ReplyDate
Importanceh
Importance
Importance
Importance(
DeliveryReporth
DeliveryReport
DeliveryReport
DeliveryReport(
DeliveryPriorityh
DeliveryPriority
DeliveryPriority
DeliveryPriority(
UpdateProfileNote
UpdateProfileNote
UpdateProfileNote
ReturnReceipt
ReturnReceipt
ReturnReceipt
$KeepPrivateh
$KeepPrivate
$KeepPrivate(
ExpireDateh
ExpireDate
ExpireDate(
ReplyTo
ReplyTo
ReplyTo
MimeFormath
MimeFormat
MimeFormat
MimeFormat(
SMTPEncodingh
SMTPEncoding
SMTPEncoding
SMTPEncoding(
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
$AutoSpellh
$AutoSpell
$AutoSpell(
WebSubjecth
WebSubject
WebSubject(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
Bodyz
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
_Move To Folder...
_Remove From FolderK
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SEND.GIF|act_SEND?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_REPLY.GIF|act_REPLY?
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
act_TOOLS.GIF|act_TOOLS?
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
New Memo(
    0S0E
act_NEW.GIF|act_NEW?
ForwardK
act_FORWARD.GIF|act_FORWARD?
alert('Feature not implemented yet.')
Send\Send
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Send and Save`
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Save as Draft`
tmpSendOptions
act_SEND.GIF|act_SEND?
Reply\ReplyK*
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply to All with HistoryK
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Address...z
Appointment
AppointmentType
TaskType
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=550');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=530');
Delivery Options...K
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=180');
Edit
    0S0E
act_EDIT.GIF|act_EDIT?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Copy Into\New Task
act_COPYINTO.GIF|act_COPYINTO?
var pathname = window.location.pathname
filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4))
window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
Copy Into\New Calendar Entry
act_COPYINTO.GIF|act_COPYINTO?
alert('Feature in Progress')
Next
    0S0E
Previous
    0S0E
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
Reply\ReplyK0
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
Categori_zeK
_Edit Document
Send Docu_ment
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
_Forward
Delete
    0S0E
_Move To Folder...
_Remove From FolderK
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...R
DialogMode
(Preferences)
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
New Memo(
    0S0E
Send\Send
tmpSendOptions
Send\Send and Save`
tmpSendOptions
Send\Save as Draft`
tmpSendOptions
Reply\ReplyK*
wReply
    0S0E
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply to All with HistoryK
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Edit
    0S0E
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Next
    0S0E
Previous
    0S0E
Lotus Product
OBJECT
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
hFGUY9
$Background
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_18
$SCRIPTOBJ_22
$SCRIPTOBJ_26
$SCRIPTOBJ_27
$SCRIPTOBJ_28
$SCRIPTOBJ_33
$SCRIPTOBJ_34
GIF89a
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
0I Ve
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$Background
To Do Pickercker
$TITLE
C34WQ34WQ
a Deane/O=Ir
$TITLE
To Do Pi
$Info
To Do Pickercker
To Do Picker
CN=Teresa Deane/O=IrisIrisIr
$Updated
$InfoIa
To Do Pickera
$UpdatedBy
2Rules|(Rules)|RulesRules|(Rules)|Rules
Enable
    0S0E
Ordernum[
Ordernum
OrderNumX
    0S0E
EList
ExceptionList
Except when
ExceptionList
    1S2S2E5S6S8S10S11S12S2E
When
ConditionList
ActionList
EList
    0R15S16S17S18S
$108$110$109$Conflict
 $108P
Enable
    0S0E
$110R
Ordernum[
Ordernum
OrderNumX
    0S0E
$109Name
EList
ExceptionList
Except when
ExceptionList
    1S2S2E5S6S8S10S11S12S2E
When
ConditionList
ActionList
EList
    0R15S16S17S18S
(Help)
MAIL_V_RULES
    0S0E
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
#####################################
Send Memo to Database Manager
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Slashed Lines with GlobeStdNotesLtr21slashed lines with globe.gif
##########################################################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Squiggle with BackdropStdNotesLtr22default.gif###############
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Squiggly LineStdNotesLtr23default.gif########################
Stationery1/P=1681$
$65$59$55
$66$66
(Help)
MAIL_V_STATIONERY
    0S0E
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######
    34Ci
TacksStdNotesLtr24tacks.gif
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################
    34Ci
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
TapeStdNotesLtr25tape.GIF####################################
    34Ci
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Teal and Yellow LinesStdNotesLtr26teal & yellow lines.gif####
    34Ci
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Three Dimensional ReliefStdNotesLtr273d relief.gif###########
To DoTaskF
BodyCategoriesAlarmsOrgConfidentialBlindCopyToCopyToSendToRepeatsTaskTypeStatusDueDateImportanceStartDateSubjecttmpNoActionBartmpOwnerHW$ExpandGroups$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
CN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm341
To Do OutlineToDoOutline###########################
To Do PickerC34WQ1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes$
##########################################################
To Do SwitcherC34WQ1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesToDoFS|ToDoFS1#4C#############################################
    34Ci
Torn PaperStdNotesLtr28tornpapercool99.GIF
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
Triangle with Dots 2StdNotesLtr30default.gif#################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notestriangles.GIF
TrianglesStdNotesLtr29##########################
CN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notestribal.gif
TribalStdNotesLtr20################################
Update Tasks|Update Tasks
*1SfL3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
vspacer.GIF
vspacer.GIF
CN=Rob Shaver/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes34CiP###########
Wild ConfettiStdNotesLtr32wildconfetti2.gif
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####
$ACTIONSCy34Q
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################################
$BetaVersion
$BetaVersion
$BetaVersion
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@
##########################################################
$FORWARDSEPCU3x
ForwardedDateForwardedFrom
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
$LotusFaxMemoSubform1.0$LotusFaxMemoSubformCUA3x
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
$MoodsMoodsCU3
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
$Subscription
$HLFormulaCritFromNamesCritFromCritMeetResponseCritMeetInviteCritToDoCompleteCritToDoCritReturnReceiptCritHighPriorityCritSentDirectlyToMeCritSentOnlyToMe$QueryType$HLMonitorType$HLSubscription$HLDisabled$HLTitle$HLType$NoPurge$HLMLastChecked$HLMLastServerCD
CN=Damien Katz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
+MQ O
(AddSenderToAddressBook)
EH4fL3
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
(AlarmOptions)AlarmOptionsCUA3x
tmpDisable$AlarmSendTo$AlarmMemoOptionstmpAlarmPathtmpPlaySoundtmpAlarmPopuptmpOffsetDir$AlarmUnittmpOffsettmpAlarmFiles1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
255D2116B7BDFECF1769F57E5917AA29Lotus Notes
(Archive Log)Archive LogArchiveLog
CN=Catherine Duffy/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCDw##################################
    (ChangeRepeat)CU3x
tmpChangeWhich1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
(C&S DeliveryOptions)CUA3x
EncryptSignPreventDelegatePreventCounterBroadcast1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
(DeleteSentDlg)CU3x
tmpDontAskAction
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
tmpFromInfo_1tmpPostedDateInfo_1
(Delivery Info)DeliveryInfoCDU3x1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
(GroupCalendarOptions)CUA3x
DurationSelStartTime
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
_Forward
New Rule...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim newdoc As notesdocument
    Dim maildb As notesdatabase
    Dim session As New notessession
    Dim ws As New notesuiworkspace
    Set maildb = session.currentdatabase
    Set newdoc = New notesdocument(maildb)
    Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "New Rule", newdoc, True, True)
End Sub
act_NEW.GIF|act_NEW?
Edit Rule...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim maildb As notesdatabase
    Dim session As New notessession
    Dim ruledocs As notesdocumentcollection
    Dim oldrule As notesdocument
    Dim ws As New notesuiworkspace
    Dim dt As New notesdatetime("")
    Set maildb = session.currentdatabase
    Set ruledocs = maildb.unprocesseddocuments
    If (ruledocs.count = 1) Then
        Set oldrule = ruledocs.getfirstdocument
        Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "Edit Rule", oldrule, True, True)
    Else
        'More than one document is selected
        Messagebox "You must select one document",16,"Error"
    End If
End Sub
act_EDIT.GIF|act_EDIT?
Delete Rule
act_DELETE.GIF|act_DELETE?
Move Up
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    Set docselected = db.UnprocessedDocuments
    On Error Resume Next
    If (docselected.Count <> 1) Then
        Messagebox "You must select one document",16,"Error"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetPrevDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "You cannot promote the top-level document.",32,"Error"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
act_MOVEUP.GIF|act_MOVEUP?
Move Downr'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    On Error Resume Next
    Set docselected = db.UnprocessedDocuments
    If (docselected.Count <> 1) Then
        Messagebox "You must select one document",16,"Error"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetNextDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "You cannot demote the bottom-level document.",32,"Error"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
act_MOVEDOWN.GIF|act_MOVEDOWN?
Categori_ze
_Edit Document
Send
_Move To Folder...
_Remove From Folder...
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
New Rule,
MailRule
    0S0E
act_NEW.GIF|act_NEW?
Edit Rule]
act_EDIT.GIF|act_EDIT?
var pathname = (window.location.pathname);
var unid = document.view.getCurrentDocument();
location.replace(pathname.substring(0,(pathname.lastIndexOf('/')+1))+"(Rules)/"+unid+"?EditDocument")
Delete\Delete
($Trash)
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Enable Rule(s)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    Set docselected = db.UnprocessedDocuments
    If docselected.count <>0 Then
        For x=1 To docselected.count
            Set note = docselected.GetNthDocument(x)
            Call note.replaceitemvalue("Enable","1")
            Call note.save(True,False,True)
        Next
        ws.ViewRefresh
    End If
End Sub
act_ok.GIF|act_CSOK?
Disable Rule(s)+'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    Set docselected = db.UnprocessedDocuments
    If docselected.count <>0 Then
        For x=1 To docselected.count
            Set note = docselected.GetNthDocument(x)
            Call note.replaceitemvalue("Enable","0")
            Call note.save(True,False,True)
        Next
        ws.ViewRefresh
    End If
End Sub
act_DELETE.GIF|act_DELETE?
_Forward
New Rule...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim newdoc As notesdocument
    Dim maildb As notesdatabase
    Dim session As New notessession
    Dim ws As New notesuiworkspace
    Set maildb = session.currentdatabase
    Set newdoc = New notesdocument(maildb)
    Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "New Rule", newdoc, True, True)
End Sub
Edit Rule...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim maildb As notesdatabase
    Dim session As New notessession
    Dim ruledocs As notesdocumentcollection
    Dim oldrule As notesdocument
    Dim ws As New notesuiworkspace
    Dim dt As New notesdatetime("")
    Set maildb = session.currentdatabase
    Set ruledocs = maildb.unprocesseddocuments
    If (ruledocs.count = 1) Then
        Set oldrule = ruledocs.getfirstdocument
        Call ws.dialogbox("Mailrule", True, True,True,False,False, False, "Edit Rule", oldrule, True, True)
    Else
        'More than one document is selected
        Messagebox "You must select one document",16,"Error"
    End If
End Sub
Delete Ruleu
Move UpM'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    Set docselected = db.UnprocessedDocuments
    On Error Resume Next
    If (docselected.Count <> 1) Then
        Messagebox "You must select one document",16,"Error"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetPrevDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "You cannot promote the top-level document.",32,"Error"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
Move Downt'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    On Error Resume Next
    Set docselected = db.UnprocessedDocuments
    If (docselected.Count <> 1) Then
        Messagebox "You must select one document",16,"Error"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetNextDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "You cannot demote the bottom-level document.",32,"Error"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
Categori_zeR
_Edit Document
Send
_Move To Folder...
_Remove From Folder...
Tools\Preferences...2
(Preferences)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
New Rule,
MailRule
    0S0E
Delete\Delete
($Trash)
    0S0E
Delete\Empty Trash
    0S0E
Enable Rule(s)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    Set docselected = db.UnprocessedDocuments
    If docselected.count <>0 Then
        For x=1 To docselected.count
            Set note = docselected.GetNthDocument(x)
            Call note.replaceitemvalue("Enable","1")
            Call note.save(True,False,True)
        Next
        ws.ViewRefresh
    End If
End Sub
Disable Rule(s)
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim note As NotesDocument
    Dim othernote As NotesDocument
    Set docselected = db.UnprocessedDocuments
    If docselected.count <>0 Then
        For x=1 To docselected.count
            Set note = docselected.GetNthDocument(x)
            Call note.replaceitemvalue("Enable","0")
            Call note.save(True,False,True)
        Next
        ws.ViewRefresh
    End If
End Sub
Lotus Product
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub SwapDocuments(SourceDoc As NotesDocument,DestDoc As NotesDocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim db As notesdatabase
Dim s As notessession
Dim view As notesview
Dim ws As notesuiworkspace
Dim uiview As notesuiview
'++LotusScript Development Environment:2:2:SwapDocuments:1:8
Sub SwapDocuments(SourceDoc As NotesDocument,DestDoc As NotesDocument)
    Dim ssort As Integer
    Dim dsort As Integer
    ssort = Cint(sourcedoc.OrderNum(0))
    dsort = Cint(destdoc.OrderNum(0))
    If ssort=dsort Then dsort=dsort+1
    SourceDoc.OrderNum = dsort
    DestDoc.OrderNum = ssort
    Call SourceDoc.Save(True,False,True)
    Call DestDoc.Save(True,False,True)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
Declare Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIVIEW
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Queryopendocument From Source Call Queryopendocument
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
    Set s=New notessession
    Set db = s.currentdatabase
    Set ws= New notesuiworkspace
    Set view=source.view
    Set uiview = source
End Sub
'++LotusScript Development Environment:2:2:Queryopendocument:1:12
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
    Dim oldrule As notesdocument
    Dim uidoc As notesuidocument
    Dim ruledocs As notesdocumentcollection
    Set ruledocs = source.documents
    Set oldrule = ruledocs.getfirstdocument
    If (ws.dialogbox("Mailrule", True, True,True, False, False, False,"Edit Rule",oldrule, True, True)) Then
        'The user clicked on OK, process their information in the form of a new filter document
        Call oldrule.save(True, False,True)
        'Call oldrule.putinfolder("Rules")
        ws.viewrefresh
    End If
    continue = False
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_4
$SCRIPTOBJ_5
$SCRIPTOBJ_17
$ViewGlobalScript
$ViewScript
$ViewScript_O
Started running agent 'Mail Tools \ Send Memo to Database Manager' on 05/20/98 09:57:01 AM
1 document(s) were modified by formula
Done running agent 'Mail Tools \ Send Memo to Database Manager' on 05/20/98 09:57:01 AM
MailStEd
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
u)N_t
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
GIF89aZ
 N8A@LLJAC/NS
C@CFN_a
aYXORZ
IL?>:;==:6QQO
**#%%
,l,Yrj
^Y} @
!  D@
b0@@&
VxhNFI
_iN'&
x    `-UK
"cJ/b[5
)jXCs2P
#@J#H
#0S$#T
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aY
[yyXrre~~
?DDNSS#%%022
EccI
K*l:T*
GUg7H
t`@nQ
$@JB=
@@p,0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aY
[yyXrre~~
?DDNSS#%%022
EccI
K*l:T*
GUg7H
t`@nQ
$@JB=
@@p,0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
Memo Stationery
Personal Stationery
    6S8S
IsMailStationeryh
    7S9S
SendTo
    1S2S6S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
IsMailStationeryh
MailStationeryName
Subject
    7S9S
$65$59$66$55$62$60$Conflict
ISMAILSTATIONERY
    L1S2S3S
Memo Stationery
Personal Stationery
    6S8S
IsMailStationeryh
    7S9S
$66Whol
SendTo
    1S2S6S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$55Date
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Stationeryb
IsMailStationeryh
MailStationeryName
Subject
    7S9S
New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
act_NEWMAIL.GIF|act_NEWMAIL?
New Memo\New Memo
    0S0E
act_NEWMAIL.GIF|act_NEWMAIL?
New Memo\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_NEWMAIL.GIF|act_NEWMAIL?
_Forward
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
New Stationery\Memo StationeryL
MailStEd
    1S2S3S
    0R4S
act_NEWSTATIONERY.GIF|act_NEWSTATIONERY?
New Stationery\Personal Stationery\
MailStEd
    1S2S3S
Personal Stationery
    0R4S
act_NEWSTATIONERY.GIF|act_NEWSTATIONERY?
00000000
Lotus Notes Stationery
Please select one document before executing this command.
    11S12S14S16S
MailStEd
    0R1S2S3S
act_EDIT.GIF|act_EDIT?
Rename Stationery
xxERROR
No document selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxTitle
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
act_RENAME.GIF|act_RENAME?
Delete
00000000
Lotus Notes Stationery
Please select one document before executing this command.
    11S12S14S16S
act_DELETE.GIF|act_DELETE?
Categori_zeK
_Move To Folder...
_Remove From Folder...
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
New Memo\New Memo
    0S0E
New Memo\New Memo - Using Stationery'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
_Forward
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
New Stationery\Memo StationeryL
MailStEd
    1S2S3S
    0R4S
New Stationery\Personal Stationery\
MailStEd
    1S2S3S
Personal Stationery
    0R4S
00000000
Lotus Notes Stationery
Please select one document before executing this command.
    11S12S14S16S
MailStEd
    0R1S2S3S
Rename Stationery
xxERROR
No document selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxTitle
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
Delete
00000000
Lotus Notes Stationery
Please select one document before executing this command.
    11S12S14S16S
Categori_zeK
_Move To Folder...
_Remove From Folder...
Tools\Preferences...2
(Preferences)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
    5XIq
KZ?hg3    \1_
$FormatNote
$WebFlags
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$V5ACTIONS
$ACTIONS
$ViewGlobalScript
GIF89a[
(B (O
Shi@t
?<D'@
M>    ^S
K>p,M
Ay5RBp
;8A    4
@AYIc
+68AM,,
4<MKR
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aZ
    )c>9
%K*\*Xiy
fx Aa
=9Ae%"
=jpA%
1x_Q+
$a="a
*G?6r@al
rBx2c
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
;9MSf
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a[
C}y8daM
:l-"8
t`zM`
wJ,L+
6P|*j
?~3q
\U`lC<V
_8!05
=@NRZ
Dm-s    a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$;OeA
Q?I+ V
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89a[
88$TT:ooR
4ITCU(
(8`GS
2&YN"F
5I8}\A
    lPIH
[TU=3
dtFN(
e#$!U
T    $Ox
P+P6C
T*aD\
yG!5d
DShSE
42!48
"T$E(
LL#8E
4E2e8
{!bP6
b,A8n
:.s3F
R(Q5}P^
ihUdk@N
kf.eBN
=*GO_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
xxNewToDo
New To Do Item
    1S2S
xxOldToTo
To Do Item-
Subject
    0R1S2S3S4S
xxNewToDo
xxOldToDo
TaskType
principal
chair
NoticeType
Broadcast
(Help)
MAIL_F_TASK_REC
(Help)
MAIL_F_TASK_REC_BRD
(Help)
MAIL_F_TASK_REC_MOD
(Help)
MAIL_F_TASK
(Help)
MAIL_F_TASK
    3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSUIDocClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uitaskdoc As UIEventDocument
Lotus Product
[D!Kp -
"Kp -$
K("St
 Task'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Postopen From Source Call Postopen
    On Event Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Postsave From Source Call Postsave
    On Event Postrecalc From Source Call Postrecalc
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If (source.inpreviewpane) Then Exit Sub
    Set uitaskdoc = CSUIDocOpen(2, source, mode, isnewdoc, continue)
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    If (source.InPreviewPane) Then Exit Sub
    Call uitaskdoc.PostOpen()
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then Exit Sub
    Call uitaskdoc.QuerySave( Continue)
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then Exit Sub
    If (uitaskdoc.WasSaved) Then Call uitaskdoc.QueryClose(continue)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    If (source.InPreviewPane) Then Exit Sub
    Call uitaskdoc.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Dim note As notesdocument
    If (source.InPreviewPane) Then Exit Sub
    Set note = source.document
    Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
    Call uitaskdoc.PostRecalc()
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then conitnue = False
End Sub
Lotus Product
OBJECT
X    X    l
Notes
(wCSItems)
    3S4S
    Always Hidden:
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
$ExpandGroups
tmpOwner
Chair
    8S11S12S21S22S
tmpOwner
Chair
    8S11S12S21S22S
tmpOwnerHW
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28S
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28StmpNoActionBar
    Subject
Subject
size=40
    Starts:
Notes
Startdate
StartDateTime
StartDate
    9S10S12S14SStartDate
    Priority:
Importance
High|1Medium|2Low|3None|99
    Due:
Notes
DueDate
DueDateTime
DueDate
    9S10S11S12S14S
xxFailed
Due date cannot occur prior to Start date.
    1S2S
StartDate
DueDate
DueDate
StartDate
xxFailed{
    0R3S4S5S6S7S8S10S12S13S14S16S21S
DueDate
    Status:
Status
Not Started|0In Progress|1On hold|2Completed|3
    Type:
UserType
Notes
CSDocType
    1S2S5S6S8S
Notes
CSDocType
    0R3S4S6S13S
UserType
UserType
TaskType
Personal To Do|1Group To Do|2
Repeats
OrgRepeat
Repeats
    7S14S16S19SRepeats
Repeats|1
Repeats
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.UIObject.RepeatDialog()
End Sub
Lotus Product
0,<H}
1,lH#
0,<H}H$#
1,lH#
0,<H}d$#
1,lH#
0}H$}
0}d$}
2-@I##
2-dI##
4Kt4,
;Nd4U$J
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Settings...
Repeats
    0S0E
New Button
Need a newer version of Notes to execute this button.
    0S0E
displayDialog("(RepeatForm)", "","", "Repeat Options",500,500)
    Repeats
Basics
TaskType
tmpWasMailed
    1S2S3S4S5S6S
tmpWasMailedY
    0S0E
TaskType
tmpWasMailed
    1S2S3S4S5S6S
    Assignments already sent
TaskType
tmpWasMailed
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.UIObject.RemoveParticipants()
End Sub
Lotus Product
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Remove...
TaskType
tmpWasMailed
    1S2S3S4S5S6S
AssignedTo^
    0S0E
tmpRequired
OptionalAssignedTo^
    0S0E
tmpOptional
    bcc:
FYIAssignedTo
    0S0E
tmpFYI
TaskType
    1S2S
    Enter new assignments below
TaskType
    1S2S
    Assign to:
TaskType
    1S2S
SendToz
size=80
DialogButton Address.GIF|Address
SendList
    0S0E
CopyTo
DialogButton Address.GIF|Address
CopyList
    0S0E
    bcc:
BlindCopyTo
DialogButton Address.GIF|Address
BCCList
    0S0E
Participants
OrgConfidential
Mark Private|1
    Others cannot see any details about this event.
AlarmsY
$Alarmh
Alarms
    7S14S16S19SAlarms
Notify me|1
    Have Notes notify you before the event.
Alarms
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.UIObject.AlarmDialog()
End Sub
Lotus Product
#V0.0
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Alarm settings...
    Categorize:
Categories
xxNotesCats
Holiday|H
Vacation|V
Projects|P
Clients|C
Phone Calls|PC
Travel|T
    1S2S
xxNotesCats
CalendarProfile
UserCategories
Details
    Detailed description
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Save and Closed
    4S11S16S19SH
tmpOwnerHW
TaskType
    1S2S3S4S5S6S
act_ok.GIF|act_CSOK?
Save and Send Assignments
tmpAction
    1S2S3S
    0R7S12SJ
TaskType
tmpOwnerHW
    1S2S3S4S2E5S6S
act_SEND.GIF|act_SEND?
Save as Draft
tmpAction
    1S2S3S
    0R7S12SJ
TaskType
tmpOwnerHW
    1S2S3S4S2E5S6S
act_save.GIF|act_CSSAVE?
Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1)
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\ConfirmK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.uiobject
    If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 0) Then
        Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
    End If
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\View Participant StatusK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.uiobject.ViewParticipantStatus()
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\Send Memo to Participants
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.uiobject.creatememo(True)
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Completed
tmpAction
4194306
    1S2S3S
    0R7S
NoticeType
TaskType
    1S2S3S4S5S6S
act_completed.GIF|act_CSCOMPLETED?
Delivery Options...KP
(C&S DeliveryOptions)
tmpOwner
Chair
TaskType
    1S2S3S4S5S6S
Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(False)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Completed
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(True)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Decline
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\CompletedK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Add to To Do List
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
    End If
End Sub
tmpOwnerHW
tasktype
    1S2S3S4S5S6S
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Save and Closed
    4S11S16S19SH
tmpOwnerHW
TaskType
    1S2S3S4S5S6S
Save and Send Assignments
tmpAction
    1S2S3S
    0R7S12SJ
TaskType
tmpOwnerHW
    1S2S3S4S2E5S6S
Save as Draft
tmpAction
    1S2S3S
    0R7S12SJ
TaskType
tmpOwnerHW
    1S2S3S4S2E5S6S
Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1)
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\ConfirmK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.uiobject
    If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 0) Then
        Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
    End If
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\View Participant StatusK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.uiobject.ViewParticipantStatus()
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Actions\Send Memo to Participants
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.uiobject.creatememo(True)
End Sub
tmpWasMailedY
tmpowner
chair
    4S5S6S7S
Completed
tmpAction
4194306
    1S2S3S
    0R7S
NoticeType
TaskType
    1S2S3S4S5S6S
Delivery Options...KP
(C&S DeliveryOptions)
tmpOwner
Chair
TaskType
    1S2S3S4S5S6S
Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(False)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Completed
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(True)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Decline
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\CompletedK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Add to To Do List
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
    End If
End Sub
tmpOwnerHW
tasktype
    1S2S3S4S5S6S
Lotus Product
Lotus Product
#V0.0
Lotus Product
OBJECT
Lotus Product
Lotus Product
#V0.0
Lotus Product
[D!Kp -
"Kp -$
K("St
Lotus Product
Lotus Product
#V0.0
Lotus Product
[D!Kp -
"Kp -$
K("St
Lotus Product
Lotus Product
#V0.0
Lotus Product
[D!Kp -
"Kp -$
K("St
Lotus Product
Lotus Product
#V0.0
Lotus Product
[D!Kp -
"Kp -$
K("St
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ASSIGNSTATE
STARTDATETIME
DueDateTime
$HTMLDocumentStyles
$HTMLCode
$Info
$WINDOWTITLE
$AppHelpFormula
$WebFlags
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
StartDate
DueDate
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$SCRIPTOBJ_23
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$SCRIPTOBJ_27
$PublicAccess
By Due Date
($ToDo)|Tasks?
By Category
To do's\By Category|TodoByCategory
TodoByCategory
By Status
To do's\By Status|TodoByStatus
TodoByStatus
Trash
($Trash)
Trash
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$PublicAccess
$SiteMapList
out_TODO|out_TODO
Lotus Product
To Do Picker
To Do Outline
TodoOutlineNotesView
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ryJr{lF[L
$Background
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
"Small Fonts
Lotus Product
To Do Switcher
GIF89a
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
0V.Z0c
$XD^T
-I%L7b
MailFramesetTARGET="_top"
MailFS|MailFS
CalendarFramesetTARGET="_top"
CalendarFS|CalendarFS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
Lotus Product
V0.0e
To Do Title
To do
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
To Do Title?
NotesNavigatorNotesView?
To Do Picker
Switcher
To Do Switcher
NotesViewNotesPreview?
($ToDo)|Tasks?
NotesPreview
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Comment
$PublicAccess
$FrameSet
$Flags
GIF89a
SMNf`a\Z[ywx
?tz<kqX
@fj<]aB
>pu:NP9GH;AA:=<9;:BDB>@>9:9=><;<:>?<=>;;<9AB?BC?>>;@@=IIGFFD@@>==<<<;;;:998887?>9B@;>=;<;9CB@BA??<9DB@@><<;:;:9EDCA;7B?=A<9;98:87754ECBHFE>97E@>=:9@:9GCC966?<<LIIRPP
qC`p@
&`A#X
Jl\%0eh
&hA40
ps34Ev
k5~*@
V @Id
P    op$
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aY
[yyXrre~~
?DDNSS#%%022
EccI
K*l:T*
GUg7H
t`@nQ
$@JB=
@@p,0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
GIF89aZ
c7\w&A+Fl
HB\qE
q8P    %0:L%
ld!    BxB
&6|dgA
q;xh(
4%b"0h"
:pUY%"*
:xeZ5
ZZ&Xwcc7
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
GIF89aX
tttDDD
U_/\@
@j`$L
Iu}xz
)1$Yo
JZPQ8\n&Vj
Q[7vX
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
=9\]C=
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
$TITLE
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
%INCLUDE "lsxbeerr.lss"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Terminate
Declare Function CanProcessNote(note As NotesDocument) As Integer
Declare Sub InitTodoObject(vTodo As Variant, note As notesdocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New NotesSession
    Dim db As notesdatabase
    Dim viewTodo As NotesView
    Dim note As NotesDocument
    Dim dtToday As NotesDateTime
    Dim viewEntries As NotesViewEntryCollection
    Dim viewEntry As NotesViewEntry
    Dim vTodo As Variant
    ' Initialize variables
    Set db = session.currentdatabase
    Set viewTodo = db.GetView("Tasks")
    If (viewTodo Is Nothing) Then Exit Sub
    ' Enumerate the todo entries
    Set viewEntries = viewTodo.AllEntries()
    Set viewEntry = viewEntries.GetFirstEntry()
    While Not(viewEntry Is Nothing)
        If (viewEntry.IsDocument()) Then
            Set note = viewEntry.Document
            If (CanProcessNote(note)) Then
                If (NOTEUserIsCreator(note)) Then
                    Set vTodo = New NotesCSEventOwnerDocument(2)
                Else
                    Set vTodo = New NotesCSEventParticipantDocument(2)
                End If
                ' See if this is a repeating entry
                If (note.HasItem("OrgRepeat")) Then Call InitTodoObject(vTodo, note)
                Call vTodo.Init(note)
                Call vTodo.SetDueState()
                Call vTodo.SetCalendarDateTime()
                Call vTodo.SetViewIcon()
                Call note.replaceitemvalue("tmpMod", "1")
                Call vTodo.MarkTempItems()
                If (note.HasItem("OrgRepeat")) Then
                    vTodo.RepeatModify = REPEAT_CURRENT
                    Call vTodo.CreateRepeatExceptions(REPEAT_CURRENT)
                End If
                Call note.save(True, True, True)
            End If
        End If
        Set viewEntry = viewEntries.GetNextEntry(viewEntry)
    Wend
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
'++LotusScript Development Environment:2:1:CanProcessNote:1:8
Function CanProcessNote(note As NotesDocument) As Integer
    CanProcessNote = False
    ' make sure this is a to do item
    If (Strcomp(note.GetItemValue("Form")(0), "Task") <> 0) Then Exit Function
    ' make sure this is not completed
    If (note.hasitem("AssignState")) Then
        If (note.GetItemValue("AssignState")(0) > 8) Then Exit Function
    End If
    ' make sure we are not processing a repeat parent
    If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then Exit Function
    CanProcessNote = True
End Function
'++LotusScript Development Environment:2:2:InitTodoObject:1:8
Sub InitTodoObject(vTodo As Variant, note As notesdocument)
    Dim itemDates As notesitem
    Dim dtInstance As NotesDateTime
    ' seed the calendar instance with the first date in the list
    Set itemDates = note.GetFirstItem(vTodo.StartItemName)
    Call TIMEGetNotesFromLS(itemDates.Values(0), dtInstance)
    Set vTodo.CalendarInstance = dtInstance
End Sub
Lotus Product
V0.0U
X 8#D:
x x x:
 x+ ;
x!X*@<
!X"<=
"8%x=
$8$@A
$X%`B
&8) E
8'X'PG
)8*$L
x*8+xM
*X,XN
X,81,Q
-X0XT
.X1 V
.8/TV
0x0`X
0824Z
?<?<?P@P@
4+\3$
5-@>#
7,d>#
^d6Kt8-
)4;^d6#8
8^d6#8
8^d6#
?^d6'
8T$?'
8T0?'
Kd6,<?}
8Tp?'
8Q|?~
?Jt8#
;-,@#
<,P@N
=Kl=-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
`kro^
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageData
$ImageNames
GIF89a
@wY8Dpo
&Q    QP
hxw    B
c M(Be
BIB2+
#REE1
NdB"Qq
# lb`    b
6  "G
zXuZV=
dOvc4
6qu)W
}^!o0
pIIds]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$TITLE
$ImageData
$ImageNames
Discard Changesn
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Close.
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send and FileE
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SEND.GIF|act_SEND?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save As DraftS
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Reply\Reply to Sender?'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToSender()
End Sub
act_REPLY.GIF|act_REPLY?
Reply\Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
act_REPLY.GIF|act_REPLY?
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_REPLY.GIF|act_REPLY?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Save as Stationery...s
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Send Tracking Requestn:
(SendTrackingRequest)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
act_TOOLS.GIF|act_TOOLS?
Delivery Options...O
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyI0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Schedule a Meeting
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=3"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Appointmenta
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=0"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Anniversary
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=1"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Reminder
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=4"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\EventO
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=2"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Confirmo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Complete'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Send Memo to Participants
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Decline
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Do
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Folder\Create Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Save As Stationeryr
ActionInProgress
&h00000100&
IsMailStationery
    1S2S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
act_INSERTSIG.GIF|act_INSERTSIG?
Address...z
Appointment
AppointmentType
TaskType
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=550');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=530');
Reply\Reply
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Submit>
    0S0E
    0S0E
Forwardo
act_FORWARD.GIF|act_FORWARD?
alert('Feature not implemented yet.')
Delivery Options...+
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'DeliveryOptions?OpenForm','Address','scrollbars,screenX=150,screenY=200,width=500,height=180');
New Memo(
    0S0E
act_NEW.GIF|act_NEW?
Folder\Move to Folder...*
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove from Foldero
    0S0E
act_FOLDER.GIF|act_FOLDER?
Delete\DeleteT
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Send\Send
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Send and Save`
tmpSendOptions
act_SEND.GIF|act_SEND?
Send\Save as Draft`
tmpSendOptions
act_SEND.GIF|act_SEND?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=550,height=180');
Tools\PreferencesB0
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLS?
Edit
    0S0E
act_EDIT.GIF|act_EDIT?
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply to All with Historym
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Copy Into\New Task
act_COPYINTO.GIF|act_COPYINTO?
var pathname = window.location.pathname
filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4))
window.open(filename + 'Task?openForm','secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=700,width=700')
Copy Into\New Calendar Entry
act_COPYINTO.GIF|act_COPYINTO?
alert('Feature in Progress')
Tools\Import Holidays...4
(ImportHolidays)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Scheduler\Check all Schedules...P
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=no,screenX=100,screenY=100,width=840,height=640');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=no,top=120,left=100,width=700,height=620');
Scheduler\Find Room(s)...
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=290');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,top=120,left=100,width=600,height=280');
Scheduler\Find Resource(s)...
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=240');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,top=120,left=100,width=600,height=220');
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
    0S0E
Tools\Search
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Help
act_TOOLS.GIF|act_TOOLS?
alert('Feature not implemented yet.')
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
New\Personal To Do
Notes
CSDocType
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Task?OpenForm&Type=1
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Group To Do
Notes
CSDocType
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Task?OpenForm&Type=2
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Calendar
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
To do
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
Phone Message
Phone Message
    0S0E
Discard Changes
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
Delete
    0S0E
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Rename Stationery1^
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Reply\Reply to Sender
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToSender()
End Sub
Reply\Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
Reply to All'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.ReplyToAll()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Tools\Preferences...R
DialogMode
(Preferences)
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
Tools\Save as Stationery...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Tools\Send Tracking Requestc:
(SendTrackingRequest)
    0S0E
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
Delivery Options...s
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
New Memo(
    0S0E
Reply\Reply 0
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with Historyc
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
Schedule a Meeting
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=3"
    0R3S4S5S6S
New\Appointment
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=0"
    0R3S4S5S6S
New\Anniversary
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=1"
    0R3S4S5S6S
New\Reminder
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=4"
    0R3S4S5S6S
New\Event
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=2"
    0R3S4S5S6S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
Owner Actions\Confirme'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
Owner Actions\Complete'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
Owner Actions\View Participant Status)'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
Owner Actions\Send Memo to Participantsg'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
Participant Actions\Declinee'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To Do '++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Folder\Create Folder
    0S0E
Folder\Move To Folder...
    0S0E
Folder\Remove From Folder
    0S0E
Save As Stationeryr
ActionInProgress
&h00000100&
IsMailStationery
    1S2S
Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
Reply\Replyv*
wReply
    0S0E
Reply\Reply with HistoryV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&
&Format
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Submit>
    0S0E
    0S0E
New Memo(
    0S0E
Folder\Move to Folder...*
    0S0E
Folder\Remove from Folders
    0S0E
Delete\Delete:
    0S0E
Delete\Empty Trash
    0S0E
Send\Sendn`
tmpSendOptions
Send\Send and Save`
tmpSendOptions
Send\Save as Draft`
tmpSendOptions
Tools\Preferences
wPreferences
    0S0E
Edit
    0S0E
Reply\Reply to All
    0R1S10S14S16S23S
path"
/wReply?OpenForm&
&All"
    0R3S4S5S6S7S8S15S17S18S
Reply\Reply to All with History
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format&All
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S32S33S34S35S36S37S44S46S47S
Tools\Import Holidays...4
(ImportHolidays)
    0S0E
Inboxe
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
    0S0E
Tools\Search
    0S0E
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
New\Personal To Do
Notes
CSDocType
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Task?OpenForm&Type=1
    0R3S4S5S6S
New\Group To Dop
Notes
CSDocType
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Task?OpenForm&Type=2
    0R3S4S5S6S
Calendar
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
To do
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
Phone Messagey2
Phone Message
    0S0E
Lotus Product
OBJECT
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
l#}TW
l#}TW
^$U+(SJ
^4U+(SJ
l#K4U-
Lotus ProductLP
S+(SI
l#}TW
l#}TW
^$U+(SJ
^4U+(SJ
l#K4U-
Lotus ProductLP
S+(SI
l#}TW
l#}TW
^$U+(SJ
^4U+(SJ
l#K4U-
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_20
$SCRIPTOBJ_34
$SCRIPTOBJ_35
$SCRIPTOBJ_36
$SCRIPTOBJ_38
$SCRIPTOBJ_39
$SCRIPTOBJ_41
$SCRIPTOBJ_42
$SCRIPTOBJ_43
$SCRIPTOBJ_44
$SCRIPTOBJ_45
$SCRIPTOBJ_46
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"tW|
};%|A
$Info
$Body
Lotus Product
OBJECT
(ChangeRepeat)
    You are modifying a recurring entry.
    How would you like these changes to be applied to the related entries?
tmpChangeWhich
Just this instance|0All instances|1This instance and all previous instances|2This instance and all future instances|3
New Button
Need a newer version of Notes to execute this button.
    0S0E
thisform = document.forms[0]
parentform = window.opener.document.forms[0]
radioitem = thisform.tmpChangeWhich
for (i=0; i < radioitem.length; i++)
    if (radioitem[i].checked)
        parentform.tmpChangeWhich.value = radioitem[i].value;
        break
self.close()
parentform.submit()
New Button
Need a newer version of Notes to execute this button.
    0S0E
self.close()
    Cancel
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
 Moods
SenderTag
SenderTag
    1S2S3S4S5S6S
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
%12-/H
!G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
WC9iB.xC-iF8wH8jT>zR<rd?
2L3;FK=Dj=C:FQ8Qp<b
GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
SenderTag
    0S0E
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
SenderTag
    0S0E
SenderTag
SenderTag
SenderTag
    4S5S8S9S10S11S
@___@
<a>7`^
`!bb!R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
na2au
$TITLE
$Info
$$Script_O
$$ScriptName
$Body
New Subscription
$HLTitle
    2S4S6S
"Small Fonts
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
$Subscription
$HLMLastServer
.,$ //:
$HLMLastChecked
.,$,  , :
$NoPurge
.,$,  , :
$HLType
Mail Subscription
xxDisabled
Disabled
    1S2S
$HlDisabled
xxDisabled"
    0R2S3S4S6S7S8S10SDispDisabled
MainTable
MainTable
    Name
    Subscription name:
Enter a subscription name
$HLTitle
    Retrieval
$HLType
    1S2S
    Get:
$QueryType
All incoming mail | allIncoming mail that matches any checked item: | sel
QueryType
QueryType
CritSentOnlyToMe
Sent only to me|1
CritSentDirectlyToMe
Sent directly to me (I am explicitly listed in the "To:" field)|1
CritHighPriority
High priority or importance |1
CritReturnReceipt
A return reciept is requested|1
CritToDo
To Dos assigned to me|1
CritToDoComplete
Completed To Dos|1
CritMeetInvite
Meeting invitations|1
CritMeetResponse
Meeting responses|1
CritFrom
From:|1
CritFrom
    1S2S
CritFromNames
      Enter the fully qualified name. (ex. "John Doe/Acme/Sales/US").  Separate multiple names with a comma.
    Enablement
$HLEnabled is the old enabled flag with a value of either 1 or 0.  For UI simplicity, it was changed to $HLDisabled with a possible value of either 1 or null
$HLEnabled
    0RR2S3S4S6S8S$HLDisabled
Temporarily disable this subscription | 1
Basics
basics
basics
    Last checked
    Time:
.,$ //:
$HLMLastChecked
$HLMLastChecked
    2S3S4S6S8S
Disp$HLMLastChecked
    Server:
$HLMLastChecked
$HLMLastServer
Local
$HLMLastServer
    2S3S4S6S8S9S10S12S14S18S
Disp$HLMLastServer
$HLMError
    1S2S
    Status:
$HLMError
Disp$HLMError
    Additional information
    Replica Id:
$HLMonitorDBh
$HLMonitorDB
Unavailable
$HLMonitorDB_Display
    Formula used:
$QueryType
Select @IsAvailable( DeliveredDate)
Continue
    2S3S4S6S8S9S11S
tCrit1
CritHighPriority
( DeliveryPriority = "H" | Importance = "1")
    0RR1S2S4S5S6S8S10S
tCrit2
CritReturnReceipt
( ReturnReciept = "1")
    0R1S2S4S5S6S8S10S
tCrit3
CritToDo
(Form = "Task" & AssignedState = "2")
    0R1S2S4S5S6S8S10S
tCrit4
CritToDo
(Form = "Task" & AssignedState = "9")
    0R1S2S4S5S6S8S10S
tCrit5
CritMeetInvite
(Form = "Notice" &  NoticeType = "I")
    0R1S2S4S5S6S8S10S
tCrit6
CritMeetInvite
(Form = "Notice" & NoticeType = "N")
    0R1S2S4S5S6S8S10S
tCrit7
CritFrom
(@LowerCase( From : AltFrom) = "
CritFromNames
" : "
    0R1S2S4S5S6S8S9S10R14S16S19S20S22S
tCrit8
CritSentOnlyToMe
(@LowerCase( SendTo) = "
" & @Elements(SendTo) = 1 & CopyTo = "")"
    0R1S2S4S5S6S8S9S10S12S14S15S17S
tCrit9
CritSentDirectlyToMe
(@LowerCase( SendTo) = "
    0R1S2S4S5S6S8S9S10S12S14S15S17S
tAllCrit
tCrit1
tCrit2
tCrit3
tCrit4
tCrit5
tCrit6
tCrit7
tCrit8
tCrit9
    0RR1S2S4S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S25S
Select @IsAvailable( DeliveredDate)
tAllCrit
tAllCrit"
    0RR1S2S4S5S6S8S10S11S12S13S14S
$HLFormula
    Marker:
Subscriptions
$HLSubscription
    Monitor Type:
$HLMonitorType
Advanced
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
    2S7S12S
CancelF
SaveOptions
    1S2S3S
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
    2S7S12S
CancelF
SaveOptions
    1S2S3S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Untitled2
SizeValue
$Info
$WINDOWTITLE
$Script
$$ScriptName
$HLMLastChecked
$Body
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Common"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class NameHelperLauncher As BaseApplication
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const NOTES% = 1
Const CCMAIL% = 2
Const INTERNET% = 5
Const X400% = 4
Const QUOTE = """"
Class NameHelperLauncher As BaseApplication
    Private m_uiws As notesuiworkspace
    Private m_PersonalNAB As notesdatabase
    Private m_viewPeople As notesview
    Private m_collection As notesdocumentcollection
    Private m_noteOptions As notesdocument
    Private m_noteCandidate As notesdocument
    Private m_noteKeyFound As notesdocument
    Private m_noteNewPersonRecord As notesdocument
    Private m_AddressStringTable As MailToolsStringTable
    Private m_vMailDomain As Variant
    Private m_vTrimmedList As Variant
    Private m_vTrimmedDomains As Variant
    Private m_vNoteID As Variant
    Private m_vResult As Variant
    Private m_vretAllTitle As Variant
    Private m_vretAllFirst As Variant
    Private m_vretAllMiddle As Variant
    Private m_vretAllLast As Variant
    Private m_vretAllFullName As Variant
    Private m_vretAllSuffix As Variant
    Private m_vretAllEmail As Variant
    Private m_vretAllDomain As Variant
    Private m_vretAllEmailType As Variant
    Private m_vretAllConflictInNAB As Variant
    Private m_vretAllConflictAction As Variant
    Private m_strNoteID() As String
    Private m_strFromArray() As String
    Private m_strDomainArray() As String
    Private m_CurrentUser As String
    Private m_strTitle() As String
    Private m_strFirst()  As String
    Private m_strMiddle() As String
    Private m_strLast() As String
    Private m_strFullName() As String
    Private m_strSuffix() As String
    Private m_strEmail() As String
    Private m_strDomain() As String
    Private m_strEmailType() As String
    Private m_strPublicAddressUNID() As String
    Private m_strConflictInNAB() As String
    Private m_strConflictAction() As String
    Private m_nSuccess As Integer
    Private m_nEntryNumber As Integer
    Private m_nUserWasInList As Integer
    Private m_nValidItemAdded As Integer
    Private m_nSkipped As Integer
    Private m_nIncludeX509 As Integer
    Private x As Integer
'/Init//
    Sub Init()
        Set Me.m_collection = NameHelperLauncher..DocumentsToProcess
        If Not Me.m_collection.count > 0 Then
            Exit Sub
        End If
        Set Me.m_PersonalNAB = NameHelperLauncher..LocalAddressBook
        Set Me.m_viewPeople = Me.m_PersonalNAB.GetView("($People)")
        Set Me.m_AddressStringTable = New MailToolsStringTable
        Me.m_CurrentUser = Me.m_session.UserName
        Me.m_vMailDomain = Evaluate(|@Domain|)
        Set Me.m_uiws = New notesuiworkspace
        Set Me.m_noteOptions = Me.m_db.CreateDocument
    End Sub
    Function ProcessCandidates()
        Set Me.m_noteCandidate = Me.m_collection.getfirstdocument
        While Not Me.m_noteCandidate Is Nothing
            If Me.m_noteCandidate.hasitem("From") Then
                If Not NAMECompare(Cstr(Me.m_noteCandidate.GetItemValue("From")(0)), Me.m_CurrentUser) Then
                    Redim Preserve Me.m_strFromArray(Me.m_nEntryNumber)
                    Redim Preserve Me.m_strNoteID(Me.m_nEntryNumber)
                    Redim Preserve Me.m_strDomainArray(Me.m_nEntryNumber)
                    Me.m_strFromArray(Me.m_nEntryNumber) = Me.m_noteCandidate.GetItemValue("From")(0)
                    Me.m_strNoteID(Me.m_nEntryNumber) = Me.m_noteCandidate.NoteID
                    If Lcase(Me.m_vMailDomain(0)) <> Lcase(GetFromDomain(Me.m_noteCandidate)) Then
                        Me.m_strDomainArray(Me.m_nEntryNumber) = GetFromDomain(Me.m_noteCandidate)
                    End If
                    Me.m_nValidItemAdded = True
                    Me.m_nEntryNumber = Me.m_nEntryNumber + 1
                Else
                    Me.m_nUserWasInList = True
                End If
            End If
            Set Me.m_noteCandidate = Me.m_collection.getnextDocument(Me.m_noteCandidate)
        Wend
        If Me.m_nUserWasInList And Not Me.m_nValidItemAdded Then
            Call DisplayWarn(Me.m_AddressStringTable.GetString(TOOL_STRING+63,Null),_
            MB_OK, Me.m_AddressStringTable.GetString(TOOL_STRING+62,Null))
            Exit Function
        End If
        Me.m_vTrimmedList = RemoveDuplicates(Me.m_strFromArray)
'//process parallel noteitems
        Call ParseNamesToItems()
'//place noteitems on dialog note
        With Me.m_noteOptions
            Call .replaceitemvalue("AllAddresses",Me.m_vTrimmedList)
            Call .replaceitemvalue("AllNoteIDs",Me.m_vNoteID)
            Call .replaceitemvalue("AllTitle",Me.m_strTitle)
            Call .replaceitemvalue("AllFirst",Me.m_strFirst)
            Call .replaceitemvalue("AllMiddle",Me.m_strMiddle)
            Call .replaceitemvalue("AllLast",Me.m_strLast)
            Call .replaceitemvalue("AllFullName",Me.m_strFullName)
            Call .replaceitemvalue("AllSuffix",Me.m_strSuffix)
            Call .replaceitemvalue("AllEmail",Me.m_strEmail)
            Call .replaceitemvalue("AllDomain",Me.m_strDomain)
            Call .replaceitemvalue("AllPublicAddressUNID",Me.m_strPublicAddressUNID)
            Call .replaceitemvalue("AllEmailType",Me.m_strEmailType)
            Call .replaceitemvalue("AllConflictInNAB",Me.m_strConflictInNAB)
            Call .replaceitemvalue("AllConflictAction",Me.m_strConflictAction)
            If Me.m_nSkipped Then
                Call .replaceitemvalue("Skipped",Me.m_AddressStringTable.GetString(_
                TOOL_STRING+64,Cstr(Me.m_nSkipped)))
            End If
        End With
        'remember to test for valid number of elements
        If Ubound(Me.m_vTrimmedList) = 0 And Me.m_vTrimmedList(0) = "" Then
            Call DisplayWarn(Me.m_AddressStringTable.GetString(TOOL_STRING+63,Null),_
            MB_OK, Me.m_AddressStringTable.GetString(TOOL_STRING+62,Null))
        Else
            Me.m_nSuccess = Me.m_uiws.dialogbox("(NameHelper)",True,True,False,False,False,False,_
            Me.m_AddressStringTable.GetString(TOOL_STRING+62,Null)_
            ,Me.m_noteOptions,True,False)
            If Me.m_nSuccess Then
                Call WriteStackToNAB()
            End If
        End If
    End Function
    Private Function GetFromDomain(note As notesdocument) As String
        Dim strFromDomaintmp As String
        Dim nPos As Integer
        strFromDomaintmp = note.GetItemValue("FromDomain")(0)
        If Len(strFromDomaintmp) Then
            nPos = Instr(strFromDomaintmp,"@")
            If nPos Then
                strFromDomaintmp = Left(strFromDomaintmp, (npos -1))
            End If
        End If
        GetFromDomain = strFromDomaintmp
    End Function
    Function RemoveDuplicates(strArray() As String) As Variant
        Dim x As Integer
        Dim y As Integer
        Dim tmpstrArray() As String
        Dim tmpstrDomainArray() As String
        Dim tmpstrNoteID() As String
        Redim tmpstrArray(0)
        For x = 0 To Ubound(strArray)
            If Isnull(Arraygetindex(tmpstrArray,strArray(x),1)) Then
                Redim Preserve tmpstrArray(y)
                Redim Preserve tmpstrNoteID(y)
                Redim Preserve tmpstrDomainArray(y)
                tmpstrArray(y) = strArray(x)
                tmpstrNoteID(y) = Me.m_strNoteID(x)
                tmpstrDomainArray(y) = Me.m_strDomainArray(x)
                y = y+1
            End If
        Next
        RemoveDuplicates = tmpstrArray
        Me.m_vTrimmedDomains = tmpstrDomainArray
        Me.m_vNoteID = tmpstrNoteID
    End Function
    Sub ParseNamesToItems()
        Dim nameCurrentName As notesname
        x = Ubound(Me.m_vTrimmedList)
        Redim Me.m_strTitle(x)
        Redim Me.m_strFirst(x)
        Redim Me.m_strMiddle(x)
        Redim Me.m_strLast(x)
        Redim Me.m_strFullName(x)
        Redim Me.m_strSuffix(x)
        Redim Me.m_strEmail(x)
        Redim Me.m_strDomain(x)
        Redim Me.m_strPublicAddressUNID(x)
        Redim Me.m_strEmailType(x)
        Redim Me.m_strConflictInNAB(x)
        Redim Me.m_strConflictAction(x)
        For x = 0 To Ubound(Me.m_vTrimmedList)
            Set nameCurrentName = New notesname(Me.m_vTrimmedList(x))
            Me.m_strEmailType(x) = Cstr(GetMailType(Me.m_vTrimmedList(x)))
            Me.m_strEmail(x) = Me.m_vTrimmedList(x)
            Me.m_strDomain(x) = Me.m_strDomainArray(x)
            Select Case Cint(Me.m_strEmailType(x))
            Case NOTES, CCMAIL
                Me.m_strFirst(x) = GetCommonPart(nameCurrentName.Common, 1)
                Me.m_strMiddle(x) = GetCommonPart(nameCurrentName.Common, 2)
                Me.m_strLast(x) = GetCommonPart(nameCurrentName.Common, 3)
                Me.m_strFullName(x) = nameCurrentName.Canonical
            Case INTERNET
                Me.m_strFullName(x)  = FixFullName(GetInternetFullName(Me.m_vTrimmedList(x)))
                Me.m_strFirst(x) = GetCommonPart(Me.m_strFullName(x), 1)
                Me.m_strMiddle(x) = GetCommonPart(Me.m_strFullName(x), 2)
                Me.m_strLast(x) = GetCommonPart(Me.m_strFullName(x), 3)
            Case X400
'what to do?    MIMIC NOTES FOR NOW
                Me.m_strFirst(x) = GetCommonPart(nameCurrentName.Common, 1)
                Me.m_strMiddle(x) = GetCommonPart(nameCurrentName.Common, 2)
                Me.m_strLast(x) = GetCommonPart(nameCurrentName.Common, 3)
                Me.m_strFullName(x) = nameCurrentName.Canonical
            End Select
            Me.m_strTitle(x) = FindTitleInString(Me.m_vTrimmedList(x))
            Me.m_strSuffix(x) = FindSuffixInString(Me.m_vTrimmedList(x))
            If HasConflict(Ucase(Left(Me.m_strLast(x),1)),nameCurrentName.Canonical)_
            Or HasConflict(Ucase(Left(Me.m_strLast(x),1)),nameCurrentName.Common)_
            Or HasConflict(Ucase(Left(Me.m_strLast(x),1)),Me.m_strFullName(x)) Then
                Me.m_strConflictInNAB(x) = "1"
                Me.m_nSkipped = Me.m_nSkipped + 1
                Me.m_strConflictAction(x) = "1"
            Else
                Me.m_strConflictInNAB(x) = "0"
                Me.m_strConflictAction(x) = "0"
            End If
        Next
    End Sub
    Private Function GetMailType(FromName As String) As Integer
        GetMailType = 0
        If Instr(FromName, " at ") Then
            GetMailType = CCMAIL
            Exit Function
        End If
        If FromName Like "*@*[! ].[! ]*" Then
            GetMailType = INTERNET
            Exit Function
        End If
        If Instr(FromName, "/") Then
            If  (GetAttribute(FromName, "/P") = "")  And (GetAttribute(FromName, "/A") = "") Then
                GetMailType = NOTES
                Exit Function
            Else
                GetMailType = X400
                Exit Function
            End If
        Else
            GetMailType = NOTES
            Exit Function
        End If
    End Function
    Private Function GetAttribute(theString As String, theAttribute As String) As String
        Dim startpos, endpos As Integer
        startpos = Instr(theString, theAttribute+"=")
        If (startpos<>0) Then
            startpos = startpos + Len(theAttribute+"=")
            endpos = Instr(startpos, theString, "/")
            If endpos = 0 Then
                endpos = Len(theString) + 1
            End If
            GetAttribute = Trim(Mid(theString, startpos, endpos - startpos))
        Else
            GetAttribute = ""
        End If
    End Function
    Function GetCommonPart(CommonName As String, PART As Integer) As String
        Dim nNumberOfSpaces As Integer
        Dim nCounter As Integer
        Dim nLength As Integer
        Dim P0,P1,P2,P3 As String
        Dim strWORKINGSTRING As String
        strWORKINGSTRING = Trim(CommonName)
        nLength = Len(strWORKINGSTRING)
        If Instr(strWORKINGSTRING," ") Then
            Do While Instr(strWORKINGSTRING," ")
                nNumberOfSpaces = nNumberOfSpaces + 1
                nCounter = Instr(strWORKINGSTRING," ")
                Select Case nNumberOfSpaces
                Case 1
                    P1 = Left(strWORKINGSTRING, (nCounter - 1))
                    P2 = Right(strWORKINGSTRING, nLength - nCounter)
                Case 2
                    P2 = Left(strWORKINGSTRING, (nCounter - 1))
                    P3 = Right(strWORKINGSTRING, nLength - nCounter)
                Case 3
                    P3 =  strWORKINGSTRING
                End Select
                strWORKINGSTRING = Right(strWORKINGSTRING, nLength - nCounter)
                nLength = Len(strWORKINGSTRING)
            Loop
        Else
            P0 = strWORKINGSTRING
        End If
        Select Case PART
        Case 1
            GetCommonPart = P1
        Case 2
            Select Case nNumberOfSpaces
            Case 1
                GetCommonPart = ""
            Case 2
                GetCommonPart = P2
            End Select
        Case 3
            Select Case nNumberOfSpaces
            Case 0
                GetCommonPart = P0
            Case 1
                GetCommonPart = P2
            Case 2,3,4,5,6,7,8
                GetCommonPart = P3
            End Select
        End Select
    End Function
    Private Function GetInternetFullName(fromString As String) As String
        Dim pos As Integer
        Dim full As String
     ' Look for parenthesis
        pos = Instr(fromString, "(")
        If pos = 0 Then
          ' no parens, just get the username
            pos = Instr(fromString, "@")
            full = Trim(Left(fromString, pos - 1))
            pos = Instr(full, "<")
            If pos>0 Then
                If Trim(Left(full, pos-1)) <> "" Then
                    full = Trim(Left(full, pos-1))
                Else
                    full = Right(full,Len(full)-1)
                End If
                If Left(full,1) = QUOTE And Right(full,1) = QUOTE Then
                    full = Right(full,Len(full)-1)
                    full = Left(full,Len(full)-1)
                End If
            End If
        Else
            full = Mid(fromString, pos + 1)
          ' If the string is quoted, get everything in the quotes
            If Left(full, 1) = """" Then
                full = Mid(full, 2)
                pos = Instr(full, """")
            Else
                pos = Instr(full, ")")
            End If
            full = Left(full, pos - 1)
        End If
        GetInternetFullName = full
    End Function
    Function FindTitleInString(StringName As String) As String
        If Instr(StringName,"Dr.") Then
            FindTitleInString = "Dr."
        Elseif Instr(StringName,"Prof") Then
            FindTitleInString = "Prof"
        Elseif Instr(StringName,"Mr.") Then
            FindTitleInString = "Mr."
        Elseif Instr(StringName,"Ms.") Then
            FindTitleInString = "Ms."
        Elseif Instr(StringName,"Miss.") Then
            FindTitleInString = "Miss."
        Elseif Instr(StringName,"Mrs.") Then
            FindTitleInString = "Mrs."
        Else
            FindTitleInString = "-None-"
        End If
    End Function
    Function FindSuffixInString(StringName As String) As String
        If Instr(StringName,"Jr.") Then
            FindSuffixInString = "Jr."
        Elseif Instr(StringName,"Sr.") Then
            FindSuffixInString = "Sr."
        Elseif  (Instr(StringName,"III ") Or  Instr(StringName," III")) Then
            FindSuffixInString = "III"
        Elseif  (Instr(StringName,"II ") Or  Instr(StringName," II")) Then
            FindSuffixInString = "II"
        Elseif  (Instr(StringName,"I ") Or  Instr(StringName," I")) Then
            FindSuffixInString = "I"
        Else
            FindSuffixInString = "-None-"
        End If
    End Function
    Function HasConflict(Key1 As String,Key2 As String) As Integer
        Dim KeyArray(1) As String
        KeyArray(0) = Key1
        KeyArray(1) = Key2
        HasConflict = False
        Set Me.m_noteKeyFound = Me.m_viewPeople.GetDocumentByKey(KeyArray,True)
        If Not Me.m_noteKeyFound Is Nothing Then
            Me.m_strPublicAddressUNID(x) = Me.m_noteKeyFound.Universalid
            HasConflict = True
        End If
    End Function
    Private Function WriteStackToNAB() As Integer
        On Error Goto TRAP
        'get data back from dialog...
        Me.m_vretAllTitle = Me.m_noteOptions.GetItemValue("AllTitle")
        Me.m_vretAllFirst = Me.m_noteOptions.GetItemValue("AllFirst")
        Me.m_vretAllMiddle = Me.m_noteOptions.GetItemValue("AllMiddle")
        Me.m_vretAllLast = Me.m_noteOptions.GetItemValue("AllLast")
        Me.m_vretAllFullName = Me.m_noteOptions.GetItemValue("AllFullName")
        Me.m_vretAllSuffix = Me.m_noteOptions.GetItemValue("AllSuffix")
        Me.m_vretAllEmail = Me.m_noteOptions.GetItemValue("AllEmail")
        Me.m_vretAllDomain = Me.m_noteOptions.GetItemValue("AllDomain")
        Me.m_vretAllEmailType = Me.m_noteOptions.GetItemValue("AllEmailType")
        Me.m_vretAllConflictInNAB = Me.m_noteOptions.GetItemValue("AllConflictInNAB")
        Me.m_vretAllConflictAction = Me.m_noteOptions.GetItemValue("AllConflictAction")
        Me.m_nIncludeX509 = Cint(Me.m_noteOptions.IncludeX509(0))
        For x = 0 To Ubound(Me.m_vTrimmedList)
            Select Case Me.m_vretAllConflictAction(x)
            Case "1"    'skip
                Goto Skip
            Case "2"    'update
                Set Me.m_noteNewPersonRecord = Me.m_PersonalNAB.getdocumentbyUNID(Me.m_strPublicAddressUNID(x))
            Case Else    'new
                Set Me.m_noteNewPersonRecord = Me.m_PersonalNAB.createdocument()
            End Select
            With Me.m_noteNewPersonRecord
                Call .replaceitemvalue("Form","Person")
                Call .replaceitemvalue("Type","Person")
                Call .replaceitemvalue("Title",Me.m_vretAllTitle(x))
                Call .replaceitemvalue("Suffix",Me.m_vretAllSuffix(x))
                Call .replaceitemvalue("FirstName",Me.m_vretAllFirst(x))
                Call .replaceitemvalue("MiddleInitial",Me.m_vretAllMiddle(x))
                Call .replaceitemvalue("LastName",Me.m_vretAllLast(x))
                Call .replaceitemvalue("FullName", ConstructFullNameList(Me.m_vretAllFullName(x)))
'//Not sure if I should append the domain to the MailAddress item
                If Len(Me.m_vretAllDomain(x)) Then
                    Call .replaceitemvalue("MailAddress",Me.m_vretAllEmail(x)_
                    & "@" & Me.m_vretAllDomain(x))
                Else
                    Call .replaceitemvalue("MailAddress",Me.m_vretAllEmail(x))
                End If
                Call .replaceitemvalue("MailSystem",Me.m_vretAllEmailType(x))
                Select Case Cint(Me.m_vretAllEmailType(x))
                Case NOTES
                    Call .replaceitemvalue("MailDomain",Me.m_vretAllDomain(x))
                Case INTERNET
                    Call .replaceitemvalue("InternetAddress", .MailAddress)
                    Call .replaceitemvalue("InternetDomain",Me.m_vretAllDomain(x))
                Case CCMAIL
                    Call .replaceitemvalue("ccMailAddress", .MailAddress)
                    Call .replaceitemvalue("ccMailDomain",Me.m_vretAllDomain(x))
                Case X400
                    Call .replaceitemvalue("X400Address", .MailAddress)
                    Call .replaceitemvalue("X400Domain", Me.m_vretAllDomain(x))
                End Select
                Call .save(True,True,True)
                If Me.m_nIncludeX509 Then
                    Me.m_vResult = Evaluate(|@X509Certificates([AddSignersCerts];NULL;"| & _
                    Me.m_PersonalNAB.filename & |";"| & Me.m_vretAllFullName(x)_
                    & |";"| & GetServerFileString() & |";"| & Me.m_strNoteID(x) & |")|)
                End If
            End With
Skip:
        Next
        Exit Function
TRAP:
        If Err = 13 Then
            Resume Next
        Else
            Messagebox(Cstr(Err) & ": " & Error$)
            End
        End If
    End Function
    Private Function ConstructFullNameList(strFrom As String)As Variant
        If Len(strFrom) Then
            Dim nameLocalName As New notesname(strFrom)
            Redim strArraytmp(0) As String
            Dim strTempName As String
            strArraytmp(0) = strFrom
            If Isnull(Arraygetindex(strArraytmp,nameLocalName.Common,1)) Then
                Redim Preserve strArraytmp(Ubound(strArraytmp)+1)
                strArraytmp(Ubound(strArraytmp)) = nameLocalName.Common
            End If
            strTempName = Fulltrim((Me.m_vretAllFirst(x) & " " & Me.m_vretAllMiddle(x) & " " & Me.m_vretAllLast(x)))
            If Isnull(Arraygetindex(strArraytmp,strTempName,1)) Then
                Redim Preserve strArraytmp(Ubound(strArraytmp)+1)
                strArraytmp(Ubound(strArraytmp)) = strTempName
            End If
            ConstructFullNameList = Fulltrim(strArraytmp)
        End If
    End Function
    Private Function FixFullName(full As String) As String
     ' Put a name string in the format: FIRST [MIDDLE] LAST [, SUFFIX]
     ' Assume that the string has no excess spaces
        Dim after As String
        Dim pos As Integer
        pos = Instr(full, ",")
        If pos <> 0 Then
            after = Trim(Mid(full, pos + 1))
          ' Is the string after the comma not a last namesuffix?
            If Not (Lcase(after) Like "jr*,sr*, II*") Then
                full = Trim(Left(full, pos - 1))
                full = after + " " + full
            End If
        Else
            pos = Instr(full, ".")
            If pos <> 0 Then
                after = Trim(Mid(full,pos+1))
                full = Left$(full, pos-1) + " " + after
            Else
                pos = Instr(full, "_")
                If pos <> 0 Then
                    after = Trim(Mid(full,pos+1))
                    full = Left$(full,pos-1) + " " + after
                End If
            End If
        End If
        FixFullName = full
    End Function
    Private Function GetServerFileString() As String
        Dim databasestring As String
        Dim serverstring As String
        Dim LeftPart As String
        Dim RightPart As String
        Dim l As Integer
        Dim x As Integer
        databasestring = session.currentdatabase.Filepath
        serverstring = session.Currentdatabase.Server
        l = Len(databasestring)
        Do While Instr(databasestring,"\")
            x= Instr(databasestring,"\")
            LeftPart = Left(databasestring,(x-1))
            RightPart = Right(databasestring,(l-x))
            databasestring = LeftPart & "~" & RightPart
        Loop
        Do While Instr(databasestring,"~")
            l = Len(databasestring)
            x= Instr(databasestring,"~")
            LeftPart = Left(databasestring,(x-1))
            RightPart = Right(databasestring,(l-x))
            databasestring = LeftPart & "\\" & RightPart
        Loop
        If serverstring = "" Then
            GetServerFileString = databasestring
        Else
            GetServerFileString = serverstring & |!!| & databasestring
        End If
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim copyfunction As New NameHelperLauncher
    Call copyfunction.init()
    Call copyfunction.ProcessCandidates()
End Sub
Lotus Product
mtV0.0\
\$    #1
\L    #1
\8    #1
\`    #1
\t    #1
d"d"d"
$#$#t
\$    #1
\L    #1
\8    #1
\`    #1
\t    #1
^T!6p
\$    q$
\L    qL
\8    q8
\`    q`
\t    qt
-d!##
m`    },
mt    },
m`    }4
mt    }4
Kd"Ut"
Kd"Ut"
Kd"Ut"
##-<##-`##
##-<##-
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim note As NotesDocument
Dim uidoc As notesuidocument
 AlarmOptions'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Dim ws As New NotesUIWorkspace
    Set uidoc = source
    Set note = source.document
    source.autoreload = False
    Call note.ReplaceItemValue("tmpAlarmFiles",ws.GetListOfTunes)
End Sub
Lotus Product
OBJECT
tmpAlarmFiles
    Alarm will go off
ItemName
TaskLead
AppointmentType
AnniversaryLead
AppointmentType
EventLead
AppointmentType
ReminderLead
AppointmentLead
    1S2S5S6S8S10S11S12S14S16R17S18S20S22S23S24S26S
ProfileTime
ItemName
TaskLead
AnniversaryLead
EventLead
CalendarProfile
ItemName
CalendarProfile
ItemName
    0R1S2S5S7S8S9S12S13S14S21S25S
$AlarmOffset
$AlarmOffseth
$AlarmOffset
$AlarmTimeh
$AlarmTime
StartDateTime
ProfileTime
    0R1S2S3S10S12S17S18S19S21S
tmpOffsetMinutes
$AlarmOffsetA
    0RS1S2S
tmpAlarmUnit
tmpAlarmUnit
    0RR1S2S
tmpResult
tmpResult
    0R1S2S
$AlarmUnit
$AlarmUnit
    0R1S2S3S
tmpOffsetMinutes
tmpAlarmUnit
tmpResult
tmpOffsetMinutes
tmpOffsetMinutes
tmpAlarmUnit
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
tmpResult
tmpOffsetMinutes
    0RR2S4S6S8S9S11RS5E13S15S17S20S22S24S26S30R32S34S36S37S39RS4E41S43S45S48S50S52S58RS4E60S62S64S2E67R69S71S73S
tmpResult
$AlarmUnit
tmpAlarmUnit
tmpResult
tmpResult
    0R2S3S4S6S7S8S10S12S17S21S
tmpOffset
    2S3S4S6S8S11S
tmpOffsetMinutes
$AlarmUnit
tmpOffset
$AlarmUnit
tmpOffset
tmpOffset
    0RRR1S2S6S7S8S10S11S12S14S15S16S18S2E19S20S22S
$AlarmUnit
    0R1S2S3S
tmpOffsetMinutes
xxFailed
You must enter an offset for the alarm.
    1S2S
tmpOffset
xxFailed{
    0R3S4S6S11StmpOffset
$AlarmUnit
$AlarmUnit
Current
$AlarmOffseth
$AlarmOffset
    0R1S2S9S
FixedCurrent
Current
Current
    0R1S2S5S6S8S10S
FixedCurrent
FixedCurrent
    0R3S4S6S9S10S12S14S15S
$AlarmUnit
Minutes|MHours|HDays|D
$AlarmOffseth
$AlarmOffset
    7S10S11S13S15S18StmpOffsetDir
Before|1After|2
    Description
$AlarmDescription
$AlarmDescription
    0S0E
tmpAlarmPopup
    Alarm
tmpPlaySound
    1S2S
$AlarmSound
Calendarprofile
AlarmSound
    7S15S19S21StmpPlaySound
Play sound|1
$AlarmSound
$AlarmSound
Calendarprofile
AlarmSound
    7S9S13StmpAlarmPath
tmpAlarmFiles
$AlarmSound
    5S6S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Set ws = New notesuiworkspace
    Call ws.PlayTune(note.GetItemValue("tmpAlarmPath")(0))
End Sub
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim ws As New notesuiworkspace
    Dim strSound As String
    strSound = note.GetItemValue("tmpAlarmPath")(0)
    If Len(strSound) Then Call ws.PlayTune(strSound)
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Play
$AlarmSendTo
    2S5S6S7S9S11S$AlarmMemoOptions
Send mail with entry title and description|2
$AlarmMemoOptions
    1S2S
    Recipients
$AlarmMemoOptions
    1S2S
$AlarmSendTo
DialogButton Address.GIF|Address
AlarmSendTo
$AlarmSendTo
    1S2S3S
$AlarmY
tmpDisable
Disable|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
tmpAlarmValue
tmpAlarmOnDate
tmpAlarmOnTime
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
tmpOffset
$Body
$PublicAccess
&Arial
Lotus Product
OBJECT
(C&S DeliveryOptions)
    Delivery options
Broadcast
I do not want to receive replies from participants|1
PreventCounter
Prevent counter-proposing|1
PreventDelegate
Prevent delegating|1
    Security options
Sign|1
Encrypt
Encrypt|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
Archive Log
Times New Roman
 ArchiveLog
$MessageType
%12-/H
!G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
WC9iB.xC-iF8wH8jT>zR<rd?
2L3;FK=Dj=C:FQ8Qp<b
GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
Archive Log
LogCount
LogTotal
 for
ArchiveDate
ArchiveTrailer
ArchiveTrailer
    Hidden:
Archive Log for
ArchiveDate
    1S2S
Subject
(Archive)
Categories
Close
    0S0E
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Ehm"?
DocLife
$ManualArchivers_O
ObsoleteLife
DocumentLife
$TITLE
$Info
$WINDOWTITLE
$$Script_O
$$ScriptName
ArchiveDate
$Body
$ACTIONS
*** Message Successfully Delivered ***
(Help)
MAIL_F_DELIVERY-REPORT
    0S0E
 Delivery Report
Delivery Confirmation Report
    Your document:
Subject
Subject
    was delivered to:
IntendedRecipient
IntendedRecipient
DeliveryDate
BodyBody of memo.
Categori_zeK
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
Categori_zeK
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$AppHelpFormula
$$ScriptName
DeliveryDate
$Body
$V5ACTIONS
$ACTIONS
(Calendar Profile)CalendarProfileFF
$CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailTaskFollowPreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeCalendarTimeSlotDurationCalendarTimeSlotEndCalendarTimeSlotStartAlarmSoundTaskLeadSetAlarmTaskAnniversaryLeadSetAlarmAnniversaryEventLeadSetAlarmEventReminderLeadSetAlarmReminderAppointmentLeadSetAlarmAppointmentEnableAlarmsAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayUserCategoriesConflictAnniversaryConflictEventConflictMeetingExcludeFromSentExcludeFromAllAutoAnniversaryRepeatDefaultDurationCalEntryTypeSignatureSignature_1Signature_2SignatureOptionEnableSignatureDefaultLogoOffSetCharFormatRepliesSpellCheckOwnertmpAlarmSounds1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################
(Delivery Options)DeliveryOptionsCDU3wx
SenderTagSMTPEncodingMIMEMailCharsetReplyToExpireDateReplyDatetmpSenderTagUpdateProfileNoteEncryptSign$AutoSpellDeliveryPriority$KeepPrivateDeliveryReportReturnReceiptImportance$Moods1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################
(Delivery Report)Delivery Report
BodyDeliveryDateSubject
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################
#(Discussion Threads)|Threads/P=3601
$39$13
$13YB
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
(EditOfficeProfile)
EH4f3L
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################
(GroupCalendarDlg)CUA3x
MembersSubject$PublicAccess1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
(GroupCalendar)(GroupCalendar)CD
GroupCalendarFSGroupCalendarCtl
StartTimeDurationDurationSelExcludeFromViewSaveOptions1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
(GroupHelper)CD
SelectedGroupMembersDescriptionGroupTypeGroupName
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
(ImportHolidays)
This Agent requires build 164 & Server with a r5 Public NAB, you must resave all master holiday documents if created with 161.1  Also note: the  APPTUNID item must match the UNID of the document in the public NAB. a resave will correct this if the document has been 'cut and pasted'EH41fL3
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
(InterNetReply)
EH4fL3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################
L(InviteeReplyDlg)CUA3x
tmpIncludeCommentstmpKeepPostedNewEndTimeNewEndDateNewStartTimeNewStartDateDelegeetmpPencilIntmpFTSEndDateTimetmpFTSStartDateTimetmpActionType1
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
(ListResource)(ListResource)CU3x
SelectedItems
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
c(NameHelper)CD
IncludeX509tmpDomaintmpEmailAddresstmpEmailTypetmpSuffixtmpLastNametmpMiddleNametmpFirstNametmpTitletmpConflictAction$AlertGraphic
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
(NonDelivery Report)DeliveryReportNonDelivery Report
BodySubjectCopyToSendToIntendedRecipient
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
?^pP\
(Notice)Notice
StatusUpdateBodytmpNoActionBarForm1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
(Out Of Office Profile)OutOfOfficeProfile
dateFirstDayBackdateFirstDayOutIgnoreSubjectPhraseIgnoreSendIgnoreFromListExcludeInternetEmailSpecialMessageSpecialSubjectSpecialPeopleGeneralMessageDaysOutGeneralSubjectBookBusyTimeFirstDayBackFirstDayOutCurrentStatusDialogStatusTab_ViewIconExcludeFromViewSubjectFromSenderNotified
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############
(OwnerDlg)CUA3x
tmpIncludeCommentstmpDeleteEntryEndTimeEndDateStartTimeStartDatetmpActionType1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
(ParticipantTable)ParticipantTable
tmpSortTypetmpOriginalStatustmpOriginalRoletmpOriginalPeople1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iris
(Personal Stationery)Personal Stationery
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsw
FooterBodyHEADERSubjectEnterBlindCopyToEnterCopyToEnterSendTo$KeepPrivateBGTableColorLogoEncryptSignDefaultMailSaveOptionsAltFromFrom
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
(Preferences)
EH4f3L
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################
r(RepeatForm)CUA3x
RepeatForUnitRepeatForRepeatUntilRepeatStartDateRepeatHowRepeatWeekendsRepeatCustomRepeatFromEndRepeatAdjustRepeatIntervalRepeatUnittmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########
(RepeatOpenList)CUA3x
tmpDateSelectedtmpDateListtmpListOfDates1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
(ReplyNotice)(ReplyNotice)
StatusUpdateSaveOptionsMailOptionsForm1
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
(Return Receipt)Return Receipt
DeliveryDateSubject
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
(ReturnNonReceipt)ReturnNonReceipt
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
(Room Resource Scheduler)CUA3x
tmpResourceNameMultitmpResourceNameSingletmpResourceNameBlanktmpResourceCategorytmpCapacitytmpSitetmpNABsEndTimeStartTimeStartDateEndDatetmpSubsetCategorytmpCategoriesAlltmpSitesAlltmpAddressBookstmpResourceNametmpResourceType1
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
(RulesDlg)MailruleCDw
OrderNumActionListDisplayimportancecondfolderactionConditionListDisplaydomainlistimportancestringLogicconditionOperatorTypeEnableFormExcludeFromViewtokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormula
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
(subOption)CUA3x
TraceTypeSelectedOptions
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
wPreferencesSave
wPreferencesOpen
(Help)
MAIL_F_CALENDARPROFILE
    0S0E
&Arial
Times New Roman
5Courier New
'++LotusScript Development Environment:2:5:(Options):0:74
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
 CalendarProfile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Dim note As NotesDocument
    Dim ws As New notesuiworkspace
    Set note = source.document
    Call note.replaceitemvalue("tmpAlarmSounds", ws.getlistoftunes())
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Call Source.document.removeitem("$DialogMode")
End Sub
Lotus Product
V0.0D
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Exiting From Source Call Exiting
    On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    'Should I clear the Signature location field here if I sense that the Option has been changed?
    Dim uiws As New notesuiworkspace
    Dim noteUIDoc As notesuidocument
    Set noteUIDoc = uiws.currentdocument
    If strSignatureOption <> noteUIDoc.FieldGetText("SignatureOption") Then
        Call noteUIDoc.FieldSetText("Signature","")
    End If
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
    Dim uiws As New notesuiworkspace
    Dim noteUIDoc As notesuidocument
    Set noteUIDoc = uiws.currentdocument
    strSignatureOption = noteUIDoc.FieldGetText("SignatureOption")
End Sub
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
    On Event Entering From Source Call Entering
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
End Sub
Lotus Product
FromPerson memo is from.z
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
    0RR1S2S3S4S8StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
.,$ //:
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
tmpDisplayDate_Preview
tmpAlarmSounds
Path_Info
Path_Info
Query_String
Query_String
SignatureOption
DialogMode
DialogMode
Preference
    User configuration
    Owner of this mail file:
xxNO_OWNER
No owner has been specified for this mail file
    0S0E
Owner
xxNO_OWNER{
    0R3S4S5S
Owner
Owner
SpellCheck
Automatic Spell Checking|1z
SpellCheck
FormatReplies
Formatted Replies with an offset character|1
FormatReplies
OffSetChar
>|1<|2<<|3>>|4z
OffSetChar
Basics
DefaultLogo
Bouncy Earth|StdNotesLtr1Buck Rogers Mail|StdNotesLtr2Computer Chip|StdNotesLtr3Decco|StdNotesLtr4Falling Spheres|StdNotesLtr5Frank Lloyd|StdNotesLtr7From The Desk|StdNotesLtr8Gateway|StdNotesLtrGatewayGeometry |StdNotesLtr9Gray Gradient with Lines|StdNotesLtr13Green and Yellow Diamond|StdNotesLtr14Leaves|StdNotesLtr6Marquee|StdNotesLtr34Metal Plate|StdNotesLtr15Pencil and Grid|StdNotesLtr16Plain Text|StdNotesLtr0Pony Express|StdNotesLtr17Post Mark|StdNotesLtr33Primative|StdNotesLtr20Purple Geometry|StdNotesLtr18Slashed Lines with Globe|StdNotesLtr21Squiggle with Backdrop|StdNotesLtr22Squiggly Line|StdNotesLtr23Tacks|StdNotesLtr24Tape|StdNotesLtr25Teal and Yellow Lines|StdNotesLtr26Three Dimensional Relief|StdNotesLtr27Torn Paper|StdNotesLtr28Triangle with Dots 2|StdNotesLtr30Triangles|StdNotesLtr29Wild Confetti|StdNotesLtr32z
LetterHeadChoices
DefaultLogo
BG_IMAGE_PREFIX
StdNotesLtr0
    0RR1RT3S4S6RTT13RT14RT
Image
StdNotesLtr
Image
Gateway
BG_IMAGE_PREFIX
Image
Image
    0RR1RT3S4S6RTT9S10S13RT22RT
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
BG_IMAGE_PREFIX
    0R1RT3S4S10RTT13S14S17RT18S19S27RTT30S31S34RT35S36S46RTT49S50S53RT54S55S61RTT64S65S68RT69S70S76RTT79S80S83RT86S87S89RT
BGTableColor
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateTime/date memo was created or mailed.z
DisplayDate
DefaultLogo
StdNotesLtr16
DefaultLogo
    4S5S6S8S
BGTableColor
Letterhead
EnableSignature
Automatically append signature to my outgoing e-mail messages|1z
EnableSignature
SignatureOption
Text|1File|2
SignatureOption
    2S3S
    File:
Signature_2
SignatureOption
    2S3S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uiws As New notesuiworkspace
    Dim noteUIDoc As notesuidocument
    Dim nSignatureOption As Integer
    Dim vSignatureLocation As Variant
    Dim vSignatureBody As Variant
    Dim nSuccess As Integer
    Set noteUIDoc = uiws.currentdocument
    vSignatureLocation = uiws.openfiledialog(False,"Title","Text Files|*.txt|HTML Files|*.htm|Bitmap|*.BMP||","","")
    If Isempty(vSignatureLocation) Then
        Redim vSignatureLocation(0)
    End If
    Call noteUIDoc.FieldSetText("Signature_2",Cstr(vSignatureLocation(0)))
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
    Browse...
SignatureOption
    2S3S
SignatureOption
    2S3S
    Signature:
SignatureOption
    2S3S
Signature_1
SignatureOption
Signature_1
Signature_2
    3S4S
Signature
Signature
Preference_1
    Defaults
    Calendar Entry type:
CalEntryType
CalEntryType
    3S4S
CalEntryType
Meeting | 3Appointment | 0All Day Event | 2Anniversary | 1Reminder | 4
    Appointment/Meeting time duration:
DefaultDuration
DefaultDuration
DefaultDuration
    3S4S5S6S7S8S9S10S12S
DefaultDuration
     (minutes)
    Anniversary yearly repeat:
.,$///:
AutoAnniversaryRepeat
AutoAnniversaryRepeat
AutoAnniversaryRepeat
    3S4S5S6S7S8S10S12S
AutoAnniversaryRepeat
     years
ExcludeFromAll
Prevent Calendar Entries from displaying in All Documents view|1
ExcludeFromSent
Prevent meeting invitations from displaying in Sent view|1
    Conflict Checking
ConflictMeeting
Enable for Appointments/Meetings|1
ConflictEvent
Enable for Events|1
ConflictAnniversary
Enable for Anniversaries|1
    Personal Categories
UserCategories
Basics
    Availability
Sunday
Sunday|1
Sunday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
Monday
Monday|2
Monday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
Tuesday
Tuesday|3
Tuesday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
Wednesday
Wednesday|4
Wednesday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
Thursday
Thursday|5
Thursday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
Friday
Friday|6
Friday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
Saturday
Saturday|7
Saturday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
    Only the following users can request my free time information:
AllowBusyAccess
Freetime
EnableAlarms
Enable alarm notifications|1
EnableAlarms
    1S2S
EnableAlarms
    1S2S
    Default Alarms
SetAlarmAppointment
Appointments/Meetings|1
AppointmentLead
AppointmentLead
    3S4S
AppointmentLead
     minute(s) in advance
SetAlarmReminder
Reminders|1
ReminderLead
ReminderLead
    3S4S
ReminderLead
     minute(s) in advance
SetAlarmEvent
Events|1
EventLead
EventLead
    3S4S
EventLead
     day(s) in advance
SetAlarmAnniversary
Anniversaries|1
AnniversaryLead
AnniversaryLead
    3S4S
AnniversaryLead
     day(s) in advance
SetAlarmTask
Tasks|1
.,$///:
TaskLead
TaskLead
    3S4S
TaskLead
     day(s) in advance of due date
    Default sound:
EnableAlarms
    1S2S
AlarmSound
tmpAlarmSounds
Alarms
    Calendar View Display
    Time Slot Start:
.,$ //:
CalendarTimeSlotStart
    Time Slot End:
.,$ //:
CalendarTimeSlotEnd
    Time Slot Interval:
CalendarTimeSlotDuration
15 minutes|1530 minutes|3060 minutes|60
Views
AutoProcessMeetings
    1S2S
AutoProcessType
AutoProcessType
    3S4S6S8S
AutoProcessType
Do not automatically process meeting invitations|DAutomatically process meeting invitations from all users|0Automatically process meeting invitations from the following users|2Delegate meeting invitations to the following person|1
AutoProcessType
    1S2S
AutoprocessUserList
AutoProcessType
    1S2S
Size=40
AutoProcessForwardTo
AutoRemoveFromInbox
Remove meeting invitations from my Inbox after I respond to them|1
PreventRepliesFromInbox
Prevent meeting replies from appearing in my Inbox|1
Autoprocess
TaskFollow
Always show current To do's on today's calendar|1
To Do
Calendar
Calendar
    The following people/groups can:
    Read my mail and read my calendar:
ReadMailz
ReadMail
    Read and send mail on my behalf and read my calendar:
WriteMail
WriteMail
    Read, send, and edit any document in my mail file:
EditMailz
EditMail
    Delete mail and calendar entries (allowed for those who can send or edit mail (Default = Author)
DeleteMailz
DeleteMail
*Other (Designer or Manager)
.,$,  , :
OtherUsers
    0S0E
OtherUsers
    *These entries cannot be modified from this dialog
Mail Delegation
    Calendar Read Access
PublicRead
    3S4S
PublicRead
Everyone can read my calendar|1Only the following people/groups can read my calendar|0
PublicRead
    1S2S
ReadCalendar
    Calendar Create/Edit Access
PublicWrite
    3S4S
PublicWrite
Everyone can manage my calendar|1Only the following people/groups can manage my calendar|0
PublicWrite
    1S2S
WriteCalendar
Calendar Delegation
Delegation
Owner
$BusyName
$NoPurge
$NoPurge
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
    0S0E
$AvailableDays
$PublicAccess
$CSVersion
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$DialogMode
$Info
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$SignatureOption
$SignatureOption_O
$$Signature_2
$Signature_2_O
$$Signature_1
$Signature_1_O
$$Signature
$Signature_O
DefaultDuration
AutoAnniversaryRepeat
$Times1
$Times2
$Times3
$Times4
$Times5
$Times6
$Times7
AppointmentLead
ReminderLead
EventLead
AnniversaryLead
TaskLead
CalendarTimeSlotStart
CalendarTimeSlotEnd
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
Lotus Product
(DeleteSentDlg)
    0S0E
Cancel
Action
    You are about to delete the selected document(s) from the Sent view. This action will delete the selected document(s) from
     folders they belong to.
    Would you like to continue deleting these documents or remove them from the Sent view instead?
Action
Delete
    1S2S3S
    Delete
Action
Remove
    1S2S3S
    Remove
Action
Cancel
    1S2S3S
    Cancel
tmpDontAsk
Don't ask this question again|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$$FormAction2
$Body
&Arial
Lotus Product
OBJECT
 DeliveryInfo
    Sent by
FromDomain
FromDomain"
    1S2S5S6S8S10S11S12StmpFromInfo
    Delivery and routing information
xxNotSent
Not sent yet
    0S0E
xxSent
 Sent
xxDelivered
 Delivered
xxAdditionalHeader
-------- Additional  Header  ------
xxRoutingInformation
-------- Routing Information ------
xxAtServer
 at server
PostedDate
xxNotSent
PostedDate
D1T1V
xxSent"
DeliveredDate
DeliveredDate
D1T1V
xxDelivered
$AdditionalHeaders
xxAdditionalHeader
$AdditionalHeaders
SMTPHeaders
xxAdditionalHeader
SMTPHeaders
DeliveredDate
xxRoutingInformation
DeliveredDate
RouteTimes
D1T1V
xxAtServer"
RouteServers
    0RR2R5S6S7S8RS8E10S16S17S20R23S24S26RS8E28S34S35S38R41S42S44RS8E46S49R50S51R54S55S57RS8E59S62R63S64R67S68S70RS8E72S75R78S79S81RS7E83S91S99S2E101RS
tmpPostedDateInfo
    Delivery options
    Importance
tmpSignedInfo
Signed|1
Encrypt
tmpEncryptInfo
Encrypted|1
$KeepPrivate
    0S0E
tmpKeepPrivateInfo
Do not forward copy or print|1
ReturnReceipt
tmpReceiptInfo
Return receipt requested|1
Importance
Importance
    3S4S
tmpImportanceInfo
Low|3Normal|2High|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ExpireDate
ReplyDate
$Phone_O
$Info
$$Script_O
$$ScriptName
$Body
$PublicAccess
&Arial
(subTrackMessage)
    Tracking request instructions
    A tracking request has been sent.
    You will receive response emails in your inbox.
    These messages will display the routing status of the email you have traced.
tmpDontShow
Don't show this message again|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
N`ETR
$Info
$$ScriptName
$Body
FComic Sans MS
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class INIPreference
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim SecurityPreferences As INIPreference
Class INIPreference
    Private session As notessession
    Private note As notesdocument
    Private lngCurrentINISettings As Long
    Private nINISignSentMail As Integer
    Private nINIEncryptSentMail As Integer
    Private nINIEncryptSavedMail As Integer
    Private nUpdateINI As Integer
    Private SIGN_SENT_MAIL As Long
    Private ENCRYPT_SENT_MAIL As Long
    Private ENCRYPT_SAVED_MAIL As Long
Declare Public Function Close()
    Sub New(hNote As notesdocument)
        Set Me.session = New notessession
        Set Me.note = hNote
        Me.SIGN_SENT_MAIL             = &h1000&        ' 4096
        Me.ENCRYPT_SENT_MAIL     = &h2000&        '  8192
        Me.ENCRYPT_SAVED_MAIL     = &h100000&    ' 1048576
        Me.lngCurrentINISettings = Me.session.Getenvironmentvalue("Preferences", True)
        If Me.lngCurrentINISettings And Me.SIGN_SENT_MAIL Then
            Me.nINISignSentMail = 1
        Else
            Me.nINISignSentMail = 0
        End If
        If Me.lngCurrentINISettings And Me.ENCRYPT_SENT_MAIL Then
            Me.nINIEncryptSentMail = 1
        Else
            Me.nINIEncryptSentMail = 0
        End If
        If Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL Then
            Me.nINIEncryptSavedMail = 1
        Else
            Me.nINIEncryptSavedMail = 0
        End If
    End Sub
    Public Function Close()
        If Val(Me.note.getitemvalue("Sign")(0)) <> Me.nINISignSentMail Then
            Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.SIGN_SENT_MAIL
            Me.nUpdateINI = True
        End If
        If Val(Me.note.getitemvalue("Encrypt")(0)) <> Me.nINIEncryptSentMail Then
            Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SENT_MAIL
            Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SAVED_MAIL
            Me.nUpdateINI = True
        End If
        If Me.nUpdateINI Then
            Call Me.session.setenvironmentvar("Preferences", Cstr(Me.lngCurrentINISettings),True)
        End If
    End Function
End Class
Lotus Product
 DeliveryOptions'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryclose From Source Call Queryclose
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If Not Source.DialogBoxCanceled Then
        If Source.Document.UpdateProfileNote(0) = "1"  Then
            Call SecurityPreferences.Close()
        End If
        With Source.Document
            Select Case .SenderTag(0)
            Case "P"
                Call .ReplaceItemValue("_ViewIcon",    170)
            Case "C"
                Call .ReplaceItemValue("_ViewIcon",    169)
            Case "R"
                Call .ReplaceItemValue("_ViewIcon",    163)
            Case "T"
                Call .ReplaceItemValue("_ViewIcon",    85)
            Case "F"
                Call .ReplaceItemValue("_ViewIcon",    74)
            Case"G"
                Call .ReplaceItemValue("_ViewIcon",    159)
            Case "J"
                Call .ReplaceItemValue("_ViewIcon",    166)
            Case "Y"
                Call .ReplaceItemValue("_ViewIcon",    23)
            Case "Q"
                Call .ReplaceItemValue("_ViewIcon",    162)
            Case "M"
                Call .ReplaceItemValue("_ViewIcon",    10)
            Case "N"
                Call .RemoveItem("_ViewIcon")
            Case Else
                Call .RemoveItem("_ViewIcon")
                Call .RemoveItem("SenderTag")
            End Select
        End With
    End If
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Set SecurityPreferences = New INIPreference(Source.document)
End Sub
Lotus Product
tmpSenderTag
tmpSenderTag
    0S0E
$Moodsz
$Moods
    Delivery options
    Importance:
Importance
Low|3Normal|2High|1
Importance
ReturnReceipt
Return receipt|1
ReturnReceipt
    Delivery report:
DeliveryReport
None|NOnly on failure|BConfirm delivery|CTrace entire path|Tz
DeliveryReport
$KeepPrivate
Prevent copying|1
$KeepPrivate
    Delivery priority:
DeliveryPriority
Low|LNormal|NHigh|H
DeliveryPriority
$AutoSpell
Auto spellcheck|1
    Security Options
Mood stamp
    0S0E
Sign|1z
Encrypt
Encrypt
Encrypt
    0S0E
Encrypt
Encrypt|1z
Encrypt
UpdateProfileNote
UpdateProfileNote
Save these security options as the default for future messages|1
UpdateProfileNote
SenderTag
SenderTag
    0S0E
tmpSenderTag
Normal|NPersonal|PConfidential|CPrivate|RThank You!|TFlame|FGood Job!|GJoke|JFYI|YQuestion|QReminder|Mz
SenderTag
Moods
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
%12-/H
!G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
WC9iB.xC-iF8wH8jT>zR<rd?
2L3;FK=Dj=C:FQ8Qp<b
GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
SenderTag
    0S0E
SenderTag
    0S0E
@___@
<a>7`^
`!bb!R
SenderTag
    0S0E
SenderTag
    0S0E
Basic
    Workflow administation
    Stamp message with a 'Please reply by' date:
    (Places message in recipients' 'To Do' list)
.,$ //:
ReplyDate
ReplyDate
    Expiration date (after this date it is safe to archive or delete this document)
.,$ //:
ExpireDatez
ExpireDate
    Replies to this memo should be addressed to:
ReplyTo
ReplyTo
    Internet message format
    MIME Character Set:
MIMEMailCharset
    0S0E
    Encoding for attachments:
SMTPEncoding
Accept Administrator's default|0MIME (Base64)|BQuoted Printable|QUUencode|U
Advanced
tmpSenderTag
SenderTag
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"w;zmdx.^
DueDateTime
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ReplyDate
ExpireDate
$Body
$PublicAccess
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
PhoneCaller
Phone Call:
PhoneCaller
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
Subject
    3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S
$27$39$13$32Subject$14$Conflict$REF
HiddenDocument
$MessageType
IsMailStationeryY
    L1S2S3S4S5S8S2E9S
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$39Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$13Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$32F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105SSubject$14Subject~
NonDelivery Report
DELIVERY FAILURE:
FailureReason
PhoneCaller
Phone Call:
PhoneCaller
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
Subject
    3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S&
Categori_zeK
_Move to Folder...
_Remove from Folder...
New Memo(
    0S0E
Reply\ReplyK0
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
_Forward
Delete
    0S0E
_Edit
Folder\Create Folder
    0S0E
Folder\Move To Folder...
    0S0E
Folder\Remove From Folder
    0S0E
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...2
(Preferences)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
New Memo(
    0S0E
Folder\Move to Folder...*
    0S0E
Delete\Delete
    0S0E
Delete\Empty Trash
    0S0E
Tools\Preferences
wPreferences
    0S0E
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Categori_zeK
_Move to Folder...
_Remove from Folder...
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
_Edit
Folder\Create Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
New Memo(
    0S0E
act_NEW.GIF|act_NEW?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=500,height=110');
Folder\Move to Folder...*
    0S0E
act_FOLDER.GIF|act_FOLDER?
Delete\Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Tools\Preferences
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools...\Archiving
act_TOOLS.GIF|act_TOOLS?
var pathname = window.location.pathname
filename = pathname.substring(0,(pathname.lastIndexOf('nsf')+4))
//Generate a random number based on the current time  hr:min:sec
//we do this in case the user doesn't refresh the cache every time they load a page on their browser.
//If they don't refresh the cache, the Archive Profile keeps the original settings only, for each browser session.
now = new Date();
mins = now.getMinutes().toString()
secs = now.getSeconds().toString()
hrs = now.getHours().toString()
random = mins + secs + hrs
window.open(filename + 'WebArchProfile?openForm&' + random,'secondary_window','toolbar=no,location=no,scrollbars=yes,directories=no,height=465,width=600')
Tools...\Out of Office
act_TOOLS.GIF|act_TOOLS?
alert('Feature in Progress')
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
)(NO}
-uO#S
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$ACTIONS
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_22
$ViewGlobalScript
$V5ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const strWindowTitle = "Out of Office"
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As notessession
    Dim uiws As New notesuiworkspace
    Dim m_officeprofile As notesdocument
    Dim nSuccess As Integer
    Set session = New notessession
    Set m_officeprofile = session.CurrentDatabase.GetProfileDocument("OutOfOfficeProfile")
'    SPR#???????
    Call m_officeprofile.ReplaceItemValue("SaveOptions","0")
    nSuccess = uiws.dialogbox("OutOfOfficeProfile",True,True,True,False,False,False,strWindowTitle,m_officeprofile,True,True)
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
&Arial
Lotus Product
(GroupCalendarDlg)
    0S0E
$PublicAccess
Outer
Outer
Table1
Table1
    Title:
xxDefault
-Untitled-
    1S2S
Subject
xxDefault
Subject
    0R2S3S4S6S8S
Subject
    Members:
Members
Action
ViewNow
    1S2S3S
Action
Cancel
    1S2S3S
      Cancel
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
!x+GI
$Info
$$Script_O
$$ScriptName
$$FormAction2
$Body
$PublicAccess
(GroupCalendarOptions)
    Starting Time:
    Duration:
StartTime
StartTime
    3S4S6S
StartTime
DurationSel
1|12|23|34|45|56|67|78|89|910|1011|1112|12
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
StartDate
$Info
$$ScriptName
StartTime
$Body
xxNoSubject
Group Calendar
    1S2E2S
Subject
Subject
xxNoSubject
    0RR7S9S
Lotus Product
OBJECT
 (GroupCalendar)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryclose From Source Call Queryclose
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    Call source.save
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    source.fieldhelp = False
    source.horzscrollbar = False
End Sub
Lotus Product
Lotus Product
OBJECT
SaveOptions
ExcludeFromView
DurationSel
NewDuration
DurationSel
    1S2S
NewDuration
NewDuration
    0R7S9S
Duration
StartTime
StartTime
    3S4S6S8S
StartTime
StartTime
    3S4S6S8S
StartTime
xxNoSubject
Group Calendar
    1S2E2S
Subject
Subject
xxNoSubject
    0RR7S9StmpTitle
CalendarView
StartTime
Duration
Members
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Members...
MembersToAdd
Members
    1S2S6S
Members
MembersToAdd
    0R1S2S3S
SaveOptions
    0R1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
act_participantactions.GIF|act_CSPARTACTIONS
Display Options...h
(GroupCalendarOptions)
Options
    0S0E
NewDuration
DurationSel
    0R1S2S
Duration
NewDuration
NewDuration
    0R1S2S3S10S12S
$GroupScheduleRefreshMode
    0R1S2S3S
act_TOOLS.GIF|act_TOOLS?
Show LegendK
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
Hide LegendK
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Members...
MembersToAdd
Members
    1S2S6S
Members
MembersToAdd
    0R1S2S3S
SaveOptions
    0R1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
Display Options...h
(GroupCalendarOptions)
Options
    0S0E
NewDuration
DurationSel
    0R1S2S
Duration
NewDuration
NewDuration
    0R1S2S3S10S12S
$GroupScheduleRefreshMode
    0R1S2S3S
Show LegendK
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
Hide LegendK
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
StartDate
$Info
$WINDOWTITLE
$FrameInfo
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
Duration
StartTime
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
V0.0a
(GroupHelper)
    Group name:
-Untitled-
GroupName
    Group type:
GroupTypeChoose the appropriate type for this group.
Multi-purpose|0Access Control List only|2Mail only|1
    Description:
DescriptionDescription or purpose of the group.
    Members:
AllAddresses
    0S0E
SelectedGroupMembers
AllAddresses
AllAddresses"
    6S8S9S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$Script
$$Script_O
$$ScriptName
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class cBaseImportHolidays As BaseApplication
Declare Class HolidayImportStringTable
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'ImportHolidays:
'//DNT//
Const strPUBLIC_NAB_FILENAME$ = "names.nsf"
Const strdBMasterHoliday$ = "pubnames.ntf"
Const strPicklistResource$ = "(ListResource)"
Const strListLabel$ = "ListLabel"
Const strMailHolidayView$ = "($RepeatLookup)"
Const strSelectedItems$ = "SelectedItems"
Const strPublicNABHolidayView$ = "($Holidays)"
Const HOLIDAY_STRING = 600
'//End DNT//
Class cBaseImportHolidays As BaseApplication
'//Objects//
    Public m_dbCurrentDatabase As notesdatabase
    Public m_dbMasterHoliday As notesdatabase
    Private m_uiws As NotesUIWorkspace
    Private m_cStringTable As HolidayImportStringTable
    Private m_noteHolidayProfile As notesdocument
    Private m_noteCursorDoc As notesdocument
    Private m_noteDoItemsExist As notesdocument
    Private m_viewMailHoliday As notesview
    Private m_viewHolidayGroup As notesview
    Private m_entrycollection As notesviewentrycollection
    Private m_viewEntry As notesdocument
    Private m_notePublicHolidayDoc As notesdocument
    Private m_collLocalHolidayDocs As notesdocumentcollection
    Private m_noteHolidayDoc As notesdocument
'//locals//
    Private m_vColumnValues As Variant
    Private m_vAPPTUNID As Variant
    Private m_vModified As Variant
    Private m_vLocatedInPublicNAB As Variant
    Private m_vUserForcedLocalDeletion As Variant
    Private m_vDeletedByAgent As Variant
    Private m_vCategories As Variant
    Private m_vReturnValue As Variant
    Private m_vTempAPPTUNID As Variant
    Public m_strMailServerName As String
    Private m_strTempAPPTUNID As String
    Private m_strServerName As String
    Private m_nAdded As Integer
    Private m_nUpdated As Integer
    Private m_nDeleted As Integer
    Private m_nMB_OK As Integer
    Private m_nSuccess As Integer
    Private m_nHolidayEntry As Integer
'//Sub & Funtion declaration//
Declare Public Sub New()
Declare Public Sub GetImportItems
Declare Public Function CopyToDB
'//Property declaration
Declare Property Get SelectedCategories
'//Constructor//
    Sub new()
        Set Me.m_session = cBaseImportHolidays..session
        Set Me.m_uiws = New notesuiworkspace
        Set Me.m_cStringTable = New HolidayImportStringTable
        Set Me.m_uiws = New notesuiworkspace
        Set Me.m_dbCurrentDatabase = Me.m_session.currentdatabase
        Set Me.m_noteCursorDoc = Me.m_dbCurrentDatabase.createdocument
        If Me.m_noteCursorDoc Is Nothing Then
            Call DisplayWarn(Me.m_cStringTable.GetString(HOLIDAY_STRING+6, Null) , MB_OK , Me.m_cStringTable.GetString(HOLIDAY_STRING+1, Null))
            End
        End If
        Me.m_strServerName$ = fGetMailServerName()
        If Me.m_dbMasterHoliday Is Nothing Then
            Set Me.m_dbMasterHoliday = New notesdatabase(Me.m_strServerName$ , strPUBLIC_NAB_FILENAME)
        End If
        If Not Me.m_dbMasterHoliday.IsOpen Then
            Call DisplayWarn(Me.m_cStringTable.GetString(HOLIDAY_STRING+7, Null) & Chr(13) &_
            Me.m_strServerName$ &"!!" & strPUBLIC_NAB_FILENAME, MB_OK , Me.m_cStringTable.GetString(HOLIDAY_STRING+1, Null))
            End
        Else
            Set Me.m_viewHolidayGroup = Me.m_dbMasterHoliday.getview(strPublicNABHolidayView$)
            Set Me.m_viewMailHoliday = Me.m_dbCurrentDatabase.getview(strMailHolidayView$)
            Call GetProfileNote()
'//temporary code ************************************************************************
            If Not CheckIntegrity() Then
                Print("Data integrity is not correct")
            End If
'//End Temp Code***********************************************************************
            If Me.m_viewHolidayGroup Is Nothing Then
                Call DisplayWarn(Me.m_cStringTable.GetString(HOLIDAY_STRING+9, Null) & Chr(13) &_
                Me.m_cStringTable.GetString(HOLIDAY_STRING+8, Null) & Chr(13) &_
                Me.m_strServerName$ &"!!" & strPUBLIC_NAB_FILENAME, MB_OK , Me.m_cStringTable.GetString(HOLIDAY_STRING+1, Null))
                End
            Else
                Set Me.m_noteDoItemsExist = Me.m_viewHolidayGroup.getfirstdocument
                If Me.m_noteDoItemsExist Is Nothing Then
                    Call ScanForDeletes()
                    Call WriteNoteItemsToProfile()
                    Call DisplayWarn(Me.m_cStringTable.GetString(HOLIDAY_STRING+11, Null) & Chr(13) & Cstr((Me.m_nAdded - Me.m_nUpdated))_
                    & Me.m_cStringTable.GetString(HOLIDAY_STRING+12, Null) & Chr(13) & Cstr(Me.m_nUpdated) & Me.m_cStringTable.GetString(HOLIDAY_STRING+13, Null)_
                    & Chr(13) & Cstr(Me.m_nDeleted) & Me.m_cStringTable.GetString(HOLIDAY_STRING+15, Null),MB_OK ,Me.m_cStringTable.GetString(HOLIDAY_STRING+1, Null))
                    End
                End If
            End If
        End If
    End Sub
    Private Sub GetProfileNote()
        Set Me.m_noteHolidayProfile = Me.m_dbCurrentDatabase.GetProfileDocument("HolidayProfile")
        If Not Me.m_noteHolidayProfile.HasItem("LastImported") Then
            Call ReadItemsFromViewIntoProfile()
        Else
            Call ReadItemsFromProfile()
        End If
    End Sub
    Private Sub ReadItemsFromProfile()
        Dim n As Integer
        If Me.m_noteHolidayProfile.APPTUNID(0) = "" Then
            Exit Sub
        End If
        Me.m_vAPPTUNID = Me.m_noteHolidayProfile.APPTUNID
        Me.m_vModified = Me.m_noteHolidayProfile.Modified
        Me.m_vUserForcedLocalDeletion = Me.m_noteHolidayProfile.UserForcedLocalDeletion
'convert to integers so we can store them off later
        For n = 0 To Ubound(Me.m_vUserForcedLocalDeletion)
            Me.m_vUserForcedLocalDeletion(n) = Cint(Me.m_vUserForcedLocalDeletion(n))
        Next
        Me.m_vDeletedByAgent = Me.m_noteHolidayProfile.DeletedByAgent
'convert to integers so we can store them off later
        For n = 0 To Ubound(Me.m_vDeletedByAgent)
            Me.m_vDeletedByAgent(n) = Cint(Me.m_vDeletedByAgent(n))
        Next
        Redim Me.m_vLocatedInPublicNAB(Ubound(Me.m_vAPPTUNID))
        Forall tmpFlags In  Me.m_vLocatedInPublicNAB
            tmpFlags = False            'always set to false when loading
        End Forall
    End Sub
    Private Function UpdateEntryInProfile(IndexNumber As Integer)
'        Dim me.m_nHolidayEntry As Integer
        If Not IndexNumber => 0 Then
            If Isarray(Me.m_vAPPTUNID) Then
                Me.m_nHolidayEntry = Ubound(Me.m_vAPPTUNID) + 1
                Redim Preserve Me.m_vAPPTUNID(Me.m_nHolidayEntry)
                Redim Preserve Me.m_vModified(Me.m_nHolidayEntry)
                Redim Preserve Me.m_vUserForcedLocalDeletion(Me.m_nHolidayEntry)
                Redim Preserve Me.m_vDeletedByAgent(Me.m_nHolidayEntry)
                Redim Preserve Me.m_vLocatedInPublicNAB(Me.m_nHolidayEntry)
            Else
                Me.m_nHolidayEntry = 0
                Redim Me.m_vAPPTUNID(Me.m_nHolidayEntry)
                Redim Me.m_vModified(Me.m_nHolidayEntry)
                Redim Me.m_vUserForcedLocalDeletion(Me.m_nHolidayEntry)
                Redim Me.m_vDeletedByAgent(Me.m_nHolidayEntry)
                Redim Me.m_vLocatedInPublicNAB(Me.m_nHolidayEntry)
            End If
        Else
            Me.m_nHolidayEntry = IndexNumber
        End If
        Me.m_vAPPTUNID(Me.m_nHolidayEntry) = Me.m_noteHolidayDoc.ColumnValues(1)
        Me.m_vModified(Me.m_nHolidayEntry) = Me.m_noteHolidayDoc.LastModified
        Me.m_vLocatedInPublicNAB(Me.m_nHolidayEntry) = True            'always set to true when updating or adding
        Me.m_vUserForcedLocalDeletion(Me.m_nHolidayEntry) = 0
        Me.m_vDeletedByAgent(Me.m_nHolidayEntry) = 0
        Exit Function
    End Function
    Private Function MarkEntryDeleted(Index As Integer)
        Me.m_vDeletedByAgent(Index) = 1
        Me.m_nDeleted = Me.m_nDeleted + 1
    End Function
    Private Sub ScanForDeletes()
        On Error Goto TRAP
        Dim n As Integer
        If Isarray(Me.m_vAPPTUNID) Then
            For n = 0 To Ubound(Me.m_vAPPTUNID)
                If Not Cint(Me.m_vDeletedByAgent(n)) = 1 Then
                    If Not Me.m_vLocatedInPublicNAB(n) Then
                        Set Me.m_notePublicHolidayDoc = Me.m_dbMasterHoliday.Getdocumentbyunid(Me.m_vAPPTUNID(n))
                        If Me.m_notePublicHolidayDoc Is Nothing Then
                            Call RemoveAllDocumentsByAPPTUNID(Me.m_vAPPTUNID(n))
                            Call MarkEntryDeleted(n)
                        Else
                            If Not Me.m_notePublicHolidayDoc.LastModified = Me.m_vModified(n) Then
                                Call RemoveAllDocumentsByAPPTUNID(Me.m_vAPPTUNID(n))
                                Call CreateEntryInMailFile()
                                Call UpdateEntryInProfile(n)
                            End If
                        End If
                    End If
                End If
            Next
        End If
        Exit Sub
TRAP:
        If Err = 200 Then
            Resume Next
        Elseif Err = 4091 Then
            If Not Me.m_notePublicHolidayDoc Is Nothing Then
                Delete Me.m_notePublicHolidayDoc
            End If
            Resume Next
        Else
            Messagebox(Cstr(Err) & ": " & Error$)
        End If
    End Sub
    Private Sub WriteNoteItemsToProfile()
        'let's do a quick integrity check before we save....
        If CheckIntegrity Then
            Call Me.m_noteHolidayProfile.ReplaceItemValue("APPTUNID", Me.m_vAPPTUNID)
            Call Me.m_noteHolidayProfile.ReplaceItemValue("Modified",Me.m_vModified)
            Call Me.m_noteHolidayProfile.ReplaceItemValue("UserForcedLocalDeletion",Me.m_vUserForcedLocalDeletion)
            Call Me.m_noteHolidayProfile.ReplaceItemValue("DeletedByAgent",Me.m_vDeletedByAgent)
            Call Me.m_noteHolidayProfile.ReplaceItemValue("LastImported",Now())
            Call Me.m_noteHolidayProfile.Save(True,False,True)
        Else
            Print("Data integrity is not correct")
        End If
    End Sub
    Private Function CheckIntegrity() As Integer
        On Error Goto TRAP
        CheckIntegrity = False
        Dim n As Integer
        n = Ubound(Me.m_vAPPTUNID)
        If (n = Ubound(Me.m_vModified)) Then
            If (n = Ubound(Me.m_vUserForcedLocalDeletion)) Then
                If (n = Ubound(Me.m_vDeletedByAgent)) Then
                    CheckIntegrity = True
                End If
            End If
        End If
        Exit Function
TRAP:
        If Err = 13 Then
            'structure is not initialized this is OK on new objects
            CheckIntegrity = True
            Resume Next
        Else
            Messagebox(Cstr(Err) & ": " & Error$)
        End If
    End Function
    Private Sub ReadItemsFromViewIntoProfile()
        Set Me.m_viewEntry = Me.m_viewMailHoliday.GetFirstdocument
        Do While Not Me.m_viewEntry Is Nothing
            Me.m_vColumnValues = Me.m_viewEntry.Columnvalues(11)
            If Instr(Me.m_vColumnValues,"h") Then
                If Not Me.m_strTempAPPTUNID = Me.m_viewEntry.Columnvalues(0) Then
                    If Isarray(Me.m_vAPPTUNID) Then
                        Me.m_nHolidayEntry = Ubound(Me.m_vAPPTUNID) + 1
                        Redim Preserve Me.m_vAPPTUNID(Me.m_nHolidayEntry)
                        Redim Preserve Me.m_vModified(Me.m_nHolidayEntry)
                        Redim Preserve Me.m_vUserForcedLocalDeletion(Me.m_nHolidayEntry)
                        Redim Preserve Me.m_vDeletedByAgent(Me.m_nHolidayEntry)
                        Redim Preserve Me.m_vLocatedInPublicNAB(Me.m_nHolidayEntry)
                    Else
                        Me.m_nHolidayEntry = 0
                        Redim Me.m_vAPPTUNID(Me.m_nHolidayEntry)
                        Redim Me.m_vModified(Me.m_nHolidayEntry)
                        Redim Me.m_vUserForcedLocalDeletion(Me.m_nHolidayEntry)
                        Redim Me.m_vDeletedByAgent(Me.m_nHolidayEntry)
                        Redim Me.m_vLocatedInPublicNAB(Me.m_nHolidayEntry)
                    End If
                    Me.m_vAPPTUNID(Me.m_nHolidayEntry) = Me.m_viewEntry.Columnvalues(0)
                    Me.m_vModified(Me.m_nHolidayEntry) = Me.m_viewEntry.Columnvalues(12)
                    Me.m_vUserForcedLocalDeletion(Me.m_nHolidayEntry) = 0
                    Me.m_vDeletedByAgent(Me.m_nHolidayEntry) = 0
                    Me.m_vLocatedInPublicNAB(Me.m_nHolidayEntry) = 0
                    Me.m_nHolidayEntry = Me.m_nHolidayEntry + 1
                End If
            End If
            Me.m_vTempAPPTUNID = Me.m_viewEntry.Columnvalues(0)
            If Isarray(Me.m_vTempAPPTUNID) Then
                Me.m_strTempAPPTUNID = Me.m_vTempAPPTUNID(0)
            Else
                Me.m_strTempAPPTUNID = Me.m_viewEntry.Columnvalues(0)
            End If
            Set Me.m_viewEntry = Me.m_viewMailHoliday.GetNextdocument(Me.m_viewEntry)
        Loop
    End Sub
    Sub GetImportItems
        Call Me.m_noteCursorDoc.replaceitemvalue(strListLabel, Me.m_cStringTable.GetString(HOLIDAY_STRING+5, Null))
        Call Me.m_noteCursorDoc.replaceitemvalue("ViewName" , strPublicNABHolidayView$)
        Call Me.m_noteCursorDoc.replaceitemvalue("ServerName",fGetMailServerName())
        Call Me.m_noteCursorDoc.replaceitemvalue("PublicNABFileName" ,strPUBLIC_NAB_FILENAME )
        Call Me.m_noteCursorDoc.replaceitemvalue("LastImported",Me.m_noteHolidayProfile.LastImported)
        Me.m_nMB_OK = Me.m_uiws.DialogBox( strPicklistResource , True , True , False, False, False, False, Me.m_cStringTable.GetString(HOLIDAY_STRING+1, Null),Me.m_noteCursorDoc,True,False)
        If Me.m_nMB_OK Then
            If Me.m_noteCursorDoc.HasItem(strSelectedItems$) Then
                Me.m_vCategories = Me.m_noteCursorDoc.getitemvalue(strSelectedItems$)
            End If
        Else
            End
        End If
    End Sub
    Function CopyToDB
        Me.m_nSuccess = fCopyToDB()
        If Me.m_nSuccess Then
            'now let's scan for notes that have been deleted in the public address book...
            Call ScanForDeletes()
            Call WriteNoteItemsToProfile()
            Messagebox(Cstr((Me.m_nAdded - Me.m_nUpdated)) & Me.m_cStringTable.GetString(HOLIDAY_STRING+12, Null) & Chr(13) &_
            Cstr(Me.m_nUpdated) & Me.m_cStringTable.GetString(HOLIDAY_STRING+13, Null) & Chr(13) &_
            Cstr(Me.m_nDeleted) & Me.m_cStringTable.GetString(HOLIDAY_STRING+15, Null))
        Else
            Messagebox(Me.m_cStringTable.GetString(HOLIDAY_STRING+16, Null))
        End If
    End Function
    Function RemoveAllDocumentsByAPPTUNID(APPTUNID As String)
'test for nothing states.....
        Dim noteMasterToDelete As notesdocument
        Dim collRepeatingNotesToDelete As notesdocumentcollection
        Set collRepeatingNotesToDelete = Me.m_viewMailHoliday.getalldocumentsbykey(APPTUNID,True)
        If collRepeatingNotesToDelete.count > 0 Then
            Set noteMasterToDelete = collRepeatingNotesToDelete.GetFirstDocument
            If noteMasterToDelete.Isresponse Then
                Set noteMasterToDelete = Me.m_dbCurrentDatabase.GetDocumentByUNID(noteMasterToDelete.ParentDocumentUNID)
            End If
            Call collRepeatingNotesToDelete.RemoveAll(True)
        End If
        If Not noteMasterToDelete Is Nothing Then
            Call noteMasterToDelete.remove(True)
        End If
    End Function
    Function fCopyToDB() As Integer
        Dim retLastUpdated As String
        Dim retIndexNumber As Integer
        If Me.m_vCategories(0) = "" Then
            fCopyToDB = False
        Else
            Forall categories In Me.m_vCategories
                Set Me.m_noteHolidayDoc = Me.m_viewHolidayGroup.getdocumentbykey(categories , True)
TOP:
                If IsHolidayInProfile(Cstr(Me.m_noteHolidayDoc.ColumnValues(1)), retIndexNumber) Then
                    If Not (Me.m_noteHolidayDoc.LastModified = Me.m_vModified(retIndexNumber))_
                    Or Me.m_vDeletedByAgent(retIndexNumber) Then
                    'the master doc is modified or has been readded to the collection
                        Call RemoveAllDocumentsByAPPTUNID(Cstr(Me.m_noteHolidayDoc.ColumnValues(1)))
                        Call CreateEntryInMailFile()
                        Call UpdateEntryInProfile(retIndexNumber)
                    Else
'                    let's set the flag so there's no deletion scan for this item...
                        Me.m_vLocatedInPublicNAB(retIndexNumber) = True
                    End If
                Else ' it's new and we just add the record and the item to memory
                    Call CreateEntryInMailFile()
                    Call UpdateEntryInProfile(True) 'true is a new entry
                End If
                Set Me.m_noteHolidayDoc = Me.m_viewHolidayGroup.getnextdocument(Me.m_noteHolidayDoc)
                If Not Me.m_noteHolidayDoc Is Nothing Then
                    If Not Isnull(Arraygetindex(Me.m_noteHolidayDoc.ColumnValues,Cstr(categories) , 1)) Then
                        Goto TOP
                    End If
                End If
            End Forall
            fCopyToDB = True
        End If
    End Function
    Private Function IsHolidayInProfile(APPTUNID As String, retIndexNumber As Integer) As Integer
        Dim tmpIndex As Variant
        If Isarray(Me.m_vAPPTUNID) Then
            tmpIndex = Arraygetindex(Me.m_vAPPTUNID,APPTUNID, 1)
            If Not Isnull(tmpIndex) Then
                retIndexNumber = Cint(tmpIndex)
                IsHolidayInProfile = True
                Exit Function
            Else
                retIndexNumber = Cint(-1)
                IsHolidayInProfile = False
            End If
        Else
            retIndexNumber = Cint(-1)
            IsHolidayInProfile = False
        End If
    End Function
    Private Function CreateEntryInMailFile()
        Me.m_nAdded = Me.m_nAdded + 1
        Set Me.m_notePublicHolidayDoc = New NotesDocument(Me.m_dbCurrentDatabase)
        Call Me.m_noteHolidayDoc.CopyAllItems(Me.m_notePublicHolidayDoc)
        Dim noteCalanderDoc As New NotesCSEventOwnerDocument(1)
        Dim vDates As Variant
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("OrgRepeat","1")
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("Form","Appointment")
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("AppointmentType","1")
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("$CSFlags","h")
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("StartDate",m_notePublicHolidayDoc.getitemvalue("RepeatStartDate"))
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("EndDate",m_notePublicHolidayDoc.getitemvalue("RepeatStartDate"))
        Call noteCalanderDoc.Init(Me.m_notePublicHolidayDoc)
        Call noteCalanderDoc.SetViewIcon()
'        Call noteCalanderDoc.UpdateBusyTimeInfo(Me.m_notePublicHolidayDoc.GetItemValue("BookFreeTime")(0) <> "1")
        Call noteCalanderDoc.UpdateDateTimeItems()
        vDates = noteCalanderDoc.GenerateRepeatDates()
        Call Me.m_notePublicHolidayDoc.ReplaceItemValue("RepeatDates", vDates)
        Call noteCalanderDoc.CreateRepeatHierarchy()
        Call noteCalanderDoc.MarkTempItems()
        Call Me.m_notePublicHolidayDoc.save(True,True,False)
    End Function
    Function fGetMailServerName() As String
        Me.m_vReturnValue = Evaluate(|@LocationGetInfo([HomeServer])|)
        If Me.m_vReturnValue(0) = "" Then
            Call DisplayWarn(Me.m_cStringTable.GetString(HOLIDAY_STRING+10, Null) , MB_OK , Me.m_cStringTable.GetString(HOLIDAY_STRING+1, Null))
            End
        Else
            fGetMailServerName = Me.m_vReturnValue(0)
        End If
    End Function
End Class
Class HolidayImportStringTable
    Sub new
    End Sub
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case HOLIDAY_STRING+1
            GetString = "Import Holidays"
        Case HOLIDAY_STRING+5
            GetString = "Please select the 'Holiday' group(s) to import."
        Case HOLIDAY_STRING+6
            GetString = "You must have at least 'Author' to this database to proceed."
        Case HOLIDAY_STRING+7
            GetString = "Could not open 'Public Name and Address Book'"
        Case HOLIDAY_STRING+8
            GetString = "This feature requires a Domino version 5.0 or greater Name and Address Book."
        Case HOLIDAY_STRING+9
            GetString = "Required view not found in Public Address Book."
        Case HOLIDAY_STRING+10
            GetString = "No mail server has been specified for your current location."
        Case HOLIDAY_STRING+11
            GetString = "No items have been defined in the Public Name and Address Book."
        Case HOLIDAY_STRING+12
            GetString = " holiday records added."
        Case HOLIDAY_STRING+13
            GetString = " holiday records updated."
        Case HOLIDAY_STRING+15
            GetString = " holiday records deleted."
        Case HOLIDAY_STRING+16
            GetString = "No group was selected."
        End Select
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim ImportOperation As New cBaseImportHolidays()
    Call ImportOperation.GetImportItems
    Call ImportOperation.CopyToDB
End Sub
Lotus Product
V0.0R
T T %
~$!##1
~T!##1
~,"##1
~D"#H8
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class FormatRichText
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'InternetReply:
Const DEFAULT_OFFSETCHAR = ">> "
Class FormatRichText
    Private session As notessession
    Private uiws As notesuiworkspace
    Private noteUIEditDocument As notesuidocument
    Private noteParent As notesdocument
    Private noteMemo As notesdocument
    Private rtParentBody As notesrichtextitem
    Private strReplyFormat As String
    Private strFormattedText As String
    Private strArray() As String
    Private nLineAdded As Integer
    Public Function Init()
        Set session = New notessession
        Set uiws = New notesuiworkspace
        strReplyFormat = DEFAULT_OFFSETCHAR
        Set noteParent = session.CurrentDatabase.UnprocessedDocuments.GetFirstDocument()
        Set noteMemo = session.CurrentDatabase.createdocument()
        If Not noteParent Is Nothing Then
            If GetBodyFromNote() Then
                If ExtractFormattedText() Then
                    With noteMemo
                        Call .replaceitemvalue("Form","Memo")
                        'still need to create the address items...
                        Call CreateBody()
                        Set noteUIEditDocument =  uiws.Editdocument(True, noteMemo)
                    End With
                End If
            End If
        Else
            'Bail we got no masterdocument
        End If
    End Function
    Private Function CreateBody() As Integer
        Dim rtMemoBody As notesrichtextitem
        Dim n As Integer
        Set rtMemoBody = New notesrichtextitem(noteMemo,"Body")
        For n = 0 To Ubound(strArray)
            If Len(strArray(n)) > 1 Then
                nLineAdded = False
                Call rtMemoBody.Appendtext(strReplyFormat & strArray(n))
                Call rtMemoBody.Addnewline(1, False)
            Else
                If Not nLineAdded Then
                    Call rtMemoBody.Appendtext(strReplyFormat)
                    Call rtMemoBody.Addnewline(1,True)
                    nLineAdded = True '& new paragraph
                End If
            End If
        Next
    End Function
    Private Function GetBodyFromNote() As Integer
        GetBodyFromNote = False
        If noteParent.hasitem("Body") Then
            Set rtParentBody = noteParent.GetFirstItem("Body")
            If Not rtParentBody Is Nothing Then
                GetBodyFromNote = True
                Exit Function
            End If
        End If
    End Function
    Private Function ExtractFormattedText() As Integer
        strFormattedText = rtParentBody.Getformattedtext(False, 80)
        If CreateFormattedArray() Then
            ExtractFormattedText = True
        End If
    End Function
    Private Function CreateFormattedArray() As Integer
        CreateFormattedArray  = True
        Redim strArray(0)
        Dim strWorkingString As String
        Dim strTempString As String
        Dim n As Integer
        Dim lngLeftPart As Long
        Dim lngTotalLength As Long
        Dim lngLength As Long
        strWorkingString = strFormattedText
        While Instr(strWorkingString,Chr(13))
            Redim Preserve strArray(n)
            lngTotalLength = Len(strWorkingString)
            lngLeftPart = Instr(strWorkingString,Chr(13))
            strTempString = Left(strWorkingString,lngLeftPart - 1)
            While Instr(strTempString,Chr(13)) = 1
                strTempString = Right(Left(strWorkingString,lngLeftPart),(Len(strWorkingString) - 1))
            Wend
            strArray(n) = strTempString
            strWorkingString = Right(strWorkingString,(lngTotalLength - (lngLeftPart + 1)))
            n = n + 1
        Wend
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim InternetReply As New FormatRichText
    Call InternetReply.Init()
End Sub
Lotus Product
V0.0V
P
    @    @
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As notesuidocument
Lotus Product
(InviteeReplyDlg)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set uidoc = source
    Set note = source.document
End Sub
Lotus Product
OBJECT
type=hidden
PartialName
Query_String
&ActionType=`
    1S2S
PartialName
PartialName
PartialName
    0R16StmpActionType
tmpFTSStartDateTime
tmpFTSEndDateTime
NoticeType
    1S2S
        You have previously delegated this request to
Delegee
tmpDelegee
    .  A message will be sent to that person regarding his/her change in status.
tmpActionType
    Accepting this request will automatically update your calendar.
dk+blue+circle(1).gif|BlueCircle
        You can tentatively accept this request which will not book busy time.
tmpPencilIn
Tentatively accept|1
tmpActionType
         Who would you like to delegate this request to?
xxDelegee
You need to enter a user name to delegate to.
    1S2S
xxAlreadySent
The name entered has already been assigned this to do.
The name entered has already been invited to this meeting.
    0R1S2S5S6S8S10S
Participants
AssignedTo
OptionalAssignedTo
FYIAssignedTo
RequriedAttendees
OPtionalAttendees
Chair
    0R1S2S7S8S10S16S20S21S
tmpActionType
Delegee
xxNeedDelegee
    0R3S4S5S6S10S11S13S21S
tmpActionType
Delegee
Participants
xxAlreadySent
    0R3S4S6S16S20S26S31S36S39S
Delegee
tmpActionType
TaskG
    1S2S3S4S8S
         When would you like this meeting to be held?
tmpActionType
TaskG
    1S2S3S4S9S
    When would you like to complete this to do?
tmpActionType
.,$ //:
NewStartDAte
NewStartDate
StartDate
StartDate
StartDateTime
    3S4S6S8S9S10S12S14SNewStartDate
tmpActionType
    1S2S3S4S5S6S
.,$ //:
NewStartTime
NewStartTime
StartTime
StartTime
StartDateTime
    3S4S6S8S9S10S12S14SNewStartTime
.,$ //:
NewEndDAte
NewEndDate
EndDate
EndDate
EndDateTime
    3S4S6S8S9S10S12S14SNewEndDate
.,$ //:
NewEndTime
NewEndTime
EndTime
EndTime
EndDateTime
    3S4S6S8S9S10S12S14SNewEndTime
tmpActionType
tmpActionType
    1S2S3S4S5S6S7S8S9S10S
RequiredList
tmpActionType
Delegee
RequiredAttendees
SendTo
Chair
    1S2S5S6S8S10S
OptionalList
tmpActionType
OptionalAttendees
CopyTo
    0R1S2S5S6S8S10S
RoomList
tmpActionType
    0R1S2S5S6S8S10S
tmpFTSStartDateTime
NewStartDate
NewStartTime
    0RRR1S2S3S11S12S13S14S
tmpFTSEndDateTime
NewEndDate
NewEndTime
    0R1S2S3S11S12S13S14S
RequiredList
OptionalList
RoomList
tmpFTSStartDateTime
tmpFTSEndDateTime
    0RR20RTTT25S27S
NewStartDate
tmpFTSStartDateTime
    0R1S2S3S
NewStartTime
tmpFTSStartDateTime
    0R1S2S3S
NewEndDate
tmpFTSEndDateTime
    0R1S2S3S
NewEndTime
tmpFTSEndDateTime
    0R1S2S3S
    Search...
tmpActionType
    1S2S3S4S
dk+blue+circle(1).gif|BlueCircle
        You can continue receiving update notices from the owner if you wish.
tmpKeepPosted
Keep me informed of meeting updates|1
tmpHideComments
    1S2S
dk+blue+circle(1).gif|BlueCircle
        A message will be sent to the owner of this request.
tmpIncludeComments
Include comments on the reply message|1
tmpActionType
tmpActionType
    1S2S3S4S5S6S
    If you had previously accepted this request, your calendar and busy time will be updated.
New Button
Need a newer version of Notes to execute this button.
    0S0E
thisform = document.forms[0]
parentwnd = window.opener
parentform = parentwnd.document.forms[0]
actiontype = thisform.tmpActionType.value
if (actiontype == "A")
    iValue = 65536
else if (actiontype == "R")
    iValue = 131072
else if (actiontype == "D")
    iValue = 262144
    parentform.Delegee.value = thisform.Delegee.value
else if (actiontype == "T")
    iValue = 524288
    parentform.NewStartDate.value = thisform.NewStartDate.value
    parentform.NewStartTime.value = thisform.NewStartTime.value
    parentform.NewEndDate.value = thisform.NewEndDate.value
    parentform.NEwEndTime.value = thisform.NewEndTime.value
    iValue = 0
parentwnd.updateActionInProgress(iValue, true)
self.close()
parentwnd.submitDocument()
New Button
Need a newer version of Notes to execute this button.
    0S0E
self.close()
    Cancel
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
tmpFTSStartDateTime
tmpFTSEndDateTime
NewStartDate
NewStartTime
NewEndDate
NewEndTime
$Body
$PublicAccess
&Arial
Lotus Product
 (ListResource)
ServerName
ServerName
PublicNABFileName
PublicNABFileName
ViewName
ViewName
tmpCategories
NoCache
ServerName
PublicNABFileName
ViewName
    1S2S5S6S8S9S10S12S14S
tmpCategories
tmpCategories
tmpCategories
    0R6S7S8S9S11S13S
CategoryChoices
act_IMPORTHOLIDAY|act_IMPORTHOLIDAY
ListLabel
ListLabel
CategoryChoices
SelectedItems
tmpCategories
CategoryChoices
tmpCategories
tmpCategories
tmpCategories
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
P8_5$
$Info
$$Script_O
$$ScriptName
$Body
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIAddressHelper
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const CONFLICT_MESSAGE$ = "This entry is already in your addressbook"
Dim AddressControl As UIAddressHelper
Class UIAddressHelper
    Private m_uiws As notesuiworkspace
    Private m_uidocDialog As notesuidocument
    Private m_noteDialog As notesdocument
    Private m_vAllAddresses As Variant
    Private m_vAllNoteIDs  As Variant
    Private m_vAllTitle As Variant
    Private m_vAllFirst As Variant
    Private m_vAllMiddle As Variant
    Private m_vAllLast As Variant
    Private m_vAllFullName As Variant
    Private m_vAllSuffix As Variant
    Private m_vAllEmail As Variant
    Private m_vAllDomain As Variant
    Private m_vAllPublicAddressUNID As Variant
    Private m_vAllEmailType As Variant
    Private m_vAllConflictInNAB As Variant
    Private m_vAllConflictAction As Variant
    Private m_nMAX As Integer
    Private m_nBottom As Integer
    Private m_nCurrentSelection As Integer
Declare Public Sub Init(Source As notesuidocument)
Declare Public Function WriteRecords() As Integer
Declare Public Sub Next()
Declare Public Sub Previous()
Declare Private Sub LoadDisplay()
Declare Private Sub WriteUIToStack()
    Sub New()
        Set Me.m_uiws = New notesuiworkspace
    End Sub
    Sub Init(Source As notesuidocument)
        Set Me.m_uidocDialog = Source
        Set Me.m_noteDialog = Source.document
        Me.m_vAllAddresses = Me.m_noteDialog.getitemvalue("AllAddresses")
        Me.m_vAllNoteIDs  = Me.m_noteDialog.getitemvalue("AllNoteIDs ")
        Me.m_vAllTitle = Me.m_noteDialog.getitemvalue("AllTitle")
        Me.m_vAllFirst = Me.m_noteDialog.getitemvalue("AllFirst")
        Me.m_vAllMiddle = Me.m_noteDialog.getitemvalue("AllMiddle")
        Me.m_vAllLast = Me.m_noteDialog.getitemvalue("AllLast")
        Me.m_vAllFullName = Me.m_noteDialog.getitemvalue("AllFullName")
        Me.m_vAllSuffix = Me.m_noteDialog.getitemvalue("AllSuffix")
        Me.m_vAllEmail = Me.m_noteDialog.getitemvalue("AllEmail")
        Me.m_vAllDomain = Me.m_noteDialog.getitemvalue("AllDomain")
        Me.m_vAllPublicAddressUNID = Me.m_noteDialog.getitemvalue("AllPublicAddressUNID")
        Me.m_vAllEmailType = Me.m_noteDialog.getitemvalue("AllEmailType")
        Me.m_vAllConflictInNAB = Me.m_noteDialog.getitemvalue("AllConflictInNAB")
        Me.m_vAllConflictAction = Me.m_noteDialog.getitemvalue("AllConflictAction")
        Me.m_nBottom = 0
        Me.m_nMAX = Ubound(Me.m_vAllAddresses)
        Me.m_uidocDialog.autoreload = False
        Call Me.m_noteDialog.ReplaceItemValue("TotalRecords",Me.m_nMAX+1)
        Call LoadDisplay()
    End Sub
    Sub Next()
        If Me.m_nCurrentSelection < Me.m_nMAX Then
            Call WriteUIToStack()
            Me.m_nCurrentSelection = Me.m_nCurrentSelection + 1
            Call LoadDisplay()
        Else
            Beep
        End If
    End Sub
    Sub Previous()
        If Me.m_nCurrentSelection > 0 Then
            Call WriteUIToStack()
            Me.m_nCurrentSelection = Me.m_nCurrentSelection - 1
            Call LoadDisplay()
        Else
            Beep
        End If
    End Sub
    Sub LoadDisplay()
        Call Me.m_noteDialog.ReplaceItemValue("tmpTitle",Me.m_vAllTitle(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpFirstName",Me.m_vAllFirst(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpMiddleName",Me.m_vAllMiddle(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpLastName",Me.m_vAllLast(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpSuffix",Me.m_vAllSuffix(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpEmailAddress",Me.m_vAllEmail(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpDomain",Me.m_vAllDomain(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("tmpEmailType",Me.m_vAllEmailType(Me.m_nCurrentSelection))
        Call Me.m_noteDialog.ReplaceItemValue("CurrentRecord",(Me.m_nCurrentSelection + 1))
        Call Me.m_noteDialog.ReplaceItemValue("tmpConflictInNAB",Me.m_vAllConflictInNAB(Me.m_nCurrentSelection))
        If Me.m_vAllConflictInNAB(Me.m_nCurrentSelection) = "1" Then
            Call Me.m_noteDialog.ReplaceItemValue("$AlertGraphic","a")
            Call Me.m_noteDialog.ReplaceItemValue("ConflictMessage",CONFLICT_MESSAGE)
        Else
            Call Me.m_noteDialog.ReplaceItemValue("$AlertGraphic","b")
            Call Me.m_noteDialog.ReplaceItemValue("ConflictMessage","")
        End If
        Call Me.m_noteDialog.ReplaceItemValue("tmpConflictAction",Me.m_vAllConflictAction(Me.m_nCurrentSelection))
        Call Me.m_uidocDialog.Reload()
        Call Me.m_uidocDialog.Refreshhideformulas()
    End Sub
    Sub WriteUIToStack()
        Me.m_vAllTitle(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpTitle")(0)
        Me.m_vAllFirst(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpFirstName")(0)
        Me.m_vAllMiddle(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpMiddleName")(0)
        Me.m_vAllLast(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpLastName")(0)
        Me.m_vAllSuffix(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpSuffix")(0)
        Me.m_vAllEmail(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpEmailAddress")(0)
        Me.m_vAllDomain(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpDomain")(0)
        Me.m_vAllEmailType(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpEmailType")(0)
        If Isnumeric(Me.m_noteDialog.getitemvalue("tmpConflictAction")(0)) Then
            Me.m_vAllConflictAction(Me.m_nCurrentSelection) = Cstr(Me.m_noteDialog.GetItemValue("tmpConflictAction")(0))
        Else
            Me.m_vAllConflictAction(Me.m_nCurrentSelection) = "0"
        End If
    End Sub
    Public Function WriteRecords() As Integer
        Call WriteUIToStack()
        With Me.m_noteDialog
            Call .ReplaceItemValue("AllAddresses",    Me.m_vAllAddresses)
            Call .ReplaceItemValue("AllDomain", Me.m_vAllDomain )
            Call .ReplaceItemValue("AllNoteIDs ", Me.m_vAllNoteIDs  )
            Call .ReplaceItemValue("AllTitle", Me.m_vAllTitle )
            Call .ReplaceItemValue("AllFirst", Me.m_vAllFirst )
            Call .ReplaceItemValue("AllMiddle", Me.m_vAllMiddle )
            Call .ReplaceItemValue("AllLast", Me.m_vAllLast )
            Call .ReplaceItemValue("AllFullName", Me.m_vAllFullName )
            Call .ReplaceItemValue("AllSuffix", Me.m_vAllSuffix )
            Call .ReplaceItemValue("AllEmail", Me.m_vAllEmail )
            Call .ReplaceItemValue("AllDomain", Me.m_vAllDomain )
            Call .ReplaceItemValue("AllPublicAddressUNID", Me.m_vAllPublicAddressUNID )
            Call .ReplaceItemValue("AllEmailType", Me.m_vAllEmailType )
            Call .ReplaceItemValue("AllConflictInNAB", Me.m_vAllConflictInNAB )
            Call .ReplaceItemValue("AllConflictAction", Me.m_vAllConflictAction )
        End With
        WriteRecords = True
    End Function
End Class
Lotus Product
OBJECT
(NameHelper)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Queryopen From Source Call Queryopen
    On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Call AddressControl.Init(Source)
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set AddressControl = New UIAddressHelper
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If Not Source.DialogBoxCanceled Then
        Continue = AddressControl.WriteRecords()
    End If
End Sub
Lotus Product
V0.0l
$AlertGraphic
AllAddressesj
    4S5S
AllAddressesj
    4S5S
AlertGraphic
AlertGraphic
A    @8Q"
ConflictMessage
    0S0E
GIF89a
]X_X{|<
ConflictMessage
ConflictMessage
tmpConflictAction
tmpConflictAction
Skip|1Update|2
address1.gif|AddToAddressBook
Skipped
Skipped
address.gif|tb_ADDTOADDRESSBOOK
ConflictMessage
tb_EXCLAMATION
    3S4S
AllAddressesj
    4S5S
    Add
.,$///:
TotalRecords
TotalRecords
     contacts to your address book
AllAddressesj
    4S5S
GIF89a
<a>7`^///""
hs_PREVIOUS
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call AddressControl.Previous()
End Sub
Lotus Product
OBJECT
    Contact #
.,$///:
CurrentRecord
CurrentRecord
GIF89a
<a>7`^///""
hs_NEXT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call AddressControl.Next()
End Sub
Lotus Product
OBJECT
    Title:
tmpTitle
-None-|Dr.|Dr.Prof.|Prof.Mr.|Mr.Ms.|Ms.Miss|MissMrs.|Mrs.
    First name:
tmpFirstName
    Middle name:
tmpMiddleName
    Last name:
tmpLastName
    Suffix:
tmpSuffix
-None-|Jr.|Jr.Sr.|Sr.IIIIII
Basics
    Mail system:
tmpEmailType
Notes|1cc:Mail|2Internet|5X.400|4
    Email address:
tmpEmailAddress
tmpEmailAddress
    Routing domain(s):
tmpDomain
IncludeX509
Include X.509 certificates when encountered|1
Advanced
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
*** Message Not Delivered ***
&Arial
Lotus Product
 NonDelivery Report
Delivery Failure Report
    Your document:
Subject
OriginalSubject
    was not delivered to
IntendedRecipient
IntendedRecipient
    0S0E
IntendedRecipient
    because:
FailureReason
FailureReason
$HideMailHeader
    0S0E
    What should you do?
    You can resend the undeliverable document to the recipients listed above by choosing the Resend button or the Resend command on the Actions menu.
    Once you have resent the document you may delete this Delivery Failure Report.
    If resending the document is not successful you will receive a new failure report
    Unless you receive other Delivery Failure Reports, the document was successfully delivered to all other recipients.
Routing path
RouteServers
RouteServersServers along route.
    ________________________
NamePreference
AltSendTo
AltSendTo
SendTo
    5S6S
SendToList of primary people to send memo.z
EnterSendTo
NamePreference
AltCopyTo
AltCopyTo
CopyTo
    5S6S7S
CopyToList of people to send a copy of the memo.
EnterCopyTo
    0S0E
    Date:
.,$ //:
PostedDateY
PostedDateJ
DateTime/date memo was created or mailed.
    Subject:
Subject
SubjectSubject of memo.
Subject_1
BodyBody of document.
Categori_zeK
Close
    0S0E
    0S0E
act_discardchanges.GIF|act_CSDISCARD
Edit Document
Resend
act_SEND.GIF|act_SEND?
Resend
$AutoSpell(
    1S3S
    0R7S9S
SaveOptions
    0R1S2S3S
act_SEND.GIF|act_SEND?
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
Categori_zeK
Close
    0S0E
    0S0E
Edit Document
Resend
Resend
$AutoSpell(
    1S3S
    0R7S9S
SaveOptions
    0R1S2S3S
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$$Script_O
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
Ir    8*r
Meeting Notice
NoticeType
Broadcast
(Help)
MAIL_F_APPOINTMENT_INV_REC_BRD
(Help)
MAIL_F_APPOINTMENT_INV_REC
    3S4S6RTRTTT9S10S12RTTTTT23RTTTTT35RRT'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSUIDocClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uicsdoc As UIEventDocument
Lotus Product
OBJECT
 Notice'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Postopen From Source Call Postopen
    On Event Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Postsave From Source Call Postsave
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If (source.inpreviewpane) Then Exit Sub
    Set uicsdoc = CSUIDocOpen(1, source, mode, isnewdoc, continue)
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    If (source.InPreviewPane) Then Exit Sub
    Call uicsdoc.Postopen()
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then Exit Sub
    Call uicsdoc.QuerySave(continue)
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then Exit Sub
    If (uicsdoc.WasSaved) Then Call uicsdoc.QueryClose(continue)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    If (source.InPreviewPane) Then Exit Sub
    Call uicsdoc.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then continue = False
End Sub
Lotus Product
Notes
(wCSItems)
    3S4S6S8S
Notice
tmpDoNotProcess
tmpOwner
BlindCopyTo
NoticeType
    3S4S6S8S17S18S28S31S32S
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28StmpNoActionBar
tmpOwner
Chair
    8S11S12S22StmpOwnerHW
ChairName
Chair
    1S2S
PrincipalName
Principal
    0R1S2S
xxInvitation
New meeting request from
ChairName
    0RR1S2S3S4S
xxReschedule
ChairName
 has rescheduled this meeting
    0R1S2S3S4S
xxCancellation
ChairName
 has cancelled this meeting
    0R1S2S3S4S
xxConfirmation
ChairName
 has confirmed this meeting
    0R1S2S3S4S
xxAccept
tmpowner
chair
PrincipalName
 has accepted your meeting request"
You have accepted this request
    0R1S2S5S6S8S9S10S12S
xxDecline
tmpOwner
chair
PrincipalName
 has declined your meeting request"
You have declined this request
    0R1S2S5S6S8S9S10S12S
xxCounter
tmpOwner
chair
PrincipalName
 has proposed changes to your meeting request
You have countered this request
    0R1S2S5S6S8S9S10S12S
xxDelegate
tmpOwner
chair
PrincipalName
 has delegated your meeting request
You have delegated this request
    0R1S2S5S6S8S9S10S12S
xxDeleInvite
PrincipalName
 has delegated this meeting request to you"
    0R1S2S3S4S
xxDeclineCounter
ChairName
 has declined your proposed changes
    0R1S2S3S4S
xxReserved
PrincipalName
 has been reserved"
    0R1S2S3S4S
xxUnavail
PrincipalName
 is unavailable
    0R1S2S3S4S
xxRefreshInfo
$CSFlags
PrincipalName
 is requesting updated information"
Updated information from
PrincipalName
    0R1S2S8S11S12S13S15RTTT16S17S
xxPencilIn
PrincipalName
 has tentatively accepted your meeting request"
    0R1S2S3S4S
OrgStateh
NoticeType
xxReserved
xxUnavail
NoticeType
xxInvitation
xxReschedule
xxCancellation
xxConfirmation
xxAccept
xxDecline
xxCounter
xxDelegate
xxDeleInvite
xxRefreshInfo
xxDeclineCounter
xxPencilIn
    0R7RT11S15S16S17S20RTRT24S48S49S50STT51S52S53S54S55S56S57S58S59S60S61S62STT64S65S66S
tmpNoticeType
NoticeType
Proposed Start:
Begins:
    3S4S
.,$ //:
NoticeType
NewStartDate
StartDateTime
    3S4S6S8S
tmpStartDateTime
    Local Time
NoticeType
Proposed End:
Ends:
    3S4S
.,$ //:
NoticeType
NewEndDate
EndDateTime
    3S4S6S8S
tmpEndDateTime
    Local Time
NoticeType
    1S2S
    Original Start:
.,$ //:
StartDateTime
tmpOrigStartDateTime
    Local Time
    Original End:
.,$ //:
EndDateTime
tmpOrigEndDateTime
    Local Time
    Title:
Topic
tmpTopic
    Location:
Location
Location
-No room information available-
    7S14S16S2E
tmpRoom
    Chair:
Chair
Chair
Principal
tmpChair
tmpWasMailed
principal
    3S4S14S15S
    Sent by:
tmpSentBy
NoticeType
    1S2S
    Delegated To:
Delegee
tmpDelegee
Basics
    Required:
RequiredAttendees
    0S0E
tmpRequired
    Optional:
OptionalAttendees
    0S0E
tmpOptional
BlindCopyTo
    4S5S
    FYI:
BlindCopyTo
tmpFYI
Invitees
OrgRepeat
    0S0E
    Starting:
.,$ //:
RepeatStartDate
RepeatStartDate
OriginalStartDate
    7S9S
tmpRepeatStart
OrgRepeat
RepeatDates
    4S5S
    Repeat:
RepeatInterval
tmpRepeatInterval
every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
RepeatUnit
tmpRepeatUnit
day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
RepeatAdjust
tmpRepeatAdjust
RepeatUnit
on Sunday|0
on Monday|1
on Tuesday|2
on Wednesday|3
on Thursday|4
on Friday|5
on Saturday|6
RepeatUnit
on the 1st Sunday|1.0
on the 1st Monday|1.1
on the 1st Tuesday|1.2
on the 1st Wednesday|1.3
on the 1st Thursday|1.4
on the 1st Friday|1.5
on the 1st Saturday|1.6
on the 2nd Sunday|2.0
on the 2nd Monday|2.1
on the 2nd Tuesday|2.2
on the 2nd Wednesday|2.3
on the 2nd Thursday|2.4
on the 2nd Friday|2.5
on the 2nd Saturday|2.6
on the 3rd Sunday|3.0
on the 3rd Monday|3.1
on the 3rd Tuesday|3.2
on the 3rd Wednesday|3.3
on the 3rd Thursday|3.4
on the 3rd Friday|3.5
on the 3rd Saturday|3.6
on the 4th Sunday|4.0
on the 4th Monday|4.1
on the 4th Tuesday|4.2
on the 4th Wednesday|4.3
on the 4th Thursday|4.4
on the 4th Friday|4.5
on the 4th Saturday|4.6
on the Last Sunday|5.0
on the Last Monday|5.1
on the Last Tuesday|5.2
on the Last Wednesday|5.3
on the Last Thursday|5.4
on the Last Friday|5.5
on the Last Saturday|5.6
RepeatUnit
on the 1st day|1
on the 2nd day|2
on the 3rd day|3
on the 4th day|4
on the 5th day|5
on the 6th day|6
on the 7th day|7
on the 8th day|8
on the 9th day|9
on the 10th day|10
on the 11th day|11
on the 12th day|12
on the 13th day|13
on the 14th day|14
on the 15th day|15
on the 16th day|16
on the 17th day|17
on the 18th day|18
on the 19th day|19
on the 20th day|20
on the 21st day|21
on the 22nd day|22
on the 23rd day|23
on the 24th day|24
on the 25th day|25
on the 26th day|26
on the 27th day|27
on the 28th day|28
on the 29th day|29
on the 30th day|30
on the 31st day|31
    3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
RepeatHow
tmpRepeatHow
until|Ufor|F
RepeatFor
tmpRepeatUnit
    7S9S
RepeatHow
RepeatUntil
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
month
RepeatForUnit
RepeatFor
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
weeks
RepeatFor
RepeatForUnit
months
RepeatFor
RepeatForUnit
years
    0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
tmpRepeatUntil
RepeatUnit
(if the date falls on a weekend the meeting
RepeatWeekends
occurs anyway
RepeatWeekends
is moved to Friday
RepeatWeekends
is moved to Monday
RepeatWeekends
is moved to Nearest Weekday
RepeatWeekends
is deleted
    3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
tmpRepeatWeekends
OrgRepeat
RepeatDates
    4S5S
    Applies to:
RescheduleWhich
tmpAppliesTo
This instance only|0All instances|1This instance and all previous instances|2This instance and all future instances|3
Repeat Info
entrybg
tmpowner
chair
Comments
Description
    3S4S
StatusUpdate
Comments
    4S5S
    Comments
Comments
Comments
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    If (uiobject.OkToAccept(False)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim note As notesdocument
    Dim uiobject As Variant
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    uiobject.SendComments = False
    uiobject.ActionInProgress = ACTION_ACCEPT
    Set note = uidoc.document
    Call note.replaceitemvalue("tmpPencilIn","1")
    If Not(uidoc.editmode) Then uidoc.editmode = True
    Call uidoc.save
    Call uidoc.close
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
    1S2S3S4S5S6S7S8S9S10S
Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    If (uiobject.OkToAccept(True)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Decline
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = True
    Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = True
    Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim note As notesdocument
    Dim uiobject As Variant
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    uiobject.SendComments = True
    uiobject.ActionInProgress = ACTION_ACCEPT
    Set note = uidoc.document
    Call note.replaceitemvalue("tmpPencilIn","1")
    If Not(uidoc.editmode) Then uidoc.editmode = True
    Call uidoc.save
    Call uidoc.close
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
    1S2S3S4S5S6S7S8S9S10S
Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S
Check Calendar2
Check Calendar
    0S0E
tmpOwnerHW
tmpNoActionBar
    0S1S2S3S4S5S6S
Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uicsdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Decline CounterK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uicsdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Add to CalendarK
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
Send Updated Information...K'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Update Information...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    If (uiobject.OkToAccept(False)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\DeclineK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim note As notesdocument
    Dim uiobject As Variant
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    uiobject.SendComments = False
    uiobject.ActionInProgress = ACTION_ACCEPT
    Set note = uidoc.document
    Call note.replaceitemvalue("tmpPencilIn","1")
    If Not(uidoc.editmode) Then uidoc.editmode = True
    Call uidoc.save
    Call uidoc.close
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
    1S2S3S4S5S6S7S8S9S10S
Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    If (uiobject.OkToAccept(True)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Decline
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = True
    Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = False
    Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uicsdoc.uiobject.SendComments = True
    Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Tentatively Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim note As notesdocument
    Dim uiobject As Variant
    Set uiobject = uicsdoc.UIObject
    Set uidoc = uicsdoc.UIDocument
    uiobject.SendComments = True
    uiobject.ActionInProgress = ACTION_ACCEPT
    Set note = uidoc.document
    Call note.replaceitemvalue("tmpPencilIn","1")
    If Not(uidoc.editmode) Then uidoc.editmode = True
    Call uidoc.save
    Call uidoc.close
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
    1S2S3S4S5S6S7S8S9S10S
Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S
Check Calendar2
Check Calendar
    0S0E
tmpOwnerHW
tmpNoActionBar
    0S1S2S3S4S5S6S
Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uicsdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Decline CounterK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uicsdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Add to CalendarK
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
Send Updated Information...K'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Update Information...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uicsdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Productd
JV0.0
[D!Kp -
"Kp -$
K("St
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
KtV0.0
{Kt{,
K$!-0
]\|K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
^l|K$!-0
^l|Jl|
]\|Jl|
]\|K$!-0
Lotus Product
OBJECT
Lotus Product
Ir    8*r
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
NewStartDate
NewStartTime
NewEndDate
NewEndTime
$HTMLDocumentStyles
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$SCRIPTOBJ_27
$SCRIPTOBJ_28
$Info
$WINDOWTITLE
$AppHelpFormula
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$PublicAccess
function copyRepeatItems()
    thisform = document.forms[0]
    datelist = thisform.tmpDateList
    strValues = thisform.tmpListOfDates.value
    strValuesArray = strValues.split("; ")
    for (i =0; i < strValuesArray.length; i++)
        datelist.options[i] = new Option(strValuesArray[i], strValuesArray[i])
Lotus Product
(RepeatOpenList)
type=hidden
tmpListOfDates
StartDateTime
tmpListOfDates
    3S4S6S
tmpListOfDates
Notes
tmpPrompt
    3S4S11S
PartialName
Query_String
&Prompt=`
    0R1S2S
CompleteName
PartialName
PartialName
PartialName
    0R1S2S18S
CompleteName
tmpPrompt
xxErr_NONE_SELECTED
No selection has been made.
tmpDateList
xxErr_NONE_SELECTED
tmpDateList
Notes
tmpListOfDatesV
    3S4S6S11S
New Button
Need a newer version of Notes to execute this button.
    0S0E
parentwindow = window.opener
url = parentwindow.location.href
var fSelectedItem = false
datelist = window.document.forms[0].tmpDateList
for (i = 0; i < datelist.options.length; i++)
    if (datelist.options[i].selected)
        datevalue = datelist.options[i].value.substring(0, datelist.options[i].value.indexOf(" "))
        dateinstance = new Date()
        month = datevalue.substring(0, datevalue.indexOf("/"))
        datevalue = datevalue.substring(3, datevalue.length)
        day = datevalue.substring(0, datevalue.indexOf("/"))
        year = datevalue.substring(3, datevalue.length)
        alert(month + " " + day + " " + year)
        if (year.length < 4)
            year = "19" + year
        url = url + "&Date=" + year + "-" + month + "-" + day
        fSelectedItem = true
        break
    if (fSelectedItem)
        parentwindow.location.href = url
        self.close()
    else
        alert("You need to select a date value from the list.")
        return
New Button
Need a newer version of Notes to execute this button.
    0S0E
self.close()
    Cancel
.,$ //:
tmpDateList
    0S0E
tmpDateSelected
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLCode
$Info
$$Script_O
$$ScriptName
tmpListOfDates
tmpDateSelected
$Body
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
      ' can't rely on this since exit event won't fire if we directly exit or save profile
'     Call ExpandGroupNames ( "IgnoreFrom" )

End Sub
Lotus Product{Q
V0.0S
Kd{,D
^,|J,|
^d~}(
^t~}P
^T~}(
^t~}P
^T~}P
^d~}(
JT~KD~-
JT~KD~-
KD~-<
tKD~-`
(Help)
MAIL_F_OUTOFOFFICEPROFILE
    0S0E
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class OutOfOfficeControl As BaseApplication
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim OfficeControl As OutOfOfficeControl
Class OutOfOfficeControl As BaseApplication
    Public  m_agentOutOfOffice As notesagent
    Private m_uiws As notesuiworkspace
    Private m_dbCurrentDatabase As notesdatabase
    Private m_noteUIDoc As notesuidocument
    Private m_noteCalendarEntry As NotesDocument
    Private m_dtFirstDayOut As notesdatetime
    Private m_dtFirstDayBack As notesdatetime
    Private m_dtNow As notesdatetime
    Private m_namHomeServer As notesname
    Private m_MailStringTable As MailToolsStringTable
    Private m_vHomeServer As Variant
    Private m_nSuccess As Integer
    Private m_nResult As Integer
    Private m_nUserHasRestrictedAccess As Integer
    Sub New()
        Set Me.m_uiws = New notesuiworkspace
        Set Me.m_noteUIDoc = Me.m_uiws.currentdocument
        Set Me.m_dbCurrentDatabase= session.currentdatabase
        Set Me.m_agentOutOfOffice = Me.m_dbCurrentDatabase.GetAgent("OutOfOffice")
        Set Me.m_MailStringTable = New MailToolsStringTable
    End Sub
    Function PostOpen()
        Me.m_noteUIDoc.autoreload = False
        If Me.m_agentOutOfOffice.IsEnabled Then
            Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
            Call Me.m_noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","1")
            Set Me.m_dtFirstDayBack = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayBack"))
            Set Me.m_dtNow = New notesdatetime(Now())
        Else
            Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
            Call Me.m_noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","0")
        End If
        Call Me.m_noteUIDoc.reload()
        Call Me.m_noteUIDoc.Refreshhideformulas()
    End Function
    Private Function ToggleEnableDisableEx() As Integer
        ToggleEnableDisableEx = True
        On Error Goto TRAP
        If Me.m_agentOutOfOffice.IsEnabled Then
            Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 47,Null) & Chr(13) & _
            Me.m_MailStringTable.GetString(TOOL_STRING + 48,Null),MB_YESNO,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
            If Me.m_nResult = IDYES Then
                Me.m_agentOutOfOffice.IsEnabled = False
                Call Me.m_agentOutOfOffice.save()
                If Me.m_agentOutOfOffice.IsEnabled Then
                    Call Me.m_noteUIDoc.document.save(True,True,True)
                    Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 44,Null) _
                    & Chr(13) & Me.m_MailStringTable.GetString(TOOL_STRING + 45,Null), _
                    MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                Else
                    Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
                    Call Me.m_noteUIDoc.document.replaceitemvalue("Notified","")
                    Call Me.m_noteUIDoc.document.replaceitemvalue("SaveOptions","1")
                    Call Me.m_noteUIDoc.document.save(True,True,True)
                    Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 49,Null), _
                    MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))

                    If Me.m_noteUIDoc.document.GetItemValue("OwnerOfCalendarEntry")(0) = "1" Then
                        'call look for calendar entry and ask if I should disable busy time only if date is less than return date?
                        If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtNow)  > 0 Then
                            Me.m_nSuccess = Messagebox( Me.m_MailStringTable.GetString(TOOL_STRING + 66,Null), MB_YESNO, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                            If Me.m_nSuccess = IDYES Then
                                Set Me.m_noteCalendarEntry = Me.m_dbCurrentDatabase.GetDocumentByUNID(Me.m_noteUIDoc.document.GetItemValue("CalendarEntryUNID")(0))
                                If Not Me.m_noteCalendarEntry Is Nothing Then
                                    With Me.m_noteCalendarEntry
                                        Call .ReplaceItemValue("$BusyPriority","2")
                                        Call .ReplaceItemValue("BookFreeTime", "1")
                                        Call .Save(True,True,True)
                                    End With
                                    Call Me.m_noteUIDoc.document.replaceitemvalue("OwnerOfCalendarEntry","0")
                                    Call Me.m_noteUIDoc.document.replaceitemvalue("CalendarEntryUNID", "")
                                Else
                                    Call DisplayWarn(Me.m_MailStringTable.GetString(TOOL_STRING + 67,Null), MB_OK,_
                                    Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                                End If
                            End If
                        End If
                    End If

                End If
            End If
            Exit Function
        Else
            If ValidateSettings() Then
                If Me.m_dbCurrentDatabase.Currentaccesslevel < 5 Then
                    Me.m_nUserHasRestrictedAccess = True
                    Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 50,Null), _
                    MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                    Exit Function
                End If
                Me.m_vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)
                Set Me.m_namHomeServer = New notesname(Me.m_vHomeServer(0))
                If Me.m_vHomeServer(0) = "" Then
                    Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 51,Null) & Chr(13) & _
                    Me.m_MailStringTable.GetString(TOOL_STRING + 52,Null), _
                    MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                    Exit Function
                End If
                Me.m_agentOutOfOffice.Servername = Cstr(Me.m_vHomeServer(0))
                Me.m_agentOutOfOffice.IsEnabled = True
                Call Me.m_agentOutOfOffice.save
                If Me.m_agentOutOfOffice.IsEnabled Then
                    Call BookBusyTime()
                    Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
                    Call Me.m_noteUIDoc.document.replaceitemvalue("SaveOptions","1")
                    Call Me.m_noteUIDoc.document.save(True,True,True)
                    Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 53,Null)  & _
                    Me.m_namHomeServer.Abbreviated & Chr(13) & Me.m_MailStringTable.GetString(TOOL_STRING + 54,Null) & _
                    Me.m_noteUIDoc.FieldGetText("FirstDayOut") & Me.m_MailStringTable.GetString(TOOL_STRING + 55,Me.m_noteUIDoc.FieldGetText("FirstDayBack")),MB_OK, _
                    Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                Else
                    Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 56,Null) & Chr(13) & _
                    Me.m_MailStringTable.GetString(TOOL_STRING + 50,Null) ,MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                End If
            Else
                ToggleEnableDisableEx = False
            End If
        End If
        Exit Function
Trap:
        If Err = 4091 Then
            Resume Next
        Else
            Print("Notes error: " & Cstr(Err) & " " &  Error$)
            Resume Next
        End If
    End Function
    Public Function ToggleEnableDisable()
        If ToggleEnableDisableEx() Then
            Call Me.m_noteUIDoc.reload()
            Call Me.m_noteUIDoc.Refreshhideformulas()
            Call Me.m_noteUIDoc.Save
        End If
    End Function
    Public Function ValidateSettings() As Integer
        ValidateSettings = False
        If (Me.m_noteUIDoc.FieldGetText("FirstDayOut") = "") Or _
        (Me.m_noteUIDoc.FieldGetText("FirstDayBack") = "") Then
            Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 57,Null), _
            MB_OK, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
            Exit Function
        End If
        Set Me.m_dtFirstDayOut = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayOut"))
        Set Me.m_dtFirstDayBack = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayBack"))
        Set Me.m_dtNow = New notesdatetime(Now())
        If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtNow)  < 0 Then
            Me.m_nSuccess = Messagebox( Me.m_MailStringTable.GetString(TOOL_STRING + 58,Null), _
            MB_OK, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
            Exit Function
        End If
        If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtFirstDayOut)  < 0 Then
            Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 59,Null), _
            MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
            Exit Function
        End If
        If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtFirstDayOut)  = 0 Then
            Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 60,Null), _
            MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
            Exit Function
        End If
        ValidateSettings = True
    End Function
    Public Function BookBusyTime()
        If Me.m_noteUIDoc.document.BookBusyTime(0) = "1" Then
            Set Me.m_noteCalendarEntry = Me.m_dbCurrentDatabase.CreateDocument()
            With Me.m_noteCalendarEntry
                Call .ReplaceItemValue("Form","Appointment")
                Call .ReplaceItemValue("StartDate", Me.m_noteUIDoc.document.FirstDayOut)
                Call .ReplaceItemValue("StartDateTime", Me.m_noteUIDoc.document.FirstDayOut)
                Call .ReplaceItemValue("EndDate", Me.m_noteUIDoc.document.FirstDayBack)
                Call .ReplaceItemValue("EndDateTime", Me.m_noteUIDoc.document.FirstDayBack)
                Call .ReplaceItemValue("$BusyName", session.username)
                Call .ReplaceItemValue("$BusyPriority", "1")
                Call .ReplaceItemValue("BookFreeTime", "")
                Call .ReplaceItemValue("$PublicAccess","1")
                Call .ReplaceItemValue("AppointmentType","2")
                Call .ReplaceItemValue("ApptUNID",.Universalid)
                Call .ReplaceItemValue("ExcludeFromView","D")
                Call .ReplaceItemValue("Subject","Out Of Office")
                Call .ReplaceItemValue("_ViewIcon",9)
                Call .ReplaceItemValue("CreatedByAgent","1")
                Call .Save(True,True,True)
            End With
            Call Me.m_noteUIDoc.document.replaceitemvalue("OwnerOfCalendarEntry","1")
            Call Me.m_noteUIDoc.document.replaceitemvalue("CalendarEntryUNID", Me.m_noteCalendarEntry.Universalid)
        End If
    End Function
    Public Function QueryClose(Source As notesuidocument, Continue As Variant)
        Dim nResult As Integer
        If Cint(Source.document.GetItemValue("SaveOptions")(0)) Then
            'Spr #MQUE43TPTK
            If Cint(Source.document.GetItemValue("AgentEnableOnOpen")(0)) Then
                If Source.document.GetItemValue("CurrentStatus")(0) = "1" Then
                    Exit Function
                End If
            End If
            If OfficeControl.ValidateSettings() Then
                If (Cint(Source.document.GetItemValue("CurrentStatus")(0))) And Not (Cint(Source.document.GetItemValue("AgentEnableOnOpen")(0))) Then
                    If Not Me.m_nUserHasRestrictedAccess Then
                        nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 65,Null),MB_YESNO,_
                        Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
                        If nResult = IDYES Then
                            Continue = True
                        Else
                            Continue = False
                        End If
                    End If
                End If
            Else
                Continue = False
            End If
        Else
        'user is discarding changes, they may have been commited when agent was enabled
        End If
    End Function
End Class
Lotus Product
OBJECT
(    (    X
}T    #}
}T    #$
    0S0E
 OutOfOfficeProfile'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Set OfficeControl = New OutOfOfficeControl
    Call OfficeControl.PostOpen()
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If Not Cint(Source.Document.GetItemValue("SaveOptions")(0)) Then
        Call OfficeControl.QueryClose(Source,Continue)
    End If
End Sub
Lotus Product
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
 ' can't rely on this since exit event won't fire if we directly exit or save profile
 '    Call ExpandGroupNames ( "SpecialPeople" )

End Sub
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
      ' can't rely on this since exit event won't fire if we directly exit or save profile
'     Call ExpandGroupNames ( "IgnoreFrom" )

End Sub
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Exiting(Source As Field)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
     Static Source As FIELD
     Set Source = Bind(Objectname_)
     On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
      ' can't rely on this since exit event won't fire if we directly exit or save profile
'     Call ExpandGroupNames ( "IgnoreFrom" )

End Sub
Lotus Product
Action
Profile
    1S2S
    Always Hidden:
.,$///:
AgentEnableOnOpen
AgentEnableOnOpen
Notified
Notifiedz
Notified
Princ
CalendarProfile
Owner
    1S2S6S
Princ
Princ
    0R3S4S6S8S
Senderz
Sender
System
Fromz
Please do not delete - Out of Office Profile
Subject
Subject
ExcludeFromView
ExcludeFromView
_ViewIcon
_ViewIcon
    0S0E
DialogStatus
.,$,  , :
Path_Info
Path_Info
.,$,  , :
Query_String
Query_String
    Current status is:
CurrentStatus
CurrentStatus
    3S4S6S8S
CurrentStatus
Enabled | 0Disabled | 1z
CurrentStatus
    0S0E
    I will be out of the office:
    Leaving:
.,$ //:
pcDate
FirstDayOut
    1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
nextG
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
AdjustAmount
ConNext
TodayInt#
    0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayOut
FirstDayOut
    Returning:
.,$ //:
FirstDayBack
pcDate
FirstDayBacka
    1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
nextG
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
AdjustAmount
ConNext
TodayInt#
    0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBackz
FirstDayBack
BookBusyTime
Book Busytime for these dates|1
BookBusyTime
    0S0E
Dates
    Standard Out of Office message for most people/groups:
    Whomever
    Subject:
 is out of the office."
    1S2S
GeneralSubjectz
GeneralSubject
FirstDayOut
FirstDayBack
I will be out of the office starting
FirstDayOut
 and will not return until
FirstDayBackK
    3S4S5S6S7S8S10S12S13S14S21S22S23S24S31S32S
DaysOut
DaysOut
I will respond to your message when I return.
GeneralMessagez
GeneralMessage
Basic Message
    Special Out of Office message for special people:
    To:
SpecialPeople
SpecialPeople
SpecialPeople
    Subject:
 is out of the office."
    1S2S
SpecialSubjectz
SpecialSubject
FirstDayOut
FirstDayBack
I will be out of the office starting
FirstDayOut
 and will be returning on "
FirstDayBackV
    3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
DaysOut_1
DaysOut_1
SpecialMessage
SpecialMessagez
SpecialMessage
Special Message
.,$///:
ExcludeInternetEmail
Do not send notices to Internet Addresses.|1
    Do not send an Out of Office notification to the following people/groups
IgnoreFromList
IgnoreFromListz
IgnoreFrom
    Do not send an Out of Office notification in response to documents addressed to the following group(s).
IgnoreSend
IgnoreSendz
IgnoreSend
    Do not send an Out of Office notification if the subject contains this exact phrase(s). (note: case sensitive)
IgnoreFrom
IgnoreSubjectPhrase
IgnoreFrom_1
Exclusions
SaveOptions
SaveOptions
    0T1S
SaveOptions
    0R2RT7RTT12RT16RT
     OK
SaveOptions
SaveOptions
SaveOptions
Cancel
CurrentStatus
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call OfficeControl.ToggleEnableDisable()
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
Enable
CurrentStatus
    1S2S
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call OfficeControl.ToggleEnableDisable()
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
Disable
FirstDayOut can be entered as a date or a day of the week.
It is then converted to a text string containing a date, which
    0R1S
@TextToTime does not always recognize as Text so it is
    0R1S
converted to Text then to Time
    0R1S
DateValue
FirstDayOut
    0R1S2S
DateValue
DateValue
DateValue
    0R7S12S17S19S21S
dateFirstDayOut
dateFirstDayOut
FirstDayBack can be entered as a date or a day of the week.
It is then converted to a text string containing a date, which
    0R1S
@TextToTime does not always recognize as Text so it is
    0R1S
converted to Text then to Time
    0R1S
 MUST SET THE TIME COMPONENT TO 12:00:00AM in order for
    0R1S
an calendar entry to be properly added..
    0R1S
DateValue
FirstDayBackV
    0R1S2S
DateValue
DateValue
DateValue
    0R7S12S17S19S21S
dateFirstDayBackz
dateFirstDayBack
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
    7S12S
CancelB
SaveOptions
Enable agent
CurrentStatus
CurrentStatus
    1S3S
Notified
    0RR1S
FirstDayOut
FirstDayOut
    0R1S
FirstDayBack
FirstDayBack
    0R1S
title
Lotus Notes Out of Office
    0R2S
You must indicate when you are leaving and when you will be back.
    0R2S
Your return date must be after today's date.
    0R2S
Your return date cannot be earlier than the leave date.
    0R2S
Please ask a Manager or Designer of this database to enable the agent for you.
    0R2S
The Out of Office agent was not enabled.
    0R2S
The Out of Office agent is now enabled.  When people send you mail between
FirstDayOut
 and
FirstDayBackV
 it will inform them of your absence.
    0R2S3S4S8S9S10S11S15S16S
Please ask a Manager or Designer of this database to disable the agent for you.
    0R2S
Your Out of Office agent is still enabled.
    0R2S
msg10
NOTE: If you created an Out of Office calendar entry, you should adjust your Out of Office entry dates to reflect your actual return date.
    0R2S
msg11
Your Out of Office has been disabled.
    0R2S
CurrentStatus
FirstDayOut
FirstDayBack
Validation Error
You must indicate when you are leaving and when you will be back.
DateFirstDayBack-
Validation Error
Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
DateFirstDayBack-
msg10
OutOfOffice
title
msgX"
title
OutOfOffice
title
msgX"
title
msg11
    0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
    7S12S
CancelB
SaveOptions
Enable agent
CurrentStatus
CurrentStatus
    1S3S
Notified
    0RR1S
FirstDayOut
FirstDayOut
    0R1S
FirstDayBack
FirstDayBack
    0R1S
title
Lotus Notes Out of Office
    0R2S
You must indicate when you are leaving and when you will be back.
    0R2S
Your return date must be after today's date.
    0R2S
Your return date cannot be earlier than the leave date.
    0R2S
Please ask a Manager or Designer of this database to enable the agent for you.
    0R2S
The Out of Office agent was not enabled.
    0R2S
The Out of Office agent is now enabled.  When people send you mail between
FirstDayOut
 and
FirstDayBackV
 it will inform them of your absence.
    0R2S3S4S8S9S10S11S15S16S
Please ask a Manager or Designer of this database to disable the agent for you.
    0R2S
Your Out of Office agent is still enabled.
    0R2S
msg10
NOTE: If you created an Out of Office calendar entry, you should adjust your Out of Office entry dates to reflect your actual return date.
    0R2S
msg11
Your Out of Office has been disabled.
    0R2S
CurrentStatus
FirstDayOut
FirstDayBack
Validation Error
You must indicate when you are leaving and when you will be back.
DateFirstDayBack-
Validation Error
Your First Day Back is in the Past.  The Out of Office agent will not be enabled.
DateFirstDayBack-
msg10
OutOfOffice
title
msgX"
title
OutOfOffice
title
msgX"
title
msg11
    0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$$IgnoreFrom
$IgnoreFrom_O
$Info
$AppHelpFormula
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$GeneralMessage
$GeneralMessage_O
$$SpecialPeople
$SpecialPeople_O
$$IgnoreFromList
$IgnoreFromList_O
$$IgnoreSubjectPhrase
$IgnoreSubjectPhrase_O
_ViewIcon
FirstDayOut
FirstDayBack
dateFirstDayOut
dateFirstDayBack
$Body
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As notesuidocument
Lotus Product
Kd{,D
^,|J,|
^d~}D
^t~}l
^T~}D
^t~}l
^T~}l
^d~}D
JT~KD~-
JT~KD~-
KD~-<
(OwnerDlg)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set uidoc = source
    Set note = source.document
End Sub
Lotus Product
OBJECT
type=hidden
PartialName
Query_String
&ActionType=`
    1S2S
PartialName
PartialName
PartialName
    0R16StmpActionType
tmpActionType
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
xxMeeting
When would you like this meeting to be held?
    1S2S
xxTodo
When would you like this to do to be completed by?
    0R1S2S
xxTodo
xxMeeting
    0R3S4S6S8S
tmpHeading
tmpActionType
tmpActionType
    2S3S4S5S6S7S
.,$ //:
tmpActionType
NewStartDate
StartDate
    3S4S6S
StartDate
tmpActionType
tmpActionType
    2S3S4S5S6S7S9S10S11S12S
.,$ //:
tmpActionType
NewStartTime
StartTime
    3S4S6S
StartTime
.,$ //:
tmpActionType
NewEndDate
DueDate
EndDate
    3S4S6S9S10SEndDate
.,$ //:
tmpActionType
NewEndTime
EndTime
    3S4S6S
EndTime
RequiredList
RequiredAttendees
SendTo
Chair
    1S2S
OptionalList
OptionalAttendees
CopyTo
    0R1S2S
RoomList
RoomToReserve
    0R1S2S
ResourceList
RequiredResources
Resources
    0R1S2S
tmpFTSStartDateTime
StartDate
StartTime
    0RRR1S2S3S11S12S13S14S
tmpFTSEndDateTime
EndDate
EndTime
    0R1S2S3S11S12S13S14S
RequiredList
OptionalList
RoomList
ResourceList
Uninvited
tmpFTSStartDateTime
tmpFTSEndDateTime
    0RR20RTTT25S27S
StartDate
tmpFTSStartDateTime
    0R1S2S3S
StartTime
tmpFTSStartDateTime
    0R1S2S3S
EndDate
tmpFTSEndDateTime
    0R1S2S3S
EndTime
tmpFTSEndDateTime
    0R1S2S3S
    Check Schedules...
tmpActionType
GIF89a
dk+blue+circle(1).gif|BlueCircle
xxTask
Notes can clean up all documents related to this to do.
    1S2S
xxMeeting
Notes can clean up all documents related to this meeting.
    0R1S2S
xxTask
xxMeeting
    0R3S4S
tmpDeleteHeading
tmpDeleteEntry
xxTodo
Delete to do document and all responses|1
    1S2S
xxMeeting
Delete calendar entry and all responses|1
    0R1S2S
xxTodo
xxMeeting
    0R3S4S
dk+blue+circle(1).gif
xxCancel
A notice will be sent to all assignees informing them the to do has been cancelled.
A notice will be sent to all invitees informing them the meeting has been cancelled.
    1S2S5S6S8S
xxReschedule
A notice will be sent to all assignees informing them the to do has been rescheduled.
A notice will be sent to all invitees informing them the meeting has been rescheduled.
    0R1S2S5S6S
xxConfirm
A notice will be sent to all assignees informing them the to do has been confirmed.
A notice will be sent to all invitees informing them the meeting has been confirmed.
    0R1S2S5S6S
xxDecline
A notice will be sent to the assignee informing them the date proposed has been declined.
A notice will be sent to the invitee informing them the time proposed has been declined.
    0R1S2S5S6S10S
tmpActionType
xxCancel
tmpActionType
xxReschedule
tmpActionType
xxConfirm
tmpActionType
xxDecline
    0R3S4S6S8S9S10S14S16S17S18S20S22S23S24S26S
tmpMessage
tmpIncludeComments
Include additional comments on notice|1
tmpActionType
tmpActionType
    1S2S3S4S5S6S
    Any room/resource reservations for this meeting will also be removed.
    Any room/resource reservations for this meeting will also be rescheduled.
New Button
Need a newer version of Notes to execute this button.
    0S0E
thisform = document.forms[0]
parentwnd = window.opener
parentform = parentwnd.document.forms[0]
actiontype = thisform.tmpActionType.value
if (actiontype == "C")
    iValue = 256
else if (actiontype == "U")
    iValue = 512
    parentform.StartDate.value = thisform.StartDate.value
    parentform.StartTime.value = thisform.StartTime.value
    parentform.EndDate.value = thisform.EndDate.value
    parentform.EndTime.value = thisform.EndTime.value
else if (actiontype == "N")
    iValue = 1024
else if (actiontype == "J")
    iValue = 4096
    iValue = 0
parentwnd.updateActionInProgress(iValue, true)
self.close()
parentwnd.submitDocument()
New Button
Need a newer version of Notes to execute this button.
    0S0E
self.close()
    Cancel
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
tmpNewStartDate
tmpNewStartTime
tmpNewEndDate
tmpNewEndTime
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
StartDate
StartTime
EndDate
EndTime
$Body
$PublicAccess
(Help)
MAIL_F_PARTICIPANTTABLE_MEET
    0S0E
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim table As NotesCSParticipantTable
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
 ParticipantTable'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Postrecalc From Source Call Postrecalc
On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Dim namePerson As NotesName
    Dim nrole As Integer
    Dim nstatus As Integer
    Dim vPeople As Variant
    Dim vRole As Variant
    Dim vStatus As Variant
    Set note = source.document
    Set uidoc = source
    source.autoreload = False
    vPeople = note.GetItemValue("tmporiginalpeople")
    vRole = note.GetItemValue("tmporiginalrole")
    vStatus = note.GetItemValue("tmporiginalstatus")
    Set table = New NotesCSParticipantTable(2)
    ' build the sorted table
    For i = 0 To Ubound(vPeople)
        Set namePerson = New notesname(vPeople(i))
        nrole = Cint(vRole(i))
        nstatus = Cint(vStatus(i))
        Call table.AddInstance(namePerson.Common, nrole, nstatus)
    Next
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Dim stype As String
    Dim i As Integer
    Dim Instance As NotesCSParticipantInstance
    Dim itemPeople As Notesitem
    Dim itemRole As notesitem
    Dim itemStatus As NotesItem
    Dim sformtype As String
    Dim note As NotesDocument
    Set note = source.document
    If Not(note.HasItem("tmpReDisplay")) Then Exit Sub
    stype = note.GetItemValue("tmpSortType")(0)
    Call table.Resort(Cint(stype))
    Call CSTableAppendStatus(table, note, False)
    Call note.removeitem("tmpReDisplay")
    Call source.reload
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If Not(table Is Nothing) Then Delete table
End Sub
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
tmpOriginalPeople
tmpOriginalRole
tmpOriginalStatus
tmpSortType
tmpSortType
    0S1S2S
tmpSortType
    1S2S3S
tmpReDisplay
    0R1S2S3S
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
tmpSortType
    0S2E1S2S
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
tmpSortType
    0S1S2S
tmpSortType
    1S2S3S
tmpReDisplay
    0R1S2S3S
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
tmpSortType
    0S1S2S
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
tmpSortType
    0S2E1S2S
tmpSortType
    1S2S3S
tmpReDisplay
    0R1S2S3S
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
tmpSortType
    0S2E1S2S
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
tmpShow
    1S2S
tmpParticipantList
tmpParticipantList
tmpRoleList
tmpRoleList
tmpStatusList
tmpStatusList
tmpDelegationHistory^
    4S5S
GIF89a
        Delegation History:
tmpDelegationHistory
tmpDelegationHistory
    0S0E
    Done
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$Info
$AppHelpFormula
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$PublicAccess
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
Personal Stationery
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
(Help)
MAIL_F_PERSONAL-STATIONERY
    0S0E
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CoreEmailClasses"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim cMemoObject As Variant
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
 Personal Stationery'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Postmodechange From Source Call Postmodechange
    On Event Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Queryopen From Source Call Queryopen
    On Event Postsave From Source Call Postsave
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Call cMemoObject.PostOpen(Source)
End Sub
'++LotusScript Development Environment:2:2:Postmodechange:1:12
Sub Postmodechange(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    Call cMemoObject.QuerySave(Continue)
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
 '        Call uimemodoc.QueryClose(source, continue)
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set cMemoObject = New UIMemoDocument
    Call cMemoObject.Init(Source,Isnewdoc)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Call cMemoObject.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Continue = cMemoObject.QueryModeChange(Source)
End Sub
Lotus Product
OBJECT
ISMAILSTATIONERYh
    0S0E
    Always Hidden:
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
AltFrom
    10SAltFrom
MailSaveOptions
    1S2S3S
MailSaveOptions
DefaultMailSaveOptionsz
DefaultMailSaveOptions
    0S0E
Signz
    0S0E
Encrypt
Encrypt
Principal
Principal
Principal
NamePreference
AltFrom
PostedDateh
$LangFrom
LanguagePreferencet
AltFrom
    1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
    0RR1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
.,$,  , :
Path_Info
Path_Info
.,$,  , :
Query_String
Query_String
CalendarProfile
DefaultLogo
stdNotesLtr0
CalendarProfile
DefaultLogo
StdNotesLtrGateway
    4S13S24R25S29S32S34S
Logoz
BG_IMAGE_PREFIX
    0S0E
StdNotesLtr0
    0RR1RT2RT3S4S6RTT13RT14RT
Image
StdNotesLtr
Image
Gateway
BG_IMAGE_PREFIX
Image
Image
    0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
Image
BG_IMAGE_PREFIX
BG_IMAGE_PREFIX
    0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    From:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
    Subject:
Subject
Subject
Subject
    0S0E
TmpDisplaySubject
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Sent by:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateTime/date memo was created or mailed.z
tmpDisplayDate_Pre
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Please respond
ReplyTo
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
IsMailStationery
    4S5S
    Stationery name:
MAILSTATIONERYNAME
-Untitled-
MAILSTATIONERYNAME
    0S0E
StatNamez
Statio
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
        To:
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    5S6S9S10S14S
EnterSendTo
    0S0E
EnterSendTo
        cc:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    5S6S7S9S10S14S
EnterCopyTo
    0S0E
EnterCopyTo
        cc:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    11S12S13S15S16S20S
BCC_Content
DeliveredDate
BlindCopyTo
 (bcc:
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
CC_Content
BCC_Content
    0R3S4S
tmpEnterCopyTo
        bcc:
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    5S6S7S9S10S14S
EnterBlindCopyTo}
    0S0E
EnterBlindCopyTo
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
Lotus Fax Placeholder
        Subject:
SIZE=50
Subject
MailedThisPass
MailedThisPass
MailedThisPass
    0R1RT4RTTT11RT
ReplyDate
ReplyDate
ReplyDate
Importanceh
Importance
Importance
Importance(
DeliveryReporth
DeliveryReport
DeliveryReport
DeliveryReport(
DeliveryPriorityh
DeliveryPriority
DeliveryPriority
DeliveryPriority(
UpdateProfileNote
UpdateProfileNote
UpdateProfileNote
ReturnReceipt
ReturnReceipt
ReturnReceipt
$KeepPrivateh
$KeepPrivate
$KeepPrivate(
ExpireDateh
ExpireDate
ExpireDate(
ReplyTo
ReplyTo
ReplyTo
MimeFormath
MimeFormat
MimeFormat
MimeFormat(
SMTPEncodingh
SMTPEncoding
SMTPEncoding
SMTPEncoding(
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
MIMEMailCharset
$AutoSpellh
$AutoSpell
$AutoSpell(
WebSubjecth
WebSubject
WebSubject(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
    Header:
IsMailStationery
    0S0E
HEADER
Bodyz
Footerz
Footer
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\ReplyK0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
_Forward
act_FORWARD.GIF|act_FORWARD?
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
    0S1S2S
act_EDIT.GIF|act_EDIT?
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
_Move To Folder...
act_FOLDER.GIF|act_FOLDER?
Remove From Folder
Categori_zeK
SSend
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SEND.GIF|act_SEND?
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
IsMailStationery
    1S2S
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
act_TOOLS.GIF|act_TOOLS?
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
act_INSERTSIG.GIF|act_INSERTSIG?
Save As Stationeryr
ActionInProgress
&h00000100&
IsMailStationery
    1S2S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
Discard ChangesK
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
Save And Close
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Save And File
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Close
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
New Memo(
    0S0E
Reply\ReplyK0
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with HistoryK
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
_Forward
ForwardK
    0S0E
ISMAILSTATIONERY
    1S2S
    0S1S2S
Delete
    0S0E
_Move To Folder...
Remove From Folder
Categori_zeK
SSend
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Send\Send and Save'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Send and File
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
Save As Draft
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
Save\As Draft and File'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
    Call cMemoObject.noteUIMemo.save()
    Call cMemoObject.noteUIMemo.close()
End Sub
IsMailStationery
    1S2S
Rename Stationery
xxERROR
No document is selected.
    0S0E
xxTitle
Rename Stationery
xxPrompt
Please enter new stationery name.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Address...T
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Delivery Options...K
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
Delivery Options
    0R4S10S
PostedDateh
    5S6S7S8S
Tools\Insert Signature...
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
PostedDateh
    5S6S7S8S
Tools\Save as Stationery...K
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Delivery Information...
xxTitle
Delivery Information
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
Tools\Preferences...R
DialogMode
(Preferences)
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Insert Signature'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call cMemoObject.InsertSignature(False)
End Sub
Save As Stationeryr
ActionInProgress
&h00000100&
IsMailStationery
    1S2S
New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
Lotus Product
OBJECT
Lotus Product
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"3 We
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$Background
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$AppHelpFormula
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_18
$SCRIPTOBJ_22
$SCRIPTOBJ_26
$SCRIPTOBJ_28
$SCRIPTOBJ_29
$SCRIPTOBJ_30
$SCRIPTOBJ_33
$SCRIPTOBJ_34
$SCRIPTOBJ_36
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ACLManagement"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class UIDelegationACLManager As DelegationACLManager
Declare Sub Initialize
Declare Sub UpdateAgentsAndOptions(note As NotesDocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim ACLManager As UIDelegationACLManager
Class UIDelegationACLManager As DelegationACLManager
    Private uiws As notesuiworkspace
    Private strNameReference As String
    Sub New(note As notesdocument)
    End Sub
    Sub RaiseUIError(nStringID As Integer)
        If uiws Is Nothing Then
            Set uiws = New notesuiworkspace
        End If
        If Me.aclentry Is Nothing Then
            Me.strNameReference = ""
        Else
            Me.strNameReference = Me.aclentry.Name
        End If
        Call uiws.Prompt(Prompt_ok, Me.StringTable.GetString(TOOL_STRING+61,Null),_
        Me.StringTable.GetString(TOOL_STRING+nStringID,Me.strNameReference),,)
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As notessession
    Dim db As notesdatabase
    Dim uiws As New notesuiworkspace
    Dim m_calprofile As notesdocument
    Dim nSuccess As Integer
    Dim strDialogMode As String
    Set session = New notessession
    Set db = session.currentdatabase
    If db.currentaccesslevel <= ACLLEVEL_AUTHOR Then
        Msgbox DelegationControl.StringTable.GetString(TOOL_STRING+70)
        Exit Sub
    End If
    Set m_calprofile = db.GetProfileDocument("CalendarProfile")
    strDialogMode = session.GetEnvironmentString("$DialogMode")
    If Len(strDialogMode) Then
        Call m_calprofile.ReplaceItemValue("$DialogMode",Cint(strDialogMode))
    Else
        Call m_calprofile.RemoveItem("$DialogMode")
    End If
    Set ACLManager = New UIDelegationACLManager(m_calprofile)
    Call ACLManager.Init()
RAISEDIALOG:
    nSuccess = uiws.dialogbox("CalendarProfile",True,True,False,False,False,False,_
    ACLManager.StringTable.GetString(TOOL_STRING+WINDOW_TITLE,Null),m_calprofile,True)
    If nSuccess Then
        If Not ACLManager.CommitACL(False)    Then Goto RAISEDIALOG
        Call m_calprofile.save(True,True,True)
        Call UpdateAgentsAndOptions(m_calprofile)
    End If
End Sub
'++LotusScript Development Environment:2:2:UpdateAgentsAndOptions:1:8
Sub UpdateAgentsAndOptions(note As NotesDocument)
    ' See if we need to update any of the agents
    Dim agent As notesagent
    Dim db As notesdatabase
    Dim session As New notessession
    Dim dtValue As NotesDateTime
    Dim strHomeServer As String
    Dim iHour As Integer
    Set db = session.currentdatabase
    ' enable/disable to do's
    If (note.GetItemValue("TaskFollow")(0) = "1") Then
        ' The user wants to do's to follow them around
        Set agent = db.GetAgent("Update Tasks")
        If Not(agent Is Nothing) Then
            If Not(agent.IsEnabled) Then
                agent.IsEnabled = True
                strHomeServer = session.getenvironmentstring("MailServer", True)
                If Len(strHomeServer) = 0 Then
                    ' the location is local; check the current database
                    strHomeServer = db.Server
                    If Len(strHomeServer) = 0 Then
                        strHomeServer = session.UserName
                        Msgbox "You will need to enable agents locally in order for to do's do be updated daily"
                    End If
                End If
                agent.ServerName = strHomeServer
                Call agent.save()
            End If
        End If
    Else
        ' The user does not want to do's to follow them around
        Set agent = db.GetAgent("Update Tasks")
        If Not(agent Is Nothing) Then
            If (agent.IsEnabled) Then
                agent.IsEnabled = False
                Call agent.save()
            End If
        End If
    End If
    ' enable/disable autoprocessing
    If (note.GetItemValue("AutoProcessLevel")(0) = "D") Then
        Call db.EnableDbOptions(2, False)
    Else
        Call db.EnableDbOptions(2, True)
    End If
    ' update the calendar view preferences
    Call TIMEGetFromitem("CalendarTimeSlotStart", note, dtValue)
    If Not(dtValue Is Nothing) Then
        iHour = Hour(dtValue.LSLocalTime)
        Call session.setenvironmentvar("CalendarTimeSlotStart", iHour * 60, True)
    End If
    Call TIMEGetFromitem("CalendarTimeSlotEnd", note, dtValue)
    If Not(dtValue Is Nothing) Then
        iHour = Hour(dtValue.LSLocalTime)
        Call session.setenvironmentvar("CalendarTimeSlotEnd", iHour * 60, True)
    End If
    Call session.setenvironmentvar("CalendarTimeSlotDuration", note.getitemvalue("CalendarTimeSlotDuration")(0), True)
End Sub
Lotus Product]
V0.0.
    K$    -,
K$    -D
K$    ,t
K$    ,t
K$    ,t
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
5::{j
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
Lotus Product
OBJECT
(subOption)
UserOptions
UserOptions
OptionLabel
OptionLabel
SelectedOptions
UserOptions
UserOptions
    0S0E
TraceType
Delivery status only|0Trace entire path|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
[vq;9,
p\(l2,
$Info
$$Script_O
$$ScriptName
$Body
Lotus Product
(RepeatForm)D
tmpRepeatUnit
RepeatUnit
    0S0E
Every month on the|1
Every other month on the|2
Every 3rd month on the|3
Every 4th month on the|4
Every 5th month on the|5
Every 6th month on the|6
Every 7th month on the|7
Every 8th month on the|8
Every 9th month on the|9
Every 10th month on the|10
Every 11th month on the|11
Every 12th month on the|12
    8R16RtmpRIMDMP
Every year|1
Every other year|2
Every 3rd year|3
Every 4th year|4
Every 5th year|5
Every 6th year|6
Every 7th year|7
Every 8th year|8
Every 9th year|9
Every 10th year|10
    10RtmpRIY
Every|1
Every 2nd|2
Every 3rd|3
Every 4th|4
Every 5th|5
Every 6th|6
Every 7th|7
Every 8th|8
tmpRIW
Every day|1
Every 2nd day|2
Every 3rd day|3
Every 4th day|4
Every 5th day|5
Every 6th day|6
Every 7th day|7
Every 8th day|8
Every 9th day|9
Every 10th day|10
Every 11th day|11
Every 12th day|12
Every 13th day|13
Every 14th day|14
Every 15th day|15
Every 16th day|16
Every 17th day|17
Every 18th day|18
Every 19th day|19
Every 20th day|20
Every 21st day|21
Every 22nd day|22
Every 23rd day|23
Every 24th day|24
Every 25th day|25
Every 26th day|26
Every 27th day|27
Every 28th day|28
Every 29th day|29
Every 30th day|30
Every 31st day|31
    10R20R30R40R50R60R
tmpRID
1st day|1
2nd day|2
3rd day|3
4th day|4
5th day|5
6th day|6
7th day|7
8th day|8
9th day|9
10th day|10
11th day|11
12th day|12
13th day|13
14th day|14
15th day|15
16th day|16
17th day|17
18th day|18
19th day|19
20th day|20
21st day|21
22nd day|22
23rd day|23
24th day|24
25th day|25
26th day|26
27th day|27
28th day|28
29th day|29
30th day|30
31st day|31
    20R38R56RtmpRAMD
Sunday|0
Monday|1
Tuesday|2
Wednesday|3
Thursday|4
Friday|5
Saturday|6
    0S0E
tmpRAW
1st Sunday|1.0
1st Monday|1.1
1st Tuesday|1.2
1st Wednesday|1.3
1st Thursday|1.4
1st Friday|1.5
1st Saturday|1.6
2nd Sunday|2.0
2nd Monday|2.1
2nd Tuesday|2.2
2nd Wednesday|2.3
2nd Thursday|2.4
2nd Friday|2.5
2nd Saturday|2.6
3rd Sunday|3.0
3rd Monday|3.1
3rd Tuesday|3.2
3rd Wednesday|3.3
3rd Thursday|3.4
3rd Friday|3.5
3rd Saturday|3.6
4th Sunday|4.0
4th Monday|4.1
4th Tuesday|4.2
4th Wednesday|4.3
4th Thursday|4.4
4th Friday|4.5
4th Saturday|4.6
Last Sunday|5.0
Last Monday|5.1
Last Tuesday|5.2
Last Wednesday|5.3
Last Thursday|5.4
Last Friday|5.5
Last Saturday|5.6
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
RepeatUnit
    1S2S
     How
RepeatUnit
    1S2S
RepeatUnit
AppointmentType
RepeatUnit
    3S4S6S9S10S12S14S17S
RepeatUnit
RepeatUnit
RepeatForUnit
RepeatForUnit
    0R1S
tmpRepeatUnit
RepeatUnit
RepeatForUnit
RepeatUnit
tmpRepeatUnit
RepeatUnit
RepeatUnit
RepeatUnit
RepeatUnit
    0R1RT2RT3S4S6RTT7RTTT8RTTT20RTTT27RTTT33RTTT35RT36RT
RepeatUnit
Daily|DWeekly|WMonthly by Date|MDMonthly by Day|MPYearly|YCustom|C
RepeatInterval
RepeatInterval
    3S4S8S
RepeatUnit
RepeatInterval
You must select a repeat interval
    3S4S5S6S7S8S10SRepeatInterval
RepeatUnit
tmpRID
RepeatUNit
tmpRIMDMP
RepeatUNit
tmpRIY
RepeatUnit
tmpRIW
    3S4S6S8S9S10S11S12S14S16S17S18S20S22S23S24S26S28S
RepeatUnit
    1S2S
RepeatUnit
RepeatStartDate
    3S4S6S16S
RepeatUnit
RepeatAdjust
You must select at least one adjustment.{
    3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
RepeatUnit
RepeatUnit
tmpRAMD
RepeatUnit
tmpRAMP
RepeatUnit
tmpRAW
RepeatUnit
    1S2S
RepeatFromEnd
Start from the end of the month|1
RepeatUnit
    1S2S
    Enter the list of dates
RepeatCustom
RepeatUnit
    1S2S3S4S5S6S
     Weekends
RepeatUnit
    1S2S3S4S5S6S
    If the date occurs on a weekend:
RepeatWeekends
Don't Move|DMove to Friday|FMove to Monday|MMove to Nearest Weekday|NDelete|X
     Duration
RepeatHow
From|UStarting|F
StartDateTime
StartDateTime
RepeatStartDate
You must enter a value for start date.{
RepeatStartDate
RepeatUnit
RepeatHow
    1S2S3S4S5S6S
RepeatUnit
RepeatHow
    1S2S3S4S5S6S
    continuing for
StartDate
RepeatStartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
StartDate
RepeatUntil
RepeatFor
RepeatUnit
AppointmentType
RepeatUnit
    3S4S6S9S10S12S14S17S
RepeatForUnit
Day(s)|D
    1S2S
Weeks
Week(s)|W
    0R1S2S
Months
Month(s)|M
    0R1S2S
Years
Year(s)|Y
    0R1S2S
RepeatUnit
Weeks
Months
Years
RepeatUnit
Weeks
Months
Years
RepeatUnit
Months
Years
Years
    0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S
New Button
Need a newer version of Notes to execute this button.
    0S0E
thisform = document.forms[0]
parentform = window.opener.document.forms[0]
items = thisform.elements
for (i = 0; i< items.length; i++)
    if (items[i].name.indexOf("Repeat") >= 0)
        if (items[i].name == "RepeatHow")
            radioitem = items[i]
            for (j = 0; j < radioitem.length; j++)
                {
                if (radioitem[j].checked)
                    {
                    parentform.elements[items[i].name].value = radioitem[j].value
                    break
                    }
                }
        else
            parentform.elements[items[i].name].value = items[i].value
parentform.OrgRepeat.value = "1"
self.close()
New Button
Need a newer version of Notes to execute this button.
    0S0E
self.close()
    Cancel
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$$FormAction1
RepeatCustom
RepeatStartDate
RepeatUntil
RepeatFor
$Body
$PublicAccess
tmpDocHeader
Lotus Product
OBJECT
 (ReplyNotice)
(ReplyNotice)
MailOptions
SaveOptions
tmpDocHeader
tmpDocHeader
tmpSendTo
    0S0E
    To:
SendTo^
    0S0E
tmpSendTo
tmpCopyTo
    0S0E
    cc:
CopyTo^
    0S0E
tmpCopyTo
tmpBlindCopyTo
    0S0E
    bcc:
BlindCopyTo
    0S0E
tmpBlindCopyTo
    Subject:
Subject
tmpSubject
    Comments
StatusUpdate
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Send'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim ws As NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim note As NotesDocument
    Dim sFormname As String
    Set ws = New NotesUIworkspace
    Set uidoc = ws.CurrentDocument
    Set note = uidoc.Document
    sformname = note.getitemvalue("FormToUse")(0)
    Call note.ReplaceItemValue("Form", sFormname)
    Call note.RemoveItem("$MessageType")
    uidoc.Reload
    uidoc.send
    uidoc.close
End Sub
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Send'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim ws As NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim note As NotesDocument
    Dim sFormname As String
    Set ws = New NotesUIworkspace
    Set uidoc = ws.CurrentDocument
    Set note = uidoc.Document
    sformname = note.getitemvalue("FormToUse")(0)
    Call note.ReplaceItemValue("Form", sFormname)
    Call note.RemoveItem("$MessageType")
    uidoc.Reload
    uidoc.send
    uidoc.close
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$Info
$WINDOWTITLE
$$Script_O
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_6
$PublicAccess
*** Message Successfully Received ***
(Help)
MAIL_F_RETURN-RECEIPT
    0S0E
 Return Receipt
Return Receipt
        Your document:
Subject
Subject
        was received by:
IntendedRecipient
IntendedRecipient
        at:
DeliveryDate
Categori_zeK
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
Categori_zeK
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$AppHelpFormula
$$ScriptName
DeliveryDate
$Body
$V5ACTIONS
$ACTIONS
*** Message Not Delivered ***
(Help)
MAIL_F_RETURNNONRECEIPT
    0S0E
 ReturnNonReceipt
Return Receipt Failure
    Your document:
Subject
OriginalSubject
    was not received by:
IntendedRecipient
IntendedRecipient
    because:
FailureReason
FailureReason
Categori_zeK
Close
    0S0E
Edit Document
Resend
Resend>
    7S12S
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
Categori_zeK
Close
    0S0E
Edit Document
Resend
Resend>
    7S12S
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$AppHelpFormula
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub BuildList(source As Notesuidocument)
Declare Sub BuildCategory(Source As Notesuidocument,Byval mode As Integer)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim vbooks As Variant
Dim selectedsite As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:BuildList:1:8
Sub BuildList(source As Notesuidocument)
    Dim doc As NotesDocument
    Dim servername As String
    Dim filename As String
    Dim vResultSite As Variant
    Dim vResultCategory As Variant
    Dim dbname As Variant
    Dim l,b,e As Integer
    Dim resourcetype As Variant
    Set doc=source.document
    'field tmpAddressBooks holds all public NABs
    'field tmpSitesAll holds all sites from 1st public NAB
    'field tmpCategoriesAll holds ALL categories from 1st public NAB
'get current selected NAB
    dbname = doc.getItemValue("tmpAddressBooks")
    resourcetype=doc.getitemValue("tmpResourceType")
    l=Len(dbname(0))
    b=Instr(dbname(0),"|")
    e=Instr(dbname(0),"*")
    servername=Mid(dbname(0), b+1, (e-b-1))
    filename=Right(dbname(0),(l-e))
    vResultSite=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Rooms)';1 )|)
    Call doc.ReplaceitemValue("tmpSitesAll", vResultSite)
    If vResultSite(0)="" Then Msgbox "no Site entry found"
    If resourcetype(0)="2" Then
        vResultCategory=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Resources)';3 )|)
        Call doc.ReplaceitemValue("tmpCategoriesAll", vResultCategory)
        If vResultCategory(0)="" Then Msgbox "no Category entry found"
    End If
End Sub
'++LotusScript Development Environment:2:2:BuildCategory:1:8
Sub BuildCategory(Source As Notesuidocument,Byval mode As Integer)
    Dim doc As NotesDocument
    Set doc=source.Document
    Dim currentsite As Variant
    Dim allcategories As Variant
    Dim tmpsubset As NotesItem
    Dim newval As String
    Dim k As String
    'field tmpAddressBooks holds all public NABs
    'field tmpSitesAll holds all sites from 1st public NAB
    'field tmpCategoriesAll holds ALL categories from 1st public NAB
    'field tmpSubsetCategory holds categories for particular site
    'item tmpsubset used to populate list of categories for given site
    If (mode=1) Then
        currentsite=doc.getItemValue("tmpSite")
    Else
        currentsite=doc.getItemValue("tmpSitesAll")
    End If
    If selectedsite=currentsite(0) Then Exit Sub
    allcategories=doc.getitemValue("tmpCategoriesAll")
    Set tmpsubset=New Notesitem (doc, "tmpSubset","")
    Forall cat In allcategories
        k=Strrightback(cat, "/")
        If k=currentsite(0) Then
            newval= Strrightback(Strleftback(cat, "/"), "/")
            Call tmpsubset.AppendToTextList(newval)
        End If
    End Forall
    Call doc.ReplaceitemValue ("tmpSubsetcategory", tmpsubset.values)
    Call doc.ReplaceitemValue ("tmpResourceCategory", "")
    Call doc.Removeitem("tmpSubset")
    selectedsite=currentsite(0)
End Sub
Lotus Product
OBJECT
(Room Resource Scheduler)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postrecalc(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Postrecalc From Source Call Postrecalc
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Dim s As New NotesSession
    Dim item As NotesItem
    Dim doc As NotesDocument
    Dim nabentry As String
    Dim hasbooks As Integer
    Set doc=source.document
    vbooks=s.AddressBooks
    Set item = doc.getfirstitem("tmpAddressBooks")
    'need to put public address books into the Addressbooks field
    Forall v In vbooks
        If v.IsPublicAddressBook Then
            If Len(v.filename) > 0 Then
                hasbooks=True
                If v.isopen Then
                    nabentry = v.title + "|"+v.server+"*" + v.filename
                Else
                    Call  v.open("", "")
                    nabentry = v.title +  "|"+v.server+"*" + v.filename
                End If
                Call item.AppendToTextList (nabentry)
            End If
        End If
    End Forall
    Call BuildList(source)
    Call BuildCategory(source,0)
    If Not(hasbooks) Then
        Msgbox "No Name and Address books were found."
        continue=False
    End If
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Call BuildCategory(source,1)
End Sub
Lotus Product
OBJECT
choices
tmpResourceName
tmpResourceNameSingle
tmpResourceName
tmpResourceNameMulti
    0S0E
RoomToReserve
tmpResourceType
choices
choices
RoomToReserve
    0R1S15S
Resources
tmpResourceType
choices
choices
Resources
    0R1S15S
EndDate
StartDate
    0R1S
RoomToReserve
tmpResourceType
Reserve a Room|1Reserve a Resource|2
tmpResourceName
tmpResourceName
tmpAddressBooks
tmpSitesAll
tmpCategoriesAll
tmpSubsetCategory
.,$ //:
EndDate
EndDateTime
EndDateTime
EndDate
    3S4S6S15S18S
EndDate
OuterTable
tmpResourceType
resource
    8S10S
Search an available
 at a specific time
    Date:
.,$ //:
StartDate
StartDateTime
StartDateTime
StartDate
    3S4S6S15S18S
xxFailed
You must enter a value for the Start Date.
StartDate
xxFailed{
    0R3S4S6S11SStartDate
    Start at:
.,$ //:
StartTime
StartDateTime
StartDateTime
StartTime
    3S4S6S15S18S
xxFailed
You must enter a value for the Start Time.
StartTime
AppointmentType
AppointmentType
xxFailed{
    0R3S4S5S6S7S8S9S10S11S12S14S19SStartTime
    End at:
.,$ //:
EndTime
EndDateTime
EndDateTime
EndTime
    3S4S6S15S
xxFailed
You must enter a value for the End Time.
EndTime
AppointmentType
AppointmentType
AppointmentType
xxFailed{
    0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTime
    Address Books:
tmpAddressBooks
    0S0E
tmpNABs
tmpNABs
    Site:
tmpSitesAll
    0S0E
tmpSite
tmpSitesAll
tmpResourceType
    0S0E
    # of attendees:
.,$///:
SendToj
CopyToj
    0S0E
tmpCapacity
tmpResourceType
    0S0E
tmpResourceCategory
tmpResourceCategory
Categories
Please select resource category
tmpSubsetCategory
    0R1S7S9S11S13S
tmpResourceCategory
    Category
tmpResourceCategory
StartTime
EndTime
Error
Start time should be prior to End time.
    3S4S6S12S14S
tmpCapacity
tmpResourceType
Error
You must enter the number of attendees before you can find a room.
    0R5S6S
tmpResourceCategory
tmpResourceType
Error
You must select a category before you can find a resource.
    0R6S
tmpStartDateTime
StartDate
StartTime
tmpEndDateTime
StartDate
EndTime
StartDate
Error
You cannot reserve a room for a date which has already occurred.
    0R7S8S14S
Keyarg
CN=*/
tmpResourceType
tmpSite
tmpResourceCategory
tmpSite
ResNameCheck
tmpResourceType
Keyarg
tmpResourceType
tmpStartDateTime
tmpEndDateTime
tmpCapacity
Keyarg
tmpResourceType
tmpStartDateTime
tmpEndDateTime
ResNameCheckZ
Error
You received the following error when trying to find a room:
ResNameCheck"
tmpResourceName
ResNameCheck
    0R1S2S3S2E
tmpResourceNameSingle
ResNameCheckj
ResNameCheck
    0R1S3S9S10S12S14S
tmpResourceNameBlank
ResNameCheck
No resource/room found for times and/or capacity requirements.
    0R1S
Search
    Search results:
tmpResourceType
tmpResourceName
    3S4S
Available room(s):
tmpResourceType
tmpResourceName
    3S4S
Available resource(s):
tmpResourceNameBlank
    0S0E
tmpResourceNameBlank
tmpResourceNameBlank
tmpResourceName
tmpResourceName
    3S4S
tmpResourceNameSingle
tmpResourceNameSingle
tmpResourceName
tmpResourceName
    3S4S
tmpResourceNameMulti
tmpResourceName
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
OmK4eF
Capacity
dStartTime
dEndTime
dStartDate
$Info
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$FormAction2
EndDate
StartDate
StartTime
EndTime
tmpCapacity
$Body
$PublicAccess
Mail Rule
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Function FieldString(itmfield As Variant) As String
Declare Function LogicString(vlogic As Variant, vcondition As Variant) As String
Declare Function ActionString(vaction As Variant, note As notesdocument) As String
Declare Sub ProcessConditions
Declare Sub ProcessActions
Declare Sub ProcessExceptions
Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
Declare Sub ActionParser(strAction As String, strFolder As String, strstring As String)
Declare Sub AddCondition
Declare Sub AddException
Declare Sub GetValues
Declare Function OperatorString(voperator As Variant)
Declare Function GetString ( StringType As Variant) As String
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim session As notessession
Dim db As notesdatabase
Dim uidoc As notesuidocument
Dim note As notesdocument
Dim bnewdoc As Variant
Dim strformula As String
Dim strlogic As String
Dim strstring As String
Dim stroperator As String
Dim straction As String
Dim strfolder As String
Dim vstring As Variant
Dim vlogic As Variant
Dim vcondlogic As Variant
Dim voperator As Variant
Dim strcondition As String
Dim vexception As Variant
Dim vexceptionlist As notesitem
Dim vtokexceptionlist As notesitem
Dim vimportance As Variant
Dim vdomains As Variant
Dim vcondition As Variant
Dim vconditionlist As notesitem
Dim vtokconditionlist As notesitem
'++LotusScript Development Environment:2:1:FieldString:1:8
Function FieldString(itmfield As Variant) As String
'This function tells you which field action to perform
    Select Case itmfield
    Case "1"
        'Sender
        FieldString = GetString(itmfield)
    Case "2"
        'Subject
        FieldString =  GetString(itmfield)
    Case "3"
        'Body
        FieldString = GetString(itmfield)
    Case "4"
        'Importance
        FieldString = GetString(itmfield)
    Case "5"
        'Delivery Priority
        FieldString = GetString(itmfield)
    Case "6"
        'To
        FieldString =GetString(itmfield)
    Case "7"
        'CC
        FieldString=GetString(itmfield)
    Case "8"
        'To or CC
        FieldString = GetString(itmfield)
    Case "9"
        'body or subject
        FieldString = GetString(itmfield)
    Case "A"
        'BCC
        FieldString=GetString(itmfield)
    Case "B"
        'Internet Domain
        FieldString = GetString(itmfield)
    Case "C"
        'size
        FieldString = GetString(itmfield)
    End Select
End Function
'++LotusScript Development Environment:2:1:LogicString:1:8
Function LogicString(vlogic As Variant, vcondition As Variant) As String
    Select Case vlogic
    Case "1"
        If vcondition<>"C" Then
        'contains
            logicstring = GetString("D")
        Else
            logicstring = GetString ("E")
        End If
    Case "2"
        'does not contain
        If vcondition<>"C" Then
            logicstring = GetString ("F")
        Else
            logicstring = GetString ("G")
        End If
    Case "3"
        'is
        logicstring = GetString("H")
    Case "4"
        'is not
        logicstring = GetString ("I")
    End Select
End Function
'++LotusScript Development Environment:2:1:ActionString:1:8
Function ActionString(vaction As Variant, note As notesdocument) As String
    Dim strImportance As String
    Select Case vaction
    Case "1"
        ActionString = GetSTring ("J")+ note.getitemvalue("folder")(0)
    Case "2"
        Select Case note.getitemvalue("Importancecond")(0)
        Case "1"
            strImportance = GetString("K")
        Case "2"
            strImportance = GetString("L")
        Case "3"
            strImportance =GetString("M")
        End Select
        ActionString = GetString("N")+strImportance
    Case "3"
        ActionString = GetString("O")
    Case "4"
        ActionString =GetString("P")+note.getitemvalue("folder")(0)
    End Select
End Function
'++LotusScript Development Environment:2:2:ProcessConditions:1:8
Sub ProcessConditions
    Dim vtokconditionlist As Variant
    vtokconditionlist = note.getitemvalue("tokconditionlist")
    If vtokconditionlist(0)="" Then Exit Sub
    strformula="@If(("
    For  x = 0 To Ubound(vtokconditionlist)
        'Seperate the four elements in their individual items
        strcondition = Left(vtokconditionlist(x),1)
        strlogic = Mid(vtokconditionlist(x), 3,1)
        'if this is the size, strip bytes off of strstring
        If strcondition="C" Then
            strstring = Mid(vtokconditionlist(x), 5,(Instr(5,vtokconditionlist(x),":")-10))
        Else
            strstring = Mid(vtokconditionlist(x), 5,(Instr(5,vtokconditionlist(x),":")-5))
        End If
        If x=0 Then Goto continue
        stroperator = Right(vtokconditionlist(x),(Len(vtokconditionlist(x))-Instr(5,vtokconditionlist(x),":")))
continue:
        If x<>0 Then
            If stroperator="0" Then
                strformula=strformula+" & "
            Elseif stroperator="1" Then
                strformula=strformula+"|"
            End If
        End If
        Call ConditionParser(strcondition, strlogic, strstring)
    Next
    strformula=strformula+")"
End Sub
'++LotusScript Development Environment:2:2:ProcessActions:1:8
Sub ProcessActions
    Dim vtokactionlist As Variant
    vtokactionlist = note.getitemvalue("tokactionlist")
    If vtokactionlist(0)="" Then Exit Sub
    strformula=strformula+"; (@do("
    For  x = 0 To Ubound(vtokactionlist)
        'Seperate the three elements in their individual items
        straction = Left(vtokactionlist(x),1)
        strstring = Mid(vtokactionlist(x), 3,1)
        strfolder=Right(vtokactionlist(x),Len(vtokactionlist(x))-4)
        If Instr(strfolder, "\") Then
            strtmp = strfolder
            npos = 1
            While Instr(npos, strtmp, "\")  > 0
               'extract to the backslash
                nposofchar = Instr(npos, strtmp, "\")
               'replace the slash with a double slash
                strtmp = Left(strtmp, nposofchar -1 )+"\\"+Right$(strtmp, (Len(strtmp)-nposofchar))
                npos = nposofchar+2
            Wend
            strfolder = strtmp
        End If
        Call ActionParser(straction, Cstr(strfolder), strstring)
        If x<> Ubound(vtokactionlist) Then strformula=strformula+" ; "
    Next
    strformula=strformula+|));"")|
End Sub
'++LotusScript Development Environment:2:2:ProcessExceptions:1:8
Sub ProcessExceptions
    Dim vtokexceptionlist As Variant
    vtokexceptionlist = note.getitemvalue("tokexceptionlist")
    If vtokexceptionlist(0)="" Then    Exit Sub
    getoperator = note.getitemvalue("operator")
    If getoperator(0) ="0" Then
        strformula=strformula+" & "
    Elseif getoperator(0)="1" Then
        strformula=strformula+"|"
    End If
    strformula=strformula+ " !("
    For  x = 0 To Ubound(vtokexceptionlist)
        'Seperate the three elements in their individual items
        strcondition = Left(vtokexceptionlist(x),1)
        strlogic = Mid(vtokexceptionlist(x), 3,1)
        strstring = Right(vtokexceptionlist(x),Len(vtokexceptionlist(x))-4)
        Call ConditionParser(strcondition, strlogic, strstring)
        If x<> Ubound(vtokexceptionlist) Then strformula=strformula+" | "
    Next
    strformula=strformula+")"
End Sub
'++LotusScript Development Environment:2:2:ConditionParser:1:8
Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
    Dim fieldstring As String
    Dim fieldstring1 As String
    Dim fieldstring2 As String
    Dim logicstring As String
    Select Case strcondition
    Case "1"
        'Sender
        Fieldstring="From"
    Case "2"
        'Subject
        FieldString = "Subject"
    Case "3"
        'Body
        FieldString = "@Abstract([TextOnly];64,994;"""";""Body"")"
    Case "4"
        'Importance
        FieldString = "Importance"
        If strstring = getString("K") Then
            strstring = "1"
        Elseif strstring = getString("L") Then
            strstring = "2"
        Elseif strstring = getString("M") Then
            strstring = "3"
        End If
    Case "5"
        'Delivery Priority
        FieldString = "DeliveryPriority"
        If strstring = getString("K") Then
            strstring = "H"
        Elseif strstring = getString("L") Then
            strstring = "N"
        Elseif strstring = getString("M") Then
            strstring = "L"
        End If
    Case "6"
        'To
        FieldString = "SendTo"
    Case "7"
        'CC
        FieldString="CopyTo"
    Case "8"
        'To or CC
        FieldString1 = "SendTo"
        FieldSTring2="CopyTo"
    Case "9"
        'body or subject
        FieldString1 = "@Abstract([TextOnly];64,994;"""";""Body"")"
        FieldSTring2="subject"
    Case "A"
        'BCC
        FieldString=" BlindCopyTo"
    Case "B"
        'Internet Domain
        FieldString = "SMTPOriginator"
    Case "C"
        'size
        FieldSTring="@DocLength"
    End Select
    Select Case strlogic
    Case "1"
        If strcondition<>"C" Then
        'contains
            logicstring = "@Contains(@lowercase("
        Else
            logicstring = "@DocLength<"
        End If
    Case "2"
        'does not contain
        If strcondition<>"C" Then
            logicstring = "!@Contains(@lowercase("
        Else
            logicstring = "@DocLength>"
        End If
    Case "3"
        'is
        logicstring = "="
    Case "4"
        'is not
        logicstring = "!="
    End Select
    'We need to special case three conditions, multiple fields, searching body and document size
    Select Case strcondition
    Case "C"
        Select Case strlogic
        Case "1", "2"
            strformula = strformula + logicstring + strstring
        Case "3", "4"
            strformula = strformula + fieldstring + logicstring + strstring
        End Select
    Case "3"
        'body field needs to be converted to ascii
        Select Case strlogic
        Case "1" , "2"
            strformula=strformula+logicstring+fieldstring+");@Ascii("""+ Lcase(strstring) +"""))"
        Case "3" , "4"
            strformula=strformula+fieldstring+logicstring+"@Ascii("""+strstring+""")"
        End Select
    Case "8"
        Select Case strlogic
        Case "1" , "2"
            strformula=strformula+logicstring+fieldstring1+");"""+ Lcase(strstring) +""") | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
        Case "3" , "4"
            strformula=strformula+fieldstring1+logicstring+strstring +" | "+fieldstring2+logicstring+strstring
        End Select
    Case "9"
        Select Case strlogic
        Case "1" , "2"
            strformula=strformula+logicstring+fieldstring1+"); @Ascii("""+ Lcase(strstring) +""")) | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
        Case "3" , "4"
            strformula=strformula+fieldstring1+logicstring+"@Ascii("""+strstring +") | "+fieldstring2+logicstring+strstring
        End Select
    Case Else
        Select Case strlogic
        Case "1" , "2"
            strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"
        Case "3" , "4"
            strformula=strformula+fieldstring+logicstring+""""+strstring+""""
        End Select
    End Select
End Sub
'++LotusScript Development Environment:2:2:ActionParser:1:8
Sub ActionParser(strAction As String, strFolder As String, strstring As String)
    Dim strImportance As String
    Select Case straction
    Case "1"
        strformula = strformula+"(@MailFilterAddtofolder("""+strfolder+"""; @True))"
    Case "2"
        Select Case strstring
        Case "1"
            strImportance = "1"
        Case "2"
            strImportance = "2"
        Case "3"
            strImportance ="3"
        End Select
        strformula = "FIELD Importance:=Importance;"+strformula+"(@setfield(""Importance"";"""+strImportance+"""))"
    Case "3"
        strformula = strformula+"(@deletedocument)"
    Case "4"
        strformula = strformula+"(@MailFilterAddtofolder("""+strfolder+"""))"
    End Select
End Sub
'++LotusScript Development Environment:2:2:AddCondition:1:8
Sub AddCondition
    GetValues
    Set vconditionlist = note.getfirstitem("ConditionList")
    Set vtokconditionlist = note.getfirstitem("tokConditionList")
    If vconditionlist.values(0) = "" Then
        strcondition ="  "+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
    Else
        strcondition = "    "+OperatorString(voperator)+FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
    End If
    Call vconditionlist.appendtotextlist(strcondition)
    Call vtokconditionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring+":"+voperator)
    uidoc.refresh
End Sub
'++LotusScript Development Environment:2:2:AddException:1:8
Sub AddException
    GetValues
    Set vexceptionlist = note.getfirstitem("ExceptionList")
    Set vtokexceptionlist = note.getfirstitem("tokExceptionList")
    If vexceptionlist.values(0) = "" Then
        strcondition ="  "+  FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
    Else
        strcondition = "    "+OperatorString(voperator)+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
    End If
    Call vexceptionlist.appendtotextlist(strcondition)
    Call vtokexceptionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring)
    uidoc.refresh
End Sub
'++LotusScript Development Environment:2:2:GetValues:1:8
Sub GetValues
    vcondition = note.getitemvalue("condition")(0)
    vlogic = note.getitemvalue("logic")(0)
    voperator = note.getitemvalue("Operator")(0)
    If vcondition = "4" Or vcondition="5"Then
        vimportance = note.getitemvalue("importance")(0)
        Select Case vimportance
        Case "1"
            vstring="High"
        Case "2"
            vstring="Normal"
        Case "3"
            vstring="Low"
        End Select
    Elseif vcondition="B" Then
        vdomains = note.getitemvalue("domainlist")
        Forall x In vdomains
            vstring=vstring+x+":"
        End Forall
        vstring=Left(vstring, Len(vstring)-1)
    Elseif vcondition="C" Then
        vstring=note.getitemvalue("string")(0)+" bytes"
    Else
        vstring = note.getitemvalue("string")(0)
    End If
End Sub
'++LotusScript Development Environment:2:1:OperatorString:1:8
Function OperatorString(voperator As Variant)
    'This function converts the operator to it's translated value
    Select Case voperator
    Case "0"
        OperatorString=GetString("Q")
    Case "1"
        OperatorString=GetString("R")
    End Select
End Function
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString ( StringType As Variant) As String
    GetString = ""
    Select Case StringType
    Case "1"
        GetString = " Sender "
    Case "2"
        GetString = " Subject "
    Case "3"
        GetString = " Body "
    Case "4"
        GetString =  " Importance "
    Case "5"
        GetString = " Delivery Priority "
    Case "6"
        GetString = " To "
    Case "7"
        GetString = " CC "
    Case "8"
        GetString = " To or CC "
    Case "9"
        GetString = " body or subject "
    Case "A"
        GetString = " BCC "
    Case "B"
        GetString = " Internet Domain "
    Case "C"
        GetString = " Size "
    Case "D"
        GetString = " contains "
    Case "E"
        GetString = " is less than "
    Case "F"
        GetString = " does not contain "
    Case "G"
        GetString = " is more than "
    Case "H"
        GetString = " is "
    Case "I"
        GetString = " is not "
    Case "J"
        GetString = " move to folder "
    Case "K"
        GetString = "High"
    Case "L"
        GetString = "Normal"
    Case "M"
        GetString = "Low"
    Case "N"
        GetString = " change importance to "
    Case "O"
        GetString = " delete the incoming message "
    Case "P"
        GetString =  " copy to folder "
    Case "Q"
        GetString = "AND"
    Case "R"
        GetString = "OR"
    Case "S"
        GetString = "You cannot include Delete Document in multiple actions.  Would you like to remove the Delete action from the actions list?"
    Case "T"
        getString = "You must enter a valid condition."
    Case "U"
        getString = "You must enter a valid action."
    End Select
End Function
Lotus Product
V0.0:
 Mailrule'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Queryclose From Source Call Queryclose
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Set uidoc = source
    Set note = uidoc.document
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
Lotus Product
OBJECT
$FilterFormula
$FilterFormula
ConditionList
tokConditionList
ExceptionList
tokExceptionList
ActionList
tokActionList
    0S0E
ExcludeFromView
Mailrule
    Rule is:
Enable
On|1Off|0
    Specify Conditions:
ConditionList
    0S0E
    Create condition:
ConditionList
    0S0E
    Create:
Condition|0Exception|1
Operator
AND|0OR|1
condition
sender|1subject|2body|3importance|4delivery priority|5To|6CC|7BCC|ATo or CC|8body or subject|9Internet Domain|BSize (in bytes) |C
Logic
Condition
is less than|1
is greater than|2
is not|4
contains|1
does not contain|2
is not|4
    0S0E
condition
    0S0E
string
condition
    0S0E
importance
High|1Normal|2Low|3
condition
    0S0E
domainlist
    When mail messages arrive that meet these conditions:
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    If (note.getitemvalue("ConditionList")(0)="") Then
        'This is the first time so add a condition
        AddCondition
    Else
        'There already is a condition so check the type
        If (note.getitemvalue("Type")(0) = "0") Then
            AddCondition
        Else
            AddException
        End If
    End If
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
            Add
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim vcondtoremove As Variant
    Dim vconditionlist As Variant
    Dim vtokconditionlist As Variant
    Dim vexceptionlist As Variant
    Dim vtokexceptionlist As Variant
    vcondtoremove = note.getitemvalue("conditionlistdisplay")(0)
    vconditionlist = note.getitemvalue("ConditionList")
    vexceptionlist = note.getitemvalue("ExceptionList")
    For  x = 0 To Ubound(vconditionlist)
        If vconditionlist(x) = vcondtoremove Then
            vconditionlist(x) = ""
            Call note.replaceitemvalue("conditionlist",vconditionlist)
            vtokconditionlist = note.getitemvalue("tokConditionList")
            vtokconditionlist(x) = ""
            Call note.replaceitemvalue("tokConditionList", vtokconditionlist)
            Goto done
        End If
    Next
    For  x = 0 To Ubound(vexceptionlist)
        If vexceptionlist(x) = vcondtoremove Then
            vexceptionlist(x) = ""
            Call note.replaceitemvalue("exceptionlist",vexceptionlist)
            vtokexceptionlist=note.getitemvalue("tokExceptionList")
            vtokexceptionlist(x)=""
            Call note.replaceitemvalue("tokexceptionlist",vtokexceptionlist)
            Goto done
        End If
    Next
done:
    uidoc.refresh
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
        Remove
ConditionListDisplay
ConditionList
When:
conditionlist
conditionlist
ExceptionList
Except when:
exceptionlist
exceptionlist
    0S0E
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim vconditionlist As Variant
    Dim vexceptionlist As Variant
    Dim vtokconditionlist As Variant
    Dim vtokexceptionlist As Variant
    vconditionlist = note.getitemvalue("ConditionList")
    vexceptionlist = note.getitemvalue("ExceptionList")
    vtokconditionlist = note.getitemvalue("tokConditionList")
    vtokexceptionlist = note.getitemvalue("tokExceptionList")
    For  x = 0 To Ubound(vconditionlist)
        vconditionlist(x) = ""
        vtokconditionlist(x) = ""
    Next
    For  x = 0 To Ubound(vexceptionlist)
        vexceptionlist(x) = ""
        vtokexceptionlist(x)=""
    Next
    'Set all values back to initial values
    Call note.replaceitemvalue("Condition", "1")
    Call note.replaceitemvalue("Logic","1")
    Call note.replaceitemvalue("String", "")
    Call note.replaceitemvalue("conditionlist",vconditionlist)
    Call note.replaceitemvalue("tokconditionlist", vtokconditionlist)
    Call note.replaceitemvalue("exceptionlist", vexceptionlist)
    Call note.replaceitemvalue("tokexceptionlist", vtokexceptionlist)
    'Call note.save(True,True)
    uidoc.refresh
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
      Remove All
    Specify Actions:
action
move to folder|1copy to folder|4change importance to|2delete|3
action
    0S0E
folder
action
    0S0E
importancecond
High|1Normal|2Low|3
action
    0S0E
action
    0S0E
folder
    4S7S8S10S
    Choose Folder
    Perform the following actions:
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim vaction As Variant
    Dim itmactionlist As NotesItem
    Dim itmtokactionlist As notesitem
    Dim vimportance As Variant
    Dim vfolder As Variant
    Dim vactiondisplay As Variant
    Dim straction As String
    Set itmactionlist = note.getfirstitem("ActionList")
    Set itmtokactionlist =note.getfirstitem("TokActionList")
    vaction = note.getitemvalue("action")(0)
    If itmactionlist.values(0) = "" Then
        straction = actionstring(vaction, note)
    Elseif itmtokactionlist.contains("3:1:") Then
        If Messagebox (GetString("S"), 36, "Rules Error")  <> 6 Then Exit Sub
        itmtokactionlist.remove
        itmactionlist.remove
        Set itmtokactionlist=New notesitem(note, "tokactionlist","")
        Set itmactionlist = New notesitem(note,"actionlist","")
        straction = actionstring(vaction,note)
    Else
        straction = " "+GetString("Q")+actionstring(vaction, note)
    End If
    Call itmactionlist.appendtotextlist(straction)
    Call itmtokactionlist.appendtotextlist(vaction+":"+note.importancecond(0)+":"+note.folder(0))
    uidoc.refresh
End Sub
Lotus Product
New Button
Need a newer version of Notes to execute this button.
    0S0E
       Add Action
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim vactiontoremove As Variant
    Dim vactionlist As Variant
    Dim vtokactionlist As Variant
    vactiontoremove = note.getitemvalue("actionlistdisplay")(0)
    vactionlist = note.getitemvalue("actionList")
    vtokactionlist = note.getitemvalue("tokactionList")
    For  x = 0 To Ubound(vactionlist)
        If vactionlist(x) = vactiontoremove Then
            vactionlist(x) = ""
            Call note.replaceitemvalue("actionlist",vactionlist)
            vtokactionlist(x)=""
            Call note.replaceitemvalue("tokactionlist",vtokactionlist)
            Goto done
        End If
    Next
done:
    uidoc.refresh
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
          Remove
ActionListDisplay
ActionList
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim vactionlist As Variant
    Dim vtokactionlist As Variant
    vactionlist = note.getitemvalue("actionlist")
    vtokactionlist = note.getitemvalue("tokactionlist")
    For  x = 0 To Ubound(vactionlist)
        vactionlist(x) = ""
        vtokactionlist(x)=""
    Next
    Call note.replaceitemvalue("action", "1")
    Call note.replaceitemvalue("folder","")
    Call note.replaceitemvalue("actionlist",vactionlist)
    Call note.replaceitemvalue("tokactionlist", vtokactionlist)
    uidoc.refresh
End Sub
Lotus Product
OBJECT
New Button
Need a newer version of Notes to execute this button.
    0S0E
       Remove All
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    'This code creates the filter action formula to be used by the mail router and puts it in a field called $FilterFormul
    Dim uiws As New notesuiworkspace
    Dim dbmail As notesdatabase
    Dim session As New notessession
    Dim viewcollection As notesviewentrycollection
    Dim view As notesview
    Dim profile As notesdocument
    Dim item As notesitem
    Dim bprofilesave As Integer
    Dim bmovetofolder As Integer
    Dim nrulenum As Integer
    Dim strfilteritem As String
    Dim Debug As Integer
    Set dbmail = session.currentdatabase
    Set profile= dbmail.GetProfileDocument("CalendarProfile")
    Set view = dbmail.getview("Rules")
    Debug = session.getEnvironmentvalue("DEBUG_RULE", True)
    'Check to see if the profile already existed
    If Not(profile.HasItem("Owner")) Then
        profile.Form = "CalendarProfile"
        Call profile.ComputeWithForm(False,False)
    End If
    If note.conditionlist(0) = "" Then
        Msgbox getString("T"), 16
        Exit Sub
    Elseif note.actionlist(0) = "" Then
        Msgbox getString("U"), 16
        Exit Sub
    End If
        'First give the rule a sequence number if it's a new rule
    If note.isnewnote Then
        Set viewcollection = view.allentries
        nrulenum = viewcollection.count
        Call note.replaceitemvalue("OrderNum", nrulenum)
        Call profile.replaceitemvalue("$FilterFormulaCount",Cstr(nrulenum+1))
        bmovetofolder=True
    Else
        nrulenum = note.getitemvalue("ordernum")(0)
    End If
    strfilteritem = "$FilterFormula_"+Cstr(nrulenum)
    If note.getitemvalue("Enable")(0)="1" Then
        Call dbmail.enabledboptions(1,True)
        ProcessConditions
        ProcessExceptions
        ProcessActions
        Set item=note.getfirstitem("$FilterFormula")
        item.values=strformula
        bprofilesave=True
        If Debug=1 Then
            Print "Formula:  "+strformula
        End If
    Else
        bprofilesave = profile.hasitem(strfilteritem)
    End If
    If profile.hasitem(strfilteritem) Then
        Call profile.removeitem(strfilteritem)
    End If
    Call note.computewithform(False,False)
    If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
    Call note.save(True,False,True)
    If bmovetofolder Then Call note.putinfolder("Rules")
    If bprofilesave Then Call profile.save(True, True,True)
    uidoc.close
    uiws.viewrefresh
End Sub
Lotus Product
OBJECT
)<    }<
New Button
Need a newer version of Notes to execute this button.
    0S0E
       OK
    0S0E
    Cancel
    This field is used for Ordering the Filter documents in the folder
OrderNum
OrderNum
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
W93Y<i
$Info
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
(SendTrackingRequest)
EH4fL3
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
(SignatureOption)CU3
SignatureSignatureOption
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
(subTrackMessage)CUA3x
tmpDontShow
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################
(TaskNotice)TaskNoticeC
StatusUpdateBodytmpNoActionBartmpOwnerHWForm1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}(To do's\By Category)|TodoByCategory1/P=3601.
$189$186DueDateTimeD
(Help)
MAIL_V_TASKS
    0S0E
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################################################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}(To do's\By Status)|TodoByStatus1/P=3601.
$189$186DueDateTimeD
(Help)
MAIL_V_TASKS
    0S0E
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
(Trace Report)Trace ReportCD
DeliveryDateSubject
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
(Tracking Request)Tracking RequestTracking Response
DispStat
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############
    (wAddressOpen)
EH41fL3Pu
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################
(wAddress)wAddressCDPF
AddressBookstmpNextIndextmpCurIndextmpBlindCopyToEntryListtmpCopyTotmpSendToFindTextNABstmpBlindCopyToReftmpCopyToReftmpSendToRef
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
(wAppointmentOpen)
EH4fL3u
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
(wAppointmentSave)
EH4fL3u
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################################
(wCommand)
EH41fL3uP
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#####################################
T(wCSItems)CUA3x#
tmpDeleteItemstmpChangeWhichDelegeeNewEndTimeNewStartTimeNewEndDateNewStartDatetmpKeepPostedtmpActionWebDateTimeInit$CSVersiontmpWasMailedChairtmpOwnertmpResponse$CSFlagstmpDBtmpOriginalEndtmpOriginalStarttmpCalInstanceDateOrgRepeatRepeatWeekendsRepeatFromEndRepeatUntilRepeatForUnitRepeatForRepeatHowRepeatCustomRepeatAdjustRepeatIntervalRepeatUnitRepeatStartDateEndDateTimeStartDateTimeApptUNID
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####
(wDelete)
This deletes documents for the web user.EH4fL3uP
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
(wDelivery Options)DeliveryOptionsCD
tmpDeliveryPrioritytmpDeliveryReporttmpReturnReceipttmpImportance
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
(wDlgBox)(wDlgBox)CDF
tmpTitletmpSubformQuery_String
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################################
(web ret Authenticate)$$ReturnAuthenticationFailureCDP1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
(web ret Authorize)$$ReturnAuthorizationFailureCDP1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
(web ret Error)$$ReturnGeneralErrorCDP
MessageString1
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#########################################################
(WebSpecificFields)CU3x
PostedDateSaveOptionsMailOptionsReturnReceipttmpSendOptionsDeliveryPriorityDeliveryReportImportance
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
(wFolderCreateOpen)
EH4fL3uP
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
    (wFolderCreateSave)
EH4fL3u
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
(wFolderCreate)FolderCreateCDF
FolderNameCurrentFoldersfolderlistSaveOptions
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##
(wForwardOpen)
EH41fL3u
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
(wFreeTime)wFreeTimeCDF
tmpSendTotmpCopyToCopyToSendTotmpChairDurationFormatHelper2TimeFormatHelper2DateFormatHelper2tmpDurationReftmpEndTimeReftmpEndDateReftmpStartTimeReftmpStartDateReftmpGridFormattmpEndTimetmpEndDatetmpStartTimetmpStartDate
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################
(wMailRuleSubmit)
EH4fL3u
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
(wMemoOpen)
EH41fL3u
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
(wMemo)
EH4fL3uP
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################
(wPreferencesOpen)
EH41fL3u
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##############################
(wPreferencesSave)
EH41fL3u
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
(wPreferences)wPreferencesCDPF,
$CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailPreventSentPreventAllAutoAnniversaryRepeatDefaultDurationPreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayOffSetCharFormatRepliesOwner$PreferencesPagePROTECTFROMARCHIVESaveOptions
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
(wResources)wResourcesCDF
AddressBooksResourcesEntryListNABs
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########
(wRooms)wRoomsCDF
AddressBooksRoomsEntryListNABs
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class TrackingApp As BaseApplication
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Class TrackingApp As BaseApplication
    Private m_uiws As notesuiworkspace
    Private m_collectionAgentContext As notesdocumentcollection
    Private note As notesdocument
    Private m_noteCursorDoc As notesdocument
    Private m_noteTrackingRequest As NotesDocument
    Private m_nameRecipient As notesname
    Private m_vTargetNames As Variant
    Private m_TrackingStringTable As MessageTrackStringTable
    Private m_vSelectTargetNames As Variant
    Private m_vMailServer As Variant
    Private m_strUNID As String
    Private m_nCollectionCount As Integer
    Private m_nItemsTrimmed As Integer
    Private m_nSuccess As Integer
    Private m_nNoShowInstruction As Integer
    Public Sub new()
    'build local objects
        Set Me.m_collectionAgentContext = TrackingApp..DocumentsToProcess
        Set Me.m_TrackingStringTable = New MessageTrackStringTable
        Set Me.m_uiws = New notesuiworkspace
        Set note = Me.m_collectionAgentContext.getfirstdocument
        If Not IsUserOwner() Then
            Call DisplayWarn(Me.m_TrackingStringTable.GetString(TRACKING_STRING+67,Null),_
            MB_OK, Me.m_TrackingStringTable.GetString(TRACKING_STRING+65,Null))
            End
        Else
            Me.m_vMailServer = Evaluate(|@LocationGetInfo([HOMESERVER])|)
            Set Me.m_noteTrackingRequest = New NotesDocument(session.CurrentDatabase)
            Set Me.m_noteCursorDoc = New NotesDocument(session.CurrentDatabase)
            Me.m_vTargetNames =  Arrayappend(note.SendTo,note.CopyTo)
            Me.m_vTargetNames =  Arrayappend(Me.m_vTargetNames ,note.BlindCopyTo)
            Me.m_vTargetNames = Fulltrim(Me.m_vTargetNames)
            Me.m_nNoShowInstruction = 0 - Cint(session.Getenvironmentvalue("NoShowTrackMessage",False))
        End If
    End Sub
    Public Function Init() As Integer
        Call Me.m_noteCursorDoc.replaceitemvalue("OptionLabel",Me.m_TrackingStringTable .GetString(TRACKING_STRING+66,Null))
        Call Me.m_noteCursorDoc.replaceitemvalue("UserOptions",Me.m_vTargetNames)
RaiseDialog:
        Me.m_nSuccess = Me.m_uiws.dialogbox("(subOption)",True,True,False,False,False,False,_
        Me.m_TrackingStringTable .GetString(TRACKING_STRING+65,Null)_
        ,Me.m_noteCursorDoc,True,False)
        If Me.m_nSuccess Then
            Me.m_vSelectTargetNames =  Me.m_noteCursorDoc.SelectedOptions
            If Isempty(Me.m_vSelectTargetNames) Or Me.m_vSelectTargetNames(0) = "" Then
                Call DisplayWarn(Me.m_TrackingStringTable.GetString(TRACKING_STRING+68,Null),_
                MB_OK, Me.m_TrackingStringTable.GetString(TRACKING_STRING+65,Null))
                Goto RaiseDialog
            End If
            Me.m_strUNID = "OF" + Mid(note.UniversalID, 1,8) + ":" + Mid(note.UniversalID, 9,8) + " ON" _
            + Mid(note.UniversalID, 17,8) + ":" + Mid(note.UniversalID, 25, 8)
            With Me.m_noteTrackingRequest
                Call .Makeresponse(note)
                Call .ReplaceItemValue("Form", "Tracking Request")
                Call .ReplaceItemValue("ExcludeFromView","D")
                Call .ReplaceItemValue("Subject",Me.m_TrackingStringTable.GetString(TRACKING_STRING+65,Null)_
                & " ->" & note.GetItemValue("Subject")(0) )
                Call .ReplaceItemValue("SendTo",Me.m_vSelectTargetNames)
                Call .ReplaceItemValue("$MTINMSGID", note.~$MessageID(0))
                Call .ReplaceItemValue("$MTINRCP",Me.m_vSelectTargetNames)
                If Cint(Me.m_noteCursorDoc.TraceType(0)) Then
                    Call .ReplaceItemValue("DeliveryReport", "R")
                Else
                    Call .ReplaceItemValue("DeliveryReport", "D")
                End If
                Call .ReplaceItemValue("$MTNEXTMTA", Me.m_vMailServer(0))
                Call .ReplaceItemValue("$MTREPORTID", Me.m_noteTrackingRequest.UniversalID)
                .Savemessageonsend = True
                Call .Send(False)
            End With
            If Not Me.m_nNoShowInstruction Then
                Me.m_nSuccess = Me.m_uiws.dialogbox("(subTrackMessage)",True,True,True,False,False,False,_
                Me.m_TrackingStringTable .GetString(TRACKING_STRING+65,Null)_
                ,Me.m_noteCursorDoc,True,False)
                If Me.m_noteCursorDoc.tmpDontShow(0) = "1" Then
                    Call Session.Setenvironmentvar("NoShowTrackMessage","1",False)
                End If
            End If
        End If
    End Function
    Private Function IsUserOwner() As Integer
        IsUserOwner = NAMECompare(session.UserName,_
        note.GetItemValue("From")(0))
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim MessageTrackingApplication As New TrackingApp
    Call MessageTrackingApplication.Init()
End Sub
Lotus Product
V0.0p
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
YipI(F
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
&Arial
Lotus Product
OBJECT
(SignatureOption)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postrecalc(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postrecalc From Source Call Postrecalc
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Dim xxWINDOW_TITLE As String
    Dim uiws As New notesuiworkspace
    Dim noteBEDoc As notesdocument
    Dim vSignatureLocation As Variant
    xxWINDOW_TITLE = "Insert Signature"
    Set noteBEDoc = uiws.currentdocument.Document
    If (noteBEDoc.SignatureOption(0) = "2")_
    And (noteBEDoc.GetItemValue("Signature")(0) = "") Then
        vSignatureLocation = uiws.openfiledialog(False,xxWINDOW_TITLE,"Text Files|*.txt|HTML Files|*.htm|Bitmap|BMP||","","")
        If Isempty(vSignatureLocation) Then
            Redim vSignatureLocation(0)
        End If
        Call noteBEDoc.ReplaceItemValue("Signature",Cstr(vSignatureLocation(0)))
    End If
End Sub
Lotus Product
    Select Option:
SignatureOption
Select from 'Mail Preference'|1Import from File|2
SignatureOption
    0S0E
    File:
Signature
SignatureOption
    0S0E
!GIF89a
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
p].\H
}DSH8a
t(AWf
SOBiH
Us)ye
NAD:a+
/~DLm\H
9|#Kp
{Du8WMe~\z
;1MIW
=sEdM
qO%f\r.b
l?gBs
Uj/r2
5f(Rw
QI(8i
wz.ay
6[Ry'
TR48Z
&yS%V
l1O&*
=iD_)G"
_BbKq
rA7f"'
RMoaM
(DxwB"
dKx{td
N2/c5
NB?E=
&HqQo
QT(/&
YHd\A0
H_T\V
jD83YEm
PQ[W1
DS3[B
M,1#Z
A    3W@
    You can
    Automatically
     append a signature to your emails by choosing
    Enable Auto Signature
     in the Mail and Calendar preferences dialog.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
Lotus Product.
^V0.06-
H}0%#
9}0%}
9}P%}
9}x%}
9,4I#
;-dI#
;-$J#
;-HJ#
;-HJ#
;-lJ#
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product.
^V0.06-
H}0%#
9}0%}
9}P%}
9}x%}
9,4I#
;-dI#
;-$J#
;-HJ#
;-HJ#
;-lJ#
Lotus Product
Lotus Product
TaskType
principal
chair
NoticeType
Broadcast
(Help)
MAIL_F_TASK_REC
(Help)
MAIL_F_TASK_REC_BRD
(Help)
MAIL_F_TASK_REC_MOD
(Help)
MAIL_F_TASK
(Help)
MAIL_F_TASK
    3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSUIDocClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uitaskdoc As UIEventDocument
Lotus Product
KtV0.0
{Kt{,
K$!-0
]\|K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
^l|K$!-0
^l|Jl|
]\|Jl|
]\|K$!-0
 TaskNotice'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryopen From Source Call Queryopen
    On Event Postopen From Source Call Postopen
    On Event Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Postsave From Source Call Postsave
    On Event Postrecalc From Source Call Postrecalc
    On Event Querymodechange From Source Call Querymodechange
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If (source.inpreviewpane) Then Exit Sub
    Set uitaskdoc = CSUIDocOpen(2, source, mode, isnewdoc, continue)
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    If (source.InPreviewPane) Then Exit Sub
    Call uitaskdoc.PostOpen()
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then Exit Sub
    Call uitaskdoc.QuerySave( Continue)
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then Exit Sub
    If (uitaskdoc.WasSaved) Then Call uitaskdoc.QueryClose(continue)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    If (source.InPreviewPane) Then Exit Sub
    Call uitaskdoc.PostSave()
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Dim note As notesdocument
    If (source.InPreviewPane) Then Exit Sub
    Set note = source.document
    Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
    Call uitaskdoc.PostRecalc()
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    If (source.InPreviewPane) Then continue = False
End Sub
Lotus Product
Notes
(wCSItems)
    3S4S
    Always Hidden:
TaskNotice
tmpOwner
Chair
    8S11S12S21S22S
tmpOwner
Chair
    8S11S12S21S22S
tmpOwnerHW
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28S
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28StmpNoActionBar
ChairName
Chair
    1S2S
PrincipalName
Principal
    0R1S2S
xxInvitation
New to do assignment from
ChairName
    0RR1S2S3S4S
xxReschedule
ChairName
 has rescheduled this to do
    0R1S2S3S4S
xxCancellation
ChairName
 has cancelled this to do
    0R1S2S3S4S
xxConfirmation
ChairName
 has confirmed this to do
    0R1S2S3S4S
xxAccept
tmpowner
chair
PrincipalName
 has accepted your to do assignment
You have accepted this to do
    0R1S2S5S6S8S9S10S12S
xxDecline
tmpOwner
chair
PrincipalName
 has declined your to do assignment
You have declined this to do
    0R1S2S5S6S8S9S10S12S
xxCounter
tmpOwner
chair
PrincipalName
 has proposed changes to your to do assignment"
You have countered this to do assignment
    0R1S2S5S6S8S9S10S12S
xxDelegate
tmpOwner
chair
PrincipalName
 has delegated your to do assignment"
You have delegated this to do
    0R1S2S5S6S8S9S10S12S
xxDeleInvite
PrincipalName
 has delegated this to do assignment to you
    0R1S2S3S4S
xxDeclineCounter
ChairName
 has declined your proposed changes
    0R1S2S3S4S
xxRefreshInfo
$CSFlags
PrincipalName
 is requesting updated information"
Updated information from
PrincipalName
    0R1S2S8S11S12S13S15RTTT16S17S
xxCompleted
PrincipalName
 has completed your to do assignment"
    0R1S2S3S4S
NoticeType
xxInvitation
xxReschedule
xxCancellation
xxConfirmation
xxAccept
xxDecline
xxCounter
xxDelegate
xxDeleInvite
xxRefreshInfo
xxDeclineCounter
xxPencilIn
xxCompleted
    0RR4S30S31S32STT33S34S35S36S37S38S39S40S41S42S43S44STT46S47S48StmpNoticeType
NoticeType
Proposed Start:
Starts:
    3S4S
.,$ //:
NoticeType
NewStartDate
StartDateTime
    3S4S6S8S
tmpStartDateTime
NoticeType
Proposed Due:
    3S4S
.,$ //:
NoticeType
NewEndDate
DueDateTime
    3S4S6S8S
tmpEndDateTime
NoticeType
    1S2S
    Original Start:
.,$ //:
StartDateTime
-None-
StartDateTime
    3S4S6S8S
tmpOrigStartDateTime
    Original Due:
.,$ //:
DueDateTime
-None-
DueDateTime
    3S4S6S8S
tmpOrigEndDateTime
    Title:
Topic
Topic
Subject
    7S9S
tmpTopic
    Owner:
Chair
Chair
Principal
tmpChair
tmpWasMailed
principal
    3S4S14S15S
    Sent by:
tmpSentBy
NoticeType
    1S2S
    Delegated To:
Delegee
tmpDelegee
Basics
TaskType
    1S2S
    Required:
AssignedTo^
    0S0E
tmpRequired
    Optional:
OptionalAssignedTo^
    0S0E
tmpOptional
BlindCopyTo
    4S5S
    FYI:
BlindCopyTo
tmpFYI
Participants
OrgRepeat
    0S0E
    Starting:
.,$ //:
RepeatStartDate
RepeatStartDate
OriginalStartDate
    7S9S
tmpRepeatStart
OrgRepeat
RepeatDates
    4S5S
    Repeat:
RepeatInterval
tmpRepeatInterval
every|1every 2nd|2every 3rd|3every 4th|4every 5th|5every 6th|6every 7th|7every 8th|8every 9th|9every 10th|10every 11th|11every 12th|12every 13th|13every 14th|14every 15th|15every 16th|16every 17th|17every 18th|18every 19th|19every 20th|20every 21st|21every 22nd|22every 23rd|23every 24th|24every 25th|25every 26th|26every 27th|27every 28th|28every 29th|29every 30th|30every 31st|31
RepeatUnit
tmpRepeatUnit
day|Dweek|Wmonth|MDmonth|MPyear|YDcustom|C
RepeatAdjust
tmpRepeatAdjust
RepeatUnit
on Sunday|0
on Monday|1
on Tuesday|2
on Wednesday|3
on Thursday|4
on Friday|5
on Saturday|6
RepeatUnit
on the 1st Sunday|1.0
on the 1st Monday|1.1
on the 1st Tuesday|1.2
on the 1st Wednesday|1.3
on the 1st Thursday|1.4
on the 1st Friday|1.5
on the 1st Saturday|1.6
on the 2nd Sunday|2.0
on the 2nd Monday|2.1
on the 2nd Tuesday|2.2
on the 2nd Wednesday|2.3
on the 2nd Thursday|2.4
on the 2nd Friday|2.5
on the 2nd Saturday|2.6
on the 3rd Sunday|3.0
on the 3rd Monday|3.1
on the 3rd Tuesday|3.2
on the 3rd Wednesday|3.3
on the 3rd Thursday|3.4
on the 3rd Friday|3.5
on the 3rd Saturday|3.6
on the 4th Sunday|4.0
on the 4th Monday|4.1
on the 4th Tuesday|4.2
on the 4th Wednesday|4.3
on the 4th Thursday|4.4
on the 4th Friday|4.5
on the 4th Saturday|4.6
on the Last Sunday|5.0
on the Last Monday|5.1
on the Last Tuesday|5.2
on the Last Wednesday|5.3
on the Last Thursday|5.4
on the Last Friday|5.5
on the Last Saturday|5.6
RepeatUnit
on the 1st day|1
on the 2nd day|2
on the 3rd day|3
on the 4th day|4
on the 5th day|5
on the 6th day|6
on the 7th day|7
on the 8th day|8
on the 9th day|9
on the 10th day|10
on the 11th day|11
on the 12th day|12
on the 13th day|13
on the 14th day|14
on the 15th day|15
on the 16th day|16
on the 17th day|17
on the 18th day|18
on the 19th day|19
on the 20th day|20
on the 21st day|21
on the 22nd day|22
on the 23rd day|23
on the 24th day|24
on the 25th day|25
on the 26th day|26
on the 27th day|27
on the 28th day|28
on the 29th day|29
on the 30th day|30
on the 31st day|31
    3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
RepeatHow
tmpRepeatHow
until|Ufor|F
RepeatFor
tmpRepeatUnit
    7S9S
RepeatHow
RepeatUntil
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
month
RepeatForUnit
RepeatFor
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
weeks
RepeatFor
RepeatForUnit
months
RepeatFor
RepeatForUnit
years
    0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
tmpRepeatUntil
RepeatUnit
(if the date falls on a weekend the meeting
RepeatWeekends
occurs anyway
RepeatWeekends
is moved to Friday
RepeatWeekends
is moved to Monday
RepeatWeekends
is moved to Nearest Weekday
RepeatWeekends
is deleted
    3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
tmpRepeatWeekends
OrgRepeat
RepeatDates
    4S5S
    Applies to:
RescheduleWhich
tmpAppliesTo
This instance only|0All instances|1This instance and all previous instances|2This instance and all future instances|3
Repeat Info
StatusUpdate
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderN
Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(False)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Decline
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Completed2'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(True)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Declinen'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Completedi'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Add to To Do Listth
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
    End If
End Sub
tmpOwnerHW
tasktype
    1S2S3S4S5S6S
Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",0)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Decline Counterr'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",0)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Send Updated Information...r'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Update Information...n'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder_
Respond\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(False)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Declineo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
Respond\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond\Completedt'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = False
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Accept'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uidoc As NotesUIDocument
    Dim uiobject As Variant
    Dim nResult As Integer
    Set uiobject = uitaskdoc.UIObject
    Set uidoc = uitaskdoc.UIDocument
    If (uiobject.OkToAccept(True)) Then
        If Not(uidoc.editmode) Then uidoc.editmode = True
        Call uidoc.save
        Call uidoc.close
    End If
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Declinel'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S8S9S10S11S12S13S14S
Respond with Comments\Delegate'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventDelegate
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Propose new time'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Respond with Comments\Completedm'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    uitaskdoc.uiobject.SendComments = True
    Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0)
End Sub
tmpNoActionBar
tmpOwnerHW
NoticeType
Broadcast
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
Add to To Do Listlh
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
    1S2S3S4S5S6S7S8S9S10S
Request Information...'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 0) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
    End If
End Sub
tmpOwnerHW
tasktype
    1S2S3S4S5S6S
Accept Counter'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",0)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Decline Counterr'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call uitaskdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",0)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Send Updated Information...:'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Update Information...G'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim uievent As UIEventObject
    Set uievent = uitaskdoc.UIObject
    If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Lotus Product.
^V0.06-
H}0%#
9}0%}
9}P%}
9}x%}
9,4I#
;-dI#
;-$J#
;-HJ#
;-HJ#
;-lJ#
Lotus Product
Lotus Product.i
K$!-0
]\|K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
^l|K$!-0
^l|Jl|
]\|Jl|
]\|K$!-0
Lotus Product
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product.
^V0.06-
H}0%#
9}0%}
9}P%}
9}x%}
9,4I#
;-dI#
;-$J#
;-HJ#
;-HJ#
;-lJ#
Lotus Product
Lotus Product
OBJECT
Lotus Product
KtV0.0
{Kt{,
K$!-0
]\|K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
^l|K$!-0
^l|Jl|
]\|Jl|
]\|K$!-0
Lotus Product
KtV0.0
{Kt{,
K$!-0
]\|K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
^l|K$!-0
^l|Jl|
]\|Jl|
]\|K$!-0
Lotus Product
KtV0.0
{Kt{,
K$!-0
]\|K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
K$!-0
^l|K$!-0
^l|Jl|
]\|Jl|
]\|K$!-0
Lotus Product.
^V0.06-
H}0%#
9}0%}
9}P%}
9}x%}
9,4I#
;-dI#
;-$J#
;-HJ#
;-HJ#
;-lJ#
Lotus Product
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
l&";@
ASSIGNSTATE
STARTDATETIME
DueDateTime
$HTMLDocumentStyles
StartDate
DueDate
$SCRIPTOBJ_22
$SCRIPTOBJ_23
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$SCRIPTOBJ_26
$SCRIPTOBJ_28
$Info
$AppHelpFormula
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$PublicAccess
xxNotesCats
Holiday
Vacation
Projects
Clients
Phone Calls
Travel
    1S2S
Categories
xxNotesCats
    0R16S
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26R
Subject
Subject
Status
Not Started
In Progress
On hold
Completed
DueDateTime
DueDateTime
DueState
Overdue
DueState
Future
DueState
Rejected
DueState
Complete
Current
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
$189$186Subject$188DueDateTime$187$Conflict
DueDateTime
ExcludeFromView
OrgRepeat
    L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S
xxNotesCats
Holiday
Vacation
Projects
Clients
Phone Calls
Travel
    1S2S
Categories
xxNotesCats
    0R16S$186
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26RSubjectTo do
Subject
Subject
$188Status
Status
Not Started
In Progress
On hold
Completed
    12SDueDateTimeDue&
DueDateTime
DueDateTime
DueState
Overdue
DueState
Future
DueState
Rejected
DueState
Complete
Current
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S&
Categori_zeM
_Forward
_Edit Document
Send Docu_ment
_Move to Folder...
_Remove from Folder...
New To Do Item
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
Delete
DueState
Task Not Completed
This Task is not yet completed, are you sure you want to delete it?
    3S4S5S6S7S8S10R21S23S29S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Confirm '++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\View Participant Statusn'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Send Memo to Participants
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Decline+'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Dou'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\PreferencestR
DialogMode
(Preferences)
Categori_ze
_Forward
_Edit Document
Send Docu_ment
_Move to Folder...
_Remove from Folder...
New To Do Item
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
Delete
DueState
Task Not Completed
This Task is not yet completed, are you sure you want to delete it?
    3S4S5S6S7S8S10R21S23S29S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
Owner Actions\View Participant Statusu'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
Owner Actions\Send Memo to Participantsr'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
Participant Actions\Declinee'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To Do('++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\Preferences
DialogMode
(Preferences)
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus Product8    +V0.0
    K(    -
    K8    -
Lotus Product
OBJECT
Lotus Product8    +V0.0
    K(    -
    K8    -
Lotus Product
OBJECT
#,`    #
Lotus Product
OBJECT
#,`    #
Lotus Product
OBJECT
#,`    #
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$ViewGlobalScript
$ViewGlobalScript_O
Status
Not Started
In Progress
On hold
Completed
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26R
Subject
Subject
DueDateTime
DueDateTime
xxNotesCats
Holiday
Vacation
Projects
Clients
Phone Calls
Travel
    1S2S
Categories
xxNotesCats
    0R16S
DueState
Overdue
DueState
Future
DueState
Rejected
DueState
Complete
Current
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
$189$186SubjectDueDateTime$190$187$Conflict
DueDateTime
ExcludeFromView
OrgRepeat
    L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S
Status
Not Started
In Progress
On hold
Completed
    12S$186
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26RSubjectTo do
Subject
Subject
DueDateTimeDue&
DueDateTime
DueDateTime
$190Category
xxNotesCats
Holiday
Vacation
Projects
Clients
Phone Calls
Travel
    1S2S
Categories
xxNotesCats
    0R16S$187
DueState
Overdue
DueState
Future
DueState
Rejected
DueState
Complete
Current
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S&
Categori_zes
_Forward
_Edit Document
Send Docu_ment
_Move to Folder...
_Remove from Folder...
New To Do Item
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
Delete
DueState
Task Not Completed
This Task is not yet completed, are you sure you want to delete it?
    3S4S5S6S7S8S10R21S23S29S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Send Memo to Participantse'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Decline    '++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Do
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Preferences
DialogMode
(Preferences)
Categori_ze
_Forward
_Edit Document
Send Docu_ment
_Move to Folder...
_Remove from Folder...
New To Do Item
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
Mark Completed'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COMPLETED)
End Sub
Delete
DueState
Task Not Completed
This Task is not yet completed, are you sure you want to delete it?
    3S4S5S6S7S8S10R21S23S29S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
Owner Actions\Confirms'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
Owner Actions\View Participant Statusv'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
Owner Actions\Send Memo to Participants2'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
Participant Actions\Declinee'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To Do('++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\Preferences
DialogMode
(Preferences)
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus Product8    +V0.0
    K(    -
    K8    -
Lotus Product
OBJECT
Lotus Product8    +V0.0
    K(    -
    K8    -
Lotus Product
OBJECT
#,`    #
Lotus Product
OBJECT
#,`    #
Lotus Product
OBJECT
#,`    #
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$ViewGlobalScript
$ViewGlobalScript_O
*** Message Successfully Delivered ***
(Help)
MAIL_F_TRACE_REPORT
    0S0E
Lotus Product
OBJECT
 Trace Report'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    On Error Goto Trap
    If Not Source.EditMode Then
        Dim noteParent As notesdocument
        Set noteParent = Source.document.Parentdatabase.Getdocumentbyunid(Cstr(Source.document.Parentdocumentunid))
        If Not noteParent Is Nothing Then
            If noteParent.GetItemValue("Form")(0) = "Tracking Request" Then
                Dim uiws As New notesuiworkspace
                Dim uinote As notesuidocument
                Set uinote =  uiws.Editdocument(False, noteParent, False)
                Call Source.Close()
            End If
        End If
    End If
    Goto    Complete
Trap:
    If Err = 4091 Then
        Resume Next
    Else
        Print("Notes error: " & Cstr(Err) & " " &  Error$)
        Resume Next
    End If
Complete:
End Sub
Lotus Product
OBJECT
Trace Report
    Your trace:
Subject
Subject
    has reached:
IntendedRecipient
MailServer
DeliveryDate
Trace Information
RouteServers
RouteServers
RouteTimes
RouteTimes
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$AppHelpFormula
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
DeliveryDate
$Body
$V5ACTIONS
$ACTIONS
***Tracking Request***
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class ResponseStringTable
Declare Class TrackingObject As BaseApplication
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const MAIL_TRACKING_REQUEST_FORM$        = "Tracking Request"
Const MAIL_TRACKING_RESPONSE_FORM$    = "Tracking Response"
Const MAIL_TRACEREPORT_FORM$                = "Trace Report"
Const MAIL_DELIVERYREPORT_FORM$            = "Delivery Report"
Const MAIL_RETURNRECEIPT_FORM$            = "Return Receipt"
Dim cTrackingObject As TrackingObject
Class ResponseStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case 1
            GetString = " UNKNOWN "
        Case 2
            GetString = " In Que "
        Case 4
            GetString = " DELIVERED "
        Case 8
            GetString = " DELIVERY FAILED "
        Case 16
            GetString = " TRANSFERED "
        Case 32
            GetString = " TRANSER FAILED "
        Case  64
            GetString = " GROUP EXPANDED "
        Case 65
            GetString = " Message to : "
        Case 66
            GetString = " Mail Viewing Status: "
        Case 67
            GetString = " at: "
        Case 68
            GetString = " Status unknown"
        Case 69
            GetString = " on "
        Case 70
            GetString = " No tracking responses have been received. "
        Case 71
            GetString = " (No tracking information is available) "
        End Select
    End Function
End Class
Class TrackingObject As BaseApplication
    Private m_noteParent As notesdocument
    Private m_noteTrace As notesdocument
    Private m_uiws As notesuiworkspace
    Private m_collectionTraces As notesdocumentcollection
    Private m_uinote As notesuidocument
    Private m_uiEditorNote As notesuidocument
    Private m_name As notesname
    Private m_strNOTES_FORM As String
    Sub new(Source As notesuidocument)
        Set Me.m_StringTable = New ResponseStringTable
        Set Me.m_session = New notessession
        Set Me.m_uiws = New notesuiworkspace
        Set Me.m_uinote = Source
        m_strNOTES_FORM = Me.m_uinote.document.GetItemValue("Form")(0)
    End Sub
    Sub Init()
        'if open IN edit mode or prepped by this class then bypass all this stuff!
        If Not Me.m_uinote.EditMode Then
            If Not Me.m_uinote.document.HasItem("SummaryGenerated") Then
                If HasTrackingParent Then
            'This note is a response to a tracking request and we want to open the parent document to the ui
                    Call OpenInEditor(Me.m_noteParent)
                Else
                    Call ConstructUIDocument()
                    Call OpenInEditor(Me.m_uinote.document)
                End If
            End If
        End If
    End Sub
    Function HasTrackingParent As Integer
        On Error Goto Trap
        HasTrackingParent = False
        Set Me.m_noteParent = Me.m_uinote.document.Parentdatabase.Getdocumentbyunid(_
        Cstr(Me.m_uinote.document.Parentdocumentunid))
        If Not Me.m_noteParent Is Nothing Then
            If Me.m_noteParent.GetItemValue("Form")(0) = MAIL_TRACKING_REQUEST_FORM Then
                HasTrackingParent = True
            End If
        End If
        Exit Function
Trap:
        If Err = 4091 Then
            Resume Next
        Else
            Print("Notes error: " & Cstr(Err) & " " &  Error$)
            Resume Next
        End If
    End Function
    Function ConstructUIDocument
        If IsTrackingParent Then
            If ParentHasChildren Then
            'this is the original tracking request create a rtItem for display
                Call ParseCollectionToSummary
            Else
                'no responses have returned yet, post in ui
                Call NoItemsToSummary
            End If
        Else
            'none of the above, must be an r4.x or r3.x delivery confirmation
        End If
    End Function
    Function NoItemsToSummary
        Dim rtItem As notesrichtextitem
        Dim rtStyle As notesrichtextstyle
        If Me.m_uinote.document.HasItem("DispStat") Then
            'we want to work with a new item so nuke it if it's there!
            Call Me.m_uinote.document.RemoveItem("DispStat")
        End If
        Call Me.m_uinote.document.ReplaceItemValue("SummaryGenerated","1")
        Set rtitem = New notesrichtextitem(Me.m_uinote.document, "DispStat")
        Set rtstyle = Me.m_session.CreateRichTextStyle
        Call InitRTStyle(rtstyle,False)
        Call rtitem.AppendStyle(rtstyle)
        Call rtItem.AppendText(Me.m_StringTable.GetString(70,Null))
    End Function
    Function IsTrackingParent As Integer
        IsTrackingParent = False
        If m_strNOTES_FORM = MAIL_TRACKING_REQUEST_FORM Then
            IsTrackingParent = True
        End If
    End Function
    Function ParentHasChildren As Integer
        ParentHasChildren = False
        Set Me.m_collectionTraces  = Me.m_uinote.document.responses
        If (Me.m_collectionTraces.count) Then
            ParentHasChildren = True
        End If
    End Function
    Function OpenInEditor(note As notesdocument)
        Set Me.m_uiEditorNote =  Me.m_uiws.Editdocument(False, note, False)
        Call Me.m_uinote.Close()
    End Function
    Function CanonicalToAbbreviated(theString As String) As String
        If Len(theString)  Then
            Set Me.m_name = New notesname(theString)
            If Me.m_name.Ishierarchical Then
                CanonicalToAbbreviated = Me.m_name.Abbreviated
            Else
                CanonicalToAbbreviated = theString
            End If
        End If
    End Function
    Sub InitRTStyle(rtstyle As NotesRichTextStyle, STRONG As Integer)
        rtstyle.Bold = STRONG
        rtstyle.FontSize = 9
        rtstyle.NotesColor = COLOR_BLACK
        rtstyle.NotesFont = Font_Courier
        rtstyle.Italic = False
    End Sub
    Function ParseCollectionToSummary
        Dim rtItem As notesrichtextitem
        Dim rtStyle As notesrichtextstyle
        Dim strMTErrStat, strMTNextMTA As String
        Dim y As Integer
        If Me.m_uinote.document.HasItem("DispStat") Then
            'we want to work with a new item so nuke it if it's there!
            Call Me.m_uinote.document.RemoveItem("DispStat")
        End If
        Set rtitem = New notesrichtextitem(Me.m_uinote.document, "DispStat")
        Set rtstyle = Me.m_session.CreateRichTextStyle
        Call Me.m_uinote.document.ReplaceItemValue("SummaryGenerated","1")
        Set Me.m_noteTrace = Me.m_collectionTraces.GetFirstDocument()
        Do While Not Me.m_noteTrace Is Nothing
            Select Case Me.m_noteTrace.GetItemValue("Form")(0)
            Case MAIL_TRACKING_RESPONSE_FORM 'this is the expected document from an r5 server running message tracking
                If Me.m_noteTrace.HasItem("$MTErrStat") Then
                    If Len(Me.m_noteTrace.GetItemValue("$MTErrStat")(0)) Then
                        strMTErrStat = Me.m_noteTrace.getitemvalue("$MTErrStat")(0)
                    End If
                End If
            'add server data to this paragraph
                Call InitRTStyle(rtstyle,True)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.AppendText(MAIL_TRACKING_RESPONSE_FORM & " - " &  CanonicalToAbbreviated(Me.m_noteTrace.getitemvalue("MailServer")(0)) &_
                " - " & Cstr(Me.m_noteTrace.getitemvalue("DeliveredDate")(0))  & strMTErrStat)
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addnewline(1,True)
                Call rtItem.Addtab(1)
            'build detail for each user being tracked in this response
                For y = 0 To Ubound(Me.m_noteTrace.GetItemValue("$MTDISPSTAT"))
                    strMTNextMTA = Me.m_noteTrace.GetItemValue("$MTNEXTMTA")(y)
                    If Cint(Me.m_noteTrace.GetItemValue("$MTMAILBOXSTAT")(y)) Then
                        Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
                        & Me.m_StringTable.GetString(66,Null) & Cstr(Me.m_noteTrace.GetItemValue("$MTMAILBOXSTAT")(y))_
                        & Me.m_StringTable.GetString(67,Null) & Me.m_noteTrace.GetItemValue("$MTDispTM")(y))
                    Elseif Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)) = 16 Then
                        Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemVAlue("$MTOUTRCP")(y))_
                        & Me.m_StringTable.GetString(Cint(Me.m_noteTrace.GetItemVAlue("$MTDISPSTAT")(y)),Null) & strMTNextMTA _
                        & Me.m_StringTable.GetString(67,Null) & Me.m_noteTrace.GetItemValue("$MTDispTM")(y))
                    Elseif Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)) = 1 Then
                        Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null)  & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y)) _
                        & Me.m_StringTable.GetString(68,Null))
                    Else
                        Call rtItem.AppendText(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
                        & Me.m_StringTable.GetString(66,Null) & Me.m_StringTable.GetString(Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)),Null)_
                        & Me.m_StringTable.GetString(69,Null) & Me.m_noteTrace.MailServer(0) & Me.m_StringTable.GetString(68,Null) & _
                        Me.m_noteTrace.GetItemValue("$MTDispTM")(y))
                    End If
                    Call rtItem.Addnewline(1,True)
                    If y <> Ubound(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")) Then
                        Call rtItem.Addtab(1)
                    End If
                Next y
            Case MAIL_TRACEREPORT_FORM
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.AppendText(MAIL_TRACEREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("MailServer")(0))_
                & " - " & Me.m_noteTrace.GetItemValue("RouteTimes")(0) & Me.m_StringTable.GetString(71,Null))
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addnewline(1,True)
            Case MAIL_DELIVERYREPORT_FORM
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.AppendText(MAIL_DELIVERYREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("IntendedRecipient")(0))_
                & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0))& Me.m_StringTable.GetString(71,Null))
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addnewline(1,True)
            Case MAIL_RETURNRECEIPT_FORM
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.AppendText(MAIL_RETURNRECEIPT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("From")(0))_
                & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0))& Me.m_StringTable.GetString(71,Null))
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addnewline(1,True)
            Case Else
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.AppendText(Me.m_noteTrace.GetItemValue("Form")(0) & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0))_
                & Me.m_StringTable.GetString(71,Null))
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addnewline(1,True)
            End Select
            Set Me.m_noteTrace = Me.m_collectionTraces.GetNextDocument(Me.m_noteTrace)
        Loop
    End Function
End Class
'++LotusScript Development Environment:2:2:Postopen:1:8
Sub Postopen(Source As Notesuidocument)
    Set cTrackingObject = New TrackingObject(Source)
    Call cTrackingObject.Init()
End Sub
Lotus Product
V0.0O
0    0    \
P    P    h
\@    KL
\0    +l
K0    -<
K0    -`
 Tracking Response'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Set cTrackingObject = New TrackingObject(Source)
    Call cTrackingObject.Init()
End Sub
Lotus Product
Tracking Request
        Target recipient(s):
$MTINRCP
    0S0E
MTINRCP
MTINRCP
        Request date:
Created
Created
        Responses:
    0S0E
Responses
Responses
Tracking response information:
DispStat
DispStat
Categori_zeK
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
act_DELETE.GIF|act_DELETE?
Next
    0S0E
Previous
    0S0E
Categori_zeK
Close
    0S0E
_Edit Document
Send Docu_ment
_Forward
_Move to Folder...
_Remove from Folder...
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Delete
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
Next
    0S0E
Previous
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
kf>lf
DeliveryDate
$Info
$WINDOWTITLE
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Function NABEntry(NABFilename As String) As String
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    On Error Goto ErrorRoutine
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call agentlog.logaction("inside addressopen")
    Set item = note.getfirstitem("AddressBooks")
    vbooks = session.addressbooks
    Forall v In vbooks
'need to put addressbooks into the tmpNABs field
        item.appendtotextlist(NABEntry(v.filename))
    End Forall
  'There has to be something in the address lookup field so if the addressbooks call returned nothing, we'll default to names.nsf
    If (note.getitemvalue("AddressBooks")(0) = "") Then
        Call note.replaceitemvalue("AddressBooks",NABEntry("names.nsf"))
    End If
ErrorRoutine:
    Call agentlog.logaction( Error & " (AddressOpen)")
    Exit Sub
End Sub
'++LotusScript Development Environment:2:1:NABEntry:1:8
Function NABEntry(NABFilename As String) As String
       'pull the title of the address book and put it as the display string in the field
    Dim newnab As notesdatabase
    Call agentlog.logaction("Inside NABEntry")
    If NABFilename <> "" Then
        Set newnab = New notesdatabase("", NABFilename)
        If newnab.isopen Then
            NABEntry = newnab.title + "|" + NABFilename
        Elseif newnab.open("","") Then
            NABEntry = newnab.title + "|"+NABFilename
        Else
            NABEntry = NABFilename+"|"+NABFilename
            Call agentlog.logaction("nabentry is "+nabentry)
        End If
    End If
End Function
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
// For convenience
var fieldSendTo ;
var fieldCopyTo;
var fieldBlindCopyTo;
var fieldSendToRef;
var fieldCopyToRef;
var fieldBlindCopyToRef;
var fieldEntryList;
function OKClick()
    // put the values back in the underlying form in the right format
    if(window.opener)
        window.opener.document.forms[0].SendTo.value = selectToString(fieldSendTo);
        window.opener.document.forms[0].CopyTo.value = selectToString(fieldCopyTo);
        window.opener.document.forms[0].BlindCopyTo.value = selectToString(fieldBlindCopyTo);
    self.close();
function CancelClick()
    self.close();
function AddClick(field)
    if(fieldEntryList.selectedIndex != -1)
        for (var i=0; i < fieldEntryList.options.length; ++i)
        if (fieldEntryList.options[i].selected)
            {
                var selection = FixName(fieldEntryList.options[i].value);
                field.options[field.options.length] = new Option(selection);
function substring2(string, start, length) {
    return string.substring(start,start+length);
function FixName(name)
    if (name.indexOf("CN=")!= -1)
            tmpstring=name.substring(3)
            var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
            tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
            strpos = tmpstring.indexOf("=")+1;
            tmpstring=substring2(tmpstring,strpos,tmpstring.length);
            while (strpos != -1)
                if (tmpstring.indexOf("/")!= -1)
                {
                restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
                if (restofname.length!=0)
                    {
                    fullname=fullname+"/"+restofname;
                    }
                strpos=tmpstring.indexOf("=");
                } else {
                    fullname=fullname+"/"+tmpstring;
                    strpos=-1;
                    }
            return fullname;
        } else return name;
function RemoveClick(field)
    if (field.length != 0){
    if (field.selectedIndex != -1)
        for(var i=0;i<field.options.length ; ++i)
                if (field.options[i].selected)
                    {
                        field.options[i] = null;
                    }
function RemoveAllClick()
    fieldSendTo.options.length=0;
    fieldCopyTo.options.length=0;
    fieldBlindCopyTo.options.length=0;
function trim(str)
    for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
    return str.substring(i,str.length);
function stringToSelect(str,field)
    for(var  beg=0 ; beg < str.length ; beg = end+1)
        if(-1 == (end = str.indexOf(",",beg))) end = str.length;
        var entry = trim(str.substring(beg,end));
        if(entry!="") field.options[field.options.length++].text = entry;
function selectToString(field)
    if (field.length!=0)
    var str = "";
    for(i=0 ; i < field.options.length-1 ; i++)
        str += field.options[i].text + ",";
    return str += field.options[i].text;
    } else return "";
// For convenience
fieldSendTo = document.forms[0].tmpSendTo;
fieldCopyTo = document.forms[0].tmpCopyTo;
fieldBlindCopyTo = document.forms[0].tmpBlindCopyTo;
fieldSendToRef = document.forms[0].tmpSendToRef;
fieldCopyToRef = document.forms[0].tmpCopyToRef;
fieldBlindCopyToRef = document.forms[0].tmpBlindCopyToRef;
fieldEntryList = document.forms[0].EntryList;
// Grab original values from underlying document
var OrigSendTo;
var OrigCopyTo;
var OrigBlindCopyTo;
if ((window.location.href.indexOf("Seq"))==-1)  {
if(window.opener)
    OrigSendTo = window.opener.document.forms[0].SendTo.value;
    OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
    OrigBlindCopyTo = window.opener.document.forms[0].BlindCopyTo.value;
else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
// Initialize fields
RemoveAllClick();
stringToSelect(OrigSendTo,fieldSendTo);
stringToSelect(OrigCopyTo,fieldCopyTo);
stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
} else {
if(window.opener)
     OrigSendTo = document.forms[0].tmpSendToRef.value;
    OrigCopyTo = document.forms[0].tmpCopyToRef.value;
    OrigBlindCopyTo = document.forms[0].tmpBlindCopyToRef.value;
else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
//If this is a reload -- move the reference values into the current visible fields
RemoveAllClick();
stringToSelect(OrigSendTo,fieldSendTo);
stringToSelect(OrigCopyTo,fieldCopyTo);
stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
wAddressOpen
 wAddress'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
<NOSCRIPT><H2>
This page requires JavaScript 1.1 or higher
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)
        document.write('<H2>
This page requires JavaScript 1.1 or higher
</H2><HR>');
        document.close();
//--></SCRIPT>
tmpSendToRef
tmpSendToRef
tmpCopyToRef
tmpCopyToRef
tmpBlindCopyToRef
tmpBlindCopyToRef

    Look in:
    <font size=-1>
names.nsf
Addressbooks
    0S0E
NABs_1
    </font>
    Starts with:
FindTextz
FindText_1SIZE=15
tmpCurIndex
Domino
LoadAddressListByName
EntryList
FindText
    1S2S3S7S9S11S13S15S
tmpNextIndex
tmpCurIndex
    0R1S2S3S5S9S10S11S
      Find  z
FONT Size=2

New Button
Need a newer version of Notes to execute this button.
    0S0E
AddClick(fieldSendTo);
document.forms[0].tmpSendToRef.value=selectToString(fieldSendTo);
     To > z
FONT Size=2
tmpSendTo
12345678901234567890123456789012
tmpSendTo_1SIZE=6
New Button
Need a newer version of Notes to execute this button.
    0S0E
AddClick(tmpCopyTo);
document.forms[0].tmpCopyToRef.value=selectToString(fieldCopyTo);
     cc > z
FONT Size=2
tmpCopyTo
12345678901234567890123456789012
tmpCopyTo_1SIZE=6
    <font size=-1>
EntryList
EntryList
EntryList_1FONT Size=2
    </font>
New Button
Need a newer version of Notes to execute this button.
    0S0E
AddClick(tmpBlindCopyTo);
document.forms[0].tmpBlindCopyToRef.value=selectToString(fieldBlindCopyTo);
    bcc >
FONT Size=2
tmpBlindCopyTo
12345678901234567890123456789012z
tmpBlindCopyTo_1SIZE=6
tmpIndexStr
tmpCurIndex
    1S2S8S9S
tmpCurIndex
Domino
LoadAddressListByIndex
EntryList
tmpIndexStr
    0R1S2S3S7S9S11S13S15S
tmpNextIndex
tmpCurIndex
    0R1S2S3S5S9S10S11S
    < Previousz
font size=1
tmpCurIndex
Domino
LoadAddressListByIndex
EntryList
tmpNextIndex
    1S2S3S7S9S11S13S15S
tmpNextIndex
tmpCurIndex
    0R1S2S3S5S9S10S11S
    Next >    z
font size=1
New Button
Need a newer version of Notes to execute this button.
    0S0E
RemoveClick(tmpSendTo);
RemoveClick(tmpBlindCopyTo);
RemoveClick(tmpCopyTo);
      Remove  z
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
RemoveAllClick()
    Remove Allz
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
OKClick();
       OK   z
font size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
CancelClick()
     Cancel
font size=2
Domino
LoadAddressListByIndex
EntryList
    4S6S8S10S12S
tmpCurIndex
tmpCurIndex
tmpCurIndex
    2S6S7S8S
tmpNextIndexz
tmpNextIndex
AddressBooksz
AddressBooks
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
(238`
$HTMLCode
$Info
$WEBQueryOpen
$WebFlags
$$ScriptName
$$AddressBooks
$AddressBooks_O
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSWeb"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call WebQueryOpen()
End Sub
Lotus Product
(V0.0^t
[D!Kp -
"Kp -$
K("St
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSWeb"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call WebQuerySave()
End Sub
Lotus Product
(V0.0^t
[D!Kp -
"Kp -$
K("St
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const fromstr = "From"
Const tostr = "To"
Const intrash = "IN TRASH - "
Const openagent = "OpenAgent&"
Dim srcFolder As NotesView
Dim destFolder As NotesView
Dim curNote As NotesDocument
Dim nextNote As NotesDocument
Dim arg0name, arg0, arg1name, arg1, arg2name, arg2 As String
Dim arg0found, arg1found, arg2found As Integer
Dim MessageString As String
Dim uview As Variant
Dim QueryString As String
Dim FileAndPath As String
Dim PathInfo As String
Dim viewarguments As String
Dim  tmpNote As notesdocument
Dim trashfolder As notesview
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
'Expected URL syntax ...
'Delete all documents in the trash folder
'?OpenAgent&EmptyTrash
'?OpenAgent&EmptyTrash=viewname
'Move/copy document to trash folder
'?OpenAgent&ToTrash=unid&From=viewunid
'Delete a folder
'?OpenAgent&Destroy=viewname
'Copy a document to a folder
'?OpenAgent&Copy=unid&To=viewname&From=viewname
'Move a document from one folder to another folder
'?OpenAgent&Move=unid&To=viewname&From=viewname
'Remove a document from a folder
'?OpenAgent&UnFile=unid&From=viewname
'Scroll to the end of a view
'?OpenAgent&ViewEnd=viewname
'Replace one document with another.
'?OpenAgent&FixUp=unid
'Remove the RSVP document
'?OpenAgent&Remove=unid
    IsWebClient = True
    On Error Goto ErrorRoutine
    MessageString = ""
    viewarguments = " "
    Call wInstantiateObjectVariables
    Call wGetCalendarProfile
    Call agentlog.logaction("Starting wCommand agent")
     'prep for response page
    PathInfo=note.getitemvalue("Path_Info")(0)
    FileAndPath=wGetDBPath
    Call agentlog.logaction("filepath is "+ fileandpath)
    InfoPathPos% = Instr (PathInfo, FileAndPath)
     'fetch query string & strip off "OpenAgent"
    QueryString = note.getitemvalue("Query_String")(0)
    Call agentlog.logaction("query string is "+QueryString)
    pos% = Instr (QueryString, openagent)
    If (pos% = 0) Then Goto ArgumentError
    workstr$ = Right$(QueryString, Len (QueryString) - Len(openagent))
'fetch all arguments before processing
    arg0found = False
    arg1found = False
    arg2found = False
     'fetch arg0 name
    pos% = Instr (workstr$, "=")
    If (pos% = 0) Then
          'no value, just arg name
        If (Len(workstr$) = 0) Then Goto ArgumentError
        arg0name = workstr$
        Goto AllArgsCollected
    End If
    arg0name = Left$ (workstr$, pos% - 1)
    workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
     'fetch arg0 value
    pos% = Instr (workstr$, "&")
    If (pos% = 0) Then
          'last arg in list
        If (Len(workstr$) = 0) Then Goto ArgumentError
        arg0found = True
        arg0 = workstr$
        Goto AllArgsCollected
    End If
    arg0found = True
    arg0 = Left$ (workstr$, pos% - 1)
    workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
     'fetch arg1 name
    pos% = Instr (workstr$, "=")
    If (pos% = 0) Then Goto ArgumentError
    arg1name = Left$ (workstr$, pos% - 1)
    workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
     'fetch arg1 value
    pos% = Instr (workstr$, "&")
    If (pos% = 0) Then
          'last arg in list
        If (Len(workstr$) = 0) Then Goto AllArgsCollected
        arg1found = True
        arg1 = workstr$
        Goto AllArgsCollected
    End If
    arg1found = True
    arg1 = Left$ (workstr$, pos% - 1)
    workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
     'fetch arg2 name
    pos% = Instr (workstr$, "=")
    If (pos% = 0) Then Goto ArgumentError
    arg2name = Left$ (workstr$, pos% - 1)
    workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
     'fetch arg2 value
    pos% = Instr (workstr$, "&")
    If (pos% = 0) Then
          'last arg in list
        If (Len(workstr$) = 0) Then Goto AllArgsCollected
        arg2found = True
        arg2 = workstr$
        Goto AllArgsCollected
    End If
    arg2found = True
    arg2 = Left$ (workstr$, pos% - 1)
    workstr$ = Right$ (workstr$, Len (workstr$) - pos%)
AllArgsCollected:
'What command are we being issued?
    Select Case arg0name
    Case "EmptyTrash"
        Call agentlog.logaction("EmptyTrash")
     '?OpenAgent&EmptyTrash
     '?OpenAgent&EmptyTrash=viewname
          'Delete all documents in the trash folder
        Set destFolder = db.GetView( "($Trash)" )
        Set curNote = destFolder.GetFirstDocument
        While Not (curNote Is Nothing)
            Set nextNote = destFolder.GetNextDocument( curNote )
            curNote.Remove( True )
            Set curNote = nextNote
        Wend
        If arg0found Then
            srcFolderStr$ = arg0
            note.tmpFolderName = arg0
            sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", note)
            Set srcFolder = db.GetView( sFolder(0) )
            If srcFolder Is Nothing Then srcFolderStr$ = "($Trash)"
        Else
            srcFolderStr$ = "($Trash)"
        End If
        Goto ReturnToFolder
    Case "ToTrash"
        Call agentlog.logaction("ToTrash")
     '?OpenAgent&ToTrash=unid&From=viewunid
          'Move/copy document to trash folder
          '(The "from" argument is optional)
        If Not (arg0found) Goto ArgumentError
          'is this a valid document UNID?
        On Error Resume Next
        Set curNote = db.GetDocumentByUNID( arg0 )
        On Error Goto ErrorRoutine
        If curNote Is Nothing Then Goto ReturnToInBox
        Set destFolder = db.GetView( "($Trash)" )
        Call curNote.PutInFolderbyUNID( destFolder.Universalid )
        If arg1found Then
            If (arg1 <> destFolder.UniversalID) Then
                curNote.removefromfolderbyUNID(arg1)
            End If
            srcFolderStr$ = arg1
        Else
               'If from argument not supplied (or complete) then return to inbox instead
            srcFolderStr$ = "($InBox)"
        End If
        If (curNote.HasItem( "Subject" ) ) Then
            If ( Left$( curNote.Subject(0), Len( intrash ) ) <> intrash ) Then
                curNote.Subject = intrash & curNote.Subject(0)
                Call curNote.Save(True, True, True)
            End If
        End If
        Goto ReturnToFolder
    Case "Destroy"
     '?OpenAgent&Destroy=viewUNID
          'Delete a folder
        If Not (arg0found) Goto ArgumentError
        uview = Strconv ( arg0, 1 )
        Set tmpNote=db.getdocumentbyUNID(uview)
        If Not(tmpNote Is Nothing) Then
            Set srcFolder = db.getview(tmpNote.getitemvalue("$TITLE")(0))
        Else
            Goto ArgumentError
        End If
        If srcFolder Is Nothing Then Goto ArgumentError
        If Not ( srcFolder.IsFolder ) Then Goto ArgumentError
        Call srcFolder.Remove
        Goto ListAllViews
    Case "ViewEnd"
     '?OpenAgent&ViewEnd=viewname
          'Scroll to the end of a view
        If Not (arg0found) Goto ArgumentError
        If InfoPathPos% = 0 Then Goto InfoPathError
        srcFolderStr$ = arg0
        note.tmpFolderName = arg0
        sFolder = Evaluate("@ReplaceSubstring(tmpFolderName;""+""; "" "")", note)
        Set srcFolder = db.GetView( sFolder(0) )
        If srcFolder Is Nothing Then Goto ArgumentError
          'count the documents in this view
        NumDocs% = 0
        Set curNote = srcFolder.GetFirstDocument
        While Not curNote Is Nothing
            NumDocs% = NumDocs% + 1
            Set curNote = srcFolder.GetNextDocument(curNote)
        Wend
          'count number of top level the documents in this view
        NumTopDocs% = 0
        Set curNote = srcFolder.GetFirstDocument
        Dim lastTopNote As NotesDocument
        While Not curNote Is Nothing
            NumTopDocs% = NumTopDocs% + 1
            Set lastTopNote = curNote
            Set curNote = srcFolder.GetNextSibling(curNote)
        Wend
        num_to_list% = 15
        If (NumDocs% < num_to_list% And NumTopDocs% < num_to_list%) Then
               'end of view is already displayed
            Goto ReturnToFolder
        End If
          'if all documents in this view are NOT top level documents, then it's a hierarchical view
        If (NumDocs% = NumTopDocs%) Then
               'flat views need no further calcs.
            targetIndex% = (NumDocs% - num_to_list%) + 1
        Else
               'this is a hierarchical view, so we need to skip the responce docs when calcing the index
               'find a top level doc close to the end
            NumEndDocs% = 1
            LastTopDocNum% = NumTopDocs%
            targetIndex% = LastTopDocNum%
            Set curNote = srcFolder.GetLastDocument
            While Not curNote Is Nothing
                If (NumEndDocs% > num_to_list%) Then
                         'we've counted enough
                    targetIndex% = LastTopDocNum% + 1
                    Set curNote = Nothing
                Else
                         'did we find a top doc?
                    If (curNote.UniversalID = lastTopNote.UniversalID) Then
                              'yes, then try to find the next one
                        Set lastTopNote = srcFolder.GetPrevSibling(lastTopNote)
                        LastTopDocNum% = LastTopDocNum% - 1
                    End If
                    NumEndDocs% = NumEndDocs% + 1
                    Set curNote = srcFolder.GetPrevDocument(curNote)
                End If
            Wend
        End If
        Print "[" & FileAndPath$ & arg0 & "?OpenView&Start=" & Format$(targetIndex%) & "]"
        Exit Sub
    Case "UnFile"
        Call agentlog.logaction("Unfile")
     '?OpenAgent&UnFile=unid&From=viewUNID
        If Not (arg0found) Goto ArgumentError
        Set curNote = db.GetDocumentByUNID( arg0 )
        If curNote Is Nothing Then Goto ArgumentError
        If Not(arg1found) Goto argumenterror
        uview = Strconv ( arg1, 1 )
        Call curNote.RemoveFromFolderbyUNID( uview )
        Set trashFolder = db.GetView( "($Trash)" )
        If (trashFolder.Universalid = uview) Then
            If (curNote.HasItem( "Subject" ) ) Then
                If ( Left$( curNote.Subject(0), Len( intrash ) ) = intrash ) Then
                    curNote.Subject = Right$( curNote.Subject(0), Len( curNote.Subject(0) ) - Len( intrash ) )
                    Call curNote.Save(True, True, True)
                End If
            End If
        End If
        Goto ReturnToFolder
    Case "Remove"
        Call agentlog.logaction("Remove")
     '?OpenAgent&Remove=unid
        On Error Resume Next
        Set curNote = db.GetDocumentByUNID( arg0 )
        On Error Goto ErrorRoutine
        If curNote Is Nothing Then Goto ReturnToInBox
        MessageString = curNote.WebMessageString(0)
        Call curNote.Remove(False)     'destroy the RSVP document
          'determine return state
        If (MessageString = "") Then
            srcFolderStr$ = "($InBox)"
            Goto ReturnToFolder
        End If
        Goto DisplayMessage
    Case Else
        Call agentlog.logaction("Case else")
          '?OpenAgent&Copy=unid&To=viewUNID&From=viewUNID
          '?OpenAgent&Move=unid&To=viewUNID&From=viewUNID
        If Not (arg0name = "Copy" Or arg0name = "Move") Then Goto ArgumentError
        If Not (arg0found And arg1found And arg2found) Then Goto ArgumentError
        Set curNote = db.GetDocumentByUNID( arg0 )
        If curNote Is Nothing Then Goto ArgumentError
        uview = Strconv ( arg1, 1 )
        Set tmpNote=db.getdocumentbyUNID(uview)
        If Not(tmpNote Is Nothing) Then
            Set destFolder = db.getview(tmpNote.getitemvalue("$TITLE")(0))
        Else
            Goto ArgumentError
        End If
        If destFolder Is Nothing Then Goto ArgumentError
        If Not ( destFolder.IsFolder ) Then Goto ArgumentError
        uview = Strconv ( arg2, 1 )
        Set tmpNote=db.getdocumentbyUNID(uview)
        If Not(tmpNote Is Nothing) Then
            Set srcFolder = db.getview(tmpNote.getitemvalue("$TITLE")(0))
        Else
            Goto ArgumentError
        End If
        If srcFolder Is Nothing Then Goto ArgumentError
        If (arg0name = "Move") Then
               'Move a doc from a folder to a folder.
            If Not ( srcFolder.IsFolder ) Then Goto ArgumentError
            Call curNote.PutInFolder( destFolder.Name )
            Call curNote.RemoveFromFolder( srcFolder.Name )
        Else
               'Copy a doc from a view or folder to a folder
            Call curNote.PutInFolder( destFolder.Name )
        End If
        If (srcFolder.Name = "($Trash)" Or destFolder.Name = "($Trash)") Then
            If (curNote.HasItem( "Subject" ) ) Then
                If (srcFolder.Name = "($Trash)") Then
                         'coming out of trash
                    If ( Left$( curNote.Subject(0), Len( intrash ) ) = intrash ) Then
                        curNote.Subject = Right$( curNote.Subject(0), Len( curNote.Subject(0) ) - Len( intrash ) )
                        Call curNote.Save(True, True, True)
                    End If
                Else
                         'going into trash
                    If ( Left$( curNote.Subject(0), Len( intrash ) ) <> intrash ) Then
                        curNote.Subject = intrash & curNote.Subject(0)
                        Call curNote.Save(True, True, True)
                    End If
                End If
            End If
        End If
        Goto ReturnToFolder
    End Select
DisplayMessage:
    If viewarguments = " " Or viewarguments = "" Then
        viewarguments = "&Grid=" & profile.wCalGridType(0)
    End If
    If InfoPathPos% = 0 Then Goto InfoPathError
    Print |<BODY TEXT="000000" BGCOLOR="ffffff">|
    Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>|
    Print |<TR VALIGN=middle BGCOLOR="C0C0C0">|
    Print |<TD><A HREF="| & FileAndPath$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>|
    Print |<TD><A HREF="| & FileAndPath$ & |($Calendar)?OpenView| & viewarguments & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>|
    Print |<TD><A HREF="| & FileAndPath$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>|
    Print |<TD><A HREF="| & FileAndPath$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>|
    Print |<TD><A HREF="| & FileAndPath$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD></TR>|
    Print |</TABLE><HR><P><B>| & MessageString
    Exit Sub
ListAllViews:
    If InfoPathPos% = 0 Then Goto InfoPathError
    Print "[" & FileAndPath$ & "]"
    Exit Sub
ReturnToInBox:
    If InfoPathPos% = 0 Then Goto InfoPathError
    Print "[" & FileAndPath$ & "($InBox)?OpenView" & viewarguments$ & "]"
    Exit Sub
ReturnToFolder:
    If viewarguments = " " And srcFolderStr$ = "($Calendar)" Then
        viewarguments = "&Grid=" & profile.wCalGridType(0)
    End If
    If InfoPathPos% = 0 Then Goto InfoPathError
    Msgbox("about to bring up url")
    Print "[" & FileAndPath & srcFolderStr$ & "?OpenView" & viewarguments & "]"
    Call agentlog.close
    Exit Sub
ErrorRoutine:
    Print Error & " (wCommand)"
    Exit Sub
ArgumentError:
    If Len(QueryString) < 1 Then QueryString = " "
    Print "Invalid arguments were supplied to wCommand (" & QueryString & ")"
    Exit Sub
InfoPathError:
    Print "Info_Path error from wCommand"
End Sub
Lotus Product
OBJECT
-D    ##
,h    G,
-D    #G
tmpFolderName
tmpFolderName
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
`t!Gh
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
function displayDialog(strFormName, strActionType, strArgs, strTitle, nWidth, nHeight)
    thisform = window.document.forms[0]
    strLocation = window.location.protocol + "//" + window.location.host + "/" + thisform.tmpDB.value + "/(wDlgBox)?OpenForm&Subform=" + strFormName
    if (strActionType)
        strLocation += "&ActionType=" + strActionType
    if (strArgs)
        strLocation += strArgs
    if (strTitle)
        strLocation += "&Title=" + strTitle
    return window.open(strLocation,"Dlg","width="+nWidth+",height="+nHeight)
function isUserOwner()
    thisform = document.forms[0]
    if (thisform.tmpOwner.value == thisform.Chair.value)
        return true
    else
        return false
function isDateTimeValuesModified()
    thisform = document.forms[0]
    newstart = thisform.StartDate.value + " " + thisform.StartTime.value
    newend = thisform.EndDate.value + " " + thisform.EndTime.value
    if (newstart != thisform.tmpOriginalStart.value)
        return true
    else if (newend != thisform.tmpOriginalEnd.value)
        return true
    else
        return false
function isActionInProgress(dAction)
    thisform = document.forms[0]
    aip = new Number(thisform.tmpAction.value)
    if (aip & dAction)
        return true
    else
        return false
function updateActionInProgress(dAction, bAdd)
    thisform = document.forms[0]
    csactions = new Number(thisform.tmpAction.value)
    if (bAdd)
        csactions |= dAction
    else
        csactions &= ~dAction
    thisform.tmpAction.value = csactions.toString()
function submitDocument()
    thisform = document.forms[0]
    // see if we are changing the date/time and we are the owner
    if (isUserOwner() && (thisform.tmpWasMailed.value == "1") && isDateTimeValuesModified() && !isActionInProgress(512))
        if (!self.confirm("You have changed the date/time of this entry. All participants will be notified. Are you sure this is what you want to do?"))
            updateActionInProgress(512, false)
            return
        updateActionInProgress(512, true)
    // see if we are modifying repeating instance -> THIS MUST BE DONE LAST, since
    // the window opened is treated as a modal dialog and is responsible for submitting
    // this document
    if (thisform.OrgRepeat.value == "1" && thisform.tmpResponse.value == "1")
        displayDialog("(ChangeRepeat)", "", "", "Change Repeat Instance","500","500")
        return
    thisform.submit()
function openV5RepeatInstance()
    thisform = document.forms[0]
    if (!thisform.OrgRepeat)
        return
if ((thisform.OrgRepeat.value.length > 0) && (thisform.$CSVersion.value.length >0) && (thisform.tmpCalInstanceDate.value.length <= 2))
        newwindow = displayDialog("(RepeatOpenList)", "", "&Prompt=Select the repeat instance you wish to edit.", "Open Repeating Instance", "500","500")
        newform = newwindow.document.forms[0]
        newform.tmpListOfDates.value = thisform.StartDateTime.value
        newwindow.copyRepeatItems()
Lotus Product
V0.0N
(wCSItems)
    These fields are sent over the wire but are hidden
type=hidden
ApptUNID
type=hidden
StartDateTime
type=hidden
EndDateTime
type=hidden
RepeatStartDate
type=Hidden
RepeatUnit
type=Hidden
RepeatInterval
type=Hidden
RepeatAdjust
type=Hidden
RepeatCustom
type=Hidden
RepeatHow
type=Hidden
RepeatFor
type=Hidden
RepeatForUnit
type=Hidden
RepeatUntil
type=Hidden
RepeatFromEnd
type=Hidden
RepeatWeekends
type=hidden
OrgRepeat
OrgRepeat
    0S0E
OrgRepeat
type=hidden
tmpCalInstanceDate
type=hidden
tmpOriginalStart
type=hidden
tmpOriginalEnd
type=hidden
    0S0E
tmpDB
type=hidden
$CSFlags
tmpRepeatInstance
tmpRepeatInstance
type=hidden
$REFh
    0S0E
tmpResponse
type=hidden
tmpOwner
tmpOwner
type=hidden
Chair
type=hidden
tmpWasMailed
type=hidden
$CSVersion
type=hidden
WebDateTimeInit
type=hidden
tmpAction
type=hidden
tmpKeepPosted
type=hidden
NewStartDate
type=hidden
NewEndDate
type=hidden
NewStartTime
type=hidden
NewEndTime
type=hidden
Delegee
type=hidden
tmpChangeWhich
type=hidden
RepeatStartDate
RepeatStartDate
RepeatStartDate
    1S2S3S6S7S9S11S
RepeatUnit
RepeatUnit
RepeatUnit
    0R1S2S3S9S10S12S14S
RepeatInterval
RepeatInterval
RepeatInterval
    0R1S2S3S9S10S12S14S
RepeatAdjust
RepeatAdjust
RepeatAdjust
    0R1S2S3S9S10S12S14S
RepeatCustom
RepeatCustom
RepeatCustom
    0R1S2S3S6S7S9S11S
RepeatHow
RepeatUnit
RepeatHow
    0R1S2S3S9S10S12S14S
RepeatFor
RepeatFor
RepeatFor
    0R1S2S3S6S7S9S11S
RepeatForUnit
RepeatForUnit
RepeatForUnit
    0R1S2S3S9S10S12S14S
RepeatUntil
RepeatUntil
RepeatUntil
    0R1S2S3S6S7S9S11S
RepeatFromEnd
RepeatFromEnd
RepeatFromEndt
    0R1S2S3S9S10S12S14S
RepeatWeekends
RepeatWeekends
RepeatWeekends
    0R1S2S3S9S10S12S14S
OrgRepeat
OrgRepeat
OrgRepeat
    0R1S2S3S9S10S12S14S
NewStartDate
NewStartDate
NewStartDate
    0R1S2S3S6S7S9S11S
NewStartTime
NewStartTime
NewStartTime
    0R1S2S3S6S7S9S11S
NewEndDate
NewEndDate
NewEndDate
    0R1S2S3S6S7S9S11S
NewEndTime
NewEndTime
NewEndTime
    0R1S2S3S6S7S9S11S
Delegee
Delegee
Delegee
    0R1S2S3S6S7S9S11S
tmpDB
tmpDB
tmpDB
    0R1S2S3S9S2E10S12S14S
$CSFlags
$CSFlags
$CSFlags
    0R1S2S3S9S10S12S14S
tmpDeleteItems
    These fields are hidden at all times and are not sent over the wire; they are simply used in computes
wAppointmentOpen
$$QueryOpenAgent
wAppointmentSave
$$QuerySaveAgent
Query_String
Query_String
type=hidden
Path_Info
Path_Info
Edit
    0S0E
act_EDIT.GIF|act_EDIT?
Discard Changes
    0S0E
act_DELETE.GIF|act_DELETE?
Save and Send Invitations T
AppointmentType
tmpOwnerHW
    2S3S4S5S2E6S7S
act_SEND.GIF|act_SEND?
document.forms[0].tmpAction.value = "6"
submitDocument()
Save as Draft
AppointmentType
tmpOwnerHW
    1S2S3S4S2E5S6S
act_save.GIF|act_CSSAVE?
document.forms[0].tmpAction.value = "2"
submitDocument()
Save and Close>
    0S0E
    0S0E
act_ok.GIF|act_CSOK?
Save and Send AssignmentsnJ
TaskType
tmpOwnerHW
    1S2S3S4S2E5S6S
act_SEND.GIF|act_SEND?
document.forms[0].tmpAction.value = "6"
submitDocument()
Save as Draft
TaskType
tmpOwnerHW
    1S2S3S4S2E5S6S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
document.forms[0].tmpAction.value = "2"
submitDocument()
Delivery OptionsP
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
displayDialog("(CSDeliveryOptions)","","","Delivery Options",500,400)
Actions\Rescheduler
AppointmentType
tmpOwner
Chair
tmpWasMailed
    1S2S3S4S5S6S7S8S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","U","","Reschedule Options","500","500")
Actions\Cancelr
AppointmentType
tmpOwner
Chair
tmpWasMailed
    1S2S3S4S5S6S7S8S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","C","","Cancel Options","500","500")
Actions\Confirm
AppointmentType
tmpOwner
Chair
tmpWasMailed
    1S2S3S4S5S6S7S8S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","N","","Confirm Options","500","500")
Actions\View Status
AppointmentType
tmpOwner
Chair
tmpWasMailed
    1S2S3S4S5S6S7S8S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
alert("Not yet implemented")
Respond\AcceptJ
tmpOwner
Chair
tmpWasMailed
    1S2S3S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","A","","Accept Options","500","500")
Respond\Decline
tmpOwner
Chair
tmpWasMailed
    1S2S3S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","R","","Decline Options","500","500")
Respond\DelegateJ
tmpOwner
Chair
tmpWasMailed
    1S2S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","D","","Delegate Options","500","500")
Respond\Counter Propose
tmpOwner
Chair
tmpWasMailed
    1S2S3S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","T","","Counter Propose Options","500","500")
Address...z
Appointment
AppointmentType
TaskType
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=550');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=600,height=530');
Scheduler\Check all Schedules...P
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=no,screenX=100,screenY=100,width=840,height=640');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=no,top=120,left=100,width=700,height=620');
Scheduler\Find Room(s)...
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=290');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,top=120,left=100,width=600,height=280');
Scheduler\Find Resource(s)...
tmpOwnerHW
AppointmentType
    1S2S3S4S5S6S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=240');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,top=120,left=100,width=600,height=220');
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Calendar
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
To don
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
Next
    0S0E
Previous
    0S0E
Edit
    0S0E
Discard Changes
    0S0E
Save and Close>
    0S0E
    0S0E
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Calendar
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
To do
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
Next
    0S0E
Previous
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
nQ>!_
$HTMLCode
$Info
$$Script_O
$$ScriptName
STARTDATETIME
EndDateTime
RepeatStartDate
RepeatCustom
RepeatFor
RepeatUntil
tmpCalInstanceDate
tmpOriginalStart
tmpOriginalEnd
NewStartDate
NewEndDate
NewStartTime
NewEndTime
$Body
$V5ACTIONS
$ACTIONS
+MQ O
uwr|7
I,G*i
rtrQU
tx],l
T'_fmPk
lWuBwL
bBK2T
)R 3S|E
^agA6
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim originalnote As notesdocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    IsWebClient = True
    Call wInstantiateObjectVariables
    Dim agentlog As New noteslog("Agent log")
    Call agentlog.openagentlog
'Get the document
    OriginalUNID = Mid(note.Query_String(0), Instr(note.Query_String(0), "&")+1, 32)
    Set originalNote = db.getdocumentbyunid(originalunid)
'remove the document
    originalNote.Remove(True)
    pathinfo$ = note.getitemvalue("Path_Info")(0)
    tmp1 = GetDBPath
    InfoPathPos% = Instr (pathinfo$, tmp1)
    Call agentlog.logaction("tmp1 is "+tmp1+ "and pathinfo is "+pathinfo$)
    Dim view As NotesView
    targetview$ = ""
    targetviewargs$ = ""
    tmppathinfo$ = note.tmpPath_Info(0)
    fromstr$ = "&From="
    pos%  = Instr (tmppathinfo$, fromstr$)
    If pos% <> 0 Then
          'locate the view to return to, which was passed in as a URL argument
        targetview$ = Right$ ( tmppathinfo$, Len( tmppathinfo$) - pos% - Len(fromstr$) + 1)
        pos%  = Instr (targetview$, "&")
        If (pos% <> 0) Then
               'locate any arguments to pass to that view
            targetviewargs$ = Right$ (targetview$, Len (targetview$) - pos% + 1)
            targetview$ = Left$ (targetview$, pos% - 1)
        End If
    Else
          'the view name was not passed as an argument, so pull it out of the URL if possible
        workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.Filepath)))
        pos%  = Instr (workstr$, "/")
        Call agentlog.logaction("workstr is  "+workstr$)
        If (pos% <> 0 ) Then
            targetview$ = Left$ (workstr$, pos% - 1)
        Else
            Call agentlog.logaction("should be here")
            pos%  = Instr (workstr$, "?")
            If (pos% <> 0 ) Then
                targetview$ = Left$ (workstr$, pos% - 1)
            Else
                targetview$ = workstr$
            End If
               'is it a view name?
            On Error Resume Next
            Set view  = notesDatabase.GetView( viewName$ )
            On Error Goto ErrorRoutine
            If (view Is Nothing) Then
                    'or is it a unid?
                Set view = notesDatabase.getdocumentbyunid(targetview$)
                If view Is Nothing Then targetview$ = ""     'no
            End If
        End If
    End If
    Call agentlog.logaction("targetview is "+targetview$)
    If InfoPathPos% <> 0 Then
        tmp2 = Evaluate("@ReplaceSubstring(""" + Left$(pathinfo$, InfoPathPos% + Len (db.Filepath)) + """;"" "";""+"")")
        FileAndPath$ = tmp2(0)
        Call agentlog.logaction("tmp2 is "+fileandpath$)
        If note.tmpBackToTask(0) = "1" Then
            Print "[" & FileAndPath$ & "/ToDoFS?OpenFrameset]"
        Else
            If targetview$ <> "" Then
                Print "[" & FileAndPath$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F"&targetview$ & "%3FOpenView]"
            Else
                Call agentlog.logaction("url to open is " & fileandpath$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F($All)%3FOpenView")
                Print "[" & fileandpath$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid & "%2F($All)%3FOpenView]"
            End If
        End If
    Else
        Print "The document has been processed."
    End If
    Call wMarkTempFields( note )
    Exit Sub
ErrorRoutine:
    Print Error & " (WebDelete)"
    Exit Sub
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$Comment
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
//to define values
var tmpImportance;
var tmpDeliveryReport;
var tmpDeliveryPriority;
var tmpReturnReceipt;
//...to get selected value of keyword field
function GetSelected(fieldname) {
//alert (fieldname);
    var selectedvalue="";
    var sind=0;
        sind =fieldname.selectedIndex;
    //alert(sind);
        selectedvalue=fieldname.options[sind].value;
//alert(selectedvalue);
return(selectedvalue);
//...BUTTON handler for the OK click...
function OKClick() {
    // put the values back in the underlying form in the right format
    window.opener.document.forms[0].Importance.value=GetSelected(tmpImportance);
    window.opener.document.forms[0].DeliveryReport.value=GetSelected(tmpDeliveryReport);
    window.opener.document.forms[0].DeliveryPriority.value=GetSelected(tmpDeliveryPriority);
if (tmpReturnReceipt.checked)
    window.opener.document.forms[0].ReturnReceipt.value="1";
    window.opener.document.forms[0].ReturnReceipt.value="";
self.close();
//..button handler for cancell click
function CancelClick() {
self.close();
tmpImportance = document.forms[0].tmpImportance;
tmpDeliveryReport = document.forms[0].tmpDeliveryReport;
tmpDeliveryPriority = document.forms[0].tmpDeliveryPriority;
tmpSMTPEncoding = document.forms[0].tmpSMTPEncoding;
tmpMIMEFormat = document.forms[0].tmpMIMEFormat;
tmpReturnReceipt = document.forms[0].tmpReturnReceipt;
 DeliveryOptions
<FONT SIZE="2"><B>Delivery options</B>
    <br>
<FONT SIZE="2">Importance:
.,$,  , :
tmpImportance
Normal|2High|1Low|3z
tmpImportance_1FONT Size=2
tmpReturnReceipt
Return receipt|1z
tmpReturnReceipt_1
<FONT SIZE="2">Delivery report:
tmpDeliveryReport
Only on failure|BConfirm delivery|CTrace entire path|TNone|N
tmpDeliveryReport_1FONT Size=2
<FONT SIZE="2">Delivery priority:
tmpDeliveryPriority
High|HNormal|NLow|Lz
tmpDeliveryPriority_1FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
OKClick()
       OK
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
CancelClick()
    Cancel
FONT Size=2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLCode
$Info
$$ScriptName
$Body
thisform = document.forms[0]
document.title = thisform.tmpTitle.value
 (wDlgBox)
Query_String
Query_String
PartialName
Query_String
&Subform=
    1S2S
PartialName
PartialName
PartialName
    0R16StmpSubform
type=hidden
xxDefault
Lotus Notes
    1S2S
PartialName
Query_String
&Title=
    0R1S2S
Title
PartialName
PartialName
PartialName
    0R1S2S18S
Title
Title
xxDefault
tmpTitle
tmpSubform
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLCode
$Info
$WebFlags
$$ScriptName
$Body
&Arial
 $$ReturnAuthenticationFailure
    0S0E
    Authentication Failure
    0S0E
[<BR><BR>]
    The name and password cannot be authenticated.
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
&Arial
 $$ReturnAuthorizationFailure
    Authorization Failure
[<BR><BR>]
    You are not authorized to perform that operation.
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
eSrL[Vdr
|8yXH?z
$Info
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
&Arial
 $$ReturnGeneralError
    0S0E
    0S0E
    Response Message
[<BR><BR>]
MessageString
MessageString
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_NEWMAIL.GIF|act_NEWMAIL?
Categori_zeK
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From FolderK
Inbox
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
gFN)rz
$Info
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
$PublicAccess
&Arial
(WebSpecificFields)
Importance
.,$,  , :
DeliveryReport
.,$,  , :
DeliveryPriority
CalendarProfile
DefaultMailOpt
tmpSendOptions
Send|1Send and Save|2Save as Draft|3z
{FONT SIZE="2"}
ReturnReceipt
MailOptions
SaveOptions
PostedDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
r^MgXW
as@S^
$Info
$$ScriptName
PostedDate
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call wInstantiateObjectVariables
    Dim views As Variant
    Dim currentview As notesview
    Dim currentfolders As notesitem
    Set currentfolders = note.getfirstitem("FolderList")
    Call agentlog.logaction("inside wfoldercreateopen")
    'this code populates the currentfolder field
    views = db.views
    Forall x In views
        If x.isfolder Then
            currentfolders.appendtotextlist(x.name)
        End If
    End Forall
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
cBD'\
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call wInstantiateObjectVariables
    Call agentlog.logaction("inside wfoldercreatesave")
    Call db.enablefolder(note.getitemvalue("Foldername")(0))
End Sub
Lotus Product
JV0.0
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
window.opener.parent.frames[1].location.reload();
window.close();
(wFolderCreateSave)
(wFolderCreateOpen)
 FolderCreate
SaveOptions
folderlist
    Current Folders:
    Folder Name:
CurrentFolders
CurrentFolders
folderlist
    0S0E
if(form.CurrentFolders.selectedIndex != -1)
        for (var i=0; i < form.CurrentFolders.options.length; ++i)
        if (form.CurrentFolders.options[i].selected)
            {
                var selection = form.CurrentFolders.options[i].value;
                alert(selection);
New Button
Need a newer version of Notes to execute this button.
    0S0E
form.FolderName.value=form.CurrentFolders.options[form.CurrentFolders.selectedIndex].text
    Add >
FONT Size=2
FolderNamez
size="40"
    0S0E
    0S0E
      OK
New Button
Need a newer version of Notes to execute this button.
    0S0E
window.close()
    Cancel
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLCode
$Info
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$$ScriptName
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call wGetCalendarProfile
    On Error Goto ErrorRoutine
    note.removeitem("Path_Info")
     'Just need to move the existing subject field value into this forwarded memo form
     'Get existing memo which we just came from -- memo to be forwarded
    UNID$ = Mid(note.Query_String(0), Instr(note.Query_String(0), "=")+1, 32)
     'if the UNID is missing or invalid, exit gracefully
    On Error Resume Next
    Dim forwardedNote As NotesDocument
    Set forwardedNote = db.GetDocumentByUNID( UNID$ )
    On Error Goto ErrorRoutine
    If forwardedNote Is Nothing Then
        note.AbortGracefully = "1"
        Exit Sub
    End If
    note.AbortGracefully = "0"
    note.subject = forwardedNote.subject(0)
    note.sendto=""
    note.copyto=""
    note.blindcopyto=""
    Exit Sub
ErrorRoutine:
    Messagebox Error & " (wMemoOpen)"
    Exit Sub
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
!Mgax
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
Untitled
sidebar.gif
Welcome to the Notes Group Calendar.  It provides an overview of a group's scheduled time and lets you easily display the individual calendars for each member in the group.
To display a person's calendar, simply click on their name.
To display the details of any busy block, just click on the block.
To display future schedules, scroll the time display using the scroll bar or flip to coming weeks using the buttons just to the left of the date/time header.
Note:  Free and busy time information is only maintained for current and future times;  the group calendar therefore always displays "No Info" for past times and days.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
qTcW"
$Info
$$ScriptName
$Body
$PublicAccess
01/08/99 02:55:00 PM Teresa Deane/Iris updated [Anonymous]
01/08/99 02:54:53 PM Teresa Deane/Iris added [Anonymous]
08/21/98 04:23:12 PM Ryan Jansen/Iris updated [OtherDomainServers]
08/21/98 04:22:39 PM Ryan Jansen/Iris updated [LocalDomainServers]
08/21/98 04:22:35 PM Ryan Jansen/Iris updated [-Default-]
08/21/98 03:51:41 PM William Zircher/Iris updated [OtherDomainServers]
08/21/98 03:51:35 PM William Zircher/Iris updated [LocalDomainServers]
08/21/98 12:57:04 PM William Zircher/Iris updated [OtherDomainServers]
08/21/98 12:56:52 PM William Zircher/Iris added [OtherDomainServers]
08/21/98 12:56:44 PM William Zircher/Iris updated [LocalDomainServers]
08/21/98 12:55:35 PM William Zircher/Iris added [LocalDomainServers]
08/21/98 12:55:16 PM William Zircher/Iris updated [-Default-]
08/21/98 12:55:12 PM William Zircher/Iris added [-Default-]
08/21/98 12:54:57 PM William Zircher/Iris deleted Ryan Jansen/Iris
08/21/98 12:54:56 PM William Zircher/Iris deleted OtherDomainServers
10/14/97 04:30:51 PM Ryan Jansen/Iris updated OtherDomainServers
10/14/97 04:30:45 PM Ryan Jansen/Iris updated -Default-
08/26/97 03:28:15 PM Ryan Jansen/Iris added OtherDomainServers
08/26/97 03:28:15 PM Ryan Jansen/Iris added LocalDomainServers
08/26/97 03:28:15 PM Ryan Jansen/Iris updated Ryan Jansen/Iris
-Default-
LocalDomainServers
[-Default-]
[LocalDomainServers]
[OtherDomainServers]
[Anonymous]
var fieldStartDate;
var fieldStartTime;
var fieldEndTime;
var fieldEndDate;
var fieldSendTo;
var fieldCopyTo;
var CurrStartTime;
var CurrStartDate;
var CurrEndDate;
var CurrEndTime;
var OrigSendTo;
var OrigCopyTo;
var ThisForm;
function OKClick()
    // put the values back in the underlying form in the right format
    if(window.opener)
        window.opener.document.forms[0].StartTime.value = document.forms[0].tmpStartTime.value;
        window.opener.document.forms[0].StartDate.value = document.forms[0].tmpStartDate.value;
        window.opener.document.forms[0].EndTime.value = document.forms[0].tmpEndTime.value;
        window.opener.document.forms[0].EndDate.value = document.forms[0].tmpEndDate.value;
    self.close();
function CancelClick()
    self.close();
//Initialize fields in the dialog
if ((document.forms[0].tmpStartDateRef.value=="") || (document.forms[0].tmpEndDateRef.value=="") || (document.forms[0].tmpEndTimeRef.value=="")||(document.forms[0].tmpStartTimeRef.value=="")){
//Pull the current field object off the dialog
fieldStartTime=document.forms[0].tmpStartTime;
fieldStartDate=document.forms[0].tmpStartDate;
fieldEndTime=document.forms[0].tmpEndTime;
fieldEndDate=document.forms[0].tmpEndDate;
fieldSendTo = document.forms[0].SendTo;
fieldCopyTo=document.forms[0].CopyTo;
//Pull the current values off the underlying form
CurrStartDate = window.opener.document.forms[0].StartDate.value;
CurrStartTime = window.opener.document.forms[0].StartTime.value;
CurrEndDate=window.opener.document.forms[0].EndDate.value;
CurrEndTime=window.opener.document.forms[0].EndTime.value;
OrigSendTo = window.opener.document.forms[0].SendTo.value;
OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
//Set the dialog with the underlying document values
//Only want to do this the first time through
fieldStartTime.value=CurrStartTime;
fieldStartDate.value=CurrStartDate;
fieldEndTime.value=CurrEndTime;
fieldEndDate.value=CurrEndDate;
fieldSendTo.value=OrigSendTo;
fieldCopyTo.value=OrigCopyTo;
//Set the current values as reference values
document.forms[0].tmpChair.value=window.opener.document.forms[0].Chair.value;
document.forms[0].tmpStartDateRef.value=CurrStartDate;
document.forms[0].tmpStartTimeRef.value=CurrStartTime;
document.forms[0].tmpEndDateRef.value=CurrEndDate;
document.forms[0].tmpEndTimeRef.value=CurrEndTime;
if ((window.location.href.indexOf("Seq"))==-1)  {
document.forms[0].sample.click();
} else {
//If this is a reload -- move the reference values into the current visible fields
document.forms[0].tmpStartDate.value=document.forms[0].tmpStartDateRef.value;
document.forms[0].tmpEndDate.value=document.forms[0].tmpEndDateRef.value;
document.forms[0].tmpStartTime.value=document.forms[0].tmpStartTimeRef.value;
document.forms[0].tmpEndTime.value=document.forms[0].tmpEndTimeRef.value;
Lotus Product
 wFreeTime
<NOSCRIPT><H2>
This page requires JavaScript 1.1 or higher
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)
        document.write('<H2>
This page requires JavaScript 1.1 or higher
</H2><HR>');
        document.close();
//--></SCRIPT>
    Meeting Time
    Start Date:
    StartTime:
tmpStartDate
document.forms[0].tmpStartDateRef.value=document.forms[0].tmpStartDate.value;
FONT Size=2

tmpStartTime
document.forms[0].tmpStartTimeRef.value=document.forms[0].tmpStartTime.value;
FONT Size=2
    End Date:
    EndTime:
tmpEndDate
document.forms[0].tmpEndDateRef.value=document.forms[0].tmpEndDate.value;
FONT Size=2

tmpEndTime
document.forms[0].tmpEndTimeRef.value=document.forms[0].tmpEndTime.value;
FONT Size=2
    <font size=-1>
tmpMessages
tmpMessages
FONT Size=2
    </font>
    If the meeting time is not OK for everyone, you can enter a new time above, or select a new time from the Recommended Times list.  Then click Refresh.
    <br><br>
    <font size=-1><br>
tmpTimes
tmpTimesz
FONT Size=2
    <font>
    Free Time Chart
tmpGridFormat
by day|0by person|1z
FONT Size=2
tmpGridField
tmpGridFieldz
FONT Size=2
    <br><br>
ftbusy.gif
     Busy
ftfree.gif
     Free
ftok.gif
ftconf.gif
     Conflict
ftno.gif
     No Info
tmpStartDate
    0S0E
tmpStartDateTime
tmpStartDate
tmpStartTime
    1S2S10S11S12S
tmpEndDateTime
tmpEndDate
tmpEndTime
    0R1S2S10S11S12S13S
Duration
tmpEndDateTime
tmpStartDateTime#
Chair
tmpChair
    0RR1S2S6S
prep attendee list
    0RR1S
tmpST2
tmpSendTo
    0R1S2S8S
tmpCT2
tmpCopyTo
    0R1S2S8S
tmpSendToArg
SendTo^
tmpST2
tmpST2
SendTo
    0R1S2S5S6S11S13S14S15S21S24S
tmpCopyToArg
CopyTo^
tmpCT2
tmpCT2
CopyTo
    0R1S2S5S6S11S13S14S15S21S24S
parse the suggestion selection (which may not be made)
    0RR1S
tmpList
tmpTimes
    0R1S2S6S
tmpIsEmptySelection
tmpList
    0R1S2S8S
tmpDateSugg
tmpList
    0R1S2S8S
tmpTimeSugg
tmpList
    0R1S2S2E10S13S
tmpDurationSugg
tmpList
    0R1S2S8S
update the manual input fields
    0RR1S
tmpStartDateRef
tmpIsEmptySelection
tmpTimes
tmpStartDateRef
tmpDateSugg
    0R1S2S3S4S6S7S8S9S10S11S13S15S
tmpStartTimeRef
tmpIsEmptySelection
tmpTimes
tmpStartTimeRef
tmpTimeSugg
    0R1S2S3S4S6S7S8S9S10S11S13S15S
tmpNewDateTime
tmpDateSugg
tmpTimeSugg
tmpDurationSugg
    0R1S2S12S13S14S
tmpEndDateRef
tmpIsEmptySelection
tmpTimes
tmpEndDateRef
tmpNewDateTime
    0R1S6S7S10S11S15S
tmpEndTimeRef
tmpIsEmptySelection
tmpTimes
tmpEndTimeRef
tmpNewDateTime
    0R1S6S7S10S11S15S
perform the freetime search
    0RRR1S
tmpIsEmptySelection
tmpTimes
Domino
RefreshFreeTimeGrid
tmpGridField
tmpTimes
tmpMessages
tmpStartDateV
tmpStartTimeV
Duration
tmpGridFormat
Chair
tmpSendToArg
tmpCopyToArg
Domino
RefreshFreeTimeGrid
tmpGridField
tmpTimes
tmpMessages
tmpDateSugg
tmpTimeSugg
tmpDurationSugg
tmpGridFormat
Chair
tmpSendToArg
tmpCopyToArg
    0R1S3S4S5S6S7S8S10R14S16S18S20S22S27S32S34S36S38S40S42S45R49S51S53S55S57S59S61S63S65S67S69S71S73S
    Refresh
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
OKClick()
      OK  z
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
CancelClick()
    Cancelz
FONT Size=2
tmpStartDateRef
tmpStartDateRef
tmpStartTimeRef
tmpStartTimeRef
tmpEndDateRef
tmpEndDateRef
tmpEndTimeRef
tmpEndTimeRef
tmpDurationRef[<TYPE=hidden >]
DateFormatHelper2
DateFormatHelper2[<TYPE=hidden >]
TimeFormatHelper2
TimeFormatHelper2[<TYPE=hidden >]
DurationFormatHelper2
DurationFormatHelper2[<TYPE=hidden >]
tmpStartDateTime
tmpStartDate
tmpStartTime
    1S2S10S11S12S
tmpEndDateTime
tmpEndDate
tmpEndTime
    0R1S2S10S11S12S13S
Duration
tmpEndDateTime
tmpStartDateTime#
Chair
tmpChair
    0R1S2S6S
prep attendee list
    0RR1S
tmpST2
tmpSendTo
    0R1S2S8S
tmpCT2
tmpCopyTo
    0R1S2S8S
tmpSendToArg
SendTo^
tmpST2
tmpST2
SendTo
    0R1S2S5S6S11S13S14S15S21S24S
tmpCopyToArg
CopyTo^
tmpCT2
tmpCT2
CopyTo
    0R1S2S5S6S11S13S14S15S21S24S
tmpStartDateRef
Domino
RefreshFreeTimeGrid
tmpGridField
tmpTimes
tmpMessages
tmpStartDateRef
tmpStartTimeRef
Duration
Chair
tmpSendToArg
tmpCopyToArg
    0R12S14S16S18S20S24S26S28S32S34S
samplename="sample"
tmpChair
SendTo
CopyTo
tmpCopyTo
tmpSendTo
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
j+CCE
StartDate
StartTime
EndDate
EndTime
$HTMLCode
$Info
$WebFlags
$$Script_O
$$ScriptName
tmpStartDate
tmpStartTime
tmpEndDate
tmpEndTime
$Body
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub ActionParser(strAction As String, strstring As String)
Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
Declare Sub ProcessConditions
Declare Sub ProcessActions
Declare Sub ProcessConditionList(vtokconditionlist As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim bnewdoc As Variant
Dim strformula As String
Dim strlogic As String
Dim strstring As String
Dim straction As String
Dim strfolder As String
Dim vstring As Variant
Dim vlogic As Variant
Dim vcondlogic As Variant
Dim voperator As Variant
Dim strcondition As String
Dim vexception As Variant
Dim vexceptionlist As notesitem
Dim vtokexceptionlist As notesitem
Dim vimportance As Variant
Dim vdomains As Variant
Dim vcondition As Variant
Dim vconditionlist As notesitem
Dim vtokconditionlist As notesitem
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    'This code creates the filter action formula to be used by the mail router and puts it in a field called $FilterFormul
    Dim viewcollection As notesviewentrycollection
    Dim view As notesview
    Dim profile As notesdocument
    Dim item As notesitem
    Dim bprofilesave As Integer
    Dim bmovetofolder As Integer
    Dim nrulenum As Integer
    Dim strfilteritem As String
    Call wInstantiateObjectVariables
    Set profile= db.GetProfileDocument("CalendarProfile")
    Set view = db.getview("Rules")
    'Check to see if the profile already existed
    If Not(profile.HasItem("Owner")) Then
        profile.Form = "CalendarProfile"
        Call profile.ComputeWithForm(False,False)
    End If
    Call agentlog.logaction("got past profile")
    'First give the rule a sequence number if it's a new rule
    If note.isnewnote Then
        Set viewcollection = view.allentries
        nrulenum = viewcollection.count
        Call note.replaceitemvalue("OrderNum", nrulenum)
        Call profile.replaceitemvalue("$FilterFormulaCount",Cstr(nrulenum))
        bmovetofolder=True
        Call agentlog.logaction("is a new note")
    Else
        nrulenum = note.getitemvalue("ordernum")(0)
        Call agentlog.logaction("is not a new note")
    End If
    strfilteritem = "$FilterFormula_"+Cstr(nrulenum)
    If note.getitemvalue("Enable")(0)="1" Then
        ' Web agent stops here
        'Call db.enabledboptions(1,True)
        ProcessConditions
        ProcessActions
        Set item=note.getfirstitem("$FilterFormula")
        item.values=strformula
        bprofilesave=True
        Call agentlog.logaction("is enabled")
    Else
        bprofilesave = profile.hasitem(strfilteritem)
        Call agentlog.logaction("is not enabled")
    End If
    If profile.hasitem(strfilteritem) Then
        Call profile.removeitem(strfilteritem)
    End If
    Call note.computewithform(False,False)
    If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
    Call note.save(True,False,True)
    If bmovetofolder Then Call note.putinfolder("Rules")
    If bprofilesave Then Call profile.save(True, True, False)
    ' Provisional URL
    Print "["+wgetDBPath+"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid & "%2FRules%3FOpenView]"
End Sub
'++LotusScript Development Environment:2:2:ActionParser:1:8
Sub ActionParser(strAction As String, strstring As String)
    Dim strImportance As String
    Select Case straction
    Case "0"
        strformula = strformula+"(@MailFilterAddtofolder("""+strstring+"""; @True))"
    Case "1"
        strformula = strformula+"(@MailFilterAddtofolder("""+strstring+"""))"
    Case "2"
        strformula = "FIELD Importance:=Importance;"+strformula+"(@setfield(""Importance"";"""+strstring+"""))"
    Case "3"
        strformula = strformula+"(@deletedocument)"
    End Select
End Sub
'++LotusScript Development Environment:2:2:ConditionParser:1:8
Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
    Dim fieldstring As String
    Dim fieldstring1 As String
    Dim fieldstring2 As String
    Dim logicstring As String
    Select Case strcondition
    Case "0"
        'Sender
        Fieldstring="From"
    Case "1"
        'Subject
        FieldString = "Subject"
    Case "2"
        'Body
        FieldString = "@Abstract([TextOnly];64,994;"""";""Body"")"
    Case "3"
        'Importance
        FieldString = "Importance"
    Case "4"
        'Delivery Priority
        FieldString = "Priority"
    Case "5"
        'To
        FieldString = "SendTo"
    Case "6"
        'CC
        FieldString="CopyTo"
    Case "7"
        'BCC
        FieldString=" BlindCopyTo"
    Case "8"
        'To or CC
        FieldString1 = "SendTo"
        FieldSTring2="CopyTo"
    Case "9"
        'body or subject
        FieldString1 = "@Abstract([TextOnly];64,994;"""";""Body"")"
        FieldSTring2="subject"
    Case "A"
        'Internet Domain
        FieldString = "SMTPDomain"
    Case "B"
        'size
        FieldSTring="@DocLength"
    End Select
    Select Case strlogic
    Case "0"
        If strcondition<>"B" Then
        'contains
            logicstring = "@Contains("
        Else
            logicstring = "@DocLength<"
        End If
    Case "1"
        'does not contain
        If strcondition<>"B" Then
            logicstring = "!@Contains("
        Else
            logicstring = "@DocLength>"
        End If
    Case "2"
        'is
        logicstring = "="
    Case "3"
        'is not
        logicstring = "!="
    End Select
    'We need to special case three conditions, multiple fields, searching body and document size
    Select Case strcondition
    Case "8" , "9"
        Select Case strlogic
        Case "0" , "1"
            strformula=strformula+logicstring+fieldstring1+";"""+strstring+""") | "+logicstring+fieldstring2+";"""+strstring+""")"
        Case "2" , "3"
            strformula=strformula+fieldstring1+logicstring+strstring +" | "+fieldstring2+logicstring+strstring
        End Select
    Case Else
        Select Case strlogic
        Case "0" , "1"
            strformula=strformula+logicstring+fieldstring+|;"|+strstring+|")|
        Case "2" , "3"
            strformula=strformula+fieldstring+logicstring+|"|+strstring+|"|
        End Select
    End Select
End Sub
'++LotusScript Development Environment:2:2:ProcessConditions:1:8
Sub ProcessConditions
    Dim vtoklist As Variant
    vtoklist = note.getitemvalue("tokconditionlist")
    If vtoklist(0)="" Then Exit Sub
    strformula="@If("
    Call ProcessConditionList(vtoklist)
    vtoklist = note.getitemvalue("tokexceptionlist")
    If vtoklist(0)="" Then    Exit Sub
    strformula=strformula+" & !"
    Call ProcessConditionList(vtoklist)
End Sub
'++LotusScript Development Environment:2:2:ProcessActions:1:8
Sub ProcessActions
    Dim vtokactionlist As Variant
    vtokactionlist = note.getitemvalue("tokactionlist")
    If vtokactionlist(0)="" Then Exit Sub
    strformula=strformula+"; ("
    For  x = 0 To Ubound(vtokactionlist)
        'Seperate the elements in their individual items
        straction = Left(vtokactionlist(x),1)
        strstring = Right(vtokactionlist(x),Len(vtokactionlist(x))-2)
        Call ActionParser(straction, strstring)
        If x<> Ubound(vtokactionlist) Then strformula=strformula+" & "
    Next
    strformula=strformula+|);"")|
End Sub
'++LotusScript Development Environment:2:2:ProcessConditionList:1:8
Sub ProcessConditionList(vtokconditionlist As Variant)
    strformula = strformula + "("
    For  x = 0 To Ubound(vtokconditionlist)
        'Seperate the three elements in their individual items
        stroperator = Left(vtokconditionlist(x),1)
        strcondition = Mid(vtokconditionlist(x),3,1)
        strlogic = Mid(vtokconditionlist(x), 5,1)
        strstring = Right(vtokconditionlist(x),Len(vtokconditionlist(x))-6)
        Call ConditionParser(strcondition, strlogic, strstring)
        If x<> Ubound(vtokconditionlist) Then
            Select Case stroperator
            Case "0": strformula=strformula+" & "
            Case "1": strformula=strformula+" | "
            End Select
        End If
    Next
    strformula=strformula+")"
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
-\vc7y]
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class FormattedReplyControl
Declare Sub Initialize
Declare Sub MEMOReplyToAll(note As notesdocument)
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim receipt As NotesDocument
Dim strUNID As String
Dim noteReferred As notesdocument
Const DEFAULT_OFFSETCHAR = ">> "
Class FormattedReplyControl
    Private strFormattedText As String
    Private strArray() As String
    Private strReplyFormat As String
    Private nLineAdded As Integer
    Private rtitemParentBody As Variant
    Private rtitemMemoBody As NotesRichTextItem
Declare Public Function Init() As Integer
    Public Function Init(noteSource As notesdocument, noteDestination As notesdocument, vOffsetChar As Variant) As Integer
        Call agentlog.logaction("Inside init")
        Init = False
        If Isnumeric(vOffsetChar) Then
            Me.strReplyFormat = GetOffSetChar(Cint(vOffsetChar))
        Else
            Me.strReplyFormat = vOffsetChar
        End If
        Call agentlog.logaction("Offset char is "+vOffsetChar)
        If GetBodyFromNote(noteSource) Then
            If ExtractFormattedText() Then
                Call CreateBody(noteDestination)
                Init = True
            End If
        End If
    End Function
    Private Function CreateBody(noteDestination As notesdocument) As Integer
        Dim n As Integer
        Call agentlog.logaction("Inside createbody")
        Set Me.rtitemMemoBody = New notesrichtextitem(noteDestination,"Body")
        For n = 0 To Ubound(Me.strArray)
            If Len(Me.strArray(n)) > 1 Then
                Me.nLineAdded = False
                Call Me.rtitemMemoBody.Appendtext(Me.strReplyFormat & Me.strArray(n))
                Call Me.rtitemMemoBody.Addnewline(1)
            Else
                If Not Me.nLineAdded Then
                    Call Me.rtitemMemoBody.Appendtext(Me.strReplyFormat)
                    Call Me.rtitemMemoBody.Addnewline(1)
                    Me.nLineAdded = True
                End If
            End If
        Next
    End Function
    Private Function ExtractFormattedText() As Integer
        Call agentlog.logaction("Inside extractformatted text")
        If Me.rtitemParentBody.Type<>25 Then
            Me.strFormattedText = Me.rtitemParentBody.Getformattedtext(False, 80)
            If CreateFormattedArray() Then
                ExtractFormattedText = True
            End If
        Else
            ExtractFormattedText=False
        End If
    End Function
    Private Function CreateFormattedArray() As Integer
        CreateFormattedArray  = True
        Redim Me.strArray(0)
        Dim strWorkingString As String
        Dim strTempString As String
        Dim n As Integer
        Dim lngLeftPart As Long
        Dim lngTotalLength As Long
        Dim lngLength As Long
        strWorkingString = strFormattedText
        While Instr(strWorkingString,Chr(13))
            Redim Preserve Me.strArray(n)
            lngTotalLength = Len(strWorkingString)
            lngLeftPart = Instr(strWorkingString,Chr(13))
            strTempString = Left(strWorkingString,lngLeftPart - 1)
            Me.strArray(n) = strTempString
            strWorkingString = Right(strWorkingString,(lngTotalLength - (lngLeftPart + 1)))
            n = n + 1
        Wend
    End Function
    Private Function GetBodyFromNote(note As notesdocument) As Integer
        Call agentlog.logaction("Inside getbody from note")
        GetBodyFromNote = False
        If note.hasitem("Body") Then
            Call agentlog.logaction("note has a body item")
            Set Me.rtitemParentBody = note.GetFirstItem("Body")
            Call agentlog.logaction("just did getfirstitem")
            If Not Me.rtitemParentBody Is Nothing Then
                GetBodyFromNote = True
                Exit Function
            End If
        End If
    End Function
    Private Function GetOffSetChar(nIndex As Integer) As String
        Select Case nIndex
        Case 1
            GetOffSetChar = "> "
        Case 2
            GetOffSetChar = "< "
        Case 3
            GetOffSetChar = "<< "
        Case 4
            GetOffSetChar = ">> "
        Case Else
            GetOffSetChar = DEFAULT_OFFSETCHAR
        End Select
    End Function
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call wInstantiateObjectVariables
    Call agentlog.logaction("Inside wMemoOpen")
    If (note.getitemvalue("ReturnReceipt")(0) = "1") Then
        Call agentlog.logaction("Doing Return Receipt")
        Set receipt = New NotesDocument (db)
        Call receipt.replaceitemvalue("Form", "Return Receipt")
        Call receipt.replaceitemvalue("IntendedRecipient", note.getitemvalue("SendTo")(0))
        Call receipt.replaceitemvalue("DeliveryDate", note.getitemvalue("DeliveredDate")(0))
        Call receipt.replaceitemvalue("Path_Info", note.getitemvalue("RouteServers")(0))
        Call receipt.replaceitemvalue("Subject",note.getitemvalue("Subject")(0))
        Call receipt.MakeResponse(note)
        Call receipt.send (False, note.getitemvalue("From")(0))
        Call note.replaceitemvalue("ReturnReceipt", "0")
        Call note.Save (True, False)
        Call agentlog.logaction("Finished Return Receipt")
    End If
    If Instr(note.getitemvalue("query_string")(0), "Format") Then
        Dim replytext As New FormattedReplyControl
        Call agentlog.logaction("About to do formatting")
        If wGetCalendarProfile Then
            strUNID = Mid(note.Query_String(0), Instr(note.Query_String(0), "=")+1, 32)
            Set noteReferred = db.getdocumentbyUNID(strUNID)
            If Not(noteReferred Is Nothing) Then
                Call agentlog.logaction("About to do init")
                Call replytext.Init(noteReferred,note,profile.getitemvalue("OffSetChar")(0))
            End If
        End If
    End If
    If Instr(note.getitemvalue("query_string")(0),"All") Then
        strUNID = Mid(note.Query_String(0), Instr(note.Query_String(0), "=")+1, 32)
        Set noteReferred = db.getdocumentbyUNID(strUNID)
        If Not(noteReferred Is Nothing) Then
            Call agentlog.logaction("Doing Reply to All")
            Call MEMOReplytoAll(note)
        End If
        Call agentlog.logaction("Finished Reply to All")
    End If
End Sub
'++LotusScript Development Environment:2:2:MEMOReplyToAll:1:8
Sub MEMOReplyToAll(note As notesdocument)
    Dim vInheritedSendTo As Variant
    Dim vRealInheritedSendTo As Variant
    Dim iSenderIndex As Integer
    Dim x As Integer
    Dim strOwner As String
    Dim strInheritedDomain As String
    Dim itmSendTo As notesitem
    Dim itmCopyTo As notesitem
    strOwner = CSGetMailFileOwner()
    Call agentlog.logaction("Owner is "+strOwner)
    Set itmSendTo = noteReferred.GetFirstItem("SendTo")
    Call itmSendTo.appendtotextlist(noteReferred.CopyTo)
    vInheritedSendTo= itmSendTo.values
    Forall v In vInheritedSendTo
        Call agentlog.logaction("inherited send to is "+v)
    End Forall
    Call agentlog.logaction("subject is "+notereferred.subject(0)+note.subject(0))
    If noteReferred.hasitem("FromDomain") Then
        strInheritedDomain = noteReferred.GetItemValue("FromDomain")(0)
    End If
    Call agentlog.logaction("InheritedDomain is "+strInheritedDomain)
    ' Remove the sender from the list
    iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo)
    If (iSenderIndex >= 0) Then
        vInheritedSendTo(iSenderIndex) = ""
    End If
    vRealInheritedSendTo = Fulltrim(vInheritedSendTo)
    ' Append the inheritedfromdomain
    If Len(strInheritedDomain) Then
        For x = 0 To Ubound(vRealInheritedSendTo)
            If Not vRealInheritedSendTo(x) = "" Then
                vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain
            End If
        Next
    End If
    Call note.ReplaceItemValue("CopyTo", vRealInheritedSendTo)
End Sub
Lotus Product
}8    #1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim agentlog As New noteslog("Agent log")
    Call agentlog.openagentlog
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call agentlog.logaction("In WebSend agent")
    If Not(wGetCalendarProfile ) Then Goto MustSetCalendarProfile
    On Error Goto ErrorRoutine
'    If (note.HasItem("MailSavedForm")) Then
          'we're doing a resend, which could be any kind of form
'        optionValue$ = "1"
'        note.Form = note.MailSavedForm
'        note.RemoveItem("MailSavedForm")
'        note.From = note.tmpFrom
'    Else
    optionValue$ = note.getitemvalue("tmpSendOptions")(0)
    Call agentlog.logaction("tmpSendOptions is "+optionValue$)
    Select Case note.getitemvalue("Form")(0)
    Case "Memo"
               'cool
    Case "Reply"
               'cool
    Case "Phone Message"
               'cool
    Case Else
               'we don't know what kind of form this is
        optionValue$ = "2"
    End Select
'    End If
    Dim datetime As New NotesDateTime( "Today" )
    Call datetime.SetNow
    Select Case optionValue$
    Case "1"
     'Send Only
        Call agentlog.logaction("send only")
        Call note.RemoveItem("$AutoEditMode")
        Call note.replaceitemvalue("PostedDate", datetime.LSLocalTime)
        Call note.replaceitemvalue("SaveOptions", "0")
        Call note.replaceitemvalue("MailOptions", "1")
        Call note.removeitem("EnterSendTo")
        Call note.removeitem("EnterCopyTo")
        Call note.removeitem("EnterBlindCopyTo")
        Call note.replaceitemvalue("Subject", note.getitemvalue("WebSubject"))
        Call note.removeitem("WebSubject")
        'Call note.replaceitemvalue("SendTo",note.EnterSendTo(0))
        'note.From = note.tmpFrom
    Case "2"
     'Send & Save
        Call agentlog.logaction("send &save")
        Call note.RemoveItem("$AutoEditMode")
        Call note.replaceitemvalue("PostedDate", datetime.LSLocalTime)
        Call note.replaceitemvalue("SaveOptions", "1")
        Call note.replaceitemvalue("MailOptions", "1")
        Call note.removeitem("EnterSendTo")
        Call note.removeitem("EnterCopyTo")
        Call note.removeitem("EnterBlindCopyTo")
        Call note.replaceitemvalue("Subject", note.getitemvalue("WebSubject"))
        Call note.removeitem("WebSubject")
    Case "3"
     'Save as draft
        Call agentlog.logaction("save as draft")
        Call note.AppendItemValue( "$AutoEditMode", "1" )
        Call note.RemoveItem("PostedDate")
        Call note.replaceitemvalue("SaveOptions", "1")
        Call note.replaceitemvalue("MailOptions", "0")
        Call note.removeitem("EnterSendTo")
        Call note.removeitem("EnterCopyTo")
        Call note.removeitem("EnterBlindCopyTo")
        Call note.replaceitemvalue("Subject", note.getitemvalue("WebSubject"))
        Call note.removeitem("WebSubject")
    End Select
    pathinfo$ = note.getitemvalue("Path_Info")(0)
    Call agentlog.logaction("querystring is "+note.getitemvalue("Query_String")(0))
    tmp1$ = wGetDBPath
    InfoPathPos% = Instr (1,pathinfo$,tmp1$,1)
    Call agentlog.logaction("tmp1 is "+tmp1$+ "and pathinfo is "+pathinfo$+" and inforpathpos is "+Cstr(infopathpos%))
    Dim view As notesview
    targetview$ = ""
    targetviewargs$ = ""
    fromstr$ = "&From="
    pos%  = Instr (pathinfo$, fromstr$)
    Call agentlog.logaction("pos is "+Cstr(pos%))
    If pos% <> 0 Then
          'locate the view to return to, which was passed in as a URL argument
        targetview$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(fromstr$) + 1)
        pos%  = Instr (targetview$, "&")
        If (pos% <> 0) Then
               'locate any arguments to pass to that view
            targetviewargs$ = Right$ (targetview$, Len (targetview$) - pos% + 1)
            targetview$ = Left$ (targetview$, pos% - 1)
        End If
    Else
          'the view name was not passed as an argument, so pull it out of the URL if possible
        workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.Filepath)))
        pos%  = Instr (workstr$, "/")
        Call agentlog.logaction("workstr is  "+workstr$)
        If (pos% <> 0 ) Then
            targetview$ = Left$ (workstr$, pos% - 1)
        Else
            Call agentlog.logaction("should be here")
            pos%  = Instr (workstr$, "?")
            If (pos% <> 0 ) Then
                targetview$ = Left$ (workstr$, pos% - 1)
            Else
                targetview$ = workstr$
            End If
            Call agentlog.logaction("should be here")
               'is it a view name?
            On Error Resume Next
            Call agentlog.logaction("targetview is"+targetview$)
            Set view  = db.GetView( targetview$)
            If (view Is Nothing) Then
                    'or is it a unid?
                Call agentlog.logaction("should be here")
                Dim viewnote As notesdocument
                Set viewnote = db.getdocumentbyunid(targetview$)
                Call agentlog.logaction("should be here")
                If viewnote Is Nothing Or Not (viewnote.hasitem("$VIEWFORMAT") )Then targetview$ = ""     'no
                Call agentlog.logaction(Cstr(viewnote.hasitem("$VIEWFORMAT")))
            End If
        End If
    End If
    On Error Goto ErrorRoutine
    Call agentlog.logaction("targetview is "+targetview$)
    If InfoPathPos% <> 0 Then
        If note.tmpBackToTask(0) = "1" Then
            Print "[" & tmp1$ & "/ToDoFS?OpenFrameset]"
        Else
            If targetview$ <> "" Then
                Call agentlog.logaction("url to open is " & tmp1$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F"&targetview$ & "%3FOpenView")
                Print "[" & tmp1$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F"&targetview$ & "%3FOpenView]"
            Else
                Call agentlog.logaction("url to open is " & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid &"%2F($All)%3FOpenView")
                Print "[" & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & db.replicaid & "%2F($All)%3FOpenView]"
            End If
        End If
    Else
        Print "The document has been processed."
    End If
    Call wMarkTempFields( note )
    Exit Sub
MustSetCalendarProfile:
    Print "You must set your user preferences before you can mail documents."
    Print "Select your Preferences options from the bottom left corner of the In Box view."
    Call note.replaceitemvalue("SaveOptions", "0")
    Call note.replaceitemvalue("MailOptions", "0")
    Exit Sub
ErrorRoutine:
    Print Error & " (wMemo)"
    note.SaveOptions = "0"
    note.MailOptions = "0"
    Exit Sub
End Sub
Lotus Product
OBJECT
\    \    \
,,    Jp
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ACLManagement"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class WEBDelegationACLManager As DelegationACLManager
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
'wPreferencesOpen:
Dim ACLManager As WEBDelegationACLManager
Class WEBDelegationACLManager As DelegationACLManager
    Private strNameReference As String
    Public m_strLastErrorString As String
    Sub New(note As notesdocument)
    End Sub
    Sub RaiseUIError(nStringID As Integer)
        If Me.aclentry Is Nothing Then
            Me.strNameReference = ""
        Else
            Me.strNameReference = Me.aclentry.Name
        End If
        Me.m_strLastErrorString = Me.StringTable.GetString(TOOL_STRING+nStringID,Me.aclentry.Name)
        Msgbox Me.m_strLastErrorString
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim agentlog As New noteslog("Agent log")
    Call agentlog.openagentlog
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call agentlog.logaction("Inside pref open")
    Call agentlog.logaction("getcalprofile is"+ Cstr(wgetcalendarprofile))
    On Error Goto ErrorRoutine
    Set ACLManager = New WEBDelegationACLManager(profile)
    Call ACLManager.Init()
    If Len(ACLManager.m_strLastErrorString) Then
        'some error has occured creating setup context!
    End If
    Call CopyProfileValues(profile, note)
    Exit Sub
ErrorRoutine:
    Messagebox Error & " (wPreferences)"
    Exit Sub
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
[`kIY,Zp
s_Gp[w
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "ACLManagement"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class WEBDelegationACLManager As DelegationACLManager
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim ACLManager As WEBDelegationACLManager
Class WEBDelegationACLManager As DelegationACLManager
    Private strNameReference As String
    Public m_strLastErrorString As String
    Sub New(note As notesdocument)
    End Sub
    Sub RaiseUIError(nStringID As Integer)
        If Me.aclentry Is Nothing Then
            Me.strNameReference = ""
        Else
            Me.strNameReference = Me.aclentry.Name
        End If
        Me.m_strLastErrorString = Me.StringTable.GetString(TOOL_STRING+nStringID,Me.aclentry.Name)
        Msgbox Me.m_strLastErrorString
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim agentlog As New noteslog("Agent log")
    Call agentlog.openagentlog
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call wGetCalendarProfile
    Call agentlog.logaction("In wpref save")
    On Error Goto ErrorRoutine
'//AdminP setup code
    Set ACLManager = New WEBDelegationACLManager(profile)
    Call ACLManager.Init()
    Call CopyProfileValues(note, profile)
    profile.DefaultMailOpt = note.DefaultMailOpt
    'Need to add this field
'    profile.wCalGridType = note.CalGridType
'//AdminP evaluate code
    'Set ACLManager.DelegateUsingAdminP = True
    'Set ACLManager.IsWebClient = True
    'If Not ACLManager.CommitACL(False)    Then
    '    Print ACLManager.m_strLastErrorString
    'End If
    Call profile.computewithform(False, False)
    Call profile.Save(True,True,True)
    pos% = Instr (note.getitemvalue("Path_Info")(0), db.FileName)
    If pos% = 0 Then
        Print "The preference settings have been saved."
    Else
        tmp = Evaluate("@ReplaceSubstring(""" + Left$(note.getitemvalue("Path_Info")(0), pos% + Len (db.FileName)) + """;"" "";""+"")")
        Print "[" + tmp(0) + "MailFS?OpenFrameset]"
    End If
    Exit Sub
ErrorRoutine:
    Print Error & " (wPreferences)"
    Exit Sub
End Sub
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
#e&!f
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$PublicAccess
Preferences
wPreferencesSave
wPreferencesOpen
&Arial
5Courier New
Times New Roman
Lotus Product
OBJECT
 wPreferences
Hidden Fields:
FromPerson memo is from.z
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
    0RR1S2S3S4S8StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
.,$ //:
PostedDateh
PostedDate
    7S9S
tmpDisplayDate_PreviewTime/date memo was created or mailed.
tmpDisplayDate_Preview
Path_Info
Path_Info
Query_String
Query_String
SaveOptions
.,$,  , :
PROTECTFROMARCHIVE
    don't allow these documents to be marked as "expired"
Preferences
$PreferencesPage
    4S6S
$PreferencesPage
    field driven table name
Preferences
SignatureOption
$PreferencesPage
Preferences
    0R3S4S6S11S
$PreferencesPage
Preferences
    0R1S2S3S
    Mail
$PreferencesPage
Freetime
    0R3S4S6S11S
$PreferencesPage
Freetime
    0R1S2S3S
    Calendar
$PreferencesPage
Freetime
    0R3S4S6S11S
$PreferencesPage
Freetime
    0R1S2S3S
    Freetime
$PreferencesPage
Entries
    0R3S4S6S11S
$PreferencesPage
Entries
    0R1S2S3S
    Entries
$PreferencesPage
Autoprocess
    0R3S4S6S11S
$PreferencesPage
Autoprocess
    0R1S2S3S
    Autoprocess
$PreferencesPage
    0R3S4S6S11S
$PreferencesPage
    0R1S2S3S
    Delegation
$PreferencesPage
    0R3S4S6S11S
$PreferencesPage
    0R1S2S3S
    Mail
$PreferencesPage
Calendar
    0R3S4S6S11S
$PreferencesPage
Calendar
    0R1S2S3S
    Calendar
PreferencesPage
PreferencesPage
    User configuration
    Owner of this mail file:
Owner
Owner
    Internet message format
FormatReplies
Formatted Replies with an offset character|1
FormatReplies
FormatReplies
    0S0E
OffSetChar
>|1<|2<<|3>>|4z
OffSetChar
Preferences
Preferences
Preferences
    Availability
Sunday
Sunday|1
Sunday
    0S0E
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
Monday
Monday|2
Monday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
Tuesday
Tuesday|3
Tuesday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
Wednesday
Wednesday|4
Wednesday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
Thursday
Thursday|5
Thursday
    0S0E
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
Friday
Friday|6
Friday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
Saturday
Saturday|7
Saturday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
    Only the following users can request my free time information:
AllowBusyAccess
Freetime
Freetime
Freetime
AutoProcessMeetings
    1S2S
AutoProcessType
    1S2S
AutoProcessType
AutoProcessType
    3S4S6S8S
AutoProcessType
Do not automatically process meeting requests|DAutoprocess meeting requests from all users|0Autoprocess meeting requests from the following users|2Forward meeting requests to the following person|1
AutoProcessType
    1S2S
Size=40
AutoprocessUserList
Size=40
AutoProcessForwardTo
AutoRemoveFromInbox
Remove event requests from my Inbox after I respond to them|1
PreventRepliesFromInbox
Prevent event replies from appearing in my Inbox|1
Autoprocess
Autoprocess
Autoprocess
    Defaults
    Appointment/Meeting time duration:
DefaultDuration
DefaultDuration
DefaultDuration
    3S4S5S6S7S8S9S10S12S
DefaultDuration
     (minutes)
    Anniversary yearly repeat:
.,$///:
AutoAnniversaryRepeat
AutoAnniversaryRepeat
AutoAnniversaryRepeat
    3S4S5S6S7S8S10S12S
AutoAnniversaryRepeat
     years
PreventAll
Display calendar entries in All Documents view|1
PreventSent
Display meeting invitations in Sent view|1
Entries
Entries
Entries
PublicRead
    1S2S
    The following people/groups can:
    Read my mail and read my calendar:
ReadMailz
ReadMailsize=40
    Read and send mail on my behalf and read my calendar:
WriteMail
WriteMailsize=40
    Read, send, and edit any document in my mail file:
EditMailz
EditMailsize=40
    Delete mail and calendar entries
    (allowed for those who can send or edit mail)
DeleteMailz
DeleteMailsize=40
*Other (Designer or Manager)
.,$,  , :
OtherUsers
    0S0E
OtherUsers
        *These entries cannot be modified from this dialog
    Calendar Read Accesss
PublicRead
    3S4S
PublicRead
Everyone can read my calendar|1Only the following people/groups can read my calendar|0
ReadCalendar
    Calendar Create/Edit Access
PublicWrite
    3S4S
PublicWrite
Everyone can manage my calendar|1Only the following people/groups can manage my calendar|0
PublicWrite
    1S2S
WriteCalendar
Calendar
Calendar
Calendar
Owner
$BusyName
$NoPurge
$NoPurge
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
    0S0E
$AvailableDays
$PublicAccess
$CSVersion
Categori_zeo
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Save and Close<
    0S0E
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
act_save.GIF|act_CSSAVE?
Cancel
    0S0E
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
act_DELETE.GIF|act_DELETE?
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Save and Close<
    0S0E
Hide if 'New doc' button was clicked
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S
Cancel
    0S0E
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$$Script_O
$$ScriptName
$Times1
$Times2
$Times3
$Times4
$Times5
$Times6
$Times7
DefaultDuration
AutoAnniversaryRepeat
$NoPurge
$Body
$V5ACTIONS
$ACTIONS
wAddressOpen
Lotus Product
OBJECT
 wResources'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
V0.0E
<NOSCRIPT><H2>
This page requires JavaScript 1.1 or higher
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)
        document.write('<H2>
This page requires JavaScript 1.1 or higher
</H2><HR>');
        document.close();
//--></SCRIPT>

    Look in:
    <font size=-1>
names.nsf
Addressbooks
    0S0E
NABs_1
    </font>
    Site and Resource:
Size=10
EntryList
names.nsf
($Resources)
    0S0E
EntryListFONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
AddClick(fieldResources)
     Add >> z
FONT Size=2
Resources
12345678901234567890123456789012
Resources_1FONT Size=2SIZE=4
New Button
Need a newer version of Notes to execute this button.
    0S0E
RemoveClick(Resources);
      Remove  z
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
RemoveAllClick()
    Remove Allz
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
OKClick();
       OK   z
font size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
CancelClick()
     Cancel
font size=2
AddressBooksz
AddressBooks
<SCRIPT LANGUAGE="JavaScript1.1">
// For convenience
var fieldResources = document.forms[0].Resources;
var fieldEntryList = document.forms[0].EntryList;
function OKClick()
    // put the values back in the underlying form in the right format
    if(window.opener)
        window.opener.document.forms[0].Resources.value = selectToString(fieldResources);
    self.close();
function CancelClick()
    self.close();
function AddClick(field)
    if(fieldEntryList.selectedIndex != -1)
        for (var i=0; i < fieldEntryList.options.length; ++i)
        if (fieldEntryList.options[i].selected)
            {
                field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
function substring2(string, start, length){
    return string.substring(start,start+length);
function FixName(name)
    if (name.indexOf("CN=")!= -1)
            tmpstring=name.substring(3)
            var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
            tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
            strpos = tmpstring.indexOf("=")+1;
            tmpstring=substring2(tmpstring,strpos,tmpstring.length);
            while (strpos != -1)
                if (tmpstring.indexOf("/")!= -1)
                {
                restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
                if (restofname.length!=0)
                    {
                    fullname=fullname+"/"+restofname;
                    }
                strpos=tmpstring.indexOf("=");
                } else {
                    fullname=fullname+"/"+tmpstring;
                    strpos=-1;
                    }
            return fullname;
        } else return name;
function RemoveClick(field)
    if (field.length != 0){
    if (field.selectedIndex != -1)
        for(var i=0;i<field.options.length ; ++i)
                if (field.options[i].selected)
                    {
                        field.options[i] = null;
                    }
function RemoveAllClick()
    fieldResources.options.length=0;
function trim(str)
    for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
    return str.substring(i,str.length);
function stringToSelect(str,field)
    for(var  beg=0 ; beg < str.length ; beg = end+1)
        if(-1 == (end = str.indexOf(",",beg))) end = str.length;
        var entry = trim(str.substring(beg,end));
        if(entry!="") field.options[field.options.length++].text = entry;
function selectToString(field)
    if (field.length!=0)
    var str = "";
    for(i=0 ; i < field.options.length-1 ; i++)
        str += field.options[i].text + ",";
    return str += field.options[i].text;
    } else return "";
// Grab original values from underlying document
var OrigResources;
if(window.opener)
    OrigResources = window.opener.document.forms[0].Resources.value;
else    OrigResources = "";
// Initialize fields
RemoveAllClick();
stringToSelect(OrigResources,fieldResources);
//-->
</SCRIPT>
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WEBQueryOpen
$WebFlags
$$Script_O
$$ScriptName
$$AddressBooks
$AddressBooks_O
$Body
wAddressOpen
Lotus Product
V0.0\
 wRooms'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELD
    Set Source = Bind(Objectname_)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
Lotus Product
<NOSCRIPT><H2>
This page requires JavaScript 1.1 or higher
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)
        document.write('<H2>
This page requires JavaScript 1.1 or higher
</H2><HR>');
        document.close();
//--></SCRIPT>

    Look in:
    <font size=-1>
names.nsf
Addressbooks
    0S0E
NABs_1
    </font>
    Site and Rooms:
size=10
EntryList
names.nsf
($Rooms)
    0S0E
EntryListFONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
AddClick(fieldRooms)
     Add >> z
FONT Size=2
Rooms
12345678901234567890123456789012
RoomsFONT Size=2SIZE=4
New Button
Need a newer version of Notes to execute this button.
    0S0E
RemoveClick(Rooms);
      Remove  z
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
RemoveAllClick()
    Remove Allz
FONT Size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
OKClick();
       OK   z
font size=2
New Button
Need a newer version of Notes to execute this button.
    0S0E
CancelClick()
     Cancel
font size=2
AddressBooksz
AddressBooks
<SCRIPT LANGUAGE="JavaScript1.1">
// For convenience
var fieldRooms = document.forms[0].Rooms;
var fieldEntryList = document.forms[0].EntryList;
function OKClick()
    // put the values back in the underlying form in the right format
    if(window.opener)
        window.opener.document.forms[0].RoomToReserve.value = selectToString(fieldRooms);
    self.close();
function CancelClick()
    self.close();
function AddClick(field)
    if(fieldEntryList.selectedIndex != -1)
        for (var i=0; i < fieldEntryList.options.length; ++i)
        if (fieldEntryList.options[i].selected)
            {
                field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
function substring2(string, start, length){
    return string.substring(start,start+length);
function FixName(name)
    if (name.indexOf("CN=")!= -1)
            tmpstring=name.substring(3)
            var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
            tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
            strpos = tmpstring.indexOf("=")+1;
            tmpstring=substring2(tmpstring,strpos,tmpstring.length);
            while (strpos != -1)
                if (tmpstring.indexOf("/")!= -1)
                {
                restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
                if (restofname.length!=0)
                    {
                    fullname=fullname+"/"+restofname;
                    }
                strpos=tmpstring.indexOf("=");
                } else {
                    fullname=fullname+"/"+tmpstring;
                    strpos=-1;
                    }
            return fullname;
        } else return name;
function RemoveClick(field)
    if (field.length != 0){
    if (field.selectedIndex != -1)
        for(var i=0;i<field.options.length ; ++i)
                if (field.options[i].selected)
                    {
                        field.options[i] = null;
                    }
function RemoveAllClick()
    fieldRooms.options.length=0;
function trim(str)
    for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
    return str.substring(i,str.length);
function stringToSelect(str,field)
    for(var  beg=0 ; beg < str.length ; beg = end+1)
        if(-1 == (end = str.indexOf(",",beg))) end = str.length;
        var entry = trim(str.substring(beg,end));
        if(entry!="") field.options[field.options.length++].text = entry;
function selectToString(field)
    if (field.length!=0)
    var str = "";
    for(i=0 ; i < field.options.length-1 ; i++)
        str += field.options[i].text + ",";
    return str += field.options[i].text;
    } else return "";
// Grab original values from underlying document
var OrigRooms;
if(window.opener)
    OrigRooms = window.opener.document.forms[0].RoomToReserve.value;
else    OrigRooms = "";
// Initialize fields
RemoveAllClick();
stringToSelect(OrigRooms,fieldRooms);
//-->
</SCRIPT>
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
 *9Poaq
$Info
$WEBQueryOpen
$WebFlags
$$Script_O
$$ScriptName
$$AddressBooks
$AddressBooks_O
$Body
(wRulesDlg)MailruleCDnF
OrderNumActionListDisplayNewImportanceFolderActionExceptionListDisplayConditionListDisplayDomainListImportanceStringLogicConditionOperatorEnable_1FormtokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormulaActionValuesImportanceValuesLogic2ValuesLogic1ValuesConditionValuesOperatorValues
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
(wViewParticipantStatus)
EH4fPL3nu
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########################
    ($Alarms)|$Alarms1($Alarms)|$Alarms
$AlarmTimeh
$AlarmTime
CalendarDateTime
$AlarmOffset
    7S9S13S15S17S19S21S23S
$AlarmDescription
$AlarmDescription
Subject
    7S9S
Participants
AssignedTo
OptionalAssignees
RequiredAttendees
OptionalAttendees
    1S2S5S6S8S2E12S
$AlarmMemoOptions
$AlarmMemoOptions
Participants
$AlarmSendTo
    0R3S4S9S10S12S14S
$92CalendarDateTime$AlarmOffset$93$AlarmSound$94$Conflict
$92CalendarDateTime3FY
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
V$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($All)/P=7201
$68$106
$102$68
$106YdB
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
($Calendar)|Calendar11'
$134$126$144
(Help)
MAIL_V_CALENDAR
    0S0E
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
/($Drafts)/P=3601$
$65$59$55
$66$66
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
$FolderInfo
($FolderInfo)1
$103Y8
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################
$FolderRefInfo
($FolderRefInfo)1n
$FolderRefV
    0S0E
$105$FolderRefID$FolderRefFlags$Conflict
$105$
$105$FolderRefID
$105Folder UNID*
$FolderRefV
    0S0E
$FolderRefIDFolder Reference ID$FolderRefFlagsFolder Reference Flags&
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($HeadlinesView)/T/M/B1
CN=Damien Katz/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################
z($Inbox)1($Inbox)1
$70$106
$93$70
$106Newly received mail messages.FYB
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
#######################################################
6($Meetings)|Meetings1/P=3601
StartDateTime
StartDateTimeH
(Help)
MAIL_V_MEETINGS
    0S0E
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##########################
($PermanentDelete)
EH4f3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
($POP3UIDL)|($POP3UIDL)/P=240J
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$POP3ExportSize
    1S2S3S
$POP3ExportSize
MailPop3UIDLDeliveredDate$32$30$Conflict
MailPop3UIDL
    1S2S3S
MailPop3UIDL
    0RL1S2S3S1-
MailPop3UIDLDeliveredDate
MailPop3UIDLMailPop3UIDLDeliveredDateDelivered Date$32$RFC822MessageSize`
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$30$POP3ExportSize\
$POP3ExportSize
    1S2S3S
$POP3ExportSize
553Courier NewY
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################
($POP3)/P=240@
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$POP3ExportSize
    1S2S3S
$POP3ExportSize
DeliveredDate$32$30$Conflict
DeliveredDate
    1S2S3S
DeliveredDate
    0RL1S2S3S1
DeliveredDate
DeliveredDateDelivered Date$32$RFC822MessageSize`
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$30$POP3ExportSize\
$POP3ExportSize
    1S2S3S
$POP3ExportSize
553Courier NewY
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
($Profiles)/P=240H
Form$Conflict
Profile
    L1S5S1
FormType&
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############
($RepeatLookup)|($RepeatLookup)1
APPTUNID
APPTUNID
RepeatInstanceDates
RepeatInstanceDates
OriginalStartDate
    7S9S
RescheduleWhich
RescheduleWhich
Principal
Principal
FromDomain
FromDomain
NoticeType
NoticeType
SequenceNum
SequenceNum
KeepPosted
KeepPosted
Delegee
Delegee
$CSFlags
$CSFlags
MasterLastUpdated
MasterLastUpdated
APPTUNID$3RescheduleWhich$2PrincipalFromDomainNoticeTypeSequenceNumOrgStateKeepPostedDelegee$CSFlagsMasterLastUpdated$Conflict
$CSFlagsh
OrgRepeat
    L1S5S6S10S11S1
APPTUNID$3Hidden - DNTY
CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################
($RestoreDocument)
EH4f3
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################
,$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}($Sent)1
$82$62
$62YB
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#######################
($SoftDeletions)|($SoftDeletions)11
$68$106
$102$68
$106YlB
CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
:$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}
($ToDo)|Tasks11#
$186DueDateTimeD
(Help)
MAIL_V_TASKS
    0S0E
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###
($Trash)1($Trash)1
$87$64
$64FYPB
CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
#######################
$SUBVIEW$1\:1{@special(@indexunread)};$2\Date:8{@date(@year(PostedDate);@month(PostedDate);@day(PostedDate))};From\From:15;$4\Subject:30{@if(@isavailable(Subject);Subject;"Phone call from: "+PhoneCaller)}Brian Lambert($VIM100)/P=240B
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
FromDomainh
FromDomain"
DeliveryPriority
DeliveryPriority
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
Subject
$53$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$53$47$48
Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#############################
refreshAllDisplays();
Mail Rule
wMailRuleSubmit
5Courier New
 Mailrule
Translate
OperatorValues
Translate
sender
subject
importance
delivery priority
To or CC
body or subject
Internet Domain
Size (in Kbytes)
ConditionValues
Translate
is less than
is more than
is not
Logic1Values
Translate
contains
does not contain
is not
Logic2Values
Translate
medium
ImportanceValues
move to folder
copy to folder
change importance to
delete
    0S0E
ActionValues
$FilterFormula
$FilterFormula
ConditionList
tokConditionList
ExceptionList
tokExceptionList
ActionList
tokActionList
Mailrule
<NOSCRIPT><H2>
Translate
This page requires JavaScript 1.1 or higher
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)
        document.write('<H2>
Translate
This page requires JavaScript 1.1 or higher
</H2><HR>');
        document.close();
//--></SCRIPT>
<A NAME="_RefreshKW_Condition"></A>
ConditionList
    0S0E
    Rule is:
Enable_1
On|1Off|0
{Font Size="2"}

    Specify Conditions and Exceptions

    New condition or exception:
Operator
OperatorValues
    0S0E
Condition
ConditionValues
    0S0E
Logic
Condition
Logic1Values
Logic2Values
    0S0E
condition
    0S0E
String
condition
    0S0E
Importance
ImportanceValues
    1S2S
condition
    0S0E
DomainList

    When mail messages arrive that meet these conditions:
ConditionListDisplay
123456789012345678901234567890123456789012z
size=5
add condition.gif|add_condition
HotspotRectangle12
javascript:addConditionLine('ConditionList'); refreshOperatorField();
HotspotRectangle13
javascript:removeLine('ConditionList'); refreshOperatorField();
HotspotRectangle14
javascript:removeAllLines('ConditionList'); refreshOperatorField();

    Except when:
ExceptionListDisplay
123456789012345678901234567890123456789012z
size=5
add exception.gif|add_exception
HotspotRectangle15_1
javascript:addConditionLine('ExceptionList')
HotspotRectangle16_1
javascript:removeLine('ExceptionList')
HotspotRectangle17_1
javascript:removeAllLines('ExceptionList')

    Specify Actions

    New action:
Action
ActionValues
    0S0E
Action
    1S2S
Folder
Action
    0S0E
NewImportance
ImportanceValues
    1S2S
action
    0S0E

    Perform the following actions:
ActionListDisplay
123456789012345678901234567890123456789012
size=5
add action.gif|add_action
HotspotRectangle18_1
javascript:addAction()
HotspotRectangle19_1
javascript:removeLine('ActionList')
HotspotRectangle20_1
javascript:removeAllLines('ActionList')
<SCRIPT LANGUAGE="JavaScript1.1"><!--
var TYPE_CONDITION = "0";
var COND_IMPORTANCE = 3;
var COND_DELIVERY = 4;
var COND_DOMAIN = 10;
var COND_SIZE = 11;
var LIST_SEP = "; ";
var form = document.forms[0];
form.ConditionListDisplay.options[0] = form.ExceptionListDisplay.options[0]
    = form.ActionListDisplay.options[0] = null;
function list_append(field,str)
    if(field.value.length) field.value +=
LIST_SEP;
    field.value += str;
function list_removeelem(field,index)
    var value = field.value;
    for(i=pos=0 ; i<index ; i++)
        pos = value.indexOf(LIST_SEP,++pos);
    field.value = value.substring(0,pos);
    pos = value.indexOf(LIST_SEP,++pos);
    if(pos != -1) field.value += value.substring(pos+(i?0:LIST_SEP.length),value.length);
function list_replaceinvalidsep(str)
    var newstr = "";
    for(last=0, pos=str.indexOf(LIST_SEP) ; pos != -1 ; last=pos, pos=str.indexOf(LIST_SEP,pos))
        newstr += str.substring(last,pos) + ", ";
        pos += LIST_SEP.length;
    return newstr += str.substring(last,str.length);
function refreshDisplay(field)
    var list = eval("form."+field).value;
    var toklist = eval("form.tok"+field).value;
    var display = eval("form."+field+"Display").options;
    var pos = list.indexOf(LIST_SEP);
    for(i=last=0 ; pos!=-1 ; last=++pos, pos=list.indexOf(
LIST_SEP,++pos), i++)
display[i] = new Option(list.substring(last,pos));
    display[i] = new Option(list.substring(
last,list.length));
    for(j=++i ; j<display.length ; j++) display[j] = null;
    display.length = i;
function refreshAllDisplays()
    refreshDisplay("ConditionList");
    refreshDisplay("ExceptionList");
    refreshDisplay("ActionList");
    refreshOperatorField();
function getANDOperator()
    var v = form.OperatorValues.value;
    return v.substring(0,v.indexOf(LIST_SEP));
function getOROperator()
    var v = form.OperatorValues.value;
    return v.substring(
v.indexOf(LIST_SEP)+LIST_SEP.length,v.length);
function refreshOperatorField()
    var op = form.Operator.options;
    if(form.ConditionList.value.length)
        if(op.length == 2) return;
        op[0] = new Option(getANDOperator(),0,true,true);
        op[1] = new Option(getOROperator());
        op.length = 2;
    else
        if(op.length == 1) return;
        op[0] = new Option("
Translate
",0,true,true);
        op[1] = null;
        op.length = 1;
function getKeyword(field)
    return eval("form."+field+".options[form."+field+".selectedIndex].text");
function getConditionString()
    var cond = form.Condition.selectedIndex;
cond == COND_IMPORTANCE || cond == COND_DELIVERY) return getKeyword("Importance");
    if(cond == COND_DOMAIN) return form.DomainList.value;
    return form.String.value;
function addConditionLine(field)
    var list = eval("form."+field);
    var toklist = eval("form.tok"+field);
    var condstr =
list_replaceinvalidsep(getConditionString());
    var strcondition = (list.value.length ? getKeyword("Operator") + " " : "")
                + getKeyword("Condition") + " "
                +
getKeyword("Logic") + " "
+ condstr;
    var tokcondition =  Number(form.Operator.selectedIndex).toString() + ":"
                +
Number(form.Condition.selectedIndex).toString() + ":"
Number(form.Logic.selectedIndex).toString() + ":"
(form.Condition.selectedIndex == COND_IMPORTANCE || form.Condition.selectedIndex == COND_DELIVERY ?

Number(form.Importance.selectedIndex+1).toString() : condstr);
    list_append(
list,strcondition);
    list_append(
toklist,tokcondition);
    refreshDisplay(field);
function addAction()
    var list = form.ActionList;
    var toklist = form.tokActionList;
    if(toklist.value.indexOf("3:") != -1)
        alert("
Delete Document cannot be included in multiple actions.
        return;
    var straction = list.value.length ?
getANDOperator() + " " : "";
    straction += getKeyword("Action");
    var tokaction = Number(form.Action.selectedIndex).toString() + ":";
    switch(form.Action.selectedIndex)
        case 0:
        case 1:
            var folder = list_replaceinvalidsep(form.Folder.value);
            straction += " " + folder;
            tokaction += folder;
            break;
        case 2:
            straction += " " + getKeyword("NewImportance");
            tokaction += Number(form.NewImportance.selectedIndex
+1).toString();
            break;
        case 3:
            break;
    list_append(list,straction);
    list_append(toklist
,tokaction);
    refreshDisplay("ActionList");
function removeLine(field)
    var list = eval("form."+field);
    var toklist = eval("form.tok"+field);
    var display = eval("form."+field+"Display");
    list_removeelem(list,display.selectedIndex);
    list_removeelem(toklist,display.selectedIndex);
    if(!display.selectedIndex){ var v = list.value; list.value = v.substring(v.indexOf(" ")+1,v.length); }
    refreshDisplay(field);
function removeAllLines(field)
    var list = eval("form."+field);
    var toklist = eval("form.tok"+field);
    var display = eval("form."+field+"Display").options;
    list.value = "";
    toklist.value = "";
    for(i=0 ; i<display.length ; i++) display[i]=null;
    display.length = 0;
//--></SCRIPT>
This field is used for Ordering the Filter documents in the folder
F2@8U
OrderNum
OrderNum
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Save and Close>
    0S0E
    0S0E
act_ok.GIF|act_CSOK?
Discard Changesr
    0S0E
act_discardchanges.GIF|act_CSDISCARD
Edit
    0S0E
act_EDIT.GIF|act_EDIT?
Close
    0S0E
act_ok.GIF|act_CSOK?
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Save and Close>
    0S0E
    0S0E
Discard Changesa
    0S0E
Edit
    0S0E
Closee
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Y7YXz
$HTMLCode
$Info
$WINDOWTITLE
$WEBQuerySave
$WebFlags
$$ScriptName
$Body
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSWeb"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim noteContext As notesdocument
    Dim strNoteID As String
    Set session = New notessession
    Set noteContext = session.DocumentContext
    strNoteId = ParseQueryStringForEntry(noteContext.GetItemValue("Query_String")(0), "UNID=")
    Set note = session.currentdatabase.getdocumentbyunid(strNoteID)
    If (note Is Nothing) Then Exit Sub
'    Call WebViewParticipantStatus(note)
End Sub
Lotus Product
(V0.0^t
[D!Kp -
"Kp -$
K("St
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$92AlarmTime
$AlarmTimeh
$AlarmTime
CalendarDateTime
$AlarmOffset
    7S9S13S15S17S19S21S23S
CalendarDateTimeCalendarDateTime$AlarmOffsetOffset$93Descriptiond
$AlarmDescription
$AlarmDescription
Subject
    7S9S
$AlarmSoundAlarmSound$94AlarmMailT
Participants
AssignedTo
OptionalAssignees
RequiredAttendees
OptionalAttendees
    1S2S5S6S8S2E12S
$AlarmMemoOptions
$AlarmMemoOptions
Participants
$AlarmSendTo
    0R3S4S9S10S12S14S&
_Forward
Categori_zeK
_Edit Document
_Move To Folder...
_Remove From Folder...
_Forward
Categori_zeK
_Edit Document
_Move To Folder...
_Remove From Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
_ViewIcon2h
_ViewIcon2
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$93$102$68$106$105$74$Conflict
ExcludeFromView
    L1S2E
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$102Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$68Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$106Size
$105z
_ViewIcon2h
_ViewIcon2
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
Categori_zeV
_Move To Folder...
_Remove From Folder...
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\Replyc0
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Forward
_Edit
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Folder\Create Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Do
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Send Tracking Request
(SendTrackingRequest)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEW?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=550,height=180');
Folder\Move to Folder...*
    0S0E
act_FOLDER.GIF|act_FOLDER?
Delete\Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Tools\Preferencest0
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Search
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Help
act_TOOLS.GIF|act_TOOLS?
alert('Waiting for text from PM')
Categori_ze
_Move To Folder...
_Remove From Folder...
New Memo(
    0S0E
Reply\Reply
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
_Forward
_Edit
Delete
    0S0E
Folder\Create Folder
    0S0E
Folder\Move To Folder...
    0S0E
Folder\Remove From Folder
    0S0E
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoR'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...R
DialogMode
(Preferences)
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\Send Tracking Requestn:
(SendTrackingRequest)
    0S0E
Tools\New Memo - Using Stationerye'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
Folder\Move to Folder...*
    0S0E
Delete\DeleteB
    0S0E
Delete\Empty Trash
    0S0E
Tools\Preferenceso0
wPreferences
    0S0E
Tools\Search
    0S0E
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
OBJECT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_23
$ViewGlobalScript
$ViewGlobalScript_O
StartTime
CalendarDateTimeL
    1S2S
DateList
CalendarDateTimeV
EndDateTime
    0R1S2S10S11S12S13S
$CSVersionh
AppointmentType
CalendarDateTime
DateList
StartTime
    0R6S7S8S9S10S11S12S13S14S15S17S19S25S26S27S28S
AppointmentType
EndDateTime
StartDateTime
    3S4S6S8S10S11S13S14S16S
section
OrgTable
    1S2S6S
section
section
section
    0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
duestate
_ViewIcon
    3S4S5S6S7S8S11S12S2E
AppointmentType
StartTime
StartTime
StartDateTime
StartDateTime
    3S4S5S6S7S8S10S17S19S24S
AppointmentType
    3S4S8S
AppointmentType
EndTime
EndTime
EndDateTime
EndDateTime
    3S4S5S6S8S15S17S22S
xxLocation
Location:
Location
Location:
Location"
    1S2S9S10S11S23S29S30S32S
xxChair
AppointmentType
Chair:
Chair
TaskType
Owner:
Chair
    0R1S2S5S6S8S9S10S17S18S19S21S22S23S
Subject
xxLocation
xxChair
    0RR3S4S5S6S
$134$135$126$149$144$145$146$147$Conflict
CalendarDateTimeh
@$134
StartTime
CalendarDateTimeL
    1S2S
DateList
CalendarDateTimeV
EndDateTime
    0R1S2S10S11S12S13S
$CSVersionh
AppointmentType
CalendarDateTime
DateList
StartTime
    0R6S7S8S9S10S11S12S13S14S15S17S19S25S26S27S28S
AppointmentType
EndDateTime
StartDateTime
    3S4S6S8S10S11S13S14S16S$126
section
OrgTable
    1S2S6S
section
section
section
    0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
$149~
duestate
_ViewIcon
    3S4S5S6S7S8S11S12S2E
$144Start
AppointmentType
StartTime
StartTime
StartDateTime
StartDateTime
    3S4S5S6S7S8S10S17S19S24S
$145Z
AppointmentType
    3S4S8S
$146End
AppointmentType
EndTime
EndTime
EndDateTime
EndDateTime
    3S4S5S6S8S15S17S22S$147Description
xxLocation
Location:
Location
Location:
Location"
    1S2S9S10S11S23S29S30S32S
xxChair
AppointmentType
Chair:
Chair
TaskType
Owner:
Chair
    0R1S2S5S6S8S9S10S17S18S19S21S22S23S
Subject
xxLocation
xxChair
    0RR3S4S5S6S&
_Forward
_Edit Document
_Move to Folder...
_Remove from Folder...
Categori_zeK
Send Docu_ment
Schedule a Meeting
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=3"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\AppointmentK
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=0"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\AnniversaryK
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=1"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Reminder
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=4"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
New\Event
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=2"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Import Holidays...4
(ImportHolidays)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Preferences
DialogMode
(Preferences)
_Forward
_Edit Document
_Move to Folder...
_Remove from Folder...
Categori_zeK
Send Docu_ment
Schedule a Meeting
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=3"
    0R3S4S5S6S
New\AppointmentK
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=0"
    0R3S4S5S6S
New\AnniversaryK
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=1"
    0R3S4S5S6S
New\Reminder
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=4"
    0R3S4S5S6S
New\Event
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=2"
    0R3S4S5S6S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Import Holidays...4
(ImportHolidays)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Preferences
DialogMode
(Preferences)
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
l#}TW
l#}TW
^$U+(SJ
^4U+(SJ
l#K4U-
Lotus ProductLP
S+(SI
l#}TW
l#}TW
^$U+(SJ
^4U+(SJ
l#K4U-
Lotus ProductLP
S+(SI
l#}TW
l#}TW
^$U+(SJ
^4U+(SJ
l#K4U-
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postdragdrop(Source As Notesuiview)
Declare Sub Postpaste(Source As Notesuiview)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIVIEW
    Set Source = Bind(Objectname_)
    On Event Postdragdrop From Source Call Postdragdrop
    On Event Postpaste From Source Call Postpaste
End Sub
'++LotusScript Development Environment:2:2:Postdragdrop:1:12
Sub Postdragdrop(Source As Notesuiview)
    Call ViewDragPasteHandler(source, True)
End Sub
'++LotusScript Development Environment:2:2:Postpaste:1:12
Sub Postpaste(Source As Notesuiview)
    Call ViewDragPasteHandler(source, False)
End Sub
Lotus Product
Appointment
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
">_x%u
$WebFlags
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$CalendarFormat
$AppHelpFormula
$Comment
$HTMLCode
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
$ViewAction2
SchedState
ScheduleStat
    1S2S
SchedState
Scheduled
Mail Scheduled
SchedState
Mail Scheduled on Hold
Drafts
    0R3S4S6S8S9S10S12S14S
IsMailStationeryh
    7S9S
EnterSendTo
EnterSendTo
EnterSendTo
SendTo
    1S2S10S11S12S13S20S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
IsMailStationeryh
MailStationeryName
Subject
    7S9S
$65$59$66$55$62$60$Conflict
PostedDate
$MessageType
ExcludeFromView
ISMAILSTATIONERY
    L1S2S3S4S5S6S7S8S9S15S16S17S18S
SchedState
ScheduleStat
    1S2S
SchedState
Scheduled
Mail Scheduled
SchedState
Mail Scheduled on Hold
Drafts
    0R3S4S6S8S9S10S12S14S$59T
IsMailStationeryh
    7S9S
$66Who
EnterSendTo
EnterSendTo
EnterSendTo
SendTo
    1S2S10S11S12S13S20S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$55Date
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Subjectb
IsMailStationeryh
MailStationeryName
Subject
    7S9S
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
_Forward
Forward&
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
act_EDIT.GIF|act_EDIT?
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Folder\Create Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Folder7
    0S0E
act_FOLDER.GIF|act_FOLDER?
Categori_ze
Send Document0
_Move To Folder...
_Remove From Folder...
Retrieve mail
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Do
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery@'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEW?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=550,height=180');
Folder\Move to Folder...*
    0S0E
act_FOLDER.GIF|act_FOLDER?
Delete\Deleter2
($Trash)
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Tools\Preferences
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Search
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Help
act_TOOLS.GIF|act_TOOLS?
alert('Waiting for text from PM')
New Memo(
    0S0E
_Forward
Forwardc
    0S0E
ISMAILSTATIONERY
    1S2S
Delete
    0S0E
Folder\Create Folder
    0S0E
Folder\Move To Folder...
    0S0E
Folder\Remove From FolderA
    0S0E
Categori_ze
Send Document
_Move To Folder...
_Remove From Folder...
Retrieve mail
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To Do
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...2
(Preferences)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationeryc'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
Folder\Move to Folder...*
    0S0E
Delete\Deleten2
($Trash)
    0S0E
Delete\Empty Trash
    0S0E
Tools\Preferencese0
wPreferences
    0S0E
Tools\Search
    0S0E
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
:<5T<
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$FormFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_19
$ViewGlobalScript
$ViewGlobalScript_O
Strip alternatives, parentheses, and a leading dollar sign from the tmpTitle item
tmpTitle
$Title
$Title
$Title
FolderName1
tmpTitle
tmpTitle
tmpTitle
tmpTitle
    0R1S2S10S11S18RT26S31S32S34S37R
FolderName2
FolderName1
$Title
FolderName1
FolderName1
FolderName1
    0R1S2S6S7S9S10S15S17S18S21S25S28S
FolderName2
    0S0E
Set the folder flags in addition to those that are stored
FolderFlags1
$FolderFlagsh
$FolderFlags
    0R1S2S9S11S
Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
    0R1S
FolderFlags1
$Name
$Name
    0R1S2S8S10S11S13S19S21S22S24S26S29S
$106$103$107$Conflict
Select all folders, except shared-on-first-use folders
$Flags
$Flags
    0RL1S5S7S8S13S
$106Folder Name
Strip alternatives, parentheses, and a leading dollar sign from the tmpTitle item
tmpTitle
$Title
$Title
$Title
FolderName1
tmpTitle
tmpTitle
tmpTitle
tmpTitle
    0R1S2S10S11S18RT26S31S32S34S37R
FolderName2
FolderName1
$Title
FolderName1
FolderName1
FolderName1
    0R1S2S6S7S9S10S15S17S18S21S25S28S
FolderName2
$103Folder UNID
    0S0E
$107Folder Flags
Set the folder flags in addition to those that are stored
FolderFlags1
$FolderFlagsh
$FolderFlags
    0R1S2S9S11S
Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
    0R1S
FolderFlags1
$Name
$Name
    0R1S2S8S10S11S13S19S21S22S24S26S29S&
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zeK
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
Convert To TaskK0
ConvertToTask
_Move To Folder...
_Remove From Folder...
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zeK
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
Convert To TaskK0
ConvertToTask
_Move To Folder...
_Remove From Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Name
$WebFlags
$HTMLDocumentStyles
$TITLE
$PublicAccess
$Index
$Formula
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
$FormulaClass
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zeK
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
Convert To TaskK0
ConvertToTask
_Move To Folder...
_Remove From Folder...
New Memo.
    0S0E
Delete
    0S0E
Move To Folder...
    0S0E
_Forward
Reply
Reply
    0S0E
Reply With History@
Reply with history
    0S0E
Categori_zeK
_Edit Document
Send
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
Convert To TaskK0
ConvertToTask
_Move To Folder...
_Remove From Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Name
$WebFlags
$HTMLDocumentStyles
$V5ACTIONS
$ACTIONS
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$68$102$74$Conflict
    L1S2E
$68Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$102Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$74Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
Categori_zeK
_Move To Folder...
_Remove From Folder...
New Memo(
    0S0E
Reply...\Reply0
Reply
    0S0E
Reply...\Reply with HistoryK
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply...\Reply to All
MailStEd
    0S0E
Reply
Reply...\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
_Forward
_Edit Document
Delete
    0S0E
Folder...\Move To Folder...K
    0S0E
Folder...\Remove From Folder
    0S0E
More...\Preferences...0
Preferences
    0S0E
More...\New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Copy into...\New Memo
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into...\New Calendar EntryK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into...\New Todo
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Copy into...\New Group CalendarK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim newnote As notesdocument
    Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
    Call DisplayGroupCalendarDlg(newnote, True)
End Sub
New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
Categori_zeK
_Move To Folder...
_Remove From Folder...
New Memo(
    0S0E
Reply...\Reply0
Reply
    0S0E
Reply...\Reply with HistoryK
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply...\Reply to All
MailStEd
    0S0E
Reply
Reply...\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
_Forward
_Edit Document
Delete
    0S0E
Folder...\Move To Folder...K
    0S0E
Folder...\Remove From Folder
    0S0E
More...\Preferences...0
Preferences
    0S0E
More...\New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Copy into...\New Memo
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into...\New Calendar EntryK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into...\New Todo
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Copy into...\New Group CalendarK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim newnote As notesdocument
    Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
    Call DisplayGroupCalendarDlg(newnote, True)
End Sub
New Memo - Using StationeryK'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$ViewGlobalScript
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
SentBy
Principal
Principal
    1S2S5S6S8S10S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S7S8S9S10S12S14S18S
    0R1S2S8S
    0R1S2S15S16S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
_ViewIcon2h
_ViewIcon2
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RRS4E16S18RS3E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$86$93$70$106$97$73$Conflict
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$93Who>
SentBy
Principal
Principal
    1S2S5S6S8S10S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S7S8S9S10S12S14S18S
    0R1S2S8S
    0R1S2S15S16S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
DeliveredDate
SendTo
SentBy
SendTo
    0R1S2S5S6S8S13S14S15S16S17S18S20S24S27S31S35S41S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$70Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$106Size
_ViewIcon2h
_ViewIcon2
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RRS4E16S18RS3E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$73Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Reply\Reply
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Reply\Reply to AllX
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLY?
Reply\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
_Forward
act_FORWARD.GIF|act_FORWARD?
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Edit
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Folder\Create Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From FolderT
    0S0E
act_FOLDER.GIF|act_FOLDER?
Categori_zer
Send Docu_ment
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
_Move To Folder...
_Remove From Folder...
Retrieve mail
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Do
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEW?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=550,height=180');
Folder\Move to Folder...*
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove from Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Delete\Delete
($Trash)
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Tools\Preferencesu0
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Search
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Help
act_TOOLS.GIF|act_TOOLS?
alert('Waiting for text from PM')
New Memo(
    0S0E
Reply\Reply
Reply
    0S0E
Reply\Reply with History
Reply with History
This document is truncated.
    4S8S10S13S
Reply with history
Reply\Reply to AllX
MailStEd
    0S0E
Reply
Reply\Reply to All with History
MailStEd
    0S0E
Reply with History
This document is truncated.
    0R4S8S10S13S
Reply with history
_Forward
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
_Edit
Delete
    0S0E
Folder\Create Folder
    0S0E
Folder\Move To Folder...
    0S0E
Folder\Remove From Folder
    0S0E
Categori_zee
Send Docu_ment
Resend
NonDelivery Report
Not a Delivery Failure Report
You cannot Resend a message unless it is a Delivery Failure Report.
    6S12S17S23S
_Move To Folder...
_Remove From Folder...
Retrieve maill
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To Do1'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...2
(Preferences)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\New Memo - Using Stationery)'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
Folder\Move to Folder...*
    0S0E
Folder\Remove from Foldere
    0S0E
Delete\Deleter2
($Trash)
    0S0E
Delete\Empty Trash
    0S0E
Tools\PreferencesP0
wPreferences
    0S0E
Tools\Search
    0S0E
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_24
$ViewGlobalScript
$ViewGlobalScript_O
Appointment
_ViewIcon
_ViewIcon
    3S4S6S8S13S15S
_Viewicon2h
_ViewIcon2
    7S9S
Principal
Principal
    1S2S
OrgRepeat
Notice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
 can meet at the suggested time
NoticeType
 would like to propose a change
NoticeType
 will not be attending"
NoticeType
 has asked someone else to attend instead
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
$119$123$122StartDateTimeSubject$Conflict$REF
Appointment
Notice
    L1S2S3S6S7S
 $119
Appointment
_ViewIcon
_ViewIcon
    3S4S6S8S13S15S
$123R
_Viewicon2h
_ViewIcon2
    7S9S
$122x
Principal
Principal
    1S2S
OrgRepeat
Notice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
 can meet at the suggested time
NoticeType
 would like to propose a change
NoticeType
 will not be attending"
NoticeType
 has asked someone else to attend instead
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
StartDateTimeMeeting TimeSubjectSubject&
_Forward
_Edit Document
_Move to Folder...
_Remove from Folder...
Categori_zeK
Send Docu_ment
New Entry
Notes
Appointment
    3S4S6S12S13S
    0R1S2S
path"
/Appointment?OpenForm
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
act_csowneractions.GIF|act_CSOWNERACTIONS?
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
act_participantactions.GIF|act_CSPARTACTIONS
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Rooms...
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=240');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,top=120,left=100,width=600,height=220');
Tools\Import Holidays...4
(ImportHolidays)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Preferences
DialogMode
(Preferences)
_Forward
_Edit Document
_Move to Folder...
_Remove from Folder...
Categori_zeK
Send Docu_ment
New Entry
Notes
Appointment
    3S4S6S12S13S
    0R1S2S
path"
/Appointment?OpenForm
    0R3S4S5S6S
Owner Actions\Reschedule'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_RESCHEDULE)
End Sub
Owner Actions\Cancel'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CANCEL)
End Sub
Owner Actions\Confirm
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_CONFIRM)
End Sub
Owner Actions\View Participant Status
'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_VIEWSTATUS)
End Sub
Owner Actions\Send Memo to ParticipantsK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_SENDMEMO)
End Sub
Participant Actions\Accept'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_ACCEPT)
End Sub
Participant Actions\DeclineK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DECLINE)
End Sub
Participant Actions\Delegate'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_DELEGATE)
End Sub
Participant Actions\Propose New Time'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
End Sub
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To DoK'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Import Holidays...4
(ImportHolidays)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\Preferences
DialogMode
(Preferences)
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus ProductLP
S+(SI
^$U+(SJ
^4U+(SJ
l#K4U-
m#K4U-
Lotus Product8    +V0.0
    K(    -
    K8    -
Lotus Product8    +V0.0
    K(    -
    K8    -
Lotus Product
OBJECT
Lotus Product
OBJECT
#,`    #
Lotus Product
OBJECT
#,`    #
Lotus Product
OBJECT
#,`    #
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
V0.0p
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
t]TfW
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$WebFlags
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_7
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$ViewGlobalScript
$ViewGlobalScript_O
    0S0E
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
UGn>8
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ViewGlobalScript
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$ViewGlobalScript
$ViewGlobalScript_O
_Forward
Categori_zeK
Edit Message
_Move to Folder...
_Remove from Folder...
_Forward
Categori_zeK
Edit Message
_Move to Folder...
_Remove from Folder...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$V5ACTIONS
$ACTIONS
APPTUNIDApptID
APPTUNID
APPTUNID
$3InstanceDatep
RepeatInstanceDates
RepeatInstanceDates
OriginalStartDate
    7S9S
RescheduleWhichChangeWhich.
RescheduleWhich
RescheduleWhich
$2Creation
PrincipalPrincipal"
Principal
Principal
FromDomainFromDomain"
FromDomain
FromDomain
NoticeTypeNoticeType"
NoticeType
NoticeType
SequenceNumSequenceNum&
SequenceNum
SequenceNum
OrgStateParticipantTypeKeepPostedKeepPosted"
KeepPosted
KeepPosted
DelegeeDelegee
Delegee
Delegee
$CSFlagsFlags
$CSFlags
$CSFlags
MasterLastUpdatedModified2
MasterLastUpdated
MasterLastUpdated
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Tu-^jj>
$HTMLDocumentStyles
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
DeliveredDate
PostedDate
PostedDateY
Importance
    6S11S12S17S19S31S
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$71$82$62$75$65$Conflict
DeliveredDate
PostedDate
ExcludeFromView
    L1S4S5S8S9S
DeliveredDate
PostedDate
PostedDateY
Importance
    6S11S12S17S19S31S$82Who
SentBy
Principal
Principal
    1S2S5S6S8S10S
Attendees
RequiredAttendees
OptionalAttendees
    0R1S2S5S6S
DeliveredDate
SentBy
Attendees
Attendees
SendTo
SentBy
SendTo
    0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
    0R1S2S8S
    0R1S2S15S16S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
Person
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
Person2
Person
Person
Person
Person
    0R1S2S12S13S22S34S
Delivery Report
NonDelivery Report
Trace Report
Mail Router
Person2
    0R3S4S5S6S7S8S10S12S
$62Date
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$75F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$65Subject
NonDelivery Report
DELIVERY FAILURE:
FailureReason
Delivery Report
DELIVERED:
Subject
Return Receipt
RECEIVED:
Subject
ReturnNonReceipt
NOT RECEIVED:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
New Memo(
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
act_FORWARD.GIF|act_FORWARD?
_Forward
Delete
    0S0E
act_DELETE.GIF|act_DELETE?
Folder\Create Folder
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Move To Folder...
    0S0E
act_FOLDER.GIF|act_FOLDER?
Folder\Remove From Foldern
    0S0E
act_FOLDER.GIF|act_FOLDER?
Categori_ze3
_Move To Folder...
_Remove From Folder...
Retrieve maile
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Copy into\New To Dom'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
act_COPYINTO.GIF|act_COPYINTO?
Tools\Preferences...2
(Preferences)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\New Memo - Using Stationery4'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLS?
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Send Tracking Requesto:
(SendTrackingRequest)
    0S0E
act_TOOLS.GIF|act_TOOLS?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=550,height=180');
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEW?
Folder\Create Folder
act_FOLDER.GIF|act_FOLDER?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'FolderCreate?OpenForm','Folder','scrollbars,screenX=150,screenY=200,width=550,height=180');
Folder\Move to Folder...*
    0S0E
act_FOLDER.GIF|act_FOLDER?
Delete\DeleteD2
($Trash)
    0S0E
act_DELETE.GIF|act_DELETE?
Delete\Empty Trash
    0S0E
act_DELETE.GIF|act_DELETE?
Tools\Preferences
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Search
    0S0E
act_TOOLS.GIF|act_TOOLS?
Tools\Help
act_TOOLS.GIF|act_TOOLS?
alert('Waiting for text from PM')
New Memo(
    0S0E
Forward
    0S0E
ISMAILSTATIONERY
    1S2S
_Forward
Delete
    0S0E
Folder\Create Folder
    0S0E
Folder\Move To Folder...
    0S0E
Folder\Remove From Foldere
    0S0E
Categori_ze
_Move To Folder...
_Remove From Folder...
Retrieve mail
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
Copy into\New Memo'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_MEMO, True)
End Sub
Copy into\New Calendar Entry'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
End Sub
Copy into\New To Doe'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Call UICopyIntoNewDocument(CREATE_TASK, True)
End Sub
Tools\Preferences...2
(Preferences)
    0S0E
Tools\Out of Office...8
(EditOfficeProfile)
    0S0E
Tools\New Memo - Using Stationery+'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiws As New notesuiworkspace
    Dim collection As notesdocumentcollection
    Dim noteUIEditDocument As notesuidocument
    Dim database As NotesDatabase
    Set noteCursorDoc = session.currentdatabase.createdocument
    Set database = session.currentdatabase
    Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Tools\Add Sender to Address Book<
(AddSenderToAddressBook)
    0S0E
Tools\Send Tracking Request
(SendTrackingRequest)
    0S0E
New Memo
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
Folder\Move to Folder...*
    0S0E
Delete\Delete"2
($Trash)
    0S0E
Delete\Empty Trash
    0S0E
Tools\Preferencesw0
wPreferences
    0S0E
Tools\Search
    0S0E
Lotus Product
OBJECT
Lotus Product
OB