PC World 2000 November/PCWorld_2000-11_cd.bin/Akce/setup.exe/data1.cab/DataFilesRequiredDataFiles/mail50.ntf

Lotus Notes Storage Facility | 2000-08-20 | 5.9 MB | 66,579 lines

ta (verze 5.0)
#1StdR50Mail
^agA6
cLr/~
)R 3S|E
?G        #/o
0zL*i
2\<{Xxb
p2kF+
+MQ O
tx],l
7),'Kf
bBK2T
a(D:W
I,G*i
rtrQU
lWuBwL
CN=Sean Power/O=Dublinsigning
CN=Lotus Notes Template Development/O=Lotus Notes###############
ACLManagements34Q1cs-CZ
00000116
CN=Lotus Notes Template Development/O=Lotus Notes
DocumentConversionss34Q1cs-CZ
00000136
CN=Lotus Notes Template Development/O=Lotus Notes##########################################################
CommonUIs34Q1cs-CZ
0000011A
CN=Lotus Notes Template Development/O=Lotus Notes#####
cs-CZ
00000132CSWebs34Q1
CN=Lotus Notes Template Development/O=Lotus Notesa Bannon
##########################################################
cs-CZ
0000013ASametimes34Q1
CN=Lotus Notes Template Development/O=Lotus Notes#####
"cs-CZ
00000802$ACTIONSCy34Q51
CN=Lotus Notes Template Development/O=Lotus Noteste Development/O=Lotus Notes#######################
GroupCalendarFS|GroupCalendarFS1#4Cwcs-CZ
00000142
CN=Lotus Notes Template Development/O=Lotus Notes######################################################
!cs-CZ
0000013ECalendarFS|CalendarFS1#4Cw5
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
cs-CZ
00000146MailFS|MailFS1#4Cw5
CN=Lotus Notes Template Development/O=Lotus Notes#######################################################
cs-CZ
0000014AToDoFS|ToDoFS1#4Cw5
CN=Lotus Notes Template Development/O=Lotus Notes#######################################################
cs-CZ
00000156WebToDoFS|ToDoFS1#4Cn5
CN=Lotus Notes Template Development/O=Lotus Notes############################################
cs-CZ
0000014EWebCalendarFS|CalendarFS1#4Cn5
CN=Lotus Notes Template Development/O=Lotus Notes####################################
cs-CZ
00000152WebMailFS|MailFS1#4Cn5
CN=Lotus Notes Template Development/O=Lotus Notes############################################
C34WQ1Calendar Pickercs-CZ1
0000015A
CN=Lotus Notes Template Development/O=Lotus Notes#############################
cs-CZI
0000015ECalendar SwitcherC34WQ51
CN=Lotus Notes Template Development/O=Lotus Notes##########################
C34WQ1Calendar Titlecs-CZa
00000162
CN=Lotus Notes Template Development/O=Lotus Notes##############################################
C34WQ1GroupCalendarIntrocs-CZ
00000166
CN=Lotus Notes Template Development/O=Lotus Notes##########################################
cs-CZ
0000016EMail SwitcherC34WQ51
CN=Lotus Notes Template Development/O=Lotus Notes######################################
C34WQ1Mail Titlecs-CZ
00000172
CN=Lotus Notes Template Development/O=Lotus Notes##################################################
C34WQ1To Do Titlecs-CZ
00000176
CN=Lotus Notes Template Development/O=Lotus Notes#################################################
C34WQ1To Do Pickercs-CZ
0000017A
CN=Lotus Notes Template Development/O=Lotus Notes########################################
cs-CZ
0000017ETo Do SwitcherC34WQ51
CN=Lotus Notes Template Development/O=Lotus Notes#############################
C34WQ5WebHelpcs-CZ
00000182
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
BodyDeliveryDateSubject
(Delivery Report)Delivery Reportcs-CZY
000001A6
CN=Lotus Notes Template Development/O=Lotus Notes###########
Len Kawellcs-CZ
000001861
KontaktPersonCDnF5"
ProtectFromArchive$NoPurgeExcludeFromViewpathCommentBirthdayAssistantManagerChildrenDepartmentSpouseLocationCountryOfficeCountryZipOfficeZipHomeAddressBusinessAddressWebSiteJobTitleMailAddressCompanyNamePhoneNumber_6HomeFAXPhoneNumberCategoryPhoneNumberSuffixTitleCellPhoneNumberLastNameOfficeFAXPhoneNumberMiddleInitialOfficePhoneNumberFirstName
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
$GroupExtensibleSchema1CDnF5
ProtectFromArchive$NoPurgeExcludeFromViewpathMembersListDescriptionCategoryListNameGroupTitle
SkupinaGroupcs-CZ
0000018A
CN=Lotus Notes Template Development/O=Lotus Notes#
255D2116B7BDFECF1769F57E5917AA29Lotus NotesCD
CategoriesSubjectArchiveTrailerBodyArchiveDateLogTotalLogCount$MessageType
(Archive Log)Archive LogArchiveProfileArchive ProfileArchiveLogcs-CZ
0000019E
CN=Lotus Notes Template Development/O=Lotus Notes####################################
SelectedGroupMembersDescriptionGroupTypeGroupName(GroupHelper)cs-CZG T
000001AE
CN=Lotus Notes Template Development/O=Lotus Notes########
GroupCalendarFSGroupCalendarCtl5
tmpHiddenProtectFromArchive$NoPurgeStartTimeDurationDurationSelExcludeFromViewSaveOptions1
(GroupCalendar)(GroupCalendar)cs-CZ&%T
000001AA
CN=Lotus Notes Template Development/O=Lotus Notes########
IncludeX509tmpDomaintmpEmailAddresstmpEmailTypetmpSuffixtmpLastNametmpMiddleNametmpFirstNametmpTitletmpConflictAction$AlertGraphic(NameHelper)cs-CZ
000001B2
CN=Lotus Notes Template Development/O=Lotus Notes##################################
DeliveryDateSubject
(Return Receipt)Return Receiptcs-CZ
000001CE
CN=Lotus Notes Template Development/O=Lotus Notes###########################
tmpAltNamestmpSortTypetmpOriginalStatustmpOriginalRoletmpOriginalPeople1
(ParticipantTable)ParticipantTablecs-CZ2*T
000001C2
CN=Lotus Notes Template Development/O=Lotus Notes###
dateFirstDayBackdateFirstDayOutIgnoreSubjectPhraseIgnoreSendIgnoreFromListExcludeInternetEmailSpecialMessageSpecialSubjectSpecialPeopleGeneralMessageDaysOutGeneralSubjectBookBusyTimeFirstDayBackFirstDayOutCurrentStatusDialogStatusTab_ViewIconExcludeFromViewSubjectFromSenderNotified
(Out Of Office Profile)OutOfOfficeProfilecs-CZB+T
000001BE
CN=Lotus Notes Template Development/O=Lotus Notes#############
StatusUpdateBlindCopyToCopyToSendToSaveOptionsMailOptionsForm1
(ReplyNotice)(ReplyNotice)cs-CZ
000001CA
CN=Lotus Notes Template Development/O=Lotus Notes##########################################################
D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iriscs-CZ
000001C6
(Personal Stationery)Personal Stationery
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsw5
FooterBodyHEADERSubjectEnterBlindCopyToEnterCopyToEnterSendToProtectFromArchive$NoPurge$KeepPrivateBGTableColorLogoEncryptSignDefaultMailSaveOptionsAltFromFrom
CN=Lotus Notes Template Development/O=Lotus Notes########################################################
(ReturnNonReceipt)ReturnNonReceiptcs-CZL-T
000001D2
CN=Lotus Notes Template Development/O=Lotus Notes########
DeliveryDateSubject
(Trace Report)Trace Reportcs-CZ
000001DE
CN=Lotus Notes Template Development/O=Lotus Notes#####
ForwardedDateForwardedFrom$FORWARDSEPcs-CZBBT
00000336
CN=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 AdminServer 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
    Private strWEBSubmission As String
    Private strDefaultAccessName As String
    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
        Me.strDefaultAccessName = ""
        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()
        Call ValidateAdminServer()
    End Function
    Property Set IsWebClient As Integer
        Me.nIsWebClient = IsWebClient
    End Property
    Property Set DelegateUsingAdminP As Integer
        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
            Me.strWEBSubmission = "1"
        Else
            vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)
        End If
        vSuccess = Evaluate(|@AdminDelegateMailFile("| &_
        Me.AdminServer & |";"admin4.nsf";"|& vHomeServer(0) &|";"| &_
        Me.session.Effectiveusername & |";PublicRead;ReadCalendar;PublicWrite;WriteCalendar;ReadMail;WriteMail;EditMail;DeleteMail;RemoveFromACL;Owner;@Subset(@DbName; -1);"|_
        & Me.strWEBSubmission &|")|, 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", Fulltrim(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(strDefaultAccessName)
        If Me.aclentry Is Nothing Then
            Set Me.aclentry = Me.acl.createACLEntry(strDefaultAccessName,ACLLEVEL_NOACCESS)
        End If
        If Len(strDefaultAccessName) = 0 Then
            Me.strDefaultAccessName = Me.aclentry.name
        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(strDefaultAccessName)
        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()
                                        If Me.aclentry.Name = strDefaultAccessName Then
                                            Me.aclentry.Level = ACLLEVEL_NOACCESS
                                        Else
                                            Call Me.aclentry.remove()
                                        End If
                                    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 function is virtual so the WEB and Client can handle them thier own way    OR NOT AT ALL
    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 = strDefaultAccessName 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,Designers or NO_ACCs and we don't want to change them
                x = Ubound(Me.OtherUsers)
                Me.OtherUsers(x) = aclentry.Name
                Redim Preserve Me.OtherUsers(x+1)
                If Me.aclentry.IsAdminServer Then
                    Me.AdminServer = Me.OtherUsers(x)
                End If
            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
    Private Function ValidateAdminServer()
        If Not Len(Me.AdminServer) Then
            Me.AdminServer = note.parentdatabase.Server
        End If
    End Function
End Class
Lotus Product
W32I4
|!|!l
-D #81
-D #81
#-|!#
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
'K3l9
$TITLE
$PublicAccess
$Language
$LastBuildTime
$BabelInfo
$ScriptLib
$ScriptLib_O
'++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("Nedefinovan
 typ dokumentu!")
    End Select
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
O?\C(
$TITLE
$PublicAccess
$Language
$LastBuildTime
$BabelInfo
$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,,,,"Nov
 skupinov
 kalend
", note, True, True)
    strAction = note.GetItemValue("Action")(0)
    If (strAction = "" Or strAction = "Cancel") Then Exit Sub
    note.replaceItemValue "ExcludeFromView", "D"
    note.replaceItemValue "ProtectFromArchive", "1"
    note.replaceItemValue "$NoPurge", ""
    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 "Nebyl nalezen kop
rovan
 dokument"
        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
W32I4
#,`    #
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$PublicAccess
$Language
$LastBuildTime
$BabelInfo
$ScriptLib
$ScriptLib_O
var origOwner;
origOwner = document.forms[0].Owner.value;
var start = window.location.search.search(/ReturnView=/);
if (start != -1) {
    var result = window.location.search.substring( start+11 );
    document.forms[0].ReturnView.value = result;
edvolby
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_PreviewDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Preview
Path_Info
Path_Info
Query_String
Query_String
SaveOptions
ReturnView
    8S12S14S
.,$,  , :
PROTECTFROMARCHIVE
    neumo
nit ukon
 platnosti t
chto dokument
edvolby
$PreferencesPage
    4S6S
$PreferencesPage
zev tabulky odvozen
 od pole
edvolby
SignatureOption
    2S3S4S5S6S7S
$PreferencesPage
Preferences
    0R3S4S6S11S
$PreferencesPage
Preferences
    0R1S2S3S
klady
$PreferencesPage
Signature
    0R3S4S6S11S
$PreferencesPage
Signature
    0R1S2S3S
    Podpis
$PreferencesPage
AddressBook
    0R3S4S6S11S
$PreferencesPage
AddressBook
    0R1S2S3S
    Seznam adres
    Kalend
$PreferencesPage
Freetime
    0R3S4S6S11S
$PreferencesPage
Freetime
    0R1S2S3S
    Voln
$PreferencesPage
Entries
    0R3S4S6S11S
$PreferencesPage
Entries
    0R1S2S3S
    Polo
$PreferencesPage
Autoprocess
    0R3S4S6S11S
$PreferencesPage
Autoprocess
    0R1S2S3S
    Automatick
 zpracov
    Delegace
$PreferencesPage
    0R3S4S6S11S
$PreferencesPage
    0R1S2S3S
$PreferencesPage
Calendar
    0R3S4S6S11S
$PreferencesPage
Calendar
    0R1S2S3S
    Kalend
PreferencesPage
PreferencesPage
ta - z
klady
ivatelsk
 konfigurace
javascript:alert('Jm
no vlastn
ka souboru po
ty v kanonick
m form
tu. Toto jm
no obvykle nen
eba m
nit.')
    Vlastn
k tohoto souboru po
Owner
var xxNoChangeWarning = "Hodnotu \'Vlastn
k\' m
e upravit pouze vlastn
k nebo mana
if (document.forms[0].tmpOwnMan.value != "1") {
    alert(xxNoChangeWarning);
    document.forms[0].Owner.value = origOwner
Owner
    Form
t zpr
 Internet
FormatReplies
tovan
 odpov
di s odsazovac
m znakem|1
FormatReplies
FormatReplies
    0S0E
OffSetChar
>|1>>|4
OffSetChar
FormatReplies
    0S0E
edvolby
Preferences
Preferences
   Po
ta - Podpis
EnableSignature
Automaticky p
ipojovat podpis na konec odes
ch zpr
v elektronick
    Podpis:

Signature_1
Podpis
Signature
Signature
ta - Seznam adres
    Kategorie:
NABCategories
Seznam adres
AddressBook
AddressBook
Kalend
 - Voln
javascript:alert('Vyberte dobu, kdy v
s budou moci ostatn
 pozvat na sch
zku.')
    Dostupnost
Sunday
Sunday
    0S0E
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
Monday
Monday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
Tuesday
Tuesday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
Wednesday
eda|4
Wednesday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
Thursday
tvrtek|5
Thursday
    0S0E
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
Friday
tek|6
Friday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
Saturday
Sobota|7
Saturday
    1S2S
Size=40
    8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
javascript:alert('Vyberte osoby, kter
 uvid
 dostupn
 voln
as. Pr
 pole znamen
as uvid
ichni.')
    Pouze n
sleduj
ivatel
 si mohou vy
dat informace o m
m voln
AllowBusyAccess
Freetime
Freetime
Kalend
 - Automatick
 zpracov
AutoProcessMeetings
    1S2S
AutoProcessType
AutoProcessType
    3S4S6S8S
AutoProcessType
Nezpracov
vat automaticky pozv
nky na sch
zku|DAutomaticky zpracovat pozv
nky na sch
zku od v
ech u
ivatel
|0Automaticky zpracovat pozv
nky na sch
zku od n
sleduj
ivatel
|2Delegovat pozv
nky na sch
zku n
sleduj
 osob
AutoProcessType
    1S2S
Size=40
AutoprocessUserList
AutoProcessType
    1S2S
Size=40
AutoProcessForwardTo
AutoRemoveFromInbox
Odebrat pozv
nky na sch
zku ze slo
ky Do
ta po jejich zodpov
PreventRepliesFromInbox
Nezobrazovat odpov
di na pozv
nky na sch
zku ve slo
ce Do
Automatick
 zpracov
Autoprocess
Autoprocess
Kalend
 - Polo
 hodnoty
    Doba trv
 akce nebo sch
DefaultDuration
DefaultDuration
DefaultDuration
    3S4S5S6S7S8S9S10S12S
DefaultDuration
     (minut)
 se ka
 rok opakuje:
.,$$$$$
AutoAnniversaryRepeat
AutoAnniversaryRepeat
AutoAnniversaryRepeat
    3S4S5S6S7S8S10S12S
AutoAnniversaryRepeat
     rok
ExcludeFromAll
Nezobrazovat polo
ky kalend
e v pohledu V
echny dokumenty|1
ExcludeFromSent
Nezobrazovat pozv
nky na sch
zku v pohledu Odeslan
    Osobn
 kategorie:
UserCategories
Entries
Entries
Delegov
 - Po
PublicRead
    1S2S
sleduj
 osoby nebo skupiny mohou:
st moji po
tu a kalend
ReadMailz
ReadMailsize=40
st a odes
lat po
nem a
j kalend
WriteMail
WriteMailsize=40
st, odes
lat a upravovat dokumenty v m
m souboru po
EditMailz
EditMailsize=40
    Odstra
ovat po
tu a polo
ky kalend
    (umo
ivatel
m, kte
 mohou odes
lat nebo upravovat po
DeleteMailz
DeleteMailsize=40
 nebo spr
.,$,  , :
OtherUsers
    0S0E
OtherUsers
        *Tyto polo
ky nelze v tomto dialogov
m okn
 upravit
Delegov
 - Kalend
 polo
ek kalend
PublicRead
    3S4S
PublicRead
Kdokoli m
j kalend
|1Pouze n
sleduj
 osoby nebo skupiny mohou
daje z m
ho kalend
ReadCalendar
    Vytv
pravy kalend
PublicWrite
    3S4S
PublicWrite
Kdokoli m
e spravovat m
j kalend
|1Pouze n
sleduj
 osoby nebo skupiny mohou pracovat s m
m kalend
PublicWrite
    1S2S
WriteCalendar
Kalend
Calendar
Calendar

Owner
$BusyName
$NoPurge
$NoPurge
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
Saturday
    0S0E
$AvailableDays
$PublicAccess
$CSVersion
tmpOwnMan
adit do kategorie
_Upravit dokument7
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
it a zav
act_CSSAVE
document.forms[0].submit();
Storno
Hide if person clicked 'New doc' button
QUERY_STRING_DECODED
    0R1S2S6S
    0R1S2S3S4S
act_DELETE.GIF|act_DELETE?
var href = window.location.href;
var view = document.forms[0].ReturnView.value;
var newurl = href.substring(0,(href.lastIndexOf('.nsf')+5));
if (view == "Calendar") {
    newurl += "CalendarFS?OpenFrameset";
} else {
    newurl += view +"?OpenView";
window.location.replace( newurl );
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$HTMLCode
$Info
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
$Times1
$Times2
$Times3
$Times4
$Times5
$Times6
$Times7
DefaultDuration
AutoAnniversaryRepeat
$Body
$V5ACTIONS
$ACTIONS
CN=Angela Bannon/O=Connect
($Inbox)
CN=Ciara Douglas/O=Connect
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class SametimeStringTable
Declare Class SametimeInformation
Declare Class STWIOProfile
Declare Class FolderToNames
Declare Sub prepareRemoteSTDBForMemoWIO( uiDoc As NotesUIDocument, stInfoVar As Variant)
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim gSTStrings As SametimeStringTable
Const DO_NOT_CACHE = False 'Set to true and it will never cache the values
Const ERR_ST_GENERAL = 7092 'Seems like a good error number!
Const TOKEN_FIELD_NAME = "Token"
Const SAMETIME_ADMIN_ROLE = "[SametimeAdmin]"
Const NOT_PROCESSED = "N"
Const USERNAME_FIELD_NAME = "UserName"
Const PROCESSED_FIELD_NAME = "Processed"
Const CLIENT_CREATION_TIME_FIELD_NAME = "ClientCreationTime"
Const TOKEN_CACHE_UNTIL_FIELD_NAME = "CacheTokenUntil"
Const AUTHORS_FIELD_NAME = "Authors"
Const READERS_FIELD_NAME = "Readers"
Const NET_ADDRESS_KEY_NAME = "SAMETIMESERVERIP"
Const HTTP_PORT_KEY_NAME = "SAMETIMESERVERHTTPPORT"
Const SAMETIME_TOKEN_DB = "STAuthT.nsf"
Const SAMETIME_DOMINO_DB = "STDomino.nsf"
Const SAMETIME_TOKEN_GEN_AGENT = "SametimeQueryOpen"
Const SAMETIME_CACHEPROFILE_NAME = "STInformationCache"
Const SAMETIME_WIO_PROFILE_NAME = "STWIO"
Class SametimeStringTable
    Function GetString(nIndex As Integer, vData As Variant) As String
        Select Case nIndex
        Case 0
            getString = "Server je z
 nedostupn
 nebo je t
eba vytvo
it datab
zi. Obra
te se na spr
vce syst
        Case 1
            getString = "Nelze otev
t datab
zi token
 na serveru Sametime."
        Case 2
            getString = "P
i pokusu o vytvo
 zabezpe
ho tokenu do
lo k nezn
 chyb
. Opakujte akci nebo se obra
te na spr
vce syst
        Case 3
            getString = "Nelze otev
t datab
zi Osoby v re
imu online na serveru Sametime."
        Case 4
            getString = "Chyba"
        Case 5
            getString = "P
ipojit se k t
to konverzaci."
        Case 6
            getString = "Zpr
va..."
        Case 7
            getString = "Zpr
em..."
        Case 8
            getString = "Server Sametime - Osoby v re
imu online"
        Case 9
            getString = "Jako p
jemce zpr
vy je t
eba vybrat alespo
 jednu osobu."
        Case 10
            getString = "OK"
        Case 11
            getString = "Od koho"
        Case 12
            getString = "Komu"
        Case 13
            getString = "Kopie"
        End Select
    End Function
End Class
Class SametimeInformation
    Private session As NotesSession
    Private cacheNote As NotesDocument
    Private bmDB As  NotesDatabase
    Private tokenDB As NotesDatabase
    Private tokenDBLookupView As NotesView
    Private dominoDB As NotesDatabase
    Private sametimeServerName As String
    Private sametimeQueryOpenAgent As NotesAgent
    'tempDT is just a convience object so we don't have keep creating new temp DateTimes
    Private tempDT As NotesDateTime
    Sub new( sametimeServer As String)
        Set session  = New NotesSession
        Dim bmfilename As Variant
        bmfilename = Evaluate("@LocationGetInfo( [BookmarksFilename])")
        Set bmDB = New NotesDatabase( "", bmfilename(0))
        Me.sametimeServerName = sametimeServer
        Set cacheNote = bmDB.getProfileDocument( SAMETIME_CACHEPROFILE_NAME + sametimeServer, session.username)
        Set tempDT = New NotesDateTime( "")
    End Sub
    Sub delete
        'save off the cache note
        Call cacheNote.encrypt
        Call cacheNote.save( True, True)
    End Sub
    Public Property Get serverName As String
        serverName = sametimeServerName
    End Property
    Public Property Get token As String
        If cacheNote.hasItem( TOKEN_CACHE_UNTIL_FIELD_NAME) Then
            tempDT.setNow
            If DO_NOT_CACHE Or cacheNote.getFirstItem( TOKEN_CACHE_UNTIL_FIELD_NAME).dateTimeValue.timeDifference( tempDT) < 0 Then
                Call generateNewInfo()
            End If
        Else
            Call generateNewInfo()
        End If
        token = cacheNote.getItemValue( TOKEN_FIELD_NAME)(0)
    End Property
    Public Property Get stDominoDB As NotesDatabase
        If dominoDB Is Nothing Then
            Set dominoDB = New NotesDatabase(sametimeServerName, SAMETIME_DOMINO_DB )
        End If
        If Not dominoDB.isOpen Then
            Error ERR_ST_GENERAL, gSTStrings.getString( 3, "") & " " & gSTStrings.getString( 0, "")
        End If
        Set stDominoDB = dominoDB
    End Property
    Public Property Get netAddress As String
        netAddress = Cstr(cacheNote.getItemValue( NET_ADDRESS_KEY_NAME)(0))
        If Len(netAddress) = 0 Then
            Call generateNewInfo()
            netAddress = Cstr(cacheNote.getItemValue( NET_ADDRESS_KEY_NAME)(0))
        End If
        If Len(netAddress ) = 0 Then
            Dim servername As New NotesName( sametimeServerName)
            netAddress = servername.common
            Call cacheNote.replaceItemValue( NET_ADDRESS_KEY_NAME, netAddress)
        End If
    End Property
    Private Sub generateNewInfo
        'generates new info and caches it
        Dim tokenNoteUnid As String
        Dim tokenNote As NotesDocument
        Dim tokenItem As NotesItem
          'Open token database
        If tokenDB Is Nothing Then
            Set tokenDB = New NotesDatabase( sametimeServerName, SAMETIME_TOKEN_DB)
            If Not tokenDB.isOpen Then
                Error ERR_ST_GENERAL,  gSTStrings.getString( 1, "") & " " & gSTStrings.getString( 0, "")
            End If
            Set tokenDBLookupView = tokenDB.getView( "Hlavn
        End If
        Forall item In cacheNote.items
            item.remove
        End Forall
        tokenNoteUnid = Me.createTokenDocument()
        Call Me.runTokenGenerationAgent()
        Set tokenNote = Me.getInitializedTokenDocument(tokenNoteUnid)
        If tokenNote Is Nothing Then
            Error ERR_ST_GENERAL, gSTStrings.getString( 2, "")
        End If
        If Not tokenNote.hasItem(TOKEN_CACHE_UNTIL_FIELD_NAME) Then
            'if there is no cache value, then by default put a 3 hour cache time limit
            Call tempDT.setNow
            Call tempDT.adjustHour( 3)
            Call cacheNote.replaceItemValue( TOKEN_CACHE_UNTIL_FIELD_NAME, tempDT)
        Else
            Call cacheNote.replaceItemValue( TOKEN_CACHE_UNTIL_FIELD_NAME, _
            tokenNote.getfirstItem( TOKEN_CACHE_UNTIL_FIELD_NAME).datetimevalue)
        End If
        'set up the token item
        Set tokenItem = cacheNote.replaceItemValue( TOKEN_FIELD_NAME, tokenNote.getItemValue( TOKEN_FIELD_NAME)(0))
        tokenItem.isEncrypted = True
        Call Me.cacheOtherKeyedInfo(NET_ADDRESS_KEY_NAME)
        Call tokenNote.remove( True) ' delete the token note
    End Sub
    Private Sub cacheOtherKeyedInfo( key As String)
        Dim tempNote As NotesDocument
        Set tempNote  = tokenDBLookupView.GetDocumentByKey(key, True)
        Dim tempVal As Variant
        If Not tempNote Is Nothing Then
            tempVal =  tempNote.getItemValue( TOKEN_FIELD_NAME)(0)
        Else
            tempVal = ""
        End If
        Call cacheNote.replaceItemValue( key,  tempVal)
    End Sub
    Private Function createTokenDocument As String
        'returns the unid of a newly created token document in the token database
         'The record will be accessable only to the reader and anyone with the SametimeAdmin role
        Dim tokenNote As NotesDocument
        Set tokenNote = tokenDB.createDocument
        Call tokenNote.replaceItemValue( USERNAME_FIELD_NAME, session.UserName)
        Call tokenNote.replaceItemValue( CLIENT_CREATION_TIME_FIELD_NAME, Now)
        Call tokenNote.replaceItemValue( PROCESSED_FIELD_NAME, NOT_PROCESSED)
        Dim newValues( 1) As String
        newValues(0) = session.UserName
        newValues(1) = SAMETIME_ADMIN_ROLE
        Dim readerItem As New NotesItem(tokenNote, READERS_FIELD_NAME , newValues,  READERS)
        Dim authorItem As New NotesItem(tokenNote, AUTHORS_FIELD_NAME , newValues,  AUTHORS)
        Call tokenNote.Save( True, True )
        createTokenDocument = tokenNote.UniversalID
        Call tokenNote.replaceItemValue( TOKEN_FIELD_NAME , tokenNote.UniversalID)
        Call tokenNote.Save( True, True )
        Delete tokenNote 'Ensures the tokendocument is removed from the local cache
    End Function
    Private Sub runTokenGenerationAgent
        If sametimeQueryOpenAgent Is Nothing Then
            Set sametimeQueryOpenAgent = Me.stDominoDB.getAgent(SAMETIME_TOKEN_GEN_AGENT)
        End If
        Call sametimeQueryOpenAgent.runOnServer()
    End Sub
    Private Function getInitializedTokenDocument( unid As String) As NotesDocument
        If (Not tokenDB Is Nothing) Then
            Set getInitializedTokenDocument = tokenDB.GetDocumentByUNID( unid )
        End If
    End Function
End Class
Class STWIOProfile
    Private stwioProfileNote As NotesDocument
    Private stInfo As SametimeInformation
    Private folders() As FolderToNames
    Private folderCount As Integer
    Private session As NotesSession
    Sub new( stInfo As SametimeInformation)
        Set session = New NotesSession
        Set Me.stInfo = stinfo
        Set stwioProfileNote = stinfo.stDominoDB.getProfileDocument( SAMETIME_WIO_PROFILE_NAME, session.username )
    End Sub
    Sub addNamesToFolder(folderToAdd As String, names As Variant)
        If folderCount = 0 Then
            Redim Preserve folders(0) As FolderToNames
            Set folders( 0) = New FolderToNames( folderToAdd, names)
            folderCount = 1
        Else
            Dim foundExisting As Integer
            Forall folder In folders
                If Lcase( folderToAdd) = Lcase( folder.foldername) Then
                    foundExisting = True
                    folder.addNames( names)
                    Exit Forall
                End If
            End Forall
            If Not foundExisting Then
                Redim Preserve folders(folderCount) As FolderToNames
                Set folders( folderCount) = New FolderToNames( folderToAdd, names)
                folderCount = folderCount + 1
            End If
        End If
        'set the items in the note
    End Sub
    Sub save
        Call stwioProfileNote.replaceItemValue("SametimeServer", stInfo.serverName)
        Call stwioProfileNote.replaceItemValue("SametimeNetAddress", stInfo.netAddress )
        Call stwioProfileNote.replaceItemValue("Token", stInfo.token )
        Call stwioProfileNote.replaceItemValue("PeopleList", "")
        Call stwioProfileNote.replaceItemValue("FolderNames", "")
        Call stwioProfileNote.replaceItemValue("conf_invitation", gSTStrings.getString( 5, ""))
        Call stwioProfileNote.replaceItemValue("message_menuitem_label", gSTStrings.getString( 6, ""))
        Call stwioProfileNote.replaceItemValue("bgcolor", "0xc0c0c0")
        Call stwioProfileNote.replaceItemValue("messageall_menuitem_label", gSTStrings.getString( 7, ""))
        Call stwioProfileNote.replaceItemValue("no_selection_warning_title", gSTStrings.getString( 8, ""))
        Call stwioProfileNote.replaceItemValue("no_selection_warning_msg", gSTStrings.getString( 9, ""))
        Call stwioProfileNote.replaceItemValue("no_selection_warning_buttonlabel", gSTStrings.getString( 10, ""))
        'remove all existing readername, authorname fields
        Forall item In stwioProfileNote.items
            If item.isAuthors Or item.isReaders Then
                item.remove
            End If
        End Forall
        Dim readerItem As New NotesItem(stwioProfileNote, READERS_FIELD_NAME , session.username ,  READERS)
        If folderCount > 0 Then
            Dim foldersStr As String
            Dim namesStr As String
            Dim i As Integer
            For i = 0 To folderCount -1
                Dim tempVar As Variant
                If folders(i).namesCount > 0 Then
                    Call stwioProfileNote.replaceItemValue("tmpNames",  folders(i).names)
                Else
                    Call stwioProfileNote.replaceItemValue("tmpNames", "")
                End If
                If i = folderCount - 1Then
                    foldersStr = foldersStr & folders(i).folderName
                    Evaluate |Field PeopleList := PeopleList + @Implode( @Unique( tmpNames); ","); ""|, stwioProfileNote
                Else
                    foldersStr = foldersStr & folders(i).folderName & ","
                    Evaluate |Field PeopleList := PeopleList + @Implode( @Unique( tmpNames); ",") + ";"; ""|, stwioProfileNote
                End If
            Next i
            Call stwioProfileNote.replaceItemValue("FolderNames",  foldersStr)
        End If
        stwioProfileNote.save True, True
    End Sub
End Class
Class FolderToNames
    Public folderName As String
    Public names() As Variant
    Public  namesCount As Integer
    Public Sub new( folderName As String, namesToAdd As Variant)
        Me.folderName = folderName
        Call Me.addNames( namesToAdd)
    End Sub
    Public Sub addNames( namesToAdd As Variant)
        Redim Preserve names( namesCount + Ubound( namesToAdd)) As Variant
        Dim i As Integer
        i = namesCount
        Forall  aname In namesToAdd
            names( i) = aname
            i = i + 1
        End Forall
        namesCount = namesCount + Ubound( namesToAdd) + 1
    End Sub
End Class
'++LotusScript Development Environment:2:2:prepareRemoteSTDBForMemoWIO:1:8
Sub prepareRemoteSTDBForMemoWIO( uiDoc As NotesUIDocument, stInfoVar As Variant)
    'TODO - Handle errors
    On Error Goto ErrorHandler
    Dim session As New NotesSession
    Dim currentNote As NotesDocument
    Dim stProfileDoc As NotesDocument
    Dim stDB As NotesDatabase
    Dim stwioProfile As STWIOProfile
    Dim stInfo As SametimeInformation
    If gSTStrings Is Nothing Then
        Set gSTStrings = New SametimeStringTable
    End If
    Set currentNote = uiDoc.document
    If Isempty(stInfoVar) Then
        Dim sametimeServer As Variant
        sametimeServer = Evaluate( "@LocationGetInfo([SametimeServer])")
        Set stInfoVar = New SametimeInformation(sametimeServer(0))
    End If
    Set stInfo = stInfoVar
    Set stwioProfile = New STWIOProfile( stinfo)
    ' Get the fields that will be used for the buddy list FROM, TO, CC
    Call stwioProfile.addNamesToFolder( gSTStrings.getString( 11, ""), currentNote.getItemValue( "From"))
    Call stwioProfile.addNamesToFolder( gSTStrings.getString( 12, ""), currentNote.getItemValue( "EnterSendTo"))
    Call stwioProfile.addNamesToFolder( gSTStrings.getString( 13, ""), currentNote.getItemValue( "EnterCopyTo"))
    Call stwioProfile.save
    Dim serverName As New NotesName( stInfo.serverName)
    Call currentNote.replaceItemValue( "SametimeServer", serverName.common)
    If uiDoc.EditMode Then
        uiDoc.reload
    End If
endsub:
    Exit Sub
ErrorHandler:
    Messagebox Error$, 16, gSTStrings.getString( 4, "")
    Call currentNote.replaceItemValue( "SametimeServer", "") 'This will signal to the jscript that it should abort
    If uiDoc.EditMode Then
        uiDoc.reload
    End If
    Resume endsub
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Set gSTStrings = New SametimeStringTable
End Sub
Lotus Product
W32I4
 X X \
X 8"t
,X },
,X },
,X }h
,X }d
,X }h
-8"##1
#,\"}P
,X }h
,X }<
,X }X
,X }t
,X }0
,X }l
#P #F
^8#6W
,X }X
-4 ##1
PeopleList
PeopleList
tmpNames
    1S2S3S4S5S7S9S12S
PeopleList
PeopleList
tmpNames
    1S2S3S4S5S7S9S12S14S15S
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
cD 4q
$Language
$LastBuildTime
$BabelInfo
$TITLE
$PublicAccess
$ScriptLib
$ScriptLib_O
GroupCalendarCtlCalendarView
(GroupCalendar)|(GroupCalendar)X
CalendarView
GroupCalendarIntro
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
%u7]B
}T021
o!qJN%
m/1Qe(
$TITLE
$PublicAccess
$FrameSet
$Language
$LastBuildTime
$BabelInfo
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
1%7jv
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Comment
$PublicAccess
$FrameSet
$DesignerVersion
$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
a,,dT6Gz
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Comment
$PublicAccess
$FrameSet
$DesignerVersion
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
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Comment
$PublicAccess
$FrameSet
$DesignerVersion
CalendarProfile
Owner
To Do Title?
NotesNavigatorNotesView?
To Do Picker
Switcher
To Do Switcher
NotesView?
($ToDo)|Tasks?
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
2~ gac
!]3c.Y^+
$Language
$LastBuildTime
$BabelInfo
$TITLE
$WINDOWTITLE
$Comment
$PublicAccess
$FrameSet
$DesignerVersion
CalendarProfile
Owner
Calendar Title
NotesNavigatorNotesView?
Calendar Picker?
Switcher
Calendar Switcher?
NotesView?
($Calendar)|Calendar
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
N    "_?#/
\TNa.*H
k"@--j
$Language
$LastBuildTime
$BabelInfo
$TITLE
$WINDOWTITLE
$Comment
$PublicAccess
$FrameSet
$DesignerVersion
CalendarProfile
Owner
$View?
Mail Title
NotesNavigatorNotesView?
Mail Picker?
Switcher
Mail Switcher?
NotesView?
($Inbox)
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$TITLE
$WINDOWTITLE
$Comment
$PublicAccess
$FrameSet
$DesignerVersion
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
CalendarOutline
CalendarOutlineNotesView
vspacer.GIFX
out_Month
$DatePickerMonthV
    1S2S
out_rMonth
$DatePickerMonthV
    1S2S
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$PublicAccess
$$FormScript
$Body
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
"Small Fonts
Lotus Product
Calendar Switcher
GIF89a
Yyx7`^8a_
```OOO///
r@    jT
&4jtQN=
lo3gU
.,+Ve
ToDoFrameset_1TARGET="_top"
ToDoFS
e seznam
MailFrameset_1TARGET="_top"
MailFS
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
pi~Yx
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$Script_O
$$ScriptName
$Body
$PublicAccess
Lotus Product
Calendar Title
Kalend
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
BP_de{
$Info
$$Script_O
$$ScriptName
$PublicAccess
$Body
$Language
$LastBuildTime
$BabelInfo
Untitled
Skupinov
 kalend
sidebar.gifX
s skupinov
 kalend
 programu Notes.
Tento kalend
 poskytuje p
ehled pl
novan
 skupiny a umo
uje snadno zobrazit kalend
e jednotliv
 skupiny.X
Chcete-li zobrazit kalend
 osoby, sta
 klepnout na jej
ebujete-li zobrazit podrobn
daje o obsazen
m bloku, sta
 na tento blok klepnout.X
Chcete-li zobrazit budouc
ny, m
ete k p
esunu v r
mci t
dne pou
t posuvn
k nebo k p
esunu mezi jednotliv
ipky nalevo od z
 kalend
    Pozn
mka:X
    Informace o voln
m a obsazen
ase jsou dostupn
 pouze pro sou
asnost a budoucnost;
ch dn
 bude proto ve skupinov
m kalend
i zobrazena zpr
 informace
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Y@eQIx
$Info
$$ScriptName
$PublicAccess
$WINDOWTITLE
$Body
$Language
$LastBuildTime
$BabelInfo
"Small Fonts
Mail Switcher
GIF89a
7`^8a_bb
___OOO///
!e!x,uTa
OpenCalendar_1TARGET="_top"
CalendarFS
e kalend
OpenToDo_1TARGET="_top"
ToDoFS
e seznam
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
_1t>s
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$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
$PublicAccess
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
V0.0e
To Do Title
kolyX
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
]y.[h
$Info
$$Script_O
$$ScriptName
$PublicAccess
$Body
$Language
$LastBuildTime
$BabelInfo
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
_2E4%
$BackgroundR5
$Info
$$Script_O
$$ScriptName
$PublicAccess
$Body
$Language
$LastBuildTime
$BabelInfo
"Small Fonts
Lotus Product
To Do Switcher
GIF89a
Pts7`^8a_
___OOO...
uH1`f)xBg?
4j<`
MailFramesetTARGET="_top"
MailFS
CalendarFramesetTARGET="_top"
CalendarFS
e kalend
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
{yaJI
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$Script_O
$$ScriptName
$Body
$PublicAccess
5Courier New
Times New Roman
Untitled
    <a name="Top">
MailFS
    0S0E
t k do
CalendarFS
    0S0E
t na kalend
ToDoFS
    0S0E
 server Lotus Domino verze 5. Tento server umo
uje snadn
stup k po
, kalend
i a seznamu
 z prohl
 WWW. Na t
to str
nce naleznete p
ehled
asto pou
ch funkc
. Dal
 informace z
te klepnut
m na uveden
 propojen
<a href="#GettingAround">X
kladn
 informace o po
m serveru Domino
<BR></a><a href="#Using">
<BR></a><a href="#Address">X
 seznamu adres
</a><a href="#Making">
ech mo
 kalend
<BR></a><a href="#Managing"
va seznamu
<BR></a><a href="#Setting">X
Nastaven
edvoleb
</a><a href="#How">X
ch informac
    <a name="GettingAround">
kladn
 informace o po
m serveru Domino
    </a>
 server Domino verze 5 usnad
uje p
 mezi po
tou, kalend
em a seznamem
. V lev
m doln
m rohu t
chto aplikac
 jsou zobrazeny p
 ikony. Klepnut
m na n
kterou z t
chto ikon m
ete snadno a rychle p
zet mezi po
tou, kalend
em a seznamem
    U po
ho serveru Domino verze 5 je nad pohledy a dokumenty zobrazen tmav
 zelen
 pruh akc
, kter
uje rychl
stup k nejpou
m akc
m (podle kontextu). X
i vytv
 dokument
 si v pruhu akc
asto v
imnout tla
tka P
t na..., pomoc
 kter
ete jedn
m klepnut
t na do
lou po
tu, kalend
 nebo seznam
, ani
 byste v prohl
i museli k n
vratu na po
adovan
sto pou
ipku pro p
echod zp
    <a name="Using">
    </a>
te-li po
 server Domino verze 5, m
ete jednodu
st novou po
tu nebo zobrazit zpr
vy ulo
 ve slo
ch. Novou po
tu zobraz
te klepnut
m na slo
ku Do
ta, p
 nejnov
vy budou uvedeny na konci seznamu. Po p
ete pomoc
 pruhu akc
 odpov
t odes
lateli, postoupit zpr
komu jin
mu, odstranit ji nebo p
esunout do jin
ky. D
vy je vhodn
adit do n
ky, abyste je pozd
ji mohli snadno vyhledat.
    Novou slo
ku vytvo
te tak,
e klepnete na tla
tko Slo
ka v pruhu akc
 a v nab
dce vyberete p
kaz Vytvo
it slo
ku. Pomoc
 zobrazen
ho dialogu m
ete vytvo
it nov
ky nebo dokonce vno
it nov
ky do jin
ch slo
ek. Chcete-li do nov
 vytvo
idat zpr
vy, klepn
te na tla
tko Slo
ka v pruhu akc
 a v nab
dce vyberte p
kaz P
esunout do slo
ky... .X
    Jakoukoli zpr
ete p
mo zkop
rovat do polo
ky kalend
e nebo
kolu. Vyberte po
adovanou zpr
vu a klepn
te na tla
tko Zkop
rovat jako... v pruhu akc
. Zvolte po
adovan
l a informace budou automaticky zkop
ny do p
nky. Vypl
te zbytek formul
e a dokument ulo
te pro pozd
 v kalend
i nebo seznamu
    Vytvo
    Novou po
ete vytvo
it pomoc
ho ze
 jednoduch
ch zp
    - tento formul
 je ur
en k vytvo
    Odpov
    - tento formul
 je ur
en k odpov
di na p
ijatou zpr
vu. Formul
 lze pou
t pouze v p
, vyberete-li dokument, na kter
 chcete odpov
    Odpov
 historieX
     - tento formul
 je podobn
 formul
i Odpov
m rozd
lem,
e do nov
vy bude automaticky vlo
ena kopie p
    Postoupit
    - pomoc
to mo
nosti m
ete zpr
vu odeslat nov
jemci
ed odesl
m zpr
vy je nutn
 zadat n
sleduj
 informace:
    Komu:X
     - prim
jemci zpr
vy. Obsah zpr
vy je ur
mto p
m, kte
 na zpr
vu mus
 reagovat.
    Kopie:
     - p
jemci, kte
 obdr
 kopii zpr
vy, ale obvykle na ni nemus
 reagovat.X
    Na v
     - p
jemci, kte
 obdr
 skrytou kopii t
to zpr
vy. Ostatn
jemci uveden
 v pol
ch Komu a Kopie neuvid
na osob v tomto poli.
 server Domino verze 5 obsahuje aplet jazyka Java, ve kter
ete vytvo
it text zpr
vy. Po zad
 adres p
te ukazatel my
i do tohoto apletu a za
te ps
t text. Tla
tka na horn
m okraji apletu slou
 k form
 textu - m
ete pou
t kurz
vu, tu
 a podtr
smo, odsazen
, odr
ky a zarovn
 textu doleva, na st
ed a doprava. V seznamech je mo
 vybrat r
 barvy textu, velikosti a typy p
sma, kter
 prohl
 podporuje. M
ete tak
 ozna
 text, klepnout na tla
tko Vytvo
it odkaz a zadat adresu URL s
 Internet. Z ozna
ho textu se pak stane aktivn
 odkaz, na kter
jemce klepnout a p
t tak p
mo na ur
 server WWW (m
-li tuto mo
nost).
vu ode
lete klepnut
m na tla
tko Odeslat v pruhu akc
rem p
kazu Odeslat, Odeslat a ulo
it nebo Ulo
it jako koncept.
    Odeslat
    - toto tla
tko slou
mu odesl
vy bez ulo
 kopie.X
    Odeslat a ulo
    - pomoc
 tohoto tla
tka zpr
vu ode
lete, p
 kopie bude ulo
ena do slo
ky Odeslan
it jako koncept
     - pomoc
 tohoto tla
tka m
ete ulo
it rozpracovanou zpr
vu, pozd
ji se k n
tit, dokon
it ji a odeslat.
    <a name="Address">
 seznamu adres
    </a>
 seznam jmen a adres
    Do pohledu Kontakty v seznamu adres lze ulo
it celou
adu informac
 o osob
ch. Pomoc
 seznamu adres m
ete vytv
et nov
 kontakty a skupiny, pl
novat sch
zky a zv
t jednotliv
ky, ps
t zpr
vy a importovat jm
na z jin
ch adres
 kontakt
 do seznamu adresX
    Co chcete ud
    Postup
    Importovat jm
na z jin
ch seznam
 adres
    Otev
ete seznam adres.X
    Klepn
te na tla
tko Importovat z adres
    Vlevo vyberte jm
na, kter
 chcete importovat.X
no importujete klepnut
m na tla
tko Nov
 polo
ky vpravo.
idat kontaktX
    Otev
ete seznam adres a klepn
te na tla
tko Nov
    Klepn
te na tla
tko Kontakt.X
    Vypl
te formul
 kontaktu a do pole El. adresa zadejte adresu elektronick
ty dan
 osoby.
    (Voliteln
) Na kart
klady, Podrobnosti a Pozn
mky zadejte jak
koli dal
 informace o t
to osob
, kter
 chcete ulo
    Klepn
te na tla
tko Ulo
it a zav
idat kontakt ze zpr
    Vyberte zpr
    Klepn
te na tla
tko P
idat odes
latele do seznamu adres.
    Zkontrolujte zobrazen
 informace o osob
 a klepn
te na tla
tko OK.
    Upravit kontaktX
    Otev
ete seznam adres a potom otev
ete kontakt.X
    Prove
te po
adovan
ny a klepn
te na tla
tko Ulo
it a zav
    Odstranit kontaktX
    Otev
ete seznam adres a vyberte kontakt.X
    Klepn
te na tla
tko Odstranit.X
    Odeslat novou zpr
vu jednomu nebo v
ce kontakt
    Otev
ete seznam adres a vyberte kontakty.
    Klepn
te na tla
tko Napsat zpr
vu. Kontakty budou p
ny do pole Komu v nov
    Napl
novat sch
zku s jedn
m nebo v
ce kontaktyX
    Otev
ete seznam adres a vyberte kontakty.
    Klepn
te na tla
tko Napl
novat sch
zku.
 seznamu adres
 do seznamu adresX
    Chcete-li zpr
vy odes
lat skupin
 osob, m
ete vytvo
it seznam adres
. Jako p
jemce zpr
vy pak nemus
te zad
vat jm
ech osob ve skupin
, ale pouze n
zev, kter
m jste pojmenovali seznam adres
. Pomoc
 seznamu adres m
ete skupin
 adresovat nov
vy a pl
novat sch
    Co chcete ud
    Postup
idat seznam adres
    Otev
ete seznam adres a klepn
te na tla
tko Nov
    Klepn
te na tla
tko Skupina.X
    Do pole N
zev skupiny zadejte po
adovan
    Do pole Popis zadejte stru
 popis.
    Do pole
lenov
 zadejte jm
na jednotliv
ch osob. Za ka
nem stiskn
te kl
vesu ENTER nebo napi
rku. Chcete-li vybrat jm
na ze seznamu adres, klepn
te na tla
tko vpravo od tohoto pole.X
    Klepn
te na tla
tko Ulo
it a zav
    Upravit seznam adres
    Otev
ete seznam adres.X
    Poklepejte v pohledu na n
zev skupiny. X
    Klepn
te na tla
tko Upravit skupinu.X
idat nebo odebrat
lenyX
    Prove
te po
adovan
ny a klepn
te na tla
tko Ulo
it a zav
    Odstranit seznam adres
    Otev
ete seznam adres.X
    Vyberte v pohledu n
zev skupiny. X
    Klepn
te na tla
tko Odstranit.X
    Klepn
te na tla
tko Vypr
zdnit ko
    Odeslat novou zpr
vu osob
m uveden
m v seznamu adres
    Otev
ete seznam adres.X
    Vyberte seznam a klepn
te na tla
tko Napsat zpr
vu.Seznam bude p
n do pole Komu u nov
    Napl
novat sch
zku s osobami uveden
mi na seznamu adres
    Otev
ete seznam adres.X
    Vyberte seznam a klepn
te na tla
tko Napl
novat sch
zku. X
    <a name="Making">X
ech mo
 kalend
    </a>
 kalend
ch a pl
novac
ch funkc
 server Domino m
ete vyu
t k organizaci sv
asu, pl
zek a p
ipomenut
ch ud
. Kalend
 lze kdykoli zobrazit klepnut
m na ikonu kalend
nou v lev
m doln
m rohu obrazovky. V lev
m panelu m
ete vybrat n
 z dal
ch pohled
, kter
 souvis
 s kalend
em. P
i vytv
ch polo
ek se kalend
uje a zobrazuje tak d
 informace o ka
 polo
ce. Dal
 podrobnosti m
ete kdykoli zobrazit klepnut
m na po
adovanou polo
 server Domino verze 5 nab
novac
 funkce, pomoc
 kter
ete pl
novat sch
zky se sv
mi kolegy. Sch
zku lze kdykoli vytvo
it klepnut
m na tla
tko Napl
novat sch
zku na pruhu akc
m se otev
e str
nka opat
emi kartami, do kter
te informace o pl
novan
zce. Karta Z
klady obsahuje
as, p
t a m
sto kon
zky a jej
 podrobn
 popis. Na kart
 Pozv
nky a rezervace m
ete vybrat jm
na osob, kter
 se maj
zky z
astnit. Po vytvo
 seznamu pozvan
ch osob m
ete klepnut
m na tla
tko Pl
rem p
kazu Zkontrolovat v
echny pl
ny zjistit, zda budou osoby v navr
enou dobu k dispozici. Ve zobrazen
m dialogov
m okn
 bude zn
na dostupnost jednotliv
zky a mo
nosti pro p
pad, nebude-li n
k k dispozici.
    Vytv
ch ud
    Krom
zek lze vytvo
it tak
 osobn
 akce, celodenn
losti, p
ipomenut
 nebo v
. Tyto polo
ete vytvo
mo v pruhu akc
 nebo tak,
e vyberete po
adovan
 typ polo
    <a name="Managing">X
va seznamu
    </a>
    Do seznamu
ejdete klepnut
m na symbol za
krtnut
 v lev
m doln
m rohu okna.
koly m
ete pou
t k p
ipomenut
ch vlastn
 (osobn
kol) nebo k p
kolu jin
m osob
m (skupinov
kol). Ode
lete-li
kol jin
ivatel
ty, budou v
s moci informovat o jeho dokon
. Seznam
 lze zobrazit podle term
nu spln
, stavu nebo kategorie, do kter
 byly jednotliv
koly za
azeny.X
    <a name="Setting">
    Nastaven
edvoleb
    </a>
edvolby po
ty a kalend
e jsou automaticky nastaveny na v
 hodnoty. Chcete-li toto nastaven
nit, klepn
te na tla
tko N
stroje a v nab
dce vyberte p
kaz P
edvolby. Str
nka s p
edvolbami je rozd
lena na dv
sti. Nejprve klepn
te na propojen
 zobrazen
 v lev
sti str
nky a po
adovan
edvolby pak nastavte v prav
sti str
nky.  X
ta / Z
klady -
     zde lze definovat vlastn
ka souboru po
ty a form
t odpov
di. Vlastn
k souboru po
ty je ur
en automaticky a obvykle jej nen
eba nijak modifikovat. M
lo by j
t o jm
no, kter
m bylo p
leno spr
vcem serveru Domino, zobrazen
 v hierarchick
m form
tu (nap
klad Jan Dusil/Organizace). Form
t odpov
di ur
uje, jak
sobem bude text odpov
di zobrazen jin
ivateli, a umo
uje odli
it va
i odpov
 od okoln
ho textu zpr
    Kalend
 / Voln
    - zde je mo
 definovat zp
sob, jak
m bude ostatn
ivatel
m zobrazen v kalend
 voln
as. Voln
ete upravit podle sv
 pracovn
 doby a v z
vislosti na tom, kdy chcete b
t k dispozici pro sch
zky po
mi osobami. Ve v
m nastaven
 mohou v
 voln
as zobrazit v
ichni u
ivatel
 syst
mu po
ty Domino. Pokud si p
ejete omezit okruh osob, kter
m bude tato informace poskytnuta, zadejte do p
ho pole jm
na osob, kter
m chcete umo
nit p
stup ke sv
mu voln
asu.X
    Kalend
 / Polo
     zde lze definovat v
 dobu trv
i akce, interval opakuj
ch se v
 a tak
sob, jak
m jsou polo
ky kalend
e zobrazeny v souboru po
ty. Polo
ky kalend
e mohou b
t zobrazeny v pohledu V
echny dokumenty, proto
e tento pohled poskytuje rychl
sob vyhled
ech dokument
 v souboru po
ty. V p
eby m
ete nastavit, aby do pohledu Odeslan
ta nebyly ukl
ny pozv
nky na sch
    Kalend
 / Automatick
 zpracov
eby m
e server Domino automaticky zpracov
vat pozv
nky na sch
zku. M
ete nap
klad automaticky p
ijmout v
echny pozv
nky, zpracovat pouze pozv
nky od vybran
ivatel
 nebo automaticky odes
lat pozv
nky jin
 osob
. Ve v
m nastaven
 nejsou automaticky zpracov
 pozv
nky.X
krtnut
ch pol
ete zabr
nit tomu, aby byly do slo
ky Do
ta ukl
ny zpracovan
dosti o sch
zku a odpov
di na pozv
    Delegov
 / Po
ta -
    Delegov
ete pou
t v p
, chcete-li jin
 osob
 poskytnout ur
itou formu p
stupu ke sv
mu souboru po
ty. Pro delegov
ty jsou k dispozici
nosti.X
Z/^6P
    PopisX
st moji po
tu a kalend
Z/^6P
ivatel
m uveden
m v tomto poli budou ve va
 datab
zi po
ty ud
lena p
stupov
va na
rovni
, tak
e budou moci
st va
tu. T
mto u
ivatel
m bude tak
leno opr
 typu
st ve
 dokumenty, tak
e budou moci zobrazit v
 kalend
st a odes
lat po
nem a
j kalend
Z/^6P
ivatel
m uveden
m v tomto poli budou ve va
 datab
zi po
ty ud
lena p
stupov
va na
rovni Autor a opr
 typu Vytv
et dokumenty, tak
e za v
s budou moci odes
lat po
tu. T
mto u
ivatel
m bude tak
leno opr
 typu
st ve
 dokumenty, tak
e budou moci zobrazit v
 kalend
st, odes
lat a upravovat dokumenty v m
m souboru po
Z/^6P
ivatel
m uveden
m v tomto poli budou ve va
 datab
zi po
ty ud
lena p
stupov
va na
rovni Editor a opr
 typu Vytv
et dokumenty, tak
e za v
s budou moci upravovat po
tu. T
mto u
ivatel
m bude tak
leno opr
 typu
st ve
 dokumenty a Ps
t do ve
ch dokument
, tak
e budou moci zobrazit v
 kalend
     vytv
et polo
ky kalend
    Odstra
ovat po
tu a polo
ky kalend
Z/^6P
ivatel
m uveden
m v tomto poli bude ve va
 datab
zi po
ty ud
leno opr
 typu Odstra
ovat dokumenty, tak
e za v
s budou moci odstra
ovat po
tu. Tito u
ivatel
t uvedeni tak
 v poli
st a odes
lat po
nem a
j kalend
 nebo
st, odes
lat a upravovat dokumenty v m
m souboru po
ty. D
ve mohli tito u
ivatel
 odstra
ovat pouze zpr
vy, kter
 sami vytvo
ili. Nyn
 mohou odstra
ovat ve
vy v datab
    Delegov
 / Kalend
ivatel
 mohou po
adovat, aby jin
 osoby mohly zobrazit
daje v jejich kalend
i, ani
 by m
stup k ostatn
m informac
m v souboru po
ty. Tuto mo
nost lze definovat pr
 zde. M
ete ur
it, zda v
 kalend
 mohou zobrazit v
ichni u
ivatel
 nebo pouze omezen
 okruh osob. Podobn
ete umo
nit tak
vu va
eho kalend
e (vytv
pravy polo
ek), a to v
ivatel
m nebo konkr
m osob
m, jejich
na zad
te do p
ho pole.
    <a name="How">
ch informac
    </a>
    Na r
stech programu naleznete propojen
 na n
du, kter
 slou
 k podrobn
mu vysv
 funkce. Pokud nap
klad pracujete v dialogov
m okn
 pro v
r adresy a nev
te, jak v seznamu adres naj
no, m
ete klepnut
m na text Za
 na: zobrazit dialogov
 okno s podrobn
m popisem t
to polo
<a href="#Top">X
t na za
    </a>
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$DesignerVersion
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
 Delivery Report
Potvrzen
 o doru
(Help)
MAIL_F_DELIVERY-REPORT
    0S0E
adit do kategorie
    0S0E
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
adit do kategorie
    0S0E
act_DELETE
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX
Potvrzen
 o doru
    Dokument:X
Subject
SubjectX
    byl doru
en adres
tovi:
IntendedRecipient
IntendedRecipientX
    dne:
DeliveryDate
BodyText zpr
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
DeliveryDate
$WINDOWTITLE
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
OBJECT
Lotus Product
'++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)
     If doc.Name(0) = "" And (doc.LastName(0) = "" And doc.FirstName(0)="") Then
          Exit Sub
     End If
     Call ParseNameField
     Call uidoc.refresh
End Sub
'++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)
    F=Evaluate(|@False|)
    T=Evaluate(|@True|)
    strFieldName = "OfficePhoneNumber"
    strPhoneNumber = doc.GetItemValue("OfficePhoneNumber")(0)
    If strPhoneNumber <> "" Then
        Call ParsePhoneNumber2(strPhoneNumber, strFieldName)
        Call uidoc.refresh
    End If
End Sub
beach
 kontakt
Kontakt:
FullName
    0S0E
wPNABSave
"Small Fonts
'++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
W32I4
 Person
Field Label
LastName
FirstName
CompanyName
FirstName
LastName"
    5S6S14SDisplayName
JobTitle
DisplayJobTitle
WebSite
    1S2S
CompanyName
    1S2S
LastName
FirstName
CompanyName
    5S6S
DisplayCompanyName
CompanyName
HomeAddress
Country

Country
BusinessAddress
OfficeZip
OfficeCountry
OfficeCountry
    25S27S28S29S
DisplayAddress
/    Telefonn
FirstNameK
no a p
vky, nap
. Jan, Honza.
Telefon do kancel
PhoneLabel1
OfficePhoneNumberTelefonn
slo do kancel
    Druh
MiddleInitialInici
la druh
ho jm
na s te
kou (nepovinn
MailSystem
    0S0E
Fax do kancel
PhoneLabel3
OfficeFAXPhoneNumberFaxov
slo do kancel
LastNameP
, nap
. Hora.
Mobiln
 telefon
PhoneLabel5
CellPhoneNumber
slo mobiln
ho telefonu.
Title
-|Dr.|Dr.Prof.|Prof.p.|Mr.p
.|Ms.sl.|Missp
.|Mrs.
         Dodatek jm
Suffix
-|ml.|Jr.st.|Sr.IIIIII
Telefon dom
PhoneLabel2
PhoneNumberTelefonn
slo dom
    Kategorie:
Category
xxNotesCats
(Neza
azeno)|N
    1S2S
xxNotesCats
CalendarProfile
NABCategories
var xxPrompt = "Zadejte novou kategorii:"
var newCat = prompt( xxPrompt, "")
if (newCat == null || newCat == "") return;
var newOpt = new Option(newCat, newCat, false, true)
var catField = document.forms[0].Category
catField.options[catField.options.length] = newOpt
idat kategorii...
AltFullName
    0S0E
Fax dom
PhoneLabel4
HomeFAXPhoneNumberFaxov
slo dom
PhoneLabel6
PhoneNumber_6Telefonn
slo oper
toru.
/    Zam
/    Elektronick
 adresa a str
nka WWW
    Spole
nost:
CompanyNameN
zev spole
nosti.
Zadejte n
zev funkce.
Zadejte adresu elektronick
ty pro tuto osobu.
    El. adresa:
MailAddress
    Funkce:
JobTitleN
zev funkce.
Zadejte adresu URL str
nky WWW dan
 osoby.
nka WWW:
WebSite
klady
/    Zam
/    Bydli
%k3=8
7%k37%
    Adresa:
BusinessAddress
    Adresa bydli
%k3=8
7%k37%
HomeAddress
Zadejte PS
 pro adresu zam
OfficeZipZadejte po
rovac
MailSystem
    0S0E
Zadejte PS
 pro adresu bydli
%k3=8
7%k37%
ZipZadejte po
rovac
Zadejte zemi pro adresu zam
OfficeCountryDomovsk
t osoby.
Zadejte zemi pro adresu bydli
%k3=8
CountryDomovsk
t osoby.
%k3=8
 kancel
e nebo po
sto kon
LocationUm
 kancel
e nebo po
no man
ela nebo man
elky.
el/man
elka:
%k3=8
SpouseJm
no man
ela nebo man
elky.
zev odd
DepartmentN
zev odd
%k3=8
ChildrenJm
no nad
ho nebo mana
era t
to osoby.
    Mana
ManagerJm
no mana
%k3=8
no asistenta nebo sekret
    Asistent:
AssistantJm
no asistenta nebo sekret
    Narozeniny:
%k3=8
Birthday
Podrobnosti
CommentZadejte pozn
    8S12S14S
    0S0E
ExcludeFromView
$NoPurge
$NoPurge
ProtectFromArchive
act_CSOK
var pathname = window.location.pathname;
var href = window.location.href;
var strPath = pathname.substring(1,(pathname.lastIndexOf('.nsf')+4));
var newurl = href.substring(0,(href.lastIndexOf('.nsf')+5))+"MailFS?OpenFrameSet&Frame=NotesView&src=%2F"+strPath+"%2FPeople%3FOpenView";
window.location.replace( newurl );
it a zav
act_CSSAVE
var xxNoGood = "U tohoto kontaktu je nutn
 zadat elektronickou adresu.";
if (document.forms[0].MailAddress.value == "") {
    alert(xxNoGood);
} else {
    document.forms[0].submit();
_Upravit vizitku
adit do kategorie
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
ky...
it zm
act_DELETE
var pathname = window.location.pathname;
var href = window.location.href;
var strPath = pathname.substring(1,(pathname.lastIndexOf('.nsf')+4));
var newurl = href.substring(0,(href.lastIndexOf('.nsf')+5))+"MailFS?OpenFrameSet&Frame=NotesView&src=%2F"+strPath+"%2FPeople%3FOpenView";
window.location.replace( newurl );
vit server WWWo
WebSite
WebSite
http://
WebSite
http://
WebSite
    3S4S6RT15RTT20RTT28RT
act_internet
Upravit kontakt(
    0S0E
act_EDIT
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Dal
    0S0E
act_goto.gif|act_goto?
t na\P
edchoz
    0S0E
act_goto.gif|act_goto?
_Upravit vizitku
adit do kategorie
Odeslat doku_mento
Po_stoupit
esunout do slo
ky...g
_Odebrat ze slo
ky...
vit server WWW.
WebSite
WebSite
http://
WebSite
http://
WebSite
    3S4S6RT15RTT20RTT28RT
Upravit kontakt
    0S0E
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
eL$[!
$Author
$Name_O
$OfficePhoneNumber_Read_O
$$Name
$$OfficePhoneNumber_Read
$Language
$LastBuildTime
$BabelInfo
$BackgroundRepeat
$BackgroundR5
$Info
$WINDOWTITLE
$WEBQuerySave
$WebFlags
$DesignerVersion
$Script
$$Script_O
$$ScriptName
Birthday
$Body
$V5ACTIONS
$ACTIONS
&Arial
people
wPNABSave
 Group
 skupina
ListNameJ
    4S6S
adit do kategorie
Upravit skupinuX
    0S0E
_Upravit skupinu
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
act_CSOK
var pathname = window.location.pathname;
var href = window.location.href;
var strPath = pathname.substring(1,(pathname.lastIndexOf('.nsf')+4));
var newurl = href.substring(0,(href.lastIndexOf('.nsf')+5))+"MailFS?OpenFrameSet&Frame=NotesView&src=%2F"+strPath+"%2FPeople%3FOpenView";
window.location.replace( newurl );
it a zav
act_CSSAVE
document.forms[0].submit();
adit do kategorie
Upravit skupinuX
    0S0E
act_EDIT
_Upravit skupinu
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
it zm
act_DELETE
var pathname = window.location.pathname;
var href = window.location.href;
var strPath = pathname.substring(1,(pathname.lastIndexOf('.nsf')+4));
var newurl = href.substring(0,(href.lastIndexOf('.nsf')+5))+"MailFS?OpenFrameSet&Frame=NotesView&src=%2F"+strPath+"%2FPeople%3FOpenView";
window.location.replace( newurl );
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX'++LotusScript Development Environment:2:5:(Options):0:74
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Rob Slapikoff-Rob
Field Label
SKUPINA
GroupTitle
ListName
ListName
    0S0E
DisplayNameX
Group
    0S0E
klady:
zev skupiny (jednotliv
zvy lze odd
rkami).
zev skupiny:
ListName^
    0S0E
ListName
eba zadat n
zev skupiny
ListName
Neplatn
 znaky v n
zvu skupiny. N
zev nesm
 obsahovat znaky '@' nebo '\'{
    3S4S6S11SListNameN
zev skupiny (jednotliv
zvy lze odd
rkami).X
Bude-li tato skupina pou
na pouze pro po
tu, vyberte mo
nost Seznam adres
. Bude-li pou
na pro p
stup k datab
m nebo server
m, vyberte mo
nost P
stup k datab
m nebo server
m, bude-li pou
na jako Seznam zam
stupu nebo jako
len tohoto seznamu, vyberte mo
nost Seznam zam
stupu.
adit do kategorie:
CategoryVyberte po
adovan
 typ t
to skupiny.
xxNotesCats
(Neza
azeno)|N
    1S2S
xxNotesCats
CalendarProfile
NABCategories
var xxPrompt = "Zadejte novou kategorii:"
var newCat = prompt( xxPrompt, "")
if (newCat == null || newCat == "") return;
var newOpt = new Option(newCat, newCat, false, true)
var catField = document.forms[0].Category
catField.options[catField.options.length] = newOpt
idat kategorii...
Popis nebo zam
 skupiny.
    Popis:
ListDescriptionPopis nebo zam
 skupiny.X
Rozli
na osob a skupin, kter
 jsou
leny t
to skupiny.
lenov
size=50
Members
    0S0E
MembersRozli
na osob a skupin, kter
 jsou
leny t
to skupiny.
DialogButton Address.GIF|Address
HotspotRectangle9
var pathname = (window.location.pathname);
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Group','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Group','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Group','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
klady
0BpBA05Eox80Bq1YBasics~}
    8S12S14S
    0S0E
ExcludeFromViewX
$NoPurge
$NoPurge
ProtectFromArchive
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SubForms
$BackgroundRepeat
$BackgroundR5
$Info
$WEBQuerySave
$WebFlags
$DesignerVersion
$$ScriptName
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Script
$Body
$$Script_O
$Language
$LastBuildTime
$BabelInfo
Times New Roman
 ArchiveLog
Protokol archivace
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
Notes only
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
Notes only
act_DELETE
history.back()
$MessageType
ArchLog.gif|ArchLog.gifX
ArchiveProfile
Archive Profile
    1S2S3S4S
Protokol archivace X
LogCount
 z celkov
ho po
LogTotal
 pro X
ArchiveDateX
Archivaci nyn
stupn
te klepnut
m na p
Soubor - Datab
ze - Vlastnosti a d
le na tla
tko Nastaven
 archivu.
Existuj
 nastaven
 archivace bude aktualizov
i prvn
m zobrazen
 tohoto dialogov
ho okna."
    1S2S3S4S5S6S7S8S9S10S11S12S2E
Tato funkce byla p
esunuta do dialogov
ho okna s vlastnostmi datab
Toto dialogov
 okno lze zp
stupnit pouze prost
ednictv
m klienta programu Notes.
    0R1S2E2S3S4S5S6S
ArchiveProfile
Archive Profile
Notes
Nmsg"
ArchiveProfile
Archive Profile
Notes
Wmsg"
    0R4S5S6S7S8S9S11S12S13S14S16R17S18S20RT22S23S24S25S26S27S29S30S31S32S34RTT35S36S38RT
ArchiveProfile
Archive Profile
    1S2S3S4S
ArchiveTrailer
ArchiveTrailer
    Hidden:  X
Protokol archivace pro
ArchiveDate
    1S2S
SubjectX
(Archive)
Categories
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
DocLife
$ManualArchivers_O
ObsoleteLife
DocumentLife
$Info
$$ScriptName
ArchiveDate
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Body
$Language
$LastBuildTime
$BabelInfo
&Arial
(GroupHelper)
'++LotusScript Development Environment:2:5:(Options):0:74
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
zev skupiny:
-bez n
GroupNameN
zev skupiny, jak bude zobrazen v seznamu adresX
    Typ skupiny:
GroupTypeVyberte po
adovan
 typ t
to skupiny.
|0Pouze seznam p
stupov
ch pr
v|2Pouze po
 seznam|1X
    Popis:
DescriptionPopis nebo zam
to skupiny.
lenov
AllAddresses
    0S0E
SelectedGroupMembersVyberte u
ivatele, kter
 chcete zahrnout do t
to skupiny
AllAddresses
AllAddresses"
    6S8S9S
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Script
$Body
$$Script_O
$Language
$LastBuildTime
$BabelInfo
&Arial
 $$ReturnAuthenticationFailure
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
function getBack() {
if (window.name ==  "" )
history.back()
 else window.close();
    0S0E
    Selh
    0S0E
[<BR><BR>]
no a heslo nelze ov
<a href="javascript: onClick=getBack()">
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
C:Ox*G
$Info
$$ScriptName
$PublicAccess
$ACTIONS
$V5ACTIONS
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
$FolderInfo
$FolderRefInfo
FOLDER_DIRECTORY_OBJECT
($Trash)
(Rules)|(Rules)|Rules
($Alarms)|$Alarms
&Arial
 (GroupCalendar)
xxNoSubject
Skupinov
 kalend
    1S2E2S
Subject
Subject
xxNoSubject
    0RR7S9S
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
lenov
MembersToAdd
Members
    1S2S6S
Members
MembersToAdd
    0R1S2S3S
SaveOptions
    0R1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
nosti zobrazen
...'++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 vDurationSel As Variant
    If ws.dialogbox("(GroupCalendarOptions)", True, True,,,,,"Mo
nosti",note,True) = False Then Exit Sub
    vDurationSel = note.getitemvalue("DurationSel")(0)
    If Isnumeric(vDurationSel) = False Then
        vDurationSel = 9
    Else
        vDurationSel = Cint(vDurationSel)
    End If
    Call note.replaceitemvalue("Duration", vDurationSel)
    Call note.replaceitemvalue("$GroupScheduleRefreshMode","1")
    Call uidoc.reload
    Call uidoc.refresh
End Sub
Zobrazit legendu
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
t legenduX
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
lenov
MembersToAdd
Members
    1S2S6S
Members
MembersToAdd
    0R1S2S3S
SaveOptions
    0R1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
act_participantactions.GIF|act_CSPARTACTIONS
nosti zobrazen
...'++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 vDurationSel As Variant
    If ws.dialogbox("(GroupCalendarOptions)", True, True,,,,,"Mo
nosti",note,True) = False Then Exit Sub
    vDurationSel = note.getitemvalue("DurationSel")(0)
    If Isnumeric(vDurationSel) = False Then
        vDurationSel = 9
    Else
        vDurationSel = Cint(vDurationSel)
    End If
    Call note.replaceitemvalue("Duration", vDurationSel)
    Call note.replaceitemvalue("$GroupScheduleRefreshMode","1")
    Call uidoc.reload
    Call uidoc.refresh
End Sub
act_TOOLS.GIF|act_TOOLSX
Zobrazit legendu
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
t legenduX
$GroupScheduleShowLegend
    1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
$GroupScheduleShowLegend
    1S2S
'++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:10
Dim uidoc As notesuidocument
Dim note As notesdocument
'++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)
    Set uidoc = source
Set note = uidoc.document
    source.fieldhelp = False
    source.horzscrollbar = False
End Sub
SaveOptionsX
ExcludeFromViewX
DurationSelX
NewDuration
DurationSel
    1S2S
NewDuration
NewDuration
    0R7S9S
Duration
StartTime
StartTime
    3S4S6S8S
StartTime
StartTime
    3S4S6S8S
StartTimeX
$NoPurge
$NoPurge
ProtectFromArchive
MembersToAdd
Members
    1S2S6S
Members
MembersToAdd
    0R1S2S3S
SaveOptions
    0R1S2S3S
$GroupScheduleRefreshMode
    0R1S2S3S
lenov
act_participantactions.GIF|act_CSPARTACTIONS
lenov
...  X
'++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 vDurationSel As Variant
    If ws.dialogbox("(GroupCalendarOptions)", True, True,,,,,"Mo
nosti",note,True) = False Then Exit Sub
    vDurationSel = note.getitemvalue("DurationSel")(0)
    If Isnumeric(vDurationSel) = False Then
        vDurationSel = 9
    Else
        vDurationSel = Cint(vDurationSel)
    End If
    Call note.replaceitemvalue("Duration", vDurationSel)
    Call note.replaceitemvalue("$GroupScheduleRefreshMode","1")
    Call note.replaceitemvalue("SaveOptions","1")
    Call uidoc.reload
    Call uidoc.refresh
End Sub
Lotus Product
W32I4
act_TOOLS.GIF|act_TOOLSX
nosti zobrazen
xxNoSubject
Skupinov
 kalend
    1S2E2S
Subject
Subject
xxNoSubject
    0RR7S9StmpTitle
CalendarView
StartTime
Duration
Members
tmpHiddenX
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
StartDate
$Info
$FrameInfo
$DesignerVersion
$$ScriptName
Duration
StartTime
$PublicAccess
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$SCRIPTOBJ_7
$Language
$LastBuildTime
$BabelInfo
&Arial
(NameHelper)
'++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$ = "Tato polo
ka v seznamu adres ji
 existuje"
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
'++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
$AlertGraphicX
AlertGraphic
AlertGraphic_1
ConflictMessage
    0S0E
GIF89a
]X_X{|<
ConflictMessage
ConflictMessageX
tmpConflictAction
tmpConflictAction
Vynechat|1Aktualizovat|2X
address1.gif|AddToAddressBookX{
Skipped
SkippedX
address.gif|tb_ADDTOADDRESSBOOKX
ConflictMessage
tb_EXCLAMATION
    3S4S
AllAddressesj
    4S5S
idat
.,$///:
TotalRecords
TotalRecords
     kontakt
 do seznamu adresX
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
    Kontakt
.,$///:
CurrentRecord
CurrentRecordZn
uje pr
 upravovanou nebo zobrazenou polo
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
    Titul:
tmpTitleTitul odes
latele
-|Dr.|Dr.Prof.|Prof.p.|Mr.p
.|Ms.sl.|Missp
.|Mrs.X
tmpFirstNameK
no odes
latele
    Druh
tmpMiddleNameDruh
no odes
latele
tmpLastNameP
 odes
latele
    Dodatek jm
tmpSuffixDodatek jm
na odes
latele
-|ml.|Jr.st.|Sr.IIIIIIX
klady
0BpBA051KsU0BpM4Basics~}
    Syst
tmpEmailTypeSyst
m zas
v odes
latele
Lotus Notes|1Lotus cc:Mail|2Internet|5X.400|4
    El. adresa:X
tmpEmailAddress
tmpEmailAddressElektronick
 adresa odes
latele
ny sm
tmpDomainDom
na, p
es kterou budou sm
ny zpr
vy tomuto u
ivateliX
IncludeX509Umo
uje odeslat zabezpe
enou po
 Internet, pokud byla zpr
va odes
latele podepsan
 certifik
tem X.509
i nalezen
 zahrnout certifik
ty X.509|1X
esnit
pBA051Oeo0BpM4Advanced~}
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
 Return Receipt
*** Zpr
va byla
ijata ***
(Help)
MAIL_F_RETURN-RECEIPT
    0S0E
adit do kategorie
    0S0E
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
adit do kategorie
    0S0E
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX
Potvrzen
    Dokument:X
Subject
SubjectX
    byl p
ijat adres
IntendedRecipient
IntendedRecipientX
    dne:
DeliveryDate
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
DeliveryDate
$WINDOWTITLE
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$Body
$Language
$LastBuildTime
$BabelInfo
&Arial
 ParticipantTable
(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
'++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, 0)
    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
tmpOriginalPeopleX
tmpOriginalRoleX
tmpOriginalStatusX
tmpSortTypeX
tmpAltNamesX
tmpSortType
    0S1S2S
tmpSortType
tmpAltNames
    1S2S3S6S7S9S11S
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
tmpRoleListX
tmpStatusList
tmpStatusListX
tmpDelegationHistory^
    4S5S
        Historie delegace:X
tmpDelegationHistory
tmpDelegationHistory
    0S0E
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$Info
$DesignerVersion
$$ScriptName
$PublicAccess
$AppHelpFormula
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
Lotus Product{Q
V0.0S
Kd{,D
^,|J,|
^d~}(
^t~}P
^T~}(
^t~}P
^T~}P
^d~}(
JT~KD~-
JT~KD~-
KD~-<
tKD~-`
&Arial
 OutOfOfficeProfile'
(Help)
MAIL_F_OUTOFOFFICEPROFILE
    0S0E
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
    7S12S
StornoB
SaveOptions
Zapnout agenta
CurrentStatus
CurrentStatus
    1S3S
Notified
    0RR1S
FirstDayOut
FirstDayOut
    0R1S
FirstDayBack
FirstDayBack
    0R1S
title
Agent Mimo kancel
 programu Lotus Notes
    0R2S
eba ur
it dny, kdy budete mimo kancel
    0R2S
Datum p
chodu mus
sledovat po dne
m datu.
    0R2S
Datum p
chodu nem
zet datum odchodu.
    0R2S
dejte mana
era nebo n
to datab
ze, aby tohoto agenta zapnul.
    0R2S
Agent Mimo kancel
 nebyl zapnut.
    0R2S
Agent Mimo kancel
 je nyn
 zapnut
. Ode
le-li v
kdo zpr
vu ve dnech
FirstDayOut
FirstDayBackV
 bude je tato zpr
va informovat o va
tomnosti.
    0R2S3S4S8S9S10S11S15S16S
dejte mana
era nebo n
to datab
ze, aby tohoto agenta vypnul.
    0R2S
Agent Mimo kancel
 je st
le zapnut
    0R2S
msg10
MKA: Pokud jste vytvo
ili polo
ku kalend
e Mimo kancel
, upravte u t
to polo
ky data tak, aby odpov
dala skute
mu datu va
eho n
vratu.
    0R2S
msg11
Agent Mimo kancel
 byl vypnut.
    0R2S
CurrentStatus
FirstDayOut
FirstDayBack
Chyba ov
eba ur
it dny, kdy budete mimo kancel
DateFirstDayBack-
Chyba ov
Zadan
 den n
vratu ji
 uplynul. Pou
 agenta Mimo kancel
 nebude povoleno.
DateFirstDayBack-
msg10
OutOfOffice
title
msgX"
title
OutOfOffice
title
msgX"
title
msg11
    0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
    7S12S
StornoB
SaveOptions
Zapnout agenta
CurrentStatus
CurrentStatus
    1S3S
Notified
    0RR1S
FirstDayOut
FirstDayOut
    0R1S
FirstDayBack
FirstDayBack
    0R1S
title
Agent Mimo kancel
 programu Lotus Notes
    0R2S
eba ur
it dny, kdy budete mimo kancel
    0R2S
Datum p
chodu mus
sledovat po dne
m datu.
    0R2S
Datum p
chodu nem
zet datum odchodu.
    0R2S
dejte mana
era nebo n
to datab
ze, aby tohoto agenta zapnul.
    0R2S
Agent Mimo kancel
 nebyl zapnut.
    0R2S
Agent Mimo kancel
 je nyn
 zapnut
. Ode
le-li v
kdo zpr
vu ve dnech
FirstDayOut
FirstDayBackV
 bude je tato zpr
va informovat o va
tomnosti.
    0R2S3S4S8S9S10S11S15S16S
dejte mana
era nebo n
to datab
ze, aby tohoto agenta vypnul.
    0R2S
Agent Mimo kancel
 je st
le zapnut
    0R2S
msg10
MKA: Pokud jste vytvo
ili polo
ku kalend
e Mimo kancel
, upravte u t
to polo
ky data tak, aby odpov
dala skute
mu datu va
eho n
vratu.
    0R2S
msg11
Agent Mimo kancel
 byl vypnut.
    0R2S
CurrentStatus
FirstDayOut
FirstDayBack
Chyba ov
eba ur
it dny, kdy budete mimo kancel
DateFirstDayBack-
Chyba ov
Zadan
 den n
vratu ji
 uplynul. Pou
 agenta Mimo kancel
 nebude povoleno.
DateFirstDayBack-
msg10
OutOfOffice
title
msgX"
title
OutOfOffice
title
msgX"
title
msg11
    0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
'++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(Source As notesuidocument)
        Set Me.m_uiws = New notesuiworkspace
        Set Me.m_noteUIDoc = Source
        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("$TableCurrentStatus","Enabled")
            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("$TableCurrentStatus","Disabled")
            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("$TableCurrentStatus","Disabled")
                    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.removeitem("AgentLastRun")
                    Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
                    Call Me.m_noteUIDoc.document.replaceitemvalue("$TableCurrentStatus","Enabled")
                    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("Chyba programu Notes: " & 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("PRINCIPAL", session.username)
                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","Mimo kancel
                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
'++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(Source)
    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
'++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
'++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
'++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
Action
Profile
    1S2S
    Always Hidden: X
.,$///:
AgentEnableOnOpen
AgentEnableOnOpenX
Notified
Notifiedz
Notified
Princ
CalendarProfile
Owner
    1S2S6S
Princ
Princ
    0R3S4S6S8S
Senderz
Sender
Fromz
Neodstra
ujte tento dokument. Jedn
 se o profil Mimo kancel
SubjectXz
Subject
ExcludeFromViewXz
ExcludeFromView
_ViewIconXz
_ViewIcon
    0S0E
TabXz
DialogStatus
.,$,  , :
Path_Info
Path_InfoX
.,$,  , :
Query_String
Query_String
TableCurrentStatus
TableCurrentStatus
CurrentStatus
    0S0E
Disabled
    Program Notes m
e automaticky odpov
dat na po
tu, kterou dostanete v dob
tomnosti. Chcete-li vyu
t agenta Mimo kancel
, zadejte data sv
tomnosti a klepn
te na tla
tko Povolit.X
CurrentStatus
CurrentStatus
    3S4S6S8S
CurrentStatus
Zapnuto | 0Vypnuto | 1Xz
CurrentStatus
Enabled
    V obdob
 mezi n
e uveden
mi daty bude program Notes automaticky odpov
dat na do
lou po
tu zpr
vou o va
tomnosti.X
    0S0E
    Mimo kancel
 budu v n
sleduj
m obdob
    Odchod:X
    0S0E
.,$ //:
pcDate
FirstDayOut
    1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
AdjustAmount
ConNext
TodayInt#
    0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayOutZadejte den odchoduz
FirstDayOut
chod:X
.,$ //:
FirstDayBack
pcDate
FirstDayBacka
    1S2S
TodayInt,
    0R1S2S
ConNext
pcDate
    0R1S2S8S11S13S
AdjustAmount
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
pcDate
    0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
AdjustAmount
pcDateW
AdjustAmount
ConNext
TodayInt#
    0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBackZadejte den n
vratuXz
FirstDayBack
BookBusyTimeVytvo
it polo
ku kalend
e s obsazen
Tyto dny ozna
it jako obsazen
BookBusyTime
    Osoby kontroluj
 kalend
 uvid
e mezi zadan
mi daty nejste k dispozici.X
KnE0BpBA05GrtE0BpCIDates~}
    Toto je v
va, kter
 bude odesl
na v dob
tomnosti. Chcete-li ur
m osob
m odpov
t jinou zpr
vou, pou
ijte kartu Zvl
    Komu:
    Komukoli
 je mimo kancel
    1S2S
GeneralSubjectz
GeneralSubject
FirstDayOut
FirstDayBack
Mimo kancel
 budu od
FirstDayOut
 a nevr
m se do "
FirstDayBackK
    3S4S5S6S7S8S10S12S13S14S21S22S23S24S31S32S
DaysOutXz
DaysOut
Na va
i zpr
vu odpov
m, jakmile se vr
GeneralMessagez
GeneralMessage
va v dob
tomnosti
 Office Message~}
    Tato zpr
va bude odesl
na pouze v p
, obdr
te-li po
tu od n
e uveden
ch osob.
    Komu:
SpecialPeople
SpecialPeopleX
 je mimo kancel
    1S2S
SpecialSubjectz
SpecialSubject
FirstDayOut
FirstDayBack
Mimo kancel
 budu od
FirstDayOut
 a vr
m se
FirstDayBackV
    3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
DaysOut_1Xz
DaysOut_1
SpecialMessage
SpecialMessagez
SpecialMessage
jE0BpCISpecial Message~}
.,$///:
ExcludeInternetEmail
Neodpov
dat automaticky na po
tu odeslanou z adres s
 Internet.|1X
    Neodpov
dat automaticky na po
tu od t
chto osob nebo skupin:
IgnoreFromList
IgnoreFromListz
IgnoreFrom
    Neodpov
dat automaticky na po
tu adresovanou t
mto skupin
IgnoreSend
IgnoreSendz
IgnoreSend
    Neodpov
dat automaticky, pokud p
t zpr
vy obsahuje tento text.
IgnoreFrom
IgnoreSubjectPhraseXz
IgnoreFrom_1
    Jednotliv
 texty um
te na nov
dek. X
    U textu jsou rozli
na mal
 a velk
smena, mus
 se proto zcela shodovat.X
jimky
0BpBA04wEV80BpOEExceptions~}
SaveOptions
SaveOptions
    0T1S
SaveOptions
    0R2RT7RTT12RT16RT
         OK    X
SaveOptions
SaveOptions
SaveOptions
    Storno X
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
W32I4
Pro pou
 tohoto tla
tka je nutn
 verze programu Notes.
    0S0E
    Zapnout
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
W32I4
Pro pou
 tohoto tla
tka je nutn
 verze programu Notes.
    0S0E
    VypnoutX
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
dateFirstDayOutXz
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
Lotus Product
W32I4
8    8    X
    0S0E
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Q5E|rt.cx]9
e7?vl
$IgnoreFrom_O
$Info
$$ScriptName
$$GeneralMessage
_ViewIcon
FirstDayOut
FirstDayBack
dateFirstDayOut
dateFirstDayBack
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$Script
$$FormScript
$$IgnoreFrom
$$IgnoreFromList
$$IgnoreSubjectPhrase
$Body
$$Script_O
$$$FormScript_O
$GeneralMessage_O
$IgnoreFromList_O
$IgnoreSubjectPhrase_O
$Language
$LastBuildTime
$BabelInfo
&Arial
 $$ReturnAuthorizationFailure
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
function getBack() {
if (window.name ==  "" )
history.back()
 else window.close();
    Selh
 autorizace
[<BR><BR>]
    K proveden
to operace nem
te opr
<a href="javascript: onClick=getBack()">
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
X`4z|
$Info
$$ScriptName
$PublicAccess
$ACTIONS
$V5ACTIONS
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
(Skupinov
 kalend
e)|Skupinov
 kalend
e|Group Calendars|(GroupCalendarFolder)
 (ReplyNotice)
tmpDocHeader
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
OdeslatX'++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 SendComments()
    uidoc.close
End Sub
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
OdeslatX'++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 SendComments()
    uidoc.close
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub SendComments
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim bAlreadySent As Integer
Dim ws As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim note As NotesDocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:SendComments:1:8
Sub SendComments
    Dim sFormname As String
    If Not bAlreadySent Then
        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")
        Call note.ReplaceItemValue("MailOptions","1")
        uidoc.Reload
        uidoc.send
        Call note.ReplaceItemValue("MailOptions","0")
        bAlreadySent = True
    End If
End Sub
'++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)
'++LotusScript Development 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
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    On Error Goto errhandle
    Call SendComments()
    Goto done
errhandle:
    Resume done
done:
End Sub
(ReplyNotice)
MailOptionsX
SaveOptionsX
tmpDocHeader
tmpDocHeader
SendTo
    Komu:     X
SendTo^
    0S0E
SendTo
CopyTo
    Kopie:    X
CopyTo^
    0S0E
CopyTo
BlindCopyTo
    Na v
BlindCopyTo
    0S0E
BlindCopyToX
Subject
tmpSubject
    Pozn
mky:X
StatusUpdate
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$Info
$$ScriptName
$PublicAccess
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$SCRIPTOBJ_6
$Language
$LastBuildTime
$BabelInfo
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
Osobn
edloha
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 Product
W32I4
 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
W32I4
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
$LangFrom
LanguagePreferencet
AltFrom
    1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
    0RR1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
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
$NoPurge
$NoPurge
ProtectFromArchive
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
V5DOTBL=true
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
IsMailStationery
    4S5S
zev p
edlohy:
MAILSTATIONERYNAME
-bez n
MAILSTATIONERYNAME
    0S0E
StatNamez
Statio
$HideMailHeader
    1RT2RT7RTT12RT13RT
tmpLogo
tmpLogo
StdNotesLtr16
    0RR1RT2RT3S4S6RTT11RT12RT
Image
tmpLogo
StdNotesLtr
Image
Gateway
tmpLogo
Image
StdNotesLtr16
tmpLogo
    0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT22RTT23RTTT24RTTT28S29S31RTTTT36RTTT40RTTT41RTT42RT
    Komu:
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    5S6S9S10S14S
EnterSendTo
    0S0E
EnterSendToSeznam prim
, jim
t zpr
va zasl
    Kopie:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    5S6S7S9S10S14S
EnterCopyTo
    0S0E
EnterCopyToSeznam osob, jim
 bude zasl
na kopie zpr
    Kopie:
CC_Content
PostedDateh
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
EnterCopyTo
    6RTTTTTT7RTTTTTTT8RTTTTTTT13RTTTTTTTT14RTTTTTTTTT15RTTTTTTTTT18RTTTTTTTTT19S20S22RTTTTTTTTT23S27S30RTTTTTTTTTT32RTTTTTTTTT33RTTTTTTTTT35RTTTTTTT36TTTTTTTRTTTTTTT37RTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0RR3RTTTTTTT4RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
    Na v
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    5S6S7S9S10S14S
EnterBlindCopyTo}
    0S0E
EnterBlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
SIZE=50
SubjectP
t zpr
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
IsMailStationery
    2S3S
HEADEROsobn
BodyText zpr
FooterOsobn
Footer
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historieh
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie1
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Po_stoupit
act_FORWARD.GIF|act_FORWARD?
Postoupit
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
Upravit
    0S1S2S
act_EDIT.GIF|act_EDIT?
Odstranitp
    0S0E
act_DELETE.GIF|act_DELETE?
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDER?
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...
act_FOLDER.GIF|act_FOLDER?
Odebrat ze slo
adit do kategorie
OOdeslat
Odeslat
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Odeslat\Odeslat a ulo
'++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
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
it jako koncept
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?
it\Jako koncept a za
'++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
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDER?
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
Adresa...
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
stroje\Vlo
it podpis...'++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?
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
rovat jako\Nov
'++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?
rovat jako\Nov
 polo
ka kalend
e'++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?
rovat jako\Nov
'++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?
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
it podpis'++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?
it jako p
edlohur
ActionInProgress
&h00000100&
IsMailStationery
    1S2S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
va podle p
edlohyw'++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, "P
edloha", "Vybrat p
edlohu ", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historie1
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
Po_stoupit
Postoupit
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
Upravit
    0S1S2S
Odstranit
    0S0E
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
ka\Odebrat ze slo
    0S0E
esunout do slo
ky...c
Odebrat ze slo
adit do kategorie
OOdeslat
Odeslat
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odeslat\Odeslat a ulo
itr'++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
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
it\Jako koncept a za
adite'++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
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
ka\Odebrat ze slo
    0S0E
Adresa...nT
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
stroje\Vlo
it podpis...'++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
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
rovat jako\Nov
'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolg'++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
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
it podpis'++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
it jako p
edlohur
ActionInProgress
&h00000100&
IsMailStationery
    1S2S
va podle p
edlohy
'++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, "P
edloha", "Vybrat p
edlohu ", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
';0(k
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$AppHelpFormula
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_21
$SCRIPTOBJ_25
$SCRIPTOBJ_34
$SCRIPTOBJ_35
$SCRIPTOBJ_36
$SCRIPTOBJ_39
$SCRIPTOBJ_42
 ReturnNonReceipt,
*** Zpr
va nebyla doru
ena ***
(Help)
MAIL_F_RETURNNONRECEIPT
    0S0E
adit do kategorie
    0S0E
Upravit dokument
Znovu odeslatX
Znovu odeslatX>
    7S12S
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
adit do kategorie
    0S0E
Upravit dokument
Znovu odeslatX
Znovu odeslatX>
    7S12S
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX
Potvrzen
 - selh
    Dokument:X
Subject
OriginalSubjectX
    nebyl p
ijat adres
IntendedRecipient
IntendedRecipientX
vod:X
FailureReason
FailureReasonX
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$WINDOWTITLE
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
OBJECT
 Trace Report
*** Zpr
va byla
 doru
ena ***
(Help)
MAIL_F_TRACE_REPORT
    0S0E
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX'++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)
                If Not Source.InPreviewPane Then
                    Call Source.Close()
                End If
            End If
        End If
    End If
    Goto    Complete
Trap:
    If Err = 4091 Then
        Resume Next
    Else
        Print("Chyba programu Notes: " & Cstr(Err) & " " &  Error$)
        Resume Next
    End If
Complete:
End Sub
va o trasov
    Trasovac
Subject
SubjectX
    dorazila na server:X
IntendedRecipient
MailServer
    dne:
DeliveryDate
Informace o trasov
RouteServers
RouteServers
RouteTimes
RouteTimes
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
DeliveryDate
$WINDOWTITLE
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$$FormScript
$Body
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
$FORWARDSEP
    ----- Postoupil
ForwardedFromX
     dne X
ForwardedDateX
     -----
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
ForwardedDate
$Body
$Language
$LastBuildTime
$BabelInfo
&Arial
 $LotusFaxMemoSubform
stupce programu Lotus FaxX
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
Inbox
CN=Lotus Notes Template Development/O=Lotus Notes
StatusUpdateBodySMTPKeepNotesItemstmpNoActionBartmpOwnerHWForm1
(TaskNotice)TaskNoticecs-CZ
000001DA
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
cs-CZ
000001E2
(Tracking Request)Tracking RequestTracking Response5
DispStatResponses
CN=Lotus Notes Template Development/O=Lotus Notes#############################
cs-CZ
000001EA
(wDelivery Options)DeliveryOptionsCD5
tmpDeliveryPrioritytmpDeliveryReporttmpReturnReceipttmpImportance
CN=Lotus Notes Template Development/O=Lotus Notes##########################
tmpDateTimeSeptmpDateTimeFormattmpTitleFormtmpSubformQuery_String
(wDlgBox)(wDlgBox)cs-CZ
000001EE
CN=Lotus Notes Template Development/O=Lotus Notes######################
(web ret Authenticate)$$ReturnAuthenticationFailurecs-CZ
000001F2
CN=Lotus Notes Template Development/O=Lotus Notes############################################
(web ret Authorize)$$ReturnAuthorizationFailurecs-CZ
000001F6
CN=Lotus Notes Template Development/O=Lotus Notes################################################
MessageString1
(web ret Error)$$ReturnGeneralErrorcs-CZ
000002EE
CN=Lotus Notes Template Development/O=Lotus Notes#############################
CurrentFoldersFolderNamefolderlistSaveOptions
(wFolderCreate)FolderCreatecs-CZ/3T
000002F2
CN=Lotus Notes Template Development/O=Lotus Notes####################################
CurrentFoldersfolderlistSaveOptions
(wFolderRemove)FolderRemovecs-CZR3T
000002F6
CN=Lotus Notes Template Development/O=Lotus Notes########################################################
AddressBooksResourcesEntryListNABs
(wResources)wResourcescs-CZ
0000030E
CN=Lotus Notes Template Development/O=Lotus Notes############################################
cs-CZM5T
000002FA
(wForward)wForward
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF5
BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
CN=Lotus Notes Template Development/O=Lotus Notes#########################
cs-CZ
000002FE
(wFreeTime)wFreeTimeCDF5
tmpFirstTimetmpResourcestmpRoomstmpSendTotmpCopyToCopyToSendTotmpChairDurationFormatHelper2TimeFormatHelper2DateFormatHelper2tmpDurationReftmpEndTimeReftmpEndDateReftmpStartTimeReftmpStartDateReftmpGridFormattmpEndTimetmpEndDatetmpStartTimetmpStartDate
CN=Lotus Notes Template Development/O=Lotus Notes##################
CDnF5
BodySubjectCopyToSendToIntendedRecipientQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
(wNonDelivery Report)NonDelivery Reportcs-CZ]6T
00000302
CN=Lotus Notes Template Development/O=Lotus Notes#########################################################
cs-CZ
0000030A
(wRepeatForm)wRepeatFormCDF5
tmpRepeatUntilYearsRepeatForUnitRepeatForRepeatUntilRepeatHowRepeatStartDateRepeatWeekendsRepeatCustomRepeatFromEndRepeatAdjustRepeatIntervalRepeatUnittmpRepeatForYearstmpRepeatUnittmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP
CN=Lotus Notes Template Development/O=Lotus Notes######
cs-CZz8T
00000306
(wPreferences)wPreferencesCDF53
tmpOwnMan$CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailUserCategoriesExcludeFromSentExcludeFromAllAutoAnniversaryRepeatDefaultDurationPreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayNABCategoriesSignature_1EnableSignatureOffSetCharFormatRepliesOwner$PreferencesPagePROTECTFROMARCHIVEpathReturnViewSaveOptions
CN=Lotus Notes Template Development/O=Lotus Notes###################################
AddressBooksRoomsEntryListNABs
(wRooms)wRoomscs-CZ
00000312
CN=Lotus Notes Template Development/O=Lotus Notes########################################################
$HLMonitorType$HLSubscription$HLFormula$HLDisabledCritFromNamesCritFromCritMeetResponseCritMeetInviteCritToDoCompleteCritToDoCritReturnReceiptCritHighPriorityCritSentDirectlyToMeCritSentOnlyToMe$QueryType$HLTitle$HLType$NoPurge$HLMLastChecked$HLMLastServer
($Subscription)$Subscriptioncs-CZ,:T
0000031A
CN=Lotus Notes Template Development/O=Lotus Notes##################
cs-CZ
00000326
_Speci
 dokument\Zpr
va s propojen
mBookmark5
BodyDueDateTimeFlowStatusInheritedSubjectInheritedDBTitleSubjectBlindCopyToCopyToSendToPath_Info$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Iriscs-CZ
0000032A
_Speci
 dokument\Telefonick
 vzkazPhone Messagew5
SubjectBodyPhoneReasonFAXNumberPhoneNumberCompanyNamePhoneCallerBlindCopyToCopyToSendTo$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
CN=Lotus Notes Template Development/O=Lotus Notes#########
29FB8414250BFCF038F51072FC347194AF5CB9E208931A2E889B51112269D913cs-CZ
00000322
va$DocMemoWord.Document$Word MemoWordPro.Document$Word Pro MemoAlternateMemo$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformw5
BodyOLEBodySubjectEnterBlindCopyToEnterCopyToEnterSendToPrincipalCopyTo$OLEObjRichTextField$OLEObjFieldDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendToInetBlindCopyToAltCopyToInetSendToInetCopyTo$StorageBcc$StorageTo$StorageCc$AltNameLanguageTags
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
cs-CZ
0000032E_Speci
 dokument\Odeslat zpr
vu mana
erovi datab
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformSymbolyF5
BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
CN=Lotus Notes Template Development/O=Lotus Notes##
$MoodsMoodscs-CZ
0000033E
CN=Lotus Notes Template Development/O=Lotus Notes####################################################
CUA3x
$LotusFaxMemoSubform1.0$LotusFaxMemoSubformcs-CZ
0000033A
CN=Lotus Notes Template Development/O=Lotus Notes################
tmpChangeWhich1(ChangeRepeat)cs-CZ
00000346
CN=Lotus Notes Template Development/O=Lotus Notes###############
CUx35
JournalPathnameJournalLocationMigrateNotepadEntriesMigratePhoneCalls
Import Org GSImportOrgGSDlgcs-CZ
00000332
CN=Lotus Notes Template Development/O=Lotus Notes############
tmpDontAskAction(DeleteSentDlg)cs-CZ?CT
00000356
CN=Lotus Notes Template Development/O=Lotus Notes#
##########################################################
##########################################################
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
 TaskNotice
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
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
Odpov
ijmoutX'++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
Odpov
t\Odm
tnoutX'++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
Odpov
t\DelegovatX'++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
Odpov
t\Navrhnout nov
asX'++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
OrgRepeat
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
Odpov
t\Dokon
eno'++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
Odpov
t s p
nkou\P
ijmout'++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
Odpov
t s p
nkou\Odm
tnout'++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
Odpov
t s p
nkou\Delegovat'++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
Odpov
t s p
nkou\Navrhnout nov
as'++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
OrgRepeat
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
Odpov
t s p
nkou\Dokon
enoX'++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
idat do seznamu
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
NOTICETYPE
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
dat informace...X'++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)", 1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
        If (uievent.SendComments) Then Call uievent.EditNotice
    End If
End Sub
tmpOwnerHW
tasktype
NoticeType
OrgRepeat
    1S2S3S4S5S6S11S12S17S18S
ijmout protin
vrh'++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)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
tnout protin
vrh'++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)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Odeslat aktualizovan
 informace...'++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))
        If (uievent.SendComments) Then Call uievent.EditNotice
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Aktualizovat informace...X'++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))
        If (uievent.SendComments) Then Call uievent.EditNotice
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
Odpov
ijmoutX'++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
Odpov
t\Odm
tnoutX'++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
Odpov
t\DelegovatX'++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
Odpov
t\Navrhnout nov
asX'++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
OrgRepeat
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
Odpov
t\Dokon
eno'++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
Odpov
t s p
nkou\P
ijmout'++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
Odpov
t s p
nkou\Odm
tnout'++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
Odpov
t s p
nkou\Delegovat'++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
Odpov
t s p
nkou\Navrhnout nov
as'++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
OrgRepeat
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
Odpov
t s p
nkou\Dokon
enoX'++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
idat do seznamu
tmpAction
 2097154
    1S2S
Broadcast
tmpNoActionBar
tmpOwnerHW
NOTICETYPE
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S
dat informace...X'++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)", 1) Then
        Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
        If (uievent.SendComments) Then Call uievent.EditNotice
    End If
End Sub
tmpOwnerHW
tasktype
NoticeType
OrgRepeat
    1S2S3S4S5S6S11S12S17S18S
ijmout protin
vrh'++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)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
tnout protin
vrh'++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)",1)
End Sub
tmpOwnerHW
NoticeType
    1S2S3S4S2E5S6S
Odeslat aktualizovan
 informace...'++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))
        If (uievent.SendComments) Then Call uievent.EditNotice
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
Aktualizovat informace...X'++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))
        If (uievent.SendComments) Then Call uievent.EditNotice
    End If
End Sub
NoticeType
$CSFlags
    1S2S3S4S9S
'++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
'++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
Notes
(wCSItems)
    3S4S
    Always Hidden: X
TaskNotice
tmpOwner
Chair
    8S11S12S21S22S
tmpOwner
Chair
    8S11S12S21S22S
tmpOwnerHW
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28S
tmpDoNotProcess
tmpOwner
BlindCopyTo
    3S4S6S8S17S18S28StmpNoActionBar
SMTPKeepNotesItems
ChairName
Chair
    1S2S
PrincipalName
Principal
Principal
tmpOwner
Chair
Chair
    0RR1S2S3RTTTTTTTT4RTTTTTTTT5S6S8RTTTTTTTTT15RTTTTTTTT16S17S19RTTTTTTTTT21RTTTTTTTT22RTTTTTTTT
xxInvitation
kolu od
ChairName
    0RR1S2S3S4S
xxReschedule
ChairName
nil pl
n tohoto
kolu"
    0R1S2S3S4S
xxCancellation
ChairName
il tento
    0R1S2S3S4S
xxConfirmation
ChairName
 potvrdil tento
    0R1S2S3S4S
xxAccept
tmpowner
chair
PrincipalName
ijal p
Tento
kol jste p
ijali
    0R1S2S5S6S8S9S10S12S
xxDecline
tmpOwner
chair
PrincipalName
tnul p
Tento
kol jste odm
    0R1S2S5S6S8S9S10S12S
xxCounter
tmpOwner
chair
PrincipalName
 navrhl zm
kolu"
Podali jste protin
vrh k p
 tohoto
    0R1S2S5S6S8S9S10S12S
xxDelegate
tmpOwner
chair
PrincipalName
 delegoval p
Tento
kol jste delegovali
    0R1S2S5S6S8S9S10S12S
xxDeleInvite
PrincipalName
 delegoval p
kol na v
    0R1S2S3S4S
xxDeclineCounter
ChairName
tnul navr
    0R1S2S3S4S
xxRefreshInfo
$CSFlags
PrincipalName
aduje aktualizovan
 informace"
Aktualizovan
 informace od
PrincipalName
    0R1S2S8S11S12S13S15RTTT16S17S
xxCompleted
PrincipalName
 dokon
    0R1S2S3S4S
xxUpdate
NoticeType
OrgStatus
ChairName
aduje va
ast na tomto
kolu"
OrgStatus
Tohoto
kolu se nad
le nemus
astnit
    0R1S2S5S6S8S11S12S14S15S16S18S19S20S22S
NoticeType
xxInvitation
xxReschedule
xxCancellation
xxConfirmation
xxAccept
xxDecline
xxCounter
xxDelegate
xxDeleInvite
xxRefreshInfo
xxDeclineCounter
xxPencilIn
xxCompleted
xxUpdate
    0R4S32S33S34STT35S36S37S38S39S40S41S42S43S44S45S46STT48S49S50S
tmpNoticeTypeX
NoticeType
    3S4S
.,$ //:
NoticeType
NewStartDate
StartDateTime
    3S4S6S8S
tmpStartDateTime
NoticeType
 term
n spln
n spln
    3S4S
.,$ //:
NoticeType
NewEndDate
DueDateTime
    3S4S6S8S
tmpEndDateTime
NoticeType
    1S2S
tek:
.,$ //:
StartDateTime
StartDateTime
    3S4S6S8S
tmpOrigStartDateTime
 term
n spln
.,$ //:
DueDateTime
DueDateTime
    3S4S6S8S
tmpOrigEndDateTime
Topic
Topic
Subject
    7S9S
tmpTopic
    Vlastn
Chair
Chair
Principal
tmpChair
tmpWasMailed
principal
    3S4S14S15S
    Odeslal:
tmpSentByX
NoticeType
    1S2S
    Delegov
no na:
Delegee
tmpDelegee
klady
0BpBA056GrU0BpM4Basics~}
TaskType
    1S2S
no:    X
AssignedTo^
    0S0E
tmpRequiredX
    Nepovinn
OptionalAssignedTo^
    0S0E
tmpOptionalX
BlindCopyTo
    4S5S
    Pro informaci:    X
BlindCopyTo
tmpFYI
BA056J3o0BpM4Participants~}
OrgRepeat
    0S0E
OrgRepeat
RepeatUnit
    4S5S6S7S
tek:     X
.,$ //:
OriginalStartDate
OriginalStartDate
RepeatStartDate
RepeatStartDate
StartDateTime
    1RT2RTT7RTTT9RTT14RTTT16RTT17RTtmpRepeatStart
OrgRepeat
RepeatDates
RepeatUnit
    4S5S9S10S11S12S
    Opakov
RepeatInterval
tmpRepeatInterval
 2.|2ka
 3.|3ka
 4.|4ka
 5.|5ka
 6.|6ka
 7.|7ka
 8.|8ka
 9.|9ka
 10.|10ka
 11.|11ka
 12.|12ka
 13.|13ka
 14.|14ka
 15.|15ka
 16.|16ka
 17.|17ka
 18.|18ka
 19.|19ka
 20.|20ka
 21.|21ka
 22.|22ka
 23.|23ka
 24.|24ka
 25.|25ka
 26.|26ka
 27.|27ka
 28.|28ka
 29.|29ka
 30.|30ka
 31.|31X
RepeatUnit
tmpRepeatUnit
den|Dt
den|Wm
c|MDm
c|MProk|YDvlastn
RepeatAdjust
tmpRepeatAdjust
RepeatUnit
eda|3
tvrtek|4
tek|5
Sobota|6
RepeatUnit
1. ned
le|1.0
1. pond
1. st
eda|1.3
tvrtek|1.4
tek|1.5
1. sobota|1.6
2. ned
le|2.0
2. pond
2. st
eda|2.3
tvrtek|2.4
tek|2.5
2. sobota|2.6
3. ned
le|3.0
3. pond
3. st
eda|3.3
tvrtek|3.4
tek|3.5
3. sobota|3.6
4. ned
le|4.0
4. pond
4. st
eda|4.3
tvrtek|4.4
tek|4.5
4. sobota|4.6
posledn
le|5.0
posledn
 pond
posledn
posledn
eda|5.3
posledn
tvrtek|5.4
posledn
tek|5.5
posledn
 sobota|5.6
RepeatUnit
1. den|1
2. den|2
3. den|3
4. den|4
5. den|5
6. den|6
7. den|7
8. den|8
9. den|9
10. den|10
11. den|11
12. den|12
13. den|13
14. den|14
15. den|15
16. den|16
17. den|17
18. den|18
19. den|19
20. den|20
21. den|21
22. den|22
23. den|23
24. den|24
25. den|25
26. den|26
27. den|27
28. den|28
29. den|29
30. den|30
31. den|31
    3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160SX
RepeatHow
tmpRepeatHow
 do|Upro|FX
RepeatFor
tmpRepeatUnit
    7S9S
RepeatHow
RepeatUntil
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
RepeatFor
RepeatForUnit
    0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
tmpRepeatUntil
RepeatUnit
(pokud datum p
ipadne na v
kend, bude sch
RepeatWeekends
esto uskute
RepeatWeekends
esunuta na p
RepeatWeekends
esunuta na pond
RepeatWeekends
esunuta na nejbli
 pracovn
RepeatWeekends
odstran
    3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
tmpRepeatWeekendsX
OrgRepeat
RepeatDates
RepeatUnit
    4S5S9S10S13S14S
    Opakov
RepeatDates
tmpRepeatDates
OrgRepeat
RepeatDates
    4S5S
    Plat
 pro:    X
RescheduleWhich
tmpAppliesTo
Pouze tato instance|0V
echny instance|1Tato instance a v
echny p
edchoz
 instance|2Tato instance a v
echny budouc
 instance|3X
Informace o opakov
M4Repeat Info~}
StatusUpdate
Lotus Product
W32I4
Lotus Product
W32I4
X    X    l
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
&l]@5}:[
ASSIGNSTATE
STARTDATETIME
DueDateTime
$HTMLDocumentStyles
StartDate
DueDate
$SCRIPTOBJ_22
$SCRIPTOBJ_23
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$SCRIPTOBJ_26
$SCRIPTOBJ_28
$Info
$WebFlags
$$ScriptName
$PublicAccess
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$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
$Language
$LastBuildTime
$BabelInfo
dost o sledov
'++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 = "Nezn
        Case 2
            GetString = "Ve front
        Case 4
            GetString = "Doru
eno "
        Case 8
            GetString = "Nedoru
eno "
        Case 16
            GetString = "P
eneseno "
        Case 32
            GetString = "P
enos selhal "
        Case  64
            GetString = "Skupina byla roz
ena "
        Case 65
            GetString = "Zpr
va pro "
        Case 66
            GetString = "Stav zobrazen
: "
        Case 67
            GetString = "v: "
        Case 68
            GetString = "Nezn
 stav "
        Case 69
            GetString = "dne "
        Case 70
            GetString = "Nebyly p
ijaty
 odpov
di na sledov
. "
        Case 71
            GetString = "Jin
vy o doru
. (Nejsou dostupn
 informace o sledov
.) "
        Case 72
            GetString = "Nep
 "
        Case 73
            GetString = "
 "
        Case 74
            GetString = "Odstran
 "
        Case 75
            GetString = "Nedefinovan
 stav "
        Case 76
            GetString = "P
adavek na sledov
 nebyl nalezen." & Chr(10) &_
            "Zkontrolujte, zda byla tato datab
ze replikov
na s datab
, ve kter
 byla vytvo
dost o sledov
."  & Chr(10) &_
            "Pokud byl tento dokument odstran
n, je nutn
 znovu sledovat zpr
vu. "
        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_ResponseTable As NotesCSParticipantTable
    Private m_ResponseTableEntry As NotesCSParticipantInstance
    Private m_strNOTES_FORM As String
    Private m_nOtherReportsHeader As Integer
    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("Chyba programu Notes: " & 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(70)
            End If
        Else
            'none of the above, parent is probably deleted or has not replicated yet
            Call NoItemsToSummary(76)
        End If
    End Function
    Function NoItemsToSummary(nStringID As Integer)
        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(nStringID,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
            Call Me.m_uinote.document.ReplaceItemValue("Responses",Cstr(Me.m_collectionTraces.Count))
        Else
            Call Me.m_uinote.document.ReplaceItemValue("Responses","0")
        End If
    End Function
    Function OpenInEditor(note As notesdocument)
        Set Me.m_uiEditorNote =  Me.m_uiws.Editdocument(False, note, False)
        If Not Me.m_uinote.InPreviewPane Then
            Call Me.m_uinote.Close()
        End If
    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
    Function StatusToString(nStatus As Integer) As String
        Select Case nStatus
        Case 0
            StatusToString = Me.m_StringTable.GetString(68,Null)
        Case 1
            StatusToString = Me.m_StringTable.GetString(72,Null)
        Case 2
            StatusToString = Me.m_StringTable.GetString(73,Null)
        Case 3
            StatusToString = Me.m_StringTable.GetString(74,Null)
        Case Else
            StatusToString = Me.m_StringTable.GetString(75,Null)
        End Select
    End Function
    Private Function CreateParticipantTable() As Integer
        Set Me.m_ResponseTable = New NotesCSParticipantTable(2)
        Set Me.m_noteTrace = Me.m_collectionTraces.GetFirstDocument()
        Do While Not Me.m_noteTrace Is Nothing
            If Isnumeric(Me.m_noteTrace.GetItemValue("$MTSEQNUM")(0)) Then
                Call Me.m_ResponseTable.AddInstance(Me.m_noteTrace.noteid, 0, Cint(Me.m_noteTrace.GetItemValue("$MTSEQNUM")(0)))
            Else
                Call Me.m_ResponseTable.AddInstance(Me.m_noteTrace.noteid, 0, -1)
            End If
            Set Me.m_noteTrace = Me.m_collectionTraces.GetNextDocument(Me.m_noteTrace)
        Loop
    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")
        Call CreateParticipantTable()
        Set Me.m_ResponseTableEntry = Me.m_ResponseTable.GetFirstInstance()
        Do While Not(Me.m_ResponseTableEntry Is Nothing)
            Set Me.m_noteTrace = Me.m_session.Currentdatabase.GetDocumentByID(Me.m_ResponseTableEntry.ReplyTo)
            If Not Me.m_nOtherReportsHeader Then
                If Me.m_ResponseTableEntry.Status < 0 Then
                    Me.m_nOtherReportsHeader = True
                    Call InitRTStyle(rtstyle,True)
                    Call rtitem.AppendStyle(rtstyle)
                    Call rtItem.Addnewline(1,True)
                    Call rtItem.AppendText(Me.m_StringTable.GetString(71,Null))
                    Call InitRTStyle(rtstyle,False)
                    Call rtitem.AppendStyle(rtstyle)
                    Call rtItem.Addnewline(1,True)
                End If
            End If
            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(Trim(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 if no error has occured
                If  Len(strMTErrStat) = 0 Then
                    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(Trim(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
                            & " " & Me.m_StringTable.GetString(66,Null) & StatusToString(Cint(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(Trim(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(Trim(Me.m_StringTable.GetString(65,Null)  & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y)) _
                            & " " & Me.m_StringTable.GetString(68,Null)))
                        Else
                            Call rtItem.AppendText(Trim(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
                End If
            Case MAIL_TRACEREPORT_FORM
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addtab(1)
                Call rtItem.AppendText(MAIL_TRACEREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("MailServer")(0))_
                & " - " & Me.m_noteTrace.GetItemValue("RouteTimes")(0))
                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.Addtab(1)
                Call rtItem.AppendText(MAIL_DELIVERYREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("IntendedRecipient")(0))_
                & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0)))
                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.Addtab(1)
                Call rtItem.AppendText(MAIL_RETURNRECEIPT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("From")(0))_
                & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0)))
                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.Addtab(1)
                Call rtItem.AppendText(Me.m_noteTrace.GetItemValue("Form")(0) & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0))                )
                Call InitRTStyle(rtstyle,False)
                Call rtitem.AppendStyle(rtstyle)
                Call rtItem.Addnewline(1,True)
            End Select
            Set Me.m_ResponseTableEntry = Me.m_ResponseTable.GetNextInstance()
        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
@    @    x
Lotus Product
W32I4
\0    +l
K0    -P
K0    -t
B~0 %
C~H %
A~` %/d
E~ !%
D~8!%
 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
W32I4
dost o sledov
jemci:
$MTINRCP
    0S0E
MTINRCP
MTINRCP
    Datum
dosti:
Created
Created
    Odpov
Responses
Responses
Responses
Informace o v
sledku sledov
DispStat
DispStat
adit do kategorie
    0S0E
_Upravit dokument
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETE?
t na\Dal
    0S0E
act_goto.gif|act_goto?
t na\P
edchoz
    0S0E
act_goto.gif|act_goto?
adit do kategorie
    0S0E
_Upravit dokumentr
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
ky...
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
DeliveryDate
$Language
$LastBuildTime
$BabelInfo
$Info
$WINDOWTITLE
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
//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();
function MakeSelected(fieldname, val) {
    for (i = 0; i < fieldname.options.length; i++) {
        fieldname.options[i].selected = false;
        if (    fieldname.options[i].value == val)
            fieldname.options[i].selected = true;
tmpImportance = document.forms[0].tmpImportance;
tmpDeliveryReport = document.forms[0].tmpDeliveryReport;
tmpDeliveryPriority = document.forms[0].tmpDeliveryPriority;
tmpReturnReceipt = document.forms[0].tmpReturnReceipt;
if (window.opener.document.forms[0].Importance.value.length > 0) {
    MakeSelected(tmpImportance, window.opener.document.forms[0].Importance.value);
    MakeSelected(tmpDeliveryReport, window.opener.document.forms[0].DeliveryReport.value);
    MakeSelected(tmpDeliveryPriority, window.opener.document.forms[0].DeliveryPriority.value);
    tmpReturnReceipt.checked = window.opener.document.forms[0].ReturnReceipt.value;
self.focus();
nosti doru
 DeliveryOptions
<FONT SIZE="2"><B>Mo
nosti doru
    <br>
javascript:alert('Poskytuje vizu
 informaci ostatn
ivatel
ty Notes / Domino. ')
itost
.,$,  , :
tmpImportance
Vysok
|1Norm
tmpImportance_1
tmpReturnReceipt
Potvrzen
tmpReturnReceipt_1
javascript:alert('Ur
ete, jak podrobn
 chcete b
t informov
ni o doru
to zpr
vy.')
va o doru
tmpDeliveryReport
Pouze p
i selh
|BPotvrdit doru
|CTrasovat celou cestu|T
tmpDeliveryReport_1
javascript:alert('Zvolte prioritu, s jakou bude zpr
va za
azena do fronty odchoz
ch zpr
v na serveru.')
    Priorita doru
tmpDeliveryPriority
Vysok
|HNorm
tmpDeliveryPriority_1
OKClick()
       OK
CancelClick()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$HTMLCode
$Info
$WINDOWTITLE
$DesignerVersion
$$ScriptName
$Body
 (wDlgBox)
Lotus Notes
thisform = document.forms[0]
parentwnd = window.opener
parentform = parentwnd.document.forms[0]
if (thisform.tmpSubform.value=='(InviteeReplyDlg)')
    if (thisform.tmpActionType.value=='T' )
        // This requires the date fields to be filled in
        if (parentform.tmpWebStartDateTime.value!="")
            thisform.NewStartDate.value = parentform.tmpWebStartDateTime.value.substring(0,parentform.tmpWebStartDateTime.value.indexOf(' '))
            thisform.NewEndDate.value = parentform.tmpWebEndDateTime.value.substring(0,parentform.tmpWebEndDateTime.value.indexOf(' '))
            thisform.NewStartTime.value = parentform.tmpWebStartDateTime.value.substring(parentform.tmpWebStartDateTime.value.indexOf(' '))
            thisform.NewEndTime.value = parentform.tmpWebEndDateTime.value.substring(parentform.tmpWebEndDateTime.value.indexOf(' '))
    if (thisform.tmpSubform.value=='(OwnerDlg)')
        if (thisform.tmpActionType.value=='B')
            thisform.StartDate.value = parentform.NewStartDate.value
            thisform.EndDate.value = parentform.NewEndDate.value
            thisform.StartTime.value = parentform.NewStartTime.value
            thisform.EndTime.value = parentform.NewEndTime.value
            } else
            thisform.StartDate.value = parentform.tmpWebStartDateTime.value.substring(0,parentform.tmpWebStartDateTime.value.indexOf(' '))
            thisform.EndDate.value = parentform.tmpWebEndDateTime.value.substring(0,parentform.tmpWebEndDateTime.value.indexOf(' '))
            thisform.StartTime.value = parentform.tmpWebStartDateTime.value.substring(parentform.tmpWebStartDateTime.value.indexOf(' '))
            thisform.EndTime.value = parentform.tmpWebEndDateTime.value.substring(parentform.tmpWebEndDateTime.value.indexOf(' '))
    if (thisform.tmpSubform.value == '(RepeatOpenList)')
        thisform.tmpListOfDates.value = parentform.StartDateTime.value
        thisform.tmpDateTimeFormat.value = parentform.tmpDateTimeFormat.value
        thisform.tmpDateTimeSep.value = parentform.tmpDateTimeSep.value
        copyRepeatItems()
    if (thisform.tmpSubform.value=='CSDeliveryOptions')
        loadDeliveryOptions()
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])
    datelist.options.selectedIndex=0
function loadDeliveryOptions()
    thisform = document.forms[0]
    parentwnd = window.opener
    parentform = parentwnd.document.forms[0]
    thisform.DeliveryReport.value = parentform.DeliveryReport.value
    thisform.DeliveryPriority.value = parentform.DeliveryPriority.value
    if (parentform.ReturnReceipt.value == "1") thisform.ReturnReceipt.checked = true
    if (parentform.Broadcast.value == "1") thisform.Broadcast.checked=true
    if (parentform.PreventCounter.value=="1") thisform.PreventCounter.checked=true
    if (parentform.PreventDelegate.value=="1") thisform.PreventDelegate.checked=true
Query_String
Query_String
PartialName
Query_String
&Subform=
    1S2S
PartialName
PartialName
PartialName
    0R16StmpSubform
PartialName
Query_String
&Form=`
    1S2S
PartialName
PartialName
PartialName
    0R16SForm
type=hidden
tmpDateTimeFormatX
type=hidden
tmpDateTimeSep
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
j(We4
`MT_c
@%s~@z
$Info
$WebFlags
$$ScriptName
$WINDOWTITLE
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
&Arial
 $$ReturnGeneralError
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
function getBack() {
if (window.name ==  "" )
history.back()
 else window.close();
    0S0E
    0S0E
    Odpov
[<BR><BR>]
MessageString
MessageStringX
#R&")
<a href="javascript: getBack()">
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$PublicAccess
$ACTIONS
$V5ACTIONS
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
(wFolderCreateSave)
(wFolderCreateOpen)
 FolderCreate
window.opener.parent.frames[1].location.reload();
window.close();
self.focus();
var xxAlertMsg = 'Nelze vytvo
it podslo
ku nepojmenovan
ky.';
// requires translation
function OKClick()
     thisform = document.forms[0];
     sFolderName = thisform.FolderName.value;
     if (sFolderName.indexOf('\\') == 0 || sFolderName.indexOf('\\\\') != -1)
     {
          window.alert( xxAlertMsg );
          return false;
     } else
     {
          thisform.submit();
          return true;
     }
SaveOptionsX
folderlist
    <br>
    Sem zadejte n
zev nov
ky.  X
    Chcete-li do existuj
ky vno
it novou slo
ku, zadejte
plnou cestu
    a jako odd
ijte znak
& (nap
klad Existuj
ka\Nov
ka).X
FolderName
thisform = document.forms[0];
sFolderName = thisform.FolderName.value;
if (sFolderName.indexOf('\\') == 0 || sFolderName.indexOf('\\\\') != -1)
     {
          window.alert( xxAlertMsg );
          return false;
size="40"
    <br>
    Aktu
    Novou slo
ete vno
it do n
 existuj
ky. Vyberte slo
ku v n
e uveden
m seznamu, klepn
te do pole Za
 na a zadejte n
zev nov
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);
form.FolderName.value= form.CurrentFolders.options[form.CurrentFolders.selectedIndex].text+"\\"+form.FolderName.value
    <br>
OKClick();
      OK  z
window.close()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$ScriptName
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
(wFolderCreateSave)
(wFolderCreateOpen)
 FolderRemove
window.opener.parent.frames[1].location.reload();
window.close();
self.focus();
SaveOptionsX
folderlist
    <br>
    Odebrat slo
    Z datab
ete odebrat n
kterou existuj
ku. Vyberte slo
ku ze seznamu dole a odeberte ji klepnut
m na tla
tko OK.
    Pozn
mka: Obsahuje-li slo
ka podslo
ky, budou odebr
ny spolu s nad
azenou slo
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);
    <br>
    0S0E
    0S0E
      OK
window.close()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
BsX$uR
$Info
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$ScriptName
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
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
<NOSCRIPT><H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--X
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--X
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)X
        document.write('<H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR>');
        document.close();X
//--></SCRIPT>
     X
    Kde hledat:X
names.nsf
Addressbooks
    0S0E
NABs_1
sto a prost
edky:
Size=10
EntryList
names.nsf
($Resources)
    0S0E
EntryList
AddClick(fieldResources)
idat >>
Resources
12345678901234567890123456789012Xz
Resources_1SIZE=4
RemoveClick(Resources);
      Odebrat  X
RemoveAllClick()
    Odebrat v
OKClick();
       OK
CancelClick()
     StornoX
AddressBooksz
AddressBooks
<SCRIPT LANGUAGE="JavaScript1.1">X
// For convenienceX
var fieldResources = document.forms[0].Resources;X
var fieldEntryList = document.forms[0].EntryList;X
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);X
    self.close();
function CancelClick() X
    self.close();
function AddClick(field)
    if(fieldEntryList.selectedIndex != -1)X
        for (var i=0; i < fieldEntryList.options.length; ++i)X
        if (fieldEntryList.options[i].selected)X
            {
                field.options[field.options.length] = new Option(fieldEntryList.options[i].text);X
function substring2(string, start, length){X
    return string.substring(start,start+length);X
function FixName(name)
    if (name.indexOf("CN=")!= -1)
            tmpstring=name.substring(3)
            var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));X
            tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);X
            strpos = tmpstring.indexOf("=")+1;X
            tmpstring=substring2(tmpstring,strpos,tmpstring.length);X
            while (strpos != -1)X
                if (tmpstring.indexOf("/")!= -1)
                {X
                restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);X
                if (restofname.length!=0)X
                    {                      X
                    fullname=fullname+"/"+restofname;
                    }
                strpos=tmpstring.indexOf("=");
                } else {
                    fullname=fullname+"/"+tmpstring;X
                    strpos=-1;X
                    }
            return fullname;X
        } else return name;X
function RemoveClick(field)
    if (field.length != 0){ X
    if (field.selectedIndex != -1)X
        for(var i=0;i<field.options.length ; ++i)X
                if (field.options[i].selected)
                    {
                        field.options[i] = null;
                    }
function RemoveAllClick()X
    fieldResources.options.length=0;X
function trim(str)
    for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;X
    return str.substring(i,str.length);
function stringToSelect(str,field)
    for(var  beg=0 ; beg < str.length ; beg = end+1)X
        if(-1 == (end = str.indexOf(",",beg))) end = str.length;
        var entry = trim(str.substring(beg,end));X
        if(entry!="") field.options[field.options.length++].text = entry;
function selectToString(field)
    if (field.length!=0)X
    var str = "";
    for(i=0 ; i < field.options.length-1 ; i++)
        str += field.options[i].text + ",";X
    return str += field.options[i].text;X
    } else return "";
// Grab original values from underlying document
var OrigResources;
if(window.opener)X
    OrigResources = window.opener.document.forms[0].Resources.value;
else    OrigResources = "";
// Initialize fields
RemoveAllClick();X
stringToSelect(OrigResources,fieldResources);X
//-->
</SCRIPT>X
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
$$AddressBooks
$Body
$AddressBooks_O
$Language
$LastBuildTime
$BabelInfo
$HideMailHeader
BGTableColor
if ((window.location.href.indexOf('Format'))!=-1)  {
formatchar=window.location.href.charAt(window.location.href.indexOf('Format')+7);
if (formatchar=='4')  {
 offsetchar='>>';
} else {
offsetchar='>'
 setFormattedReplyText(offsetchar);
if (window.location.protocol.indexOf('Notes:')==-1)
if (screen.width>640 && window.location.search.search(/OpenForm/) != -1) document.forms[0].SendTo.focus()
function setFormattedReplyText(offsetchar) {
var form = document.forms[0];
var offset;
var newtext = new String("");
for(i=0;i<form.elements.length;i++) {
     if(form.elements[i].editorApplet != null) {
     var replytext = new String(form.elements[i].editorApplet.getText("text//html"));
//Start parsing the string for P and BR
var regexp = /<P>/g
newtext = replytext.replace(regexp,'<P>'+offsetchar);
regexp = /<BR>/g
newtext = newtext.replace(regexp,'<BR>'+offsetchar)
form.elements[i].editorApplet.setText('TEXT/HTML',newtext );
     }
HeaderRegion
BodyRegion
 jednoduch
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 Product
W32I4
 wForward'++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
W32I4
    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
    Od koho:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
V5DOTBL=true
    Komu:
SendToz
SIZE=80
    Kopie:
CopyToz
SIZE=80
    Na v
BlindCopyTo
SIZE=80
Subject
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_Preview
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
    Odesl
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
  -
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
tmpDisplayReplyInfo_1
lohy:
    <font size=-1>
    </font>
V5DOTBL=true
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odesl
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
Odpov
zte pros
ReplyTo
  -
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
IsMailStationery
    4S5S
zev p
edlohy:
MAILSTATIONERYNAME
-bez n
MAILSTATIONERYNAME
    0S0E
StatNamez
Statio
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
    Komu:
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    5S6S9S10S14S
EnterSendTo
    0S0E
EnterSendTo
    Kopie:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    5S6S7S9S10S14S
EnterCopyTo
    0S0E
EnterCopyTo
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    11S12S13S15S16S20S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
CC_Content
BCC_Content
    0R3S4S
tmpEnterCopyTo
        Na v
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    5S6S7S9S10S14S
EnterBlindCopyTo}
    0S0E
EnterBlindCopyTo
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
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
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLY?
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Postoupit
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
Po_stoupit
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
esunout do slo
ky...
_Odebrat ze slo
Odeslatt
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Adresa...
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
rovat jako\Nov
'++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?
rovat jako\Nov
 polo
ka kalend
e'++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?
rovat jako\Nov
'++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?
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
stroje\P
idat odes
latele do seznamu adres
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
stroje\Vlo
it podpis...'++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?
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
qstring
Query_String
Query_String
Query_String
    1S2S8S11S15S18S
pathinfo
Path_Info
&ClickG
Path_Info
&Click_
Path_Info
    0R1S2S8S11S15S18S
    0R1S10S14S16S23S
qstring
OpenDocument
path"
/Memo?OpenForm&docurl="
pathinfo"
path"
/Memo?OpenForm"
    0R1S3S13S14S17S
act_NEW.GIF|act_NEW?
Postoupit
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
act_FORWARD.GIF|act_FORWARD?
Odeslat\Odeslatt
act_SEND.GIF|act_SEND?
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "1";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Odeslat a ulo
act_SEND.GIF|act_SEND?
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "2";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Ulo
it jako koncept`
tmpSendOptions
act_SEND.GIF|act_SEND?
Odpov
t\Odpov
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historie
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
FormatChar"
&All"
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Adresa...
Appointment
AppointmentType
TaskType
tmpOwner
Chair
    20S21S22S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
nosti doru
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
Upravit
    0S0E
act_EDIT.GIF|act_EDIT?
Odstranit}
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETE?
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Dal
    0S0E
act_goto.gif|act_goto?
t na\P
edchoz
    0S0E
act_goto.gif|act_goto?
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTO?
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTO?
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historie
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Postoupit0
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
Po_stoupit
Odstranit2
    0S0E
esunout do slo
ky...
_Odebrat ze slo
Odeslat|
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Adresa...
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
rovat jako\Nov
'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolS'++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
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
stroje\P
idat odes
latele do seznamu adres+<
(AddSenderToAddressBook)
    0S0E
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
stroje\Vlo
it podpis...'++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
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
qstring
Query_String
Query_String
Query_String
    1S2S8S11S15S18S
pathinfo
Path_Info
&ClickG
Path_Info
&Click_
Path_Info
    0R1S2S8S11S15S18S
    0R1S10S14S16S23S
qstring
OpenDocument
path"
/Memo?OpenForm&docurl="
pathinfo"
path"
/Memo?OpenForm"
    0R1S3S13S14S17S
PostoupitE
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
Odeslat\Ulo
it jako koncept`
tmpSendOptions
Odpov
t\Odpov
wReply
    0S0E
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historiet
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Odpov
t\Odpov
 historie
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
FormatChar"
&All"
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Upravit
    0S0E
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
Lotus Product
OBJECT
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
=>TT 9
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HTMLCode
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_24
$SCRIPTOBJ_25
$SCRIPTOBJ_26
$SCRIPTOBJ_31
var fieldStartDate;
var fieldStartTime;
var fieldEndTime;
var fieldEndDate;
var fieldSendTo;
var fieldCopyTo;
var fieldRooms;
var fieldResources;
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;
fieldRooms=document.forms[0].tmpRooms;
fieldResources=document.forms[0].tmpResources;
//Pull the current values off the underlying form
parentform = window.opener.document.forms[0]
CurrStartDate = parentform.StartDate.value;
CurrStartTime = parentform.StartTime.value;
CurrEndDate=parentform.EndDate.value;
CurrEndTime=parentform.EndTime.value;
OrigSendTo = parentform.SendTo.value;
OrigCopyTo = parentform.CopyTo.value;
//Set the dialog with the underlying document values, including previously invited
//Only want to do this the first time through
fieldStartTime.value=CurrStartTime;
fieldStartDate.value=CurrStartDate;
fieldEndTime.value=CurrEndTime;
fieldEndDate.value=CurrEndDate;
fieldSendTo.value=OrigSendTo;
if ( parentform.tmpRequired && parentform.tmpRequired.value != "")  fieldSendTo.value += "; " + parentform.tmpRequired.value;
fieldCopyTo.value=OrigCopyTo;
if ( parentform.tmpOptional && parentform.tmpOptional.value != "")  fieldCopyTo.value += "; " + parentform.tmpOptional.value;
//Set the current values as reference values
document.forms[0].tmpChair.value=parentform.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;
//Set references, pulling previously saved values as needed
fieldRooms.value = parentform.RoomToReserve.value;
if (parentform.tmpRooms.value != "") fieldRooms.value += "; " + parentform.tmpRooms.value;
fieldResources.value = parentform.Resources.value
if (parentform.tmpResources.value != "") fieldResources.value += "; " + parentform.tmpResources.value;
if ((window.location.href.indexOf("Seq"))==-1)  {
    document.links[0].onclick();
} 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;
 voln
Lotus Product
 wFreeTime
<NOSCRIPT><H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</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>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR>');
        document.close();
//--></SCRIPT>
    Doba kon
    Datum zah
as zah
tmpStartDate
document.forms[0].tmpStartDateRef.value=document.forms[0].tmpStartDate.value;

tmpStartTime
document.forms[0].tmpStartTimeRef.value=document.forms[0].tmpStartTime.value;
    Datum ukon
as ukon
tmpEndDate
document.forms[0].tmpEndDateRef.value=document.forms[0].tmpEndDate.value;

tmpEndTime
document.forms[0].tmpEndTimeRef.value=document.forms[0].tmpEndTime.value;
tmpMessages
tmpMessages
    Pokud doba kon
zky nevyhovuje v
ete nov
as zadat nebo vybrat ze seznamu doporu
. Potom klepn
te na tla
tko Obnovit.
    <br><br>
    <br>
tmpTimes
tmpTimes
ehled voln
tmpGridFormat
podle dne|0podle osoby|1
document.links[0].onclick();
tmpGridField
tmpGridField
    <br><br>
tmpStartDateTime
tmpStartDate
tmpStartTime
    1S2S10S11S12S
tmpEndDateTime
tmpEndDate
tmpEndTime
    0R1S2S10S11S12S13S
Duration
tmpEndDateTime
tmpStartDateTime#
Chair
tmpChair
    0R1S2S6S
prep attendee list
    0RR1S
tmpFirstTime
wFreeTimeGroups
    0R3S4S10S
tmpST2
tmpSendTo
    0R1S2S8S
tmpCT2
tmpCopyTo
    0R1S2S8S
tmpSendToArg
SendTo^
tmpST2
tmpST2
SendTo
    0R1S2S5S6S11S13S14S15S21S24S
tmpCopyToArg
CopyTo^
tmpCT2
tmpCT2
CopyTo
    0R1S2S5S6S11S13S14S15S21S24S
tmpRoomList
tmpRooms
    0R1S2S
tmpResourceList
tmpResources
    0R1S2S
Domino
RefreshFreeTimeGrid
tmpGridField
tmpTimes
tmpMessages
tmpStartDateRef
tmpStartTimeRef
Duration
tmpGridFormat
Chair
tmpSendToArg
tmpRoomList
tmpResourceList
tmpCopyToArg
    0RR4S6S8S10S12S28S30S32S36S45S
ftbusy.gif
sample
    Obsazeno
ftfree.gif
     Volno
ftok.gif
ftconf.gif
     Konflikt
ftno.gif
     Bez informac
ftrestrict.gif
     Omezen
 informace
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
tmpRoomList
tmpRooms
    0RR1S2S
tmpResourceList
tmpResources
    0R1S2S
perform the freetime search
    0RR1S
tmpIsEmptySelection
tmpTimes
Domino
RefreshFreeTimeGrid
tmpGridField
tmpTimes
tmpMessages
tmpStartDateRef
tmpStartTimeRef
Duration
tmpGridFormat
Chair
tmpSendToArg
tmpRoomList
tmpResourceList
tmpCopyToArg
Domino
RefreshFreeTimeGrid
tmpGridField
tmpTimes
tmpMessages
tmpDateSugg
tmpTimeSugg
tmpDurationSugg
tmpGridFormat
Chair
tmpSendToArg
tmpRoomList
tmpResourceList
tmpCopyToArg
    0R1S3S4S5S6S7S8S10R14S16S18S20S22S30S38S40S42S44S46S55S58R62S64S66S68S70S72S74S76S78S80S82S91S93S
    Obnovit
OKClick()
      OK
CancelClick()
    Storno
tmpStartDateRef
tmpStartDateRef
tmpStartTimeRef
tmpStartTimeRef
tmpEndDateRef
tmpEndDateRef
tmpEndTimeRef
tmpEndTimeRef
tmpDurationRef[<TYPE=hidden >]
DateFormatHelper2
DateFormatHelper2[<TYPE=hidden >]
TimeFormatHelper2
TimeFormatHelper2[<TYPE=hidden >]
DurationFormatHelper2
DurationFormatHelper2[<TYPE=hidden >]
tmpChair
SendTo
CopyTo
tmpCopyTo
tmpSendTo
tmpRooms
tmpResources
tmpFirstTime
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
StartDate
StartTime
EndDate
EndTime
$Language
$LastBuildTime
$BabelInfo
$HTMLCode
$Info
$WINDOWTITLE
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
tmpStartDate
tmpStartTime
tmpEndDate
tmpEndTime
$Body
&Arial
(wMemo)
(wNDROpen)
Lotus Product
 NonDelivery Report
*** Zpr
va nebyla doru
ena ***
adit do kategorie
    0S0E
Upravit dokument
Znovu odeslatX
Znovu odeslatX
$AutoSpell(
    1S3S
    0R7S9S
SaveOptions
    0R1S2S3S
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
Znovu odeslatX
Znovu odeslatX<
    0S0E
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
adit do kategorie
    0S0E
act_discardchanges.GIF|act_CSDISCARD
Upravit dokument
Znovu odeslatX
act_SEND.GIF|act_SENDX
Znovu odeslatX
$AutoSpell(
    1S3S
    0R7S9S
SaveOptions
    0R1S2S3S
act_SEND.GIF|act_SENDX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
Znovu odeslatX
act_SEND
Znovu odeslatX<
    0S0E
act_SEND.GIF|act_SENDX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX
    Always hidden: X
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
tmpNewDoc
AltFrom
    1RT2RT3S4S9RTT10RTTT11RTTT15S18RTTTT23RTTT27RTTT29RT30RT
AltFromX
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
$LangFrom
LanguagePreferencet
AltFrom
    1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
    0RR1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
    0RR1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
    0S0E
EncryptXz
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
.,$,  , :
Path_Info_DEcoded
Path_InfoX
.,$,  , :
Query_String_Decoded
Query_String
(WebSpecificFields)
    0S0E
$HideMailHeader
    0S0E
va o ne
m doru
    Dokument:X
Subject
OriginalSubjectX
    nebyl doru
en adres
toviX
IntendedRecipient
IntendedRecipient
    0S0E
IntendedRecipientX
vod:X
FailureReason
FailureReasonX
    Co byste m
    Chcete-li nedoru
iteln
 dokument znovu odeslat p
m uveden
e, pou
ijte tla
tko Odeslat znovu nebo p
kaz Opakovan
 odesl
 v nab
dce Akce.  X
    Chcete-li nedoru
iteln
 dokument znovu odeslat p
m uveden
e, klepn
te na tla
tko Odeslat znovu.  X
    Jakmile dokument ode
lete znovu, m
ete tuto zpr
vu o ne
m doru
 odstranit.
    Pokud ani opakovan
 odesl
, bude v
m zasl
na nov
va o ne
m doru
    Pokud neobdr
te dal
vy o ne
m doru
, byl dokument
 doru
em uveden
    Cesta sm
RouteServers
RouteServersServery na cest
    <BR><P>X
    Komu:X
SendToz
SIZE=80
    Kopie:
CopyToz
SIZE=80
Subject
SubjectXz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_PreviewXz
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
    Odeslal: X
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
na.Xz
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
  -
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfoXz
tmpDisplayReplyInfo_1
BodyHlavn
st dokumentu.X
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
OBJECT
(ChangeRepeat)
    Upravujete opakuj
 se polo
sobem maj
t tyto zm
ny uplatn
ny na p
 polo
tmpChangeWhich
Jen tato instance|0V
echny instance|1Tato instance a v
echny p
edchoz
 instance|2Tato instance a v
echny budouc
 instance|3X
Pro pou
 tohoto tla
tka je nutn
 verze programu Notes.
    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()
Pro pou
 tohoto tla
tka je nutn
 verze programu Notes.
    0S0E
self.close()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$PublicAccess
$Body
$Language
$LastBuildTime
$BabelInfo
parentform = window.opener.document.forms[0]
thisform = document.forms[0]
var isFirstLoad = document.location.search.indexOf("&Seq=") == -1;
if (isFirstLoad) {
   if (parentform.OrgRepeat.value == "") {
    // We have not been here before; copy the startdate value
    thisform.RepeatStartDate.value = parentform.StartDate.value
    //do some init for anniversaries.
    if (parentform.AppointmentType.value == "1") {
    thisform.RepeatUnit.options[thisform.RepeatUnit.selectedIndex].selected = false;
    setSelectOptions( thisform.RepeatUnit, "Y" );
    thisform.RepeatFor.value = thisform.tmpRepeatForYears.value;
    thisform.RepeatUntil.value = thisform.tmpRepeatUntilYears.value;
    thisform.RepeatUnit.onchange(); //trigger KW refresh
   }    else    {
     // We have been here before; pull info stored in opener
     pullRepeatInfo();
     // Don't use "thisform.RepeatUnit" when transferring next value
     // since Netscape doesn't have a "select-one" value the way
     // IE does.  You also can't get its value via selectedIndex
     // because the field may be of type "hidden" instead.  The
     // parentform version of the value is exactly what we need.
     thisform.tmpRepeatUnit.value = parentform.RepeatUnit.value;
     thisform.RepeatUnit.onchange(); // NB: causes refresh!!!
self.focus();
// Push all the pertinent "repeat" information to the "opener".
function pushRepeatInfo () {
   for (i = 0; i< thisform.elements.length; i++) {
      var item = thisform.elements[i];
      if (item.name.indexOf("Repeat") == 0) { // starts with "Repeat"
         var parentItem = parentform.elements[item.name];
         if (item.type == "radio") {
            if (item.checked) {
               parentItem.value = item.value;
            }
         } else if (item.type.indexOf("select") == 0) {
            parentItem.value = getSelectValue(item);
         } else if (item.type == "checkbox") {
            parentItem.value = item.checked ? item.value : "";
         } else { // text, textarea, hidden, ...
            parentItem.value = item.value
         }
      }
// Pull all the pertinent "repeat" information from the "opener".
function pullRepeatInfo () {
  for (var i = 0; i < thisform.elements.length; i++) {
     var item = thisform.elements[i];
     if (item.name.indexOf("Repeat") == 0) { // starts with "Repeat"
        var parentValue = parentform.elements[item.name].value
        if (item.type == "radio") {
           // item.checked = (item.value == parentValue);  // Can't code this way due to Netscape 3.0 bug.
           if (item.value == parentValue) item.checked = true;
        } else if (item.type.indexOf("select") == 0) {
           setSelectOptions (item, parentValue);
        } else if (item.type == "checkbox") {
           item.value = parentValue;
        } else { // text, textarea, hidden, ...
           item.value = parentValue;
        }
     }
// The "value" of a SELECT is defined as all its selected OPTION
// values concatenated (separated by commas).
function getSelectValue (select) {
   if (select.type == "select-one")
      return select.options[select.selectedIndex].value;

   // Type is "select-multiple"
   var answer = "";
   for (var i = 0; i < select.options.length; i++) {
      var option = select.options[i];
      if (option.selected) answer += "," + option.value;
   return answer.substring(1);
// Given a SELECT's value (see "getSelectValue"), select each
// appropriate OPTION.
function setSelectOptions (select, value) {
   // Note: We don't presently short-circuit the select-single case;
   //       "select.value = value" works for IE but not for Netscape.
   value = "," + value; // add comma to make usage of "indexOf" regular
   for (var i = 0; i < select.options.length; i++) {
      var opt = select.options[i];
      opt.selected = (value.indexOf("," + opt.value) != -1);
Informace o opakov
Lotus Product
W32I4
 wRepeatForm
 druh
 3. m
 4. m
 5. m
 6. m
 7. m
 8. m
 9. m
 10. m
 11. m
 12. m
    8R16RtmpRIMDMP
 rok|1
 druh
 rok|2
 3. rok|3
 4. rok|4
 5. rok|5
 6. rok|6
 7. rok|7
 8. rok|8
 9. rok|9
 10. rok|10
    10RtmpRIY
dy v|1
dy 2.|2
dy 3.|3
dy 4.|4
dy 5.|5
dy 6.|6
dy 7.|7
dy 8.|8
tmpRIW
 den|1
 2. den|2
 3. den|3
 4. den|4
 5. den|5
 6. den|6
 7. den|7
 8. den|8
 9. den|9
 10. den|10
 11. den|11
 12. den|12
 13. den|13
 14. den|14
 15. den|15
 16. den|16
 17. den|17
 18. den|18
 19. den|19
 20. den|20
 21. den|21
 22. den|22
 23. den|23
 24. den|24
 25. den|25
 26. den|26
 27. den|27
 28. den|28
 29. den|29
 30. den|30
 31. den|31
    10R20R30R40R50R60R
tmpRID
1. den|1
2. den|2
3. den|3
4. den|4
5. den|5
6. den|6
7. den|7
8. den|8
9. den|9
10. den|10
11. den|11
12. den|12
13. den|13
14. den|14
15. den|15
16. den|16
17. den|17
18. den|18
19. den|19
20. den|20
21. den|21
22. den|22
23. den|23
24. den|24
25. den|25
26. den|26
27. den|27
28. den|28
29. den|29
30. den|30
31. den|31
    20R38R56RtmpRAMD
eda|3
tvrtek|4
tek|5
Sobota|6
    0S0E
tmpRAW
1. ned
le|1.0
1. pond
1. st
eda|1.3
tvrtek|1.4
tek|1.5
1. sobota|1.6
2. ned
le|2.0
2. pond
2. st
eda|2.3
tvrtek|2.4
tek|2.5
2. sobota|2.6
3. ned
le|3.0
3. pond
3. st
eda|3.3
tvrtek|3.4
tek|3.5
3. sobota|3.6
4. ned
le|4.0
4. pond
4. st
eda|4.3
tvrtek|4.4
tek|4.5
4. sobota|4.6
posledn
le|5.0
posledn
 pond
posledn
posledn
eda|5.3
posledn
tvrtek|5.4
posledn
tek|5.5
posledn
 sobota|5.6
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
tmpRepeatUnit
CalendarProfile
AutoAnniversaryRepeat
    0S0E
tmpRepeatForYears
RepeatUnit
    1S2S
sob opakov
RepeatUnit
    1S2S
RepeatUnit
AppointmentType
RepeatUnit
RepeatUnit
    3S4S6S9S10S12S14S17S18S19S
RepeatUnit
RepeatUnit
RepeatForUnit
RepeatForUnit
    0R1S
tmpRepeatUnit
RepeatUnit
RepeatForUnit
RepeatUnit
tmpRepeatUnit
RepeatUnit
RepeatUnit
RepeatUnit
RepeatUnit
    0R1RT2RT3S4S6RTT7RTTT8RTTT20RTTT27RTTT33RTTT35RT36RT
RepeatUnit
Notes
 den|D
den|W
c podle data|MD
c podle dne|MP
 rok|Y
Vlastn
 den|D
den|W
c podle data|MD
c podle dne|MP
 rok|Y
    8R10R12R14R16R20R22R24R26R
RepeatInterval
RepeatInterval
    3S4S8S
RepeatUnit
RepeatInterval
eba vybrat interval opakov
    3S4S5S6S7S8S10SRepeatInterval
RepeatUnit
tmpRID
RepeatUNit
tmpRIMDMP
RepeatUNit
tmpRIY
RepeatUnit
tmpRIW
    3S4S6S8S9S10S11S12S14S16S17S18S20S22S23S24S26S28S
RepeatUnit
    1S2S
RepeatUnit
RepeatStartDate
    3S4S6S16S
RepeatUnit
RepeatAdjust
Je nutn
 vybrat alespo
 jednu mo
nost.{
    3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
RepeatUnit
RepeatUnit
tmpRAMD
RepeatUnit
tmpRAMP
RepeatUnit
tmpRAW
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26Sz
SIZE=4
RepeatUnit
    1S2S
RepeatFromEnd
t od konce m
RepeatUnit
    1S2S
    Zadejte seznam dat
RepeatCustomz
ROWS=5
RepeatUnit
    1S2S3S4S5S6S
kendy
RepeatUnit
    1S2S3S4S5S6S
    Pokud datum p
ipadne na v
kend:
RepeatWeekends
esunovat|DP
esunout na p
tek|FP
esunout na pond
esunout na nejbli
 pracovn
 den|NOdstranit|X
     Doba trv
StartDateTime
StartDateTime
    10S12S
RepeatStartDate
eba zadat datum zah
    3S4S6S11SRepeatStartDate
RepeatHow
do|Upro|F
RepeatUnit
RepeatHow
    1S2S3S4S5S6S
StartDate
RepeatStartDate
    1S2S
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
StartDate
    0R3S4S6S10S12S14S16S18S20S23S24S25S27S31S33S35S37S39S41S44S48S50S51S53S57S59S61S63S65S67S70S74S76S77S79S83S85S87S89S91S93S96S
xxFAILURE
Datum ukon
 opakov
sledovat za datem zah
 opakov
xxEMPTYDATE
Je nutn
 zadat datum zah
 i datum ukon
 opakov
RepeatHow
RepeatUntil
RepeatStartDate
xxEMPTYDATE
RepeatUntil
RepeatStartDate
xxFAILURE
    0RR1RT2RT6RTT7RTTT8RTTT10S11S12S13S14S15S18RTTTT23RTTT24S25S27RTTTT32RTTT33RTTT35RT36RTRepeatUntil
RepeatUnit
RepeatHow
    1S2S3S4S5S6S
RepeatFor
RepeatForUnit
AppointmentType
RepeatUnit
RepeatForUnit
    3S4S6S9S10S12S14SRepeatForUnit
Dny|D
    1S2S
Weeks
dny|W
    0R1S2S
Months
    0R1S2S
Years
Roky|Y
    0R1S2S
RepeatUnit
Weeks
Months
Years
RepeatUnit
Weeks
Months
Years
RepeatUnit
Months
Years
Years
    0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S
pushRepeatInfo();
// Mark the fact that we've been here!
parentform.OrgRepeat.value = "1";
self.close()
self.close()
    Storno
StartDate
RepeatStartDate
    1S2S
StartDate
tmpRepeatForYears
    0R6S8S10S12S14StmpRepeatUntilYears
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$HTMLCode
$Info
$WINDOWTITLE
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
tmpRepeatForYears
RepeatCustom
RepeatStartDate
RepeatUntil
RepeatFor
tmpRepeatUntilYears
$Body
Lotus Product
(DeleteSentDlg)
    0S0E
Cancel
Action
    Chcete odstranit vybran
 dokumenty z pohledu Odeslan
ta. Vybran
 dokumenty budou v tomto p
 odstran
ny ze v
ech slo
ek, do kter
ch pat
    Chcete v odstra
 nebo odeb
chto dokument
ji pokra
ovat v pohledu Odeslan
Action
    1S2S3S
    OdstranitX
Action
    1S2S3S
    OdebratX
Action
    1S2S3S
    Storno
tmpDontAsk
 tento dotaz ji
 nezobrazovat|1X
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
kQZRSW|
$Info
$$Script_O
$$ScriptName
$$FormAction2
$Body
$Language
$LastBuildTime
$BabelInfo
&Arial
(GroupCalendarOptions)
as zah
    Doba trv
StartTime
StartTime
    3S4S6S
StartTimeX
DurationSel
1|12|23|34|45|56|67|78|89|910|1011|1112|12X
    hod.
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
$Language
$LastBuildTime
$BabelInfo
(CSWorkFlowInput)
AppointmentType
tmpOwnerHW
    1S2E2S3S4S5S6S
    Pozvat:
SendToZadejte jm
na pozvan
ch osobz
size=80
DialogButton Address.GIF|Address
SendList_1
    0S0E
k-p0.
k-p0k-
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
    Kopie (nepovinn
CopyToZadejte jm
 kopie zpr
size=80
DialogButton Address.GIF|Address
CopyList_1
    0S0E
k-p0.
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
    Na v
 (jen pro informaci):
BlindCopyToZadejte jm
 skryt
 kopie zpr
size=80
DialogButton Address.GIF|Address
BCCList_1
    0S0E
k-p0.
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$ScriptName
$Body
$PublicAccess
Person
    3S4S6S8S2E
DisplayPersonName
Person
LastName
FirstName
MiddleInitial
    1S2S7S8S10S18S20S21S25S29S32S33S34S36S
DisplayName
Group
ListName
DisplayPersonName
FullName
DisplayPersonName
    0R1S2S5S6S8S12S16S17S19S23S26S
DisplayName
    0R4S
MAMailAddress
Person
MailSystem
MailAddress
MailAddress
FullName
FullName
FirstName
FirstName
LastName"
LastName
Group
ListName
    3S4S5S6RS14E14RS20E20RS20E26S27S29S33S36RS20E48RS21E50RS8E51S52S54RS8E61RS8E
NPName
Group
ListName
Person
FullName
    3S4S6S17S21S
MAPublicKey
Certificate
PublicKey
Certificate
PublicKey
    7S8S
AltFullName
AltFullName
GroupType
GroupType
$28$39MAMailAddressNPNameFormMAPublicKeyAltFullNameGroupType$Conflict$REF
Person
Group
    L1S2S3S4S5S6S7S8S9S
Person
    3S4S6S8S2E
DisplayPersonName
Person
LastName
FirstName
MiddleInitial
    1S2S7S8S10S18S20S21S25S29S32S33S34S36S
DisplayName
Group
ListName
DisplayPersonName
FullName
DisplayPersonName
    0R1S2S5S6S8S12S16S17S19S23S26S
DisplayName
    0R4S
MAMailAddressAdresa
MAMailAddress
Person
MailSystem
MailAddress
MailAddress
FullName
FullName
FirstName
FirstName
LastName"
LastName
Group
ListName
    3S4S5S6RS14E14RS20E20RS20E26S27S29S33S36RS20E48RS21E50RS8E51S52S54RS8E61RS8E
NPNameN
NPName
Group
ListName
Person
FullName
    3S4S6S17S21S
FormTypMAPublicKeyVe
MAPublicKey
Certificate
PublicKey
Certificate
PublicKey
    7S8S
AltFullNameAltFullName&
AltFullName
AltFullName
GroupTypeGroupType"
GroupType
GroupType
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
ky...
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...d
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
aZHF95
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$DesignerVersion
$V5ACTIONS
$ACTIONS
&Arial
Lotus Product
 NonDelivery Report
va o ne
m doru
adit do kategorie
    0S0E
Upravit dokument
Znovu odeslatX
Znovu odeslatX
xxWINDOW_TITLE
ifrov
 se nezda
xxDONT_ENCRYPT
Tuto zpr
vu se nepoda
ilo za
ifrovat.
Chcete tuto zpr
vu poslat znovu bez
ifrov
    0R2T3S4RTTTTTTTTTT
$AutoSpell(
    0RR1S3STT
Encrypt
Encrypt
    0R1S3TTTT
$$JIT
$$JIT
    0R1S3TTTTT
$$JITFailed
xxWINDOW_TITLE
xxDONT_ENCRYPT
Encrypt
$$JIT
    0RR1RT2RT7RTT8RTTT18RTTTT19RTTTTTT20RTTTTTT27RTTTTTT33RTTTTTT35RTTT36RTTT38RT39RT
    0RR1RT7RTT9RT13RT
SaveOptions
    0RR1S2S3S
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
adit do kategorie
    0S0E
act_DELETE
Upravit dokument
Znovu odeslatX
act_SEND.GIF|act_SENDX
Znovu odeslatX
xxWINDOW_TITLE
ifrov
 se nezda
xxDONT_ENCRYPT
Tuto zpr
vu se nepoda
ilo za
ifrovat.
Chcete tuto zpr
vu poslat znovu bez
ifrov
    0R2T3S4RTTTTTTTTTT
$AutoSpell(
    0RR1S3STT
Encrypt
Encrypt
    0R1S3TTTT
$$JIT
$$JIT
    0R1S3TTTTT
$$JITFailed
xxWINDOW_TITLE
xxDONT_ENCRYPT
Encrypt
$$JIT
    0RR1RT2RT7RTT8RTTT18RTTTT19RTTTTTT20RTTTTTT27RTTTTTT33RTTTTTT35RTTT36RTTT38RT39RT
    0RR1RT7RTT9RT13RT
SaveOptions
    0RR1S2S3S
act_SEND.GIF|act_SENDX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
ky...
va o ne
m doru
    Dokument:X
Subject
OriginalSubjectX
    nebyl doru
en adres
tovi:
IntendedRecipient
IntendedRecipient
    0S0E
IntendedRecipientX
vod:X
FailureReason
FailureReasonX
$HideMailHeader
    0S0E
    Co chcete ud
    Chcete-li nedoru
iteln
 dokument znovu odeslat p
m uveden
e, pou
ijte tla
tko Odeslat znovu nebo p
kaz Opakovan
 odesl
 v nab
dce Akce.  X
    Jakmile dokument ode
lete znovu, m
ete tuto zpr
vu o ne
m doru
 odstranit.
    Pokud ani opakovan
 odesl
, bude v
m zasl
na nov
va o ne
m doru
    Pokud neobdr
te dal
vy o ne
m doru
, byl dokument
 doru
em uveden
Cesta sm
RouteServers
RouteServersServery na cest
    Komu:X
NamePreference
AltSendTo
AltSendTo
SendTo
    5S6S
SendToSeznam prim
, jim
t zpr
va zasl
EnterSendTo
    Kopie:
NamePreference
AltCopyTo
AltCopyTo
CopyTo
    5S6S7S
CopyToSeznam osob, jim
 bude zasl
na kopie zpr
EnterCopyTo
    0S0E
    Datum:
.,$ //:
PostedDateY
PostedDateJ
    6S7S9S11SDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
Subject
SubjectP
t zpr
Subject_1
BodyText dokumentu.X
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
3x0/)
$Info
$WebFlags
$$Script_O
$$ScriptName
$WINDOWTITLE
$ACTIONS
$V5ACTIONS
$Body
$Language
$LastBuildTime
$BabelInfo
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
<NOSCRIPT><H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--X
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--X
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)X
        document.write('<H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR>');
        document.close();X
//--></SCRIPT>
     X
    Kde hledat:X
names.nsf
Addressbooks
    0S0E
NABs_1
sto a m
stnosti:
size=10
EntryList
names.nsf
($Rooms)
    0S0E
EntryList
AddClick(fieldRooms)
idat >>
Rooms
12345678901234567890123456789012Xz
RoomsSIZE=4
RemoveClick(Rooms);
      Odebrat  X
RemoveAllClick()
    Odebrat v
OKClick();
       OK
CancelClick()
     StornoX
AddressBooksz
AddressBooks
<SCRIPT LANGUAGE="JavaScript1.1">X
// For convenienceX
var fieldRooms = document.forms[0].Rooms;X
var fieldEntryList = document.forms[0].EntryList;X
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);X
    self.close();
function CancelClick() X
    self.close();
function AddClick(field)
    if(fieldEntryList.selectedIndex != -1)X
        for (var i=0; i < fieldEntryList.options.length; ++i)X
        if (fieldEntryList.options[i].selected)X
            {
                field.options[field.options.length] = new Option(fieldEntryList.options[i].text);X
function substring2(string, start, length){X
    return string.substring(start,start+length);X
function FixName(name)
    if (name.indexOf("CN=")!= -1)
            tmpstring=name.substring(3)
            var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));X
            tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);X
            strpos = tmpstring.indexOf("=")+1;X
            tmpstring=substring2(tmpstring,strpos,tmpstring.length);X
            while (strpos != -1)X
                if (tmpstring.indexOf("/")!= -1)
                {X
                restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);X
                if (restofname.length!=0)X
                    {                      X
                    fullname=fullname+"/"+restofname;
                    }
                strpos=tmpstring.indexOf("=");
                } else {
                    fullname=fullname+"/"+tmpstring;X
                    strpos=-1;X
                    }
            return fullname;X
        } else return name;X
function RemoveClick(field)
    if (field.length != 0){ X
    if (field.selectedIndex != -1)X
        for(var i=0;i<field.options.length ; ++i)X
                if (field.options[i].selected)
                    {
                        field.options[i] = null;
                    }
function RemoveAllClick()X
    fieldRooms.options.length=0;X
function trim(str)
    for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;X
    return str.substring(i,str.length);
function stringToSelect(str,field)
    for(var  beg=0 ; beg < str.length ; beg = end+1)X
        if(-1 == (end = str.indexOf(",",beg))) end = str.length;
        var entry = trim(str.substring(beg,end));X
        if(entry!="") field.options[field.options.length++].text = entry;
function selectToString(field)
    if (field.length!=0)X
    var str = "";
    for(i=0 ; i < field.options.length-1 ; i++)
        str += field.options[i].text + ",";X
    return str += field.options[i].text;X
    } else return "";
// Grab original values from underlying document
var OrigRooms;
if(window.opener)X
    OrigRooms = window.opener.document.forms[0].RoomToReserve.value;
else    OrigRooms = "";
// Initialize fields
RemoveAllClick();X
stringToSelect(OrigRooms,fieldRooms);X
//-->
</SCRIPT>X
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
$$AddressBooks
$Body
$AddressBooks_O
$Language
$LastBuildTime
$BabelInfo
"Small Fonts
 $Subscription
$HLTitle
    2S4S6S
(Help)
subscriptions
    0S0E
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
    2S7S12S
StornoF
SaveOptions
    1S2S3S
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
_Odebrat ze slo
    2S7S12S
act_CSOK
StornoF
SaveOptions
    1S2S3S
act_DELETE'++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
$HLMLastServer
.,$ //:
$HLMLastCheckedX
.,$,  , :
$NoPurge
.,$,  , :
$HLTypeX
xxDisabled
    1S2S
$HlDisabled
xxDisabled"
    0R2S3S4S6S7S8S10SDispDisabled
MainTable
MainTable
zev odb
ru:
Zadejte n
zev odb
$HLTitle
$HLType
    1S2S
skat:    X
$QueryType
echna p
ta | allP
ta vyhovuj
 vybran
m polo
m: | sel
QueryType
QueryType
CritSentOnlyToMe
Odesl
no pouze mn
CritSentDirectlyToMe
Odesl
mo mn
 (jsem uveden v poli
6Komu:
&)|1X
CritHighPriority
Vysok
 priorita nebo d
itost |1
CritReturnReceipt
adovat potvrzen
CritToDo
koly|1
CritToDoComplete
Dokon
koly|1
CritMeetInvite
nky na sch
zku|1
CritMeetResponse
Odpov
di na sch
zku|1X
CritFrom
Od:|1X
CritFrom
    1S2S
CritFromNamesX
    Zadejte
no (nap
klad Jan Nov
k/ABC/Prodej/CZ). Jednotliv
na odd
rkou.
xKnE0BpBA04PbRo0BpOEsel~}
    Povolen
$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
zat tento odb
r | 1X
klady
0BpBA04Ph$80BpOEBasics~}
basics
basics
    Posledn
 kontrolaX
.,$ //:
$HLMLastChecked
$HLMLastChecked
    2S3S4S6S8S
Disp$HLMLastCheckedX
    Server:
$HLMLastChecked
$HLMLastServer
$HLMLastServer
    2S3S4S6S8S9S10S12S14S18S
Disp$HLMLastServer
$HLMError
    1S2S
    Stav:
$HLMError
Disp$HLMErrorX
 informace
    ID repliky:
$HLMonitorDBh
$HLMonitorDB
Unavailable
$HLMonitorDB_Display
    Formula used:X
tAllIncommingExpression
@IsAvailable( DeliveredDate) & (!@IsAvailable( NoticeType) | NoticeType = "I" : "U" : "C" : "N")
    1S2S
$QueryType
Select
tAllIncommingExpression
Continue
    0R2S3S4S6S8S9S10S11S13S
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
tAllCrit
@False
tAllIncommingExpression
) & (
tAllCrit"
    0RR2S4S5S6S8S10S11S12S13S14S15S16S17S18S
$HLFormula
    Marker:
Subscriptions
$HLSubscriptionX
    Monitor Type:
$HLMonitorType
esnit
pBA04PYmE0BpOEAdvanced~}
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Untitled2
SizeValue
$Info
$$ScriptName
$HLMLastChecked
$WINDOWTITLE
$AppHelpFormula
$ACTIONS
$V5ACTIONS
$Script
$Body
$$Script_O
$Language
$LastBuildTime
$BabelInfo
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
va s propojen
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
(Help)
MAIL_F_LINKMESSAGE
    0S0E
Times New Roman
'++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
W32I4
 Bookmark'++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 Postsave(Source As Notesuidocument)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
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 Postopen From Source Call Postopen
    On Event Postmodechange From Source Call Postmodechange
    On Event Querysave From Source Call Querysave
    On Event Postsave From Source Call Postsave
    On Event Queryclose From Source Call Queryclose
    On Event Queryopen From Source Call Queryopen
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: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: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
Lotus Product
W32I4
    Always hidden:
Bookmark
Principal
CalendarProfile
Owner
    1S2S3S7S
Principal
Principal
    0R3S4S6S8S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
Path_Info
Path_Info
.,$,  , :
Query_String
Query_String
$HideMailHeader
    0S0E
va s propojen
?_?__
`!b`1
7`^///?
?b___
`bOOO
`<b!R
 "; "") + Subj
va s propojen
va s propojen
    Od:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     dne
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
Komu:
SendTo
CopyTo
  Kopie:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
    Komu:
MailAddress
InheritedReplyToh
InheritedReplyTo
InheritedReplyTo
InheritedFrom
    1S2S8S9S10S11S13S15S
MailAddress
    0RR
SendTo}
    0S0E
SendToSeznam prim
, jim
t zpr
va zasl
    Kopie:
CopyTo}
    0S0E
CopyToSeznam osob, jim
 bude zasl
na kopie zpr
DeliveredDate
BlindCopyTo
(Na v
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpBlindCopyTo
    Na v
BlindCopyTo
    0S0E
BlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
InheritedSubject
Subject
Subject
Topic
Topic
Title
Title
BriefDescriptionh
BriefDescription
    1S2S3S5R10S12R17S19R24S26R31S33R
va s propojen
InheritedSubjecth
InheritedSubject"
    0RR2S"
Subject
    0S0E
SubjectP
t zpr
InheritedDBTitle
InheritedSubject
FlowStatus
DueDateTime
    1S2S3S2E4S5S6S7S8S9S10S11S12S13S14S
    Informace o propojen
 k dokumentu:
InheritedDBTitle
    1S2S
    Datab
InheritedDBTitle
InheritedDBTitle
InheritedSubject
    1S2S
    Dokument:
InheritedSubject
InheritedSubject
FlowStatus
    1S2S
    Stav sledu prac
FlowStatus
FlowStatus
DueDateTime
    1S2S
    Term
n spln
DueDateTime
DueDateTime
BodyText zpr
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
      Dokument lze otev
t klepnut
m na toto propojen
    Always Hidden:
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
RemoveNoteItems
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
it a za
adit'++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
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historier
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Upravit dokument
Postoupit
    0S0E
esunout do slo
ky...
Odeslat
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
Po_stoupit
Adresa...
    0S0E
PostedDateh
    5S6S7S8S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
_Odebrat ze slo
ky...
adit do kategorie
OOdeslat
    0S0E
act_NEW.GIF|act_NEW?
PostoupitM
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
act_FORWARD.GIF|act_FORWARD?
Odpov
t\Odpov
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historiex
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historieA
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
FormatChar"
&All"
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Odeslat\Odeslat
act_SEND.GIF|act_SEND?
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "1";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Odeslat a ulo
act_SEND.GIF|act_SEND?
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "2";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Ulo
it jako koncept`
tmpSendOptions
act_SEND.GIF|act_SEND?
Adresa...
Appointment
AppointmentType
TaskType
tmpOwner
Chair
    20S21S22S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
nosti doru
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
Upravit
    0S0E
act_EDIT.GIF|act_EDIT?
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETE?
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTO?
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTO?
t na\Dal
    0S0E
act_goto.gif|act_goto?
t na\P
edchoz
    0S0E
act_goto.gif|act_goto?
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDER?
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\P
idat odes
latele do seznamu adresd<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
it a za
adit'++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
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historie
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
Upravit dokument
Postoupit
    0S0E
esunout do slo
ky...R
Odeslat
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
Po_stoupit
Adresa...
    0S0E
PostedDateh
    5S6S7S8S
_Odebrat ze slo
ky...
adit do kategorie
OOdeslat
    0S0E
Postoupit.
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
Odpov
t\Odpov
wReply
    0S0E
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historie|
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Odpov
t\Odpov
 historie
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
FormatChar"
&All"
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Odeslat\Ulo
it jako koncept`
tmpSendOptions
Upravitc
    0S0E
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
ka\Odebrat ze slo
    0S0E
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
idat odes
latele do seznamu adresa<
(AddSenderToAddressBook)
    0S0E
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$$FormPostOpenAction
ExpireDate
ReplyDate
$TypeIcon
ReplyNumber
ComposedDate
DueDate
$Language
$LastBuildTime
$BabelInfo
$AUTOLAUNCH
$Info
$WINDOWTITLE
$AppHelpFormula
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
DueDateTime
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_2
$SCRIPTOBJ_46
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
Telefonick
 vzkaz
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
(Help)
MAIL_F_PHONE-MESSAGE
    0S0E
Times New Roman
&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 Product
W32I4
 Phone Message'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
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 Postmodechange(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(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
    On Event Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Postmodechange From Source Call Postmodechange
    On Event Queryopen From Source Call Queryopen
    On Event Querymodechange From Source Call Querymodechange
    On Event Postsave From Source Call Postsave
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: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 cMemoObject.QueryClose(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: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:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Continue = cMemoObject.QueryModeChange(Source)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Call cMemoObject.PostSave()
End Sub
Lotus Product
W32I4
    Always Hidden:
Phone Message
Principal
CalendarProfile
Owner
    1S2S3S7S
Principal
Principal
    0R3S4S6S8S
FromPerson memo is from.
    0S0E
    0S0E
Encrypt
    0S0E
DefaultMailSaveOptions
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
(WebSpecificFields)
    0S0E
    Od:
Principal
Principal
FromDomain
FromDomain
FromDomain
FromDomain
    7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom
     dne
PostedDateh
PostedDate
    7S9S
tmpDisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
ReplyDate
ReplyTo
    1S2S3S4S5S6S
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
Komu:
SendTo
CopyTo
  Kopie:
CopyTo
    1S8S13S14S2E17S18S21S28S31S
    Komu:
SendTo}
    0S0E
SendToSeznam prim
, jim
t zpr
va zasl
    Kopie:
CopyTo}
    0S0E
CopyToSeznam osob, jim
 bude zasl
na kopie zpr
DeliveredDate
BlindCopyTo
(Na v
BlindCopyTo
    3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyTo
    Na v
BlindCopyTo
    0S0E
BlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
bg_MessagePad|bg_MessagePad
V dob
tomnosti
Kontakt:
PhoneCaller
z firmy
CompanyName
Telefon:
PhoneNumber
FAXNumber
PhoneReason
Volal|TZavolejte pros
m|PZavol
 znovu|WVr
 hovor|RByl zde|IVr
 se|LZanechal bal
 o sch
zku|MD
BodyText zpr
Telefonick
 vzkaz od
PhoneCaller
    1S2S
Subject
    Always Hidden:
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
Upravit dokument
Postoupit
    0S0E
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historier
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
rovat jako\Nov
va5'++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?
rovat jako\Nov
 polo
ka kalend
e'++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?
rovat jako\Nov
'++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?
esunout do slo
ky...
Informace o doru
DeliveryInfo
Informace o doru
    4S5S6S7S8S9S10S12S
Po_stoupit
    0S0E
IsMailStationeryh
PostedDateh
    6S7S
Odeslatz
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Adresa...d
    0S0E
PostedDateh
    5S6S7S8S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
_Odebrat ze slo
ky...
adit do kategorie
OOdeslat
Upravit dokument
Postoupit
    0S0E
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historie|
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historie_
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
Odstranit
    0S0E
rovat jako\Nov
'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
koln'++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
esunout do slo
ky...(
Informace o doru
DeliveryInfo
Informace o doru
    4S5S6S7S8S9S10S12S
Po_stoupit
    0S0E
IsMailStationeryh
PostedDateh
    6S7S
OdeslatC
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Adresa...
    0S0E
PostedDateh
    5S6S7S8S
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
_Odebrat ze slo
ky...
adit do kategorie
OOdeslat
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
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$Language
$LastBuildTime
$BabelInfo
$Info
$WINDOWTITLE
$AppHelpFormula
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_8
$SCRIPTOBJ_9
$SCRIPTOBJ_10
&Arial
Lotus Product
 (ListResource)
ServerName
ServerName
PublicNABFileName
PublicNABFileNameX
ViewName
ViewName
tmpCategories
NoCache
ServerName
PublicNABFileName
ViewName
    1S2S5S6S8S9S10S12S14S
tmpCategories
tmpCategories
tmpCategories
    0R6S7S8S9S11S13S
CategoryChoicesX
Importovat sv
act_IMPORTHOLIDAY|act_IMPORTHOLIDAYX
ListLabel
ListLabelX
CategoryChoices
    1S2S
SelectedItems
tmpCategories
CategoryChoices
    1S2S
tmpCategories
tmpCategories
tmpCategories
    0R6S7S8S9S11S13S
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
$Language
$LastBuildTime
$BabelInfo
&Arial
(subTrackMessage)
    Byl odesl
adavek na sledov
    Odpov
di budou doru
eny do slo
ky Do
    Tato zpr
va zobraz
 stav sm
 trasovan
tmpDontShow
Tuto zpr
 nezobrazovat|1X
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
VersionOpt|
    6S7S9S14S
$VersionOpt
    0R1S2S3S
SavedOnce
    0R1S2S3S
PostedDate(
    0R1S2S3S
DeliveredDate
    0R1S2S3S
$AutoEditMode
    0R1S2S3S
MailSaveOptions
    0R1S2S3S
VersionOpt
    0R4S
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
&Arial
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CoreEmailClasses"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class OLEUIMemoDocument As UIMemoDocument
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim cMemoObject As Variant
Class OLEUIMemoDocument As UIMemoDocument
    Private m_strProgid As String
    Private m_vOLEObject As Variant
    Private m_nUserRepliedToSender As Integer
Declare Public Function ReplyToSender()
    Function PostOpen(note As notesuidocument)
        If Not note.inpreviewpane Then
            Me.m_strProgid = note.document.GetItemValue("$OLEObjProgId")(0)
            If (note.isnewdoc) Then
                Call note.document.ReplaceItemValue("OriginalEditor", m_strProgid)
                Call note.GotoField(note.document.GetItemValue("$OLEObjField")(0))
                Call note.CreateObject("OLEObject", m_strProgid ,"")
            Else
                If Lcase(note.document.GetItemValue("OriginalEditor")(0)) = Lcase(m_strProgid) Then
                    note.editmode = True
                    Set m_vOLEObject = note.GetObject("OLEObject")
                    If Not(Isobject(m_vOLEObject)) Then
                        note.EditMode = True
                        Call note.document.ReplaceItemValue("OriginalEditor", m_strProgid)
                        Call note.GotoField(note.document.GetItemValue("$OLEObjField")(0))
                        Call note.CreateObject("OLEObject",m_strProgid,"")
                        Exit Function
                    End If
                Else
                    Call note.document.ReplaceItemValue("tmpUseOLE", "")
                    Call note.RefreshHideFormulas
                End If
            End If
            Call UIMemoDocument..PostOpen(note)
        End If
    End Function
    Public Function ReplyToSender()
        With Me.m_noteMemo
            If Len(.GetItemValue("Subject")(0)) = 0 Then
                Call .ReplaceItemValue("Subject", .GetItemValue("InheritedSubject")(0))
            End If
            If Not IsDocAltNameCandidate(Me.m_noteMemo) Then
                If Len( .GetItemValue("InheritedReplyTo")(0)) > 0  Then
                    Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedReplyTo")(0))
                Else
                    Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedFrom")(0))
                End If
            Else
                If Len( .GetItemValue("InheritedAltReplyTo")(0)) > 0  Then
                    Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedAltReplyTo")(0))
                Else
                    Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedAltFrom")(0))
                End If
            End If
            Me.m_nUserRepliedToSender = True
            Call reload()
        End With
    End Function
    Sub ReplyToAll
        'this over-rides the superclass so we can test for basic reply data
        Call MEMOReplyToAll(Me.m_noteMemo)
        If Not Me.m_nUserRepliedToSender Then
            Call ReplyToSender()
        Else
            Call Reload()
        End If
    End Sub
    Sub InsertSignature(FromMailPreference As Integer)
        '//Child class doesn't support this.
    End Sub
End Class
Lotus Product
W32I4
 AlternateMemo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postmodechange(Source As Notesuidocument)
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(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)
'++LotusScript Development 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 Querysave From Source Call Querysave
    On Event Queryclose From Source Call Queryclose
    On Event Postmodechange From Source Call Postmodechange
    On Event Postopen From Source Call Postopen
    On Event Querymodechange From Source Call Querymodechange
    On Event Queryopen From Source Call Queryopen
    On Event Postsave From Source Call Postsave
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 cMemoObject.QueryClose(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:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Continue = cMemoObject.QueryModeChange(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 cMemoObject = New OLEUIMemoDocument
    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
Lotus Product
W32I4
N<    TH    ]
N<    TT    ]
N<    T`    '
N<    Tl    ]
N<    Sx    ]
    Always Hidden:
$AltNameLanguageTags
$AltNameLanguageTags
$StorageTo
$StorageCc
    1S2S
$StorageCc
NoteHasNativeMime
    1RT2RT7RTT9RT10RT$StorageTo
$StorageBcc
$StorageBcc
InetSendTo
InetCopyTo
    1S2S
InetCopyTo
InetFrom
InetSendTo
AltSendTo
AltCopyTo
    1S2S
AltCopyTo
InetBlindCopyTo
InetBlindCopyTo
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Notes
PostedDateh
SendTo
CopyTo
Principal
InheritedSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT31S32S33S54TTTTRTT57RT59R62R
InheritedSendTo
InheritedSendTo
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
Principal
SendTo
CopyTo
Principal
InheritedAltSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT40S41S42S43S65RTTTT69S70S71S92RTTTT93RTT96RT98R101R
InheritedAltSendToz
InheritedSendTo_1
PostedDateh
ReplyTo
ReplyTo
ReplyTo
FromDomain
ReplyTo
FromDomain"
ReplyTo
    0TT1RTTT3S4S6S7S13RTTTT15RTTT17S18S19S22RTTTTT24RTTT28S29S30S31S35S36S37S38RTTTTT39S40S41S42S44RTTT45RTTTInheritedReplyToz
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
$LangFrom
LanguagePreferencet
AltFrom
    1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
    0RR1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
ParentOption
    0S0E
RouterSignedOnDelivery
EncryptedOnDelivery
GlobalPreference
GlobalPreference
ParentOption
RouterSignedOnDelivery
    0RR1RT2RT5RTT6RTTT7RTTT11RTTTT16RTTT18RTTTT23TTTRTTT24RTTT26RT27RT
Signz
ParentOption
Encrypt
    0S0E
GlobalPreference
GlobalPreference
ParentOption
    0RR1RT2RT5RTT6RTTT7RTTT11RTTTT16RTTT17RTTT19RT20RT
Encrypt
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
MailEditor
AltEditorProgID
    1S2S
OriginalEditorh
MailEditor
OriginalEditor
MailEditor
    0R7S10S11S13S14S15S18S19S20S
tmpUseOLE
tmpUseOLE
OLEBody
$OLEObjFieldz
$OLEObjField
$OLEObjRichTextFieldz
$OLEObjRichTextField
AltEditorProgID
    0S0E
$OLEObjProgID
$OLEObjProgID
.,$,  , :
Path_Info
Path_Info
.,$,  , :
Query_String
Query_String
CopyTo
InheritedSendTo
    1RT2RT5RTT7RT8RTT9RTT10S11S13RTTT15RTT16RTT17RTCopyToz
SIZE=80
CalendarProfile
Owner
Principal
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
V5DOTBL=true
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
    1RT2RT7RTT12RT13RT
tmpLogo
tmpLogo
StdNotesLtr16
    0RR1RT2RT3S4S6RTT11RT12RT
Image
tmpLogo
StdNotesLtr
Image
Gateway
tmpLogo
Image
StdNotesLtr16
tmpLogo
    0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT22RTT23RTTT24RTTT28S29S31RTTTT36RTTT40RTTT41RTT42RT
        Komu:
MailAddress
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
MailAddress
EnterSendTo
    0S0E
EnterSendToSeznam prim
, jim
t zpr
va zasl
        Kopie:
MailAddress
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
MailAddress
EnterCopyTo
    0S0E
EnterCopyToSeznam osob, jim
 bude zasl
na kopie zpr
        Kopie:
CC_Content
PostedDateh
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
EnterCopyTo
    6RTTTTTT7RTTTTTTT8RTTTTTTT13RTTTTTTTT14RTTTTTTTTT15RTTTTTTTTT18RTTTTTTTTT19S20S22RTTTTTTTTT23S27S30RTTTTTTTTTT32RTTTTTTTTT33RTTTTTTTTT35RTTTTTTT36TTTTTTTRTTTTTTT37RTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
PostedDateh
EnterBlindCopyTo
    0RR3RTTTTTTT4RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT29RTTTTTTTT31RTTTTTTT32RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
        Na v
MailAddress
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
MailAddress
EnterBlindCopyTo}
    0S0E
EnterBlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
SIZE=50
SubjectP
t zpr
ISMAILSTATIONERYh
    0S0E
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
RemoveNoteItems
tmpUseOLE
    1S2S
OLEBodyText zpr
OLEBody
tmpUseOLE
    1S2S
BodyText zpr
SaveOptions
SaveOptions
MailOptions
MailOptions
    0R1S
SaveOptions
MailOptions
act_discardchanges.GIF|act_CSDISCARD
esunout do slo
ky...x
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
Po_stoupit
_Odebrat ze slo
ky...
adit do kategorie
OOdeslat
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
Postoupit
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Upravit dokument
    0S1S2S
Odeslat>
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Odpov
t\Odpov
t odes
lateli1'++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?
Odpov
t\Odpov
'++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?
Adresa...
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDER?
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
stroje\P
idat odes
latele do seznamu adres
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
SaveOptions
SaveOptions
MailOptions
MailOptions
    0R1S
SaveOptions
MailOptions
esunout do slo
ky...
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
Po_stoupit
_Odebrat ze slo
ky...
adit do kategorie
OOdeslat
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
Postoupit_
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historieT
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historien
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
Upravit dokument
    0S1S2S
Odeslato
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odpov
t\Odpov
t odes
lateli
'++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
Odpov
t\Odpov
em0'++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
Adresa...dT
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
ka\Odebrat ze slo
    0S0E
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
stroje\P
idat odes
latele do seznamu adres
(AddSenderToAddressBook)
    0S0E
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$$FormPostOpenAction
$TypeIcon
ExpireDate
ReplyDate
ComposedDate
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_32
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
wMemo
wMemoOpen
(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
_Special\Send Memo To Database Manager'++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
dy skryto:
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
tmpNewDoc
AltFrom
    1RT2RT3S4S9RTT10RTTT11RTTT15S18RTTTT23RTTT27RTTT29RT30RT
AltFrom
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
$LangFrom
LanguagePreferencet
AltFrom
    1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
    0RR1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
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
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
V5DOTBL=true
    Komu:
SendToz
SIZE=80
    Kopie:
CopyToz
SIZE=80
    Na v
BlindCopyTo
SIZE=80
Subject
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_Preview
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
  -
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
tmpDisplayReplyInfo_1
javascript:alert('Klepnut
m na tla
tko Proch
zet m
ete vybrat soubory, kter
 chcete k t
to zpr
ipojit. Ke ka
 lze p
ipojit dv
lohy.')
lohy:
    <font size=-1>
    </font>
V5DOTBL=true
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFrom
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySent
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
IsMailStationery
    4S5S
zev p
edlohy:
MAILSTATIONERYNAME
-bez n
MAILSTATIONERYNAME
    0S0E
StatNamez
Statio
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
    Komu:
tmpNewDoc
NamePreference
AltSendTo
AltSendTo
SendTo
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    1RT2RT7RTT9RTTTTTTTTTTTT10RTTTTTTTTTTTTT11RTTTTTTTTTTTTT14S15S16S17S19RTTTTTTTTTTTTTT21RTTTTTTTTTTTTT22RTTTTTTTTTTTTT23RTTTTTTTTTTTT25RT26RTT27RTT30S31S34S35S39S42RTTT44RTT45RTT46RT&
EnterSendTo
    0S0E
EnterSendToSeznam prim
, jim
t zpr
va zasl
        Kopie:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    5S6S7S9S10S14S
EnterCopyTo
    0S0E
EnterCopyToSeznam osob, jim
 bude zasl
na kopie zpr
        Kopie:
CC_Content
PostedDateh
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
EnterCopyTo
    6RTTTTTT7RTTTTTTT8RTTTTTTT13RTTTTTTTT14RTTTTTTTTT15RTTTTTTTTT18RTTTTTTTTT19S20S22RTTTTTTTTT23S27S30RTTTTTTTTTT32RTTTTTTTTT33RTTTTTTTTT35RTTTTTTT36TTTTTTTRTTTTTTT37RTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0RR3RTTTTTTT4RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
    Na v
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    5S6S7S9S10S14S
EnterBlindCopyTo}
    0S0E
EnterBlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
SIZE=50
SubjectP
t zpr
ISMAILSTATIONERYh
    0S0E
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
tmpNewDoc
tmpNewDoc
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT365RTTT367RTTTT372RTTTTT379RTTTT380RTTTT381RTT383RT384RTRemoveNoteItems
$HideMailHeader
Symboly
PostedDate
SenderTag
Symboly
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
BodyText zpr
$Seal
    0S0E
Text t
to zpr
vy je za
ifrov
n a nelze jej zobrazit pomoc
 prohl
e. Otev
ete tuto zpr
vu pomoc
 klienta programu Notes nebo po
dejte odes
latele o neza
ifrovanou kopii zpr
tmpWebDisplayIfEncrypted
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVE?
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDER?
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLY?
adit do kategorie
_Upravit dokument
Odeslat doku_ment
PostoupitT
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
Po_stoupit
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDER?
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDER?
esunout do slo
ky...v
_Odebrat ze slo
OdeslatC
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SEND?
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILE?
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAME?
Adresa...
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
rovat jako\Nov
'++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?
rovat jako\Nov
 polo
ka kalend
e'++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?
rovat jako\Nov
'++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?
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLS?
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
stroje\P
idat odes
latele do seznamu adres
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLS?
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
stroje\Vlo
it podpis...'++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?
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLS?
qstring
Query_String
Query_String
Query_String
    1S2S8S11S15S18S
pathinfo
Path_Info
&ClickG
Path_Info
&Click_
Path_Info
    0R1S2S8S11S15S18S
    0R1S10S14S16S23S
qstring
OpenDocument
path"
/Memo?OpenForm&docurl="
pathinfo"
path"
/Memo?OpenForm"
    0R1S3S13S14S17S
act_NEW.GIF|act_NEW?
Postoupitn
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
act_FORWARD.GIF|act_FORWARD?
Odeslat\Odeslati
act_SEND.GIF|act_SEND?
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "1";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Odeslat a ulo
act_SEND.GIF|act_SEND?
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "2";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Ulo
it jako koncept`
tmpSendOptions
act_SEND.GIF|act_SEND?
Odpov
t\Odpov
wReply
    0S0E
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historie
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
FormatChar"
&All"
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Adresa...g
Appointment
AppointmentType
TaskType
tmpOwner
Chair
    20S21S22S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
nosti doru
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
Upravit:
    0S0E
act_EDIT.GIF|act_EDIT?
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETE?
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Dal
    0S0E
act_goto.gif|act_goto?
t na\P
edchoz
    0S0E
act_goto.gif|act_goto?
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTO?
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTO?
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historie1
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
adit do kategorie
_Upravit dokument
Odeslat doku_ment
Postoupit0
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
Po_stoupit
Odstranit
    0S0E
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
ka\Odebrat ze slo
    0S0E
esunout do slo
ky...
_Odebrat ze slo
Odeslat?
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
Adresa...ET
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
rovat jako\Nov
'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
'++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
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
stroje\P
idat odes
latele do seznamu adresc<
(AddSenderToAddressBook)
    0S0E
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
stroje\Vlo
it podpis...'++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
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
qstring
Query_String
Query_String
Query_String
    1S2S8S11S15S18S
pathinfo
Path_Info
&ClickG
Path_Info
&Click_
Path_Info
    0R1S2S8S11S15S18S
    0R1S10S14S16S23S
qstring
OpenDocument
path"
/Memo?OpenForm&docurl="
pathinfo"
path"
/Memo?OpenForm"
    0R1S3S13S14S17S
Postoupitd
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
Odeslat\Ulo
it jako koncept`
tmpSendOptions
Odpov
t\Odpov
wReply
    0S0E
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historieV
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
Odpov
t\Odpov
 historief
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Reply+With+History?OpenForm&ParentUNID="
&Format="
FormatChar"
&All"
path"
/Reply+With+History?OpenForm&ParentUNID="
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Upravit0
    0S0E
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WINDOWTITLE
$WEBQuerySave
$WEBQueryOpen
$AppHelpFormula
$WebFlags
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_27
$SCRIPTOBJ_28
$SCRIPTOBJ_29
$SCRIPTOBJ_34
 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
TU=W7-
$Info
$$Script_O
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
 ImportOrgGSDlg
'++LotusScript Development Environment:2:5:(Options):0:74
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++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)
'++LotusScript Development 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
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If (source.DialogBoxCanceled) Then Exit Sub
    If (Len(source.FieldGetText( "MigrateNotepadEntries")) > 0) Then
        Dim strTable As New OrgGSMigrationStringTable
        If Msgbox(strTable.getString(14,""), 1 + 16 + 0 + 0) = 2 Then
            Continue = False
        End If
    End If
End Sub
MigratePhoneCalls
st polo
ky pro vol
MigrateNotepadEntries
st polo
ky programu Pozn
 blok|1X
MigrateNotepadEntries
    1S2S
JournalLocation
t existuj
k| 1Vytvo
it nov
k| 2X
MigrateNotepadEntries
    1S2S
journal.nsf
xxFailure
eba zadat um
    1S2S
MigrateNotepadEntries
JournalPathName
xxFailure
    0R3S4S5S6S7S8S
JournalPathnameX
JournalPathname
Cesta/N
zev souboru
    1S2S3S
    Proch
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
RgxRd/o
$Info
$DesignerVersion
$$ScriptName
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
cs-CZ
0000034A(CSAltNameWorkFlowInput)CUAx35
EnterBlindCopyToBlindCopyToEnterCopyToCopyToEnterSendToSendTo1
CN=Lotus Notes Template Development/O=Lotus Noteste Development/O=Lotus Notes####
cs-CZ    DT
00000342
(AlarmOptions)AlarmOptionsCUA3x5
$AlarmSendTo$AlarmMemoOptionstmpAlarmPathtmpPlaySoundtmpAlarmPopuptmpOffsetDir$AlarmUnittmpOffset$AlarmDisabledtmpAlarmFiles1
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
cs-CZWDT
0000034E(CSWorkFlowInput)CUx35
BlindCopyToCopyToSendTo1
CN=Lotus Notes Template Development/O=Lotus Noteste Development/O=Lotus Notes################
cs-CZ
00000352
(C&S DeliveryOptions)CSDeliveryOptionsCUA3x5
EncryptSignPreventDelegatePreventCounterBroadcastReturnReceiptDeliveryPriorityDeliveryReport1
CN=Lotus Notes Template Development/O=Lotus Notes###############
CUA3x
MembersSubject$PublicAccess1(GroupCalendarDlg)cs-CZ
00000362
CN=Lotus Notes Template Development/O=Lotus Notes###############################
tmpFromInfo_1tmpPostedDateInfo_1cs-CZ
0000035A
(Delivery Info)DeliveryInfoCDU3x51
CN=Lotus Notes Template Development/O=Lotus Notes##################################################
CUA3x
DurationSelStartTime(GroupCalendarOptions)cs-CZ
00000366
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
cs-CZ
0000035E
(Delivery Options)DeliveryOptionsCDU3wx5
SenderTagMailFormatSMTPEncodingMIMEMailCharsetReplyToExpireDateReplyDatetmpSenderTagUpdateProfileNoteEncryptSign$AutoSpellDeliveryPriority$KeepPrivateDeliveryReportReturnReceiptImportance$Moods1
CN=Lotus Notes Template Development/O=Lotus Notes##################################
SelectedItems
(ListResource)(ListResource)cs-CZ
0000036E
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
cs-CZ
0000036A(InviteeReplyDlg)CUA3x5
tmpIncludeCommentstmpKeepPostedNewEndTimeNewEndDateNewStartTimeNewStartDateDelegeetmpPencilIntmpFTSEndDateTimetmpFTSStartDateTimetmpActionType1
CN=Lotus Notes Template Development/O=Lotus Notes############################
SignatureSignatureOption(SignatureOption)cs-CZ
00000382
CN=Lotus Notes Template Development/O=Lotus Notes#######################################
CUA3x5
tmpIncludeCommentstmpDeleteEntryEndTimeEndDateStartTimeStartDatetmpActionType1(OwnerDlg)cs-CZ
00000372
CN=Lotus Notes Template Development/O=Lotus Notes####################################################
cs-CZ
00000376(RepeatForm)CUA3x5
RepeatForUnitRepeatForRepeatUntilRepeatHowRepeatStartDateRepeatWeekendsRepeatCustomRepeatFromEndRepeatAdjustRepeatIntervalRepeatUnittmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP1
CN=Lotus Notes Template Development/O=Lotus Notes##############################################
cs-CZ
0000037A(RepeatOpenList)CUA3x5
tmpDateSelectedtmpRepeatConflictOptiontmpMultiDateListtmpDateListtmpRepeatOptionstmpListOfDates1
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CUA3x5
tmpResourceNameMultitmpResourceNameSingletmpResourceNameBlanktmpResourceCategorytmpCapacitytmpSitehiddentmpSitetmpNABsEndTimeStartTimeStartDateEndDatetmpSubsetCategorytmpCategoriesAlltmpSitesAlltmpAddressBookstmpResourceNametmpResourceType1(Room Resource Scheduler)cs-CZ
0000037E
CN=Lotus Notes Template Development/O=Lotus Notes#####################################
CUA3x
tmpDontShow(subTrackMessage)cs-CZ
0000038A
CN=Lotus Notes Template Development/O=Lotus Notes#######################
cs-CZ
00000386(subTrackingRequest)CU3x5
TraceTypeUserDefinedNameSelectedOptionsUserOptionsExpanded
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
CU3x5
tmpAlreadySentReturnViewtmpOpenMsgAbortGracefullyReplyToPostedDateSaveOptionsMailOptionsReturnReceipttmpSendOptionsDeliveryPriorityDeliveryReportImportance(WebSpecificFields)cs-CZ
00000392
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
cs-CZ1KT
0000038E(wCSItems)CUA3x58
pathReturnViewDueStateNoticeTypetmpOwnertmpWasMailedtmpPencilIntmpWebEndDateTimetmpWebStartDateTimetmpDeleteItemstmpChangeWhichDelegeeNewEndTimeNewStartTimeNewEndDateNewStartDatetmpKeepPostedtmpActionPreventDelegatePreventCounterBroadcastReturnReceiptDeliveryPriorityDeliveryReportWebDateTimeInit$CSVersionChairtmpResponsetmpRepeatCheckstatusUNIDtmpReschURLtmpOpenMsgtmpDateTimeSeptmpDateTimeFormatDueDateTimePrincipal$CSFlagstmpDBtmpOriginalEndtmpOriginalStarttmpCalInstanceDateOrgRepeatRepeatWeekendsRepeatFromEndRepeatUntilRepeatForUnitRepeatForRepeatHowRepeatCustomRepeatAdjustRepeatIntervalRepeatUnitRepeatStartDateEndDateTimeStartDateTimeApptUNID
CN=Lotus Notes Template Development/O=Lotus Notes####
cs-CZxKT
000003C6($PeopleGroupsFlat)1
CN=Lotus Notes Template Development/O=Lotus Notes#####################################
cs-CZ
00000396P
edloha|Stationery1/P=1681$
$65$59$55
$66$66
(Help)
MAIL_V_STATIONERY
    0S0E
CN=Lotus Notes Template Development/O=Lotus Notes##
    /P=3601
$39$13
MailFSNotesViewYB5(Discussion Threads)|Threadscs-CZ
0000039A
CN=Lotus Notes Template Development/O=Lotus Notes#####################
$SUBVIEWLastName\Last Name:15;FirstName\First Name:15;PhoneNumber\Phone Number:15cs-CZ
000003AE($Contacts)|People1/P=10801&
Form$21$126
MailFSNotesViewB5
CN=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)}1/P=3601=
$189DueState$186DueDateTimeD
(Help)
MAIL_V_TASKS
    0S0E
ToDoFSNotesViewYTB5(
koly\Podle kategorie)|TodoByCategorycs-CZ
0000039E
CN=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)}1/P=3601=
DueState$189$186DueDateTimeD
(Help)
MAIL_V_TASKS
    0S0E
ToDoFSNotesViewYTB5(
koly\Podle stavu)|TodoByStatuscs-CZ
000003A2
CN=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)}/P=7201
$68$106
$102$68
MailFSNotesViewYdB5($All)cs-CZ
000003A6
CN=Lotus Notes Template Development/O=Lotus Notes#########################################
    /P=3601$
$65$59$55
$66$66
MailFSNotesViewYB5($Drafts)
cs-CZ;QT
000003B2
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
##########################################################
##########################################################
##########################################################
(CSAltNameWorkFlowInput)
AppointmentType
tmpOwnerHW
    1S2E2S3S4S5S6S
    Pozvat:
SendToZadejte jm
na pozvan
ch osobz
size=80
SendTo
EnterSendToZadejte jm
na pozvan
ch osob
size=80
DialogButton Address.GIF|Address
SendList_1
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
k-p0.
k-p0k-
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
    Kopie (nepovinn
CopyToZadejte jm
 kopie zpr
size=80
CopyTo
EnterCopyToZadejte jm
 kopie zpr
size=80
DialogButton Address.GIF|Address
CopyList_1
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
k-p0.
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
    Na v
 (jen pro informaci):
BlindCopyToZadejte jm
 skryt
 kopie zpr
size=80
BlindCopyTo
EnterBlindCopyToZadejte jm
 skryt
 kopie zpr
size=80
DialogButton Address.GIF|Address
BCCList_1
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
k-p0.
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
E_&eA6
>Otn7
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$ScriptName
$Body
$PublicAccess
&Arial
'++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
Lotus Product
W32I4
 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)
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)
    Dim ws As New NotesUIWorkspace
    Set uidoc = source
    Set note = source.document
    source.autoreload = False
    Call note.ReplaceItemValue("tmpAlarmFiles",ws.GetListOfTunes)
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
End Sub
Lotus Product
W32I4
tmpAlarmFiles
OEMClient
    0S0E
tmpOEMClient
$AlarmDisabled
Vypnout|1
    Nastaven
strahy
bg_DIALOGBAND
straha bude vypnuta:
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
    0R1S2S3S10S12S17S19S20S25S
tmpOffsetMinutes
$AlarmOffsetA
    0RS1S2S
tmpAlarmUnit
tmpAlarmUnit
    0RR1S2S
tmpResult
tmpResult
    0R1S2S
$AlarmUnit
$AlarmUnit
    0R1S2S3S
tmpOffsetMinutes
$AlarmUnit
    0RR3S4S6S15S
tmpOffsetMinutes
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
tmpOffsetMinutes
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
    0R3S4S6S12S17S21S25RT26S27S29S35S40S44S48RT54S57S61S
$AlarmUnit
tmpAlarmUnit
    0RR1S2S3S
tmpResult
tmpOffset
    2S3S4S6S8S11S
tmpAlarmUnit
tmpAlarmUnit
    0R1S2S
tmpResult
tmpResult
    0R1S2S
$AlarmUnit
$AlarmUnit
    0R1S2S3S
tmpOffsetMinutes
$AlarmUnit
tmpOffset
$AlarmUnit
tmpOffset
tmpOffset
    0RR1S2S6S7S8S10S11S12S14S15S16S18S2E19S20S22S
tmpOffsetMinutes
$AlarmUnit
    0RR3S4S6S15S
tmpOffsetMinutes
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
tmpOffsetMinutes
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
tmpResult
tmpOffsetMinutes
tmpAlarmUnit
    0R3S4S6S12S17S21S25RT26S27S29S35S40S44S48RT54S57S61S
$AlarmUnit
tmpAlarmUnit
    0RR1S2S3S
tmpResult
xxFailed
eba zadat
 posun v
strahy.
    1S2S
tmpOffset
xxFailed{
    0R3S4S6S11StmpOffset
$AlarmUnit
$AlarmUnit
Current
$AlarmOffseth
$AlarmOffset
    0R1S2S9S
FixedCurrent
Current
Current
    0R1S2S5S6S8S10S
FixedCurrent
FixedCurrent
    0R3S4S6S9S10S12S14S15S
$AlarmUnit
Minuty|MHodiny|HDny|D
$AlarmOffseth
$AlarmOffset
    7S10S11S13S15S18StmpOffsetDir
ed|1po|2
    Popis:
tmpLocation
Location^
Location"
    1S2S12S13S15S
tmpDefault
Subject
tmpLocation
    0R1S2E2S3S4S
$AlarmDescription
$AlarmDescription
tmpDefault
    0RR9StmpAlarmPopup
 upozorn
bg_DIALOGBAND
$AlarmSound
Calendarprofile
AlarmSound
    7S15S19S21StmpPlaySound
t zvuk|1
tmpPlaySound
    1S2S
$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
W32I4
'++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
W32I4
tmpOEMClient
    1S2S
$AlarmSendTo
    2S5S6S7S9S11S$AlarmMemoOptions
Odeslat po
zvu polo
ky a popisu|2
$AlarmMemoOptions
    1S2S
jemci:
xxNoNames
Rozhodli jste se odeslat tuto v
strahu po
tou, ale neuvedli jste
jemce. Zadejte p
jemce nebo zru
te mo
nost odesl
    1S2S
$AlarmMemoOptions
$AlarmSendTo
xxNoNames
    0R3S4S5S6S7S8S10S15S
$AlarmSendTo
DialogButton Address.GIF|Address
SendTo_1_1_1
$AlarmSendTo
$AlarmSendTo
    1S2S3S
$AlarmY
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
.j\03
tmpAlarmValue
tmpAlarmOnDate
tmpAlarmOnTime
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
tmpOffset
$Body
$PublicAccess
&Arial
 CSDeliveryOptions
nosti doru
bg_DIALOGBAND
va o doru
DeliveryReport
|NPouze p
i selh
|BPotvrdit doru
|CTrasovat celou cestu|Tz
DeliveryReport
    Priorita doru
DeliveryPriority
|LNorm
|NVysok
DeliveryPriority
ReturnReceipt
Potvrzen
evzet
ReturnReceipt
Broadcast
mat odpov
di od
PreventCounter
nit protin
PreventDelegate
nit delegov
nosti zabezpe
bg_DIALOGBAND
Podpis|1
Encrypt
ifrov
window.opener.document.forms[0].DeliveryReport.value = document.forms[0].DeliveryReport.value;
window.opener.document.forms[0].DeliveryPriority.value = document.forms[0].DeliveryPriority.value;
if (ReturnReceipt.checked){
    window.opener.document.forms[0].ReturnReceipt.value="1"
    else {
    window.opener.document.forms[0].ReturnReceipt.value=""
if (Broadcast.checked) {
    window.opener.document.forms[0].Broadcast.value="1";
else {
    window.opener.document.forms[0].Broadcast.value="";
    if (PreventCounter.checked) {
    window.opener.document.forms[0].PreventCounter.value="1";
    else {
    window.opener.document.forms[0].PreventCounter.value="";
    if (PreventDelegate.checked) {
    window.opener.document.forms[0].PreventDelegate.value="1";
    else {
    window.opener.document.forms[0].PreventDelegate.value="";
self.close();
       OK
self.close()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$ScriptName
$Body
$PublicAccess
&Arial
Lotus Product
(GroupCalendarDlg)
    0S0E
$PublicAccessX
Outer
Outer
Table1
Table1
zev: X
xxDefault
-bez n
    1S2S
Subject
xxDefault
Subject
    0R2S3S4S6S8S
SubjectX
lenov
MembersX
Action
ViewNow
    1S2S3S
Action
Cancel
    1S2S3S
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$PublicAccess
$$FormAction2
$Body
$Language
$LastBuildTime
$BabelInfo
&Arial
Lotus Product
OBJECT
 DeliveryInfo'++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)
    If Not (IsNewDoc) Then
        With Source.Document
            If .HasItem("DeliveredDate") Then
                Call .ReplaceItemValue("Sign",Cstr(Abs(0 - Cint(.Issigned))))
            End If
        End With
    End If
End Sub
Lotus Product
W32I4
    Odeslal:
bg_DIALOGBAND
FromDomain
FromDomain"
    6S7S10S11S13S15S16S17S
tmpFromInfo
    Informace o doru
 a sm
bg_DIALOGBAND
xxNotSent
Neodesl
    0S0E
xxSent
 Odesl
xxDelivered
 Doru
xxAdditionalHeader
--------    Dal
    ------
xxRoutingInformation
--------  Informace o sm
 ------
xxAtServer
 na serveru
PostedDate
xxNotSent
PostedDate
D1T1V
xxSent"
DeliveredDate
DeliveredDate
D1T1V
xxDelivered
$AdditionalHeaders
xxAdditionalHeader
$AdditionalHeaders
SMTPHeaders
xxAdditionalHeader
SMTPHeaders
DeliveredDate
xxRoutingInformation
DeliveredDate
RouteTimes
D1T1V
xxAtServer"
RouteServers
    0RR2R5S6S7S8RS8E10S16S17S20R23S24S26RS8E28S34S35S38R41S42S44RS8E46S49R50S51R54S55S57RS8E59S62R63S64R67S68S70RS8E72S75R78S79S81RS7E83S91S99S2E101RS
tmpPostedDateInfo
nosti doru
bg_DIALOGBAND
itostx
bg_DIALOGBAND
tmpSignedInfo
Podeps
Encrypt
tmpEncryptInfo
ifrov
$KeepPrivate
    0S0E
tmpKeepPrivateInfo
nit postoupen
 nebo tisku|1
ReturnReceipt
    0S0E
tmpReceiptInfo
adovat potvrzen
Importance
Importance
    3S4S
tmpImportanceInfo
|3Norm
|2Vysok
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ExpireDate
ReplyDate
$Phone_O
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$PublicAccess
&Arial
(subTrackingRequest)
UserOptions
UserOptions
UserOptions
    2RTTTTTTTT7RTTTTTTTT8RTTTTTTTT
UserOptionsExpanded
OptionLabel
OptionLabel
Sledov
act_MessageTrack|act_MessageTrack
SelectedOptions
UserOptionsExpanded
UserOptionsExpanded
    0S0E
jemci:
UserDefinedNameDal
 sledovan
jemci
    0S0E
Begin Translate
    0S0E
xxTitle
Sledov
xxMessage
Nebyl vybr
jemce.
xxMessageInList
ivatel je ji
azen v seznamu
End Translate
    0S0E
ALIASEDNAME
UserOptionsExpanded
UserOptionsExpanded
    0RR1S
SelectedOptions
SelectedOptions
    0R1S
UserDefinedName
UserDefinedName
    0R1S
UserDefinedName
ALIASEDNAME
UserDefinedName
UserOptionsExpanded
ALIASEDNAME
UserOptionsExpanded
UserOptionsExpanded
ALIASEDNAME
SelectedOptions
SelectedOptions
UserDefinedName
UserDefinedName
xxTitle
xxMessageInList
UserDefinedName
xxTitle
xxMessage
    0RR1RT2RT3S4S6RTT7RTTT8RTTT15TTTRTTT16RTTTT17RTTTT24RTTTTT25RTTTTTT26RTTTTTT30S31S32S35RTTTTTT40RTTTTTT45S46S49RTTTTTT56RTTTTTT60RTTTTTT62RTTTT63RTTTTTT64RTTTTTT73RTTTTTT79RTTTTTT80RTTT81RTT83RT91RT
TraceType
Jen stav doru
|0Trasovat celou cestu|1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$ScriptName
$Body
    0S0E
OdstranitX
    0S0E
esunout do slo
ky...
    0S0E
Po_stoupit
Odpov
Reply
    0S0E
Odpov
 historieX@
Reply with history
    0S0E
adit do kategorie
_Upravit dokumentX
OdeslatX
Znovu odeslatX
NonDelivery Report
Nejedn
 se o zpr
vu o ne
m doru
Tuto zpr
ete odeslat znovu pouze v p
e se jedn
 o zpr
vu o ne
m doru
    6S12S17S23S
st na
lohuX0
ConvertToTask
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
OdstranitX
    0S0E
esunout do slo
ky...
    0S0E
Po_stoupit
Odpov
Reply
    0S0E
Odpov
 historieX@
Reply with history
    0S0E
adit do kategorie
_Upravit dokumentX
OdeslatX
Znovu odeslatX
NonDelivery Report
Nejedn
 se o zpr
vu o ne
m doru
Tuto zpr
ete odeslat znovu pouze v p
e se jedn
 o zpr
vu o ne
m doru
    6S12S17S23S
st na
lohuX0
ConvertToTask
esunout do slo
ky...X
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Name
$WebFlags
$HTMLDocumentStyles
$PublicAccess
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$Language
$LastBuildTime
$BabelInfo
&Arial
'++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.nUpdateINI = True
            If Val(Me.note.getitemvalue("Encrypt")(0)) = 1 Then
                If Not (Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL) = Me.ENCRYPT_SAVED_MAIL Then
                    Me.lngCurrentINISettings = Me.lngCurrentINISettings Or Me.ENCRYPT_SAVED_MAIL
                End If
            Else
                Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SAVED_MAIL
            End If
        End If
        If Me.nUpdateINI Then
            Call Me.session.setenvironmentvar("Preferences", Cstr(Me.lngCurrentINISettings),True)
        End If
    End Function
End Class
Lotus Product
W32I4
 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 .ReplaceItemValue("_ViewIcon",    0)
            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
W32I4
tmpSenderTag
tmpSenderTag
    0S0E
$Moodsz
$Moods
nosti doru
bg_DIALOGBAND
?pB@E
bg_DIALOGBAND
1`407
?pB@E
bg_DIALOGBAND
bg_DIALOGBAND
1`407
?pB@E
itost:
Importance
|3Norm
|2Vysok
Importance
1`407
?pB@E
ReturnReceipt
Potvrdit p
ReturnReceipt
va o doru
DeliveryReport
|NPouze p
i selh
|BPotvrdit doru
|CTrasovat celou cestu|Tz
DeliveryReport
$KeepPrivate
nit kop
$KeepPrivate
    Priorita doru
DeliveryPriority
|LNorm
|NVysok
DeliveryPriority
$AutoSpell
Automaticky kontrolovat pravopis|1
nosti zabezpe
bg_DIALOGBAND
1`407
?pB@E
    Symbolx
bg_DIALOGBAND
1`407
?pB@E
    0S0E
Podepsat|1z
Encrypt
Encrypt
Encrypt
    0S0E
Encrypt
ifrovat|1z
Encrypt
UpdateProfileNote
UpdateProfileNote
it tyto mo
nosti zabezpe
 jako v
UpdateProfileNote
1`407
?pB@E
1`407
?pB@E
SenderTag
SenderTag
    0S0E
tmpSenderTag
|NOsobn
|CSoukrom
|RPod
|TUrgentn
|FPochvala|GVtip|JPro informaci|YDotaz|QP
ipomenut
SenderTag
1`407
?pB@E
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
kladn
va sledu prac
bg_DIALOGBAND
    Opat
it zpr
vu po
adovan
m datem odpov
vu do seznamu
 jednotliv
.,$$ //
DueDateTime
DueDateTime
ReplyDate
DueDateTime
ReplyDate
ReplyDate
DueDateTime
    0RR1RT3S6RTT8RTTT15RTTT16RTT18RT27RT
ReplyDate
ReplyDate
    Doba platnosti (po tomto datu m
ete dokument bezpe
 archivovat nebo odstranit)
.,$$ //
ExpireDatez
ExpireDate
    Odpov
di na tuto zpr
vu adresovat na:
ReplyTo
ReplyTo
    Form
t zpr
 Internet
bg_DIALOGBAND
    Znakov
 sada MIME
MIMEMailCharset
    0S0E
SMTPEncoding
ijmout v
 nastaven
vce|0MIME (Base64)|BK
 Quoted Printable|QUUencode|U
MailFormat
Odeslat tuto zpr
vu jin
ivatel
m programu Notes prost
ednictv
 Internet|E
esnit
tmpSenderTag
SenderTag
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
d3$G2
DueDateTime
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
ReplyDate
ExpireDate
$Body
$PublicAccess
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As notesuidocument
Lotus Product
W32I4
(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
W32I4
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
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 Entering From Source Call Entering
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
    Call AutoAdjustWindowEntering( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Call AutoAdjustWindowExiting( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
End Sub
Lotus Product
W32I4
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
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 Entering From Source Call Entering
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
    Call AutoAdjustWindowEntering( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Call AutoAdjustWindowExiting( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
End Sub
Lotus Product
W32I4
type=hidden
PartialName
Query_String
&ActionType=`
    1S2S
PartialName
PartialName
PartialName
    0R16StmpActionType
tmpFTSStartDateTime
tmpFTSEndDateTime
NoticeType
    1S2S
    Tuto
dost jste d
ve delegovali na u
ivatele
Delegee
tmpDelegee
to osob
 bude odesl
na zpr
va o zm
ho postaven
tmpActionType
    1S2S
ijmut
dosti bude automaticky aktualizov
n kalend
i nez
dosti nebude rezervov
n obsazen
tmpPencilIn
ijmout|1
tmpActionType
    1S2S
    Komu chcete tuto
dost delegovat?
xxDelegee
eba zadat jm
no delegovan
 osoby.
    1S2S
xxAlreadySent
Zadan
 osob
 byl tento
kol ji
Zadan
 osoba je na tuto sch
zku ji
 pozv
    0R1S2S5S6S8S10S
Participants
AssignedTo
OptionalAssignedTo
FYIAssignedTo
RequiredAttendees
OPtionalAttendees
FYIAttendees
Chair
    0R1S2S7S8S10S16S22S23S
tmpActionType
Delegee
xxDelegee
tmpActionType
Delegee
Participants
xxAlreadySent
    0R3S4S5S6S10S11S13S21S22S23S25S35S45S50S55S58S
Delegee
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Delegate','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Delegate','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Delegate','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Delegate','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Delegate','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Delegate','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
DialogButton Address.GIF|Address
tmpActionType
TaskG
    1S2S3S4S8S
    Kdy se m
 tato sch
zka konat?
tmpActionType
TaskG
    1S2S3S4S9S
    Kdy m
t tento
kol dokon
tmpActionType
    1S2S
    Datum zah
.,$$$$$
NewStartDAte
NewStartDate
StartDate
StartDate
StartDateTime
    3S4S6S8S9S10S12S14S
xxSpanMidnight
zky nelze po
dat p
lnoc.
    1S2S
xxENDBEFOREBEGIN
Datum ukon
sledovat po datu zah
forma
taskG
NewEndDateK
NewStartDateK
xxSpanMidnight{
NewEndDate
NewStartDate
NewEndDateK
NewStartDateK
xxENDBEFOREBEGIN{
    0R12S17S18S23S28S29S30S31S32S33S34S35S36S40S41S46S51SNewStartDate
tmpActionType
TaskG
    1S2S3S4S
as zah
.,$$$$$
NewStartTime
NewStartTime
StartTime
StartTime
StartDateTime
    3S4S6S8S9S10S12S14SNewStartTime
    Datum ukon
.,$$$$$
NewEndDAte
NewEndDate
EndDate
EndDate
DueDate
DueDate
EndDateTime
EndDateTime
DueDateTime
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26SNewEndDate
as ukon
.,$$$$$
NewEndTime
NewEndTime
EndTime
EndTime
EndDateTime
    3S4S6S8S9S10S12S14S"
xxENDBEFOREBEGIN
as ukon
sledovat po
ase zah
    0S0E
forma
taskG
NewStartDateK
NewEndDateK
NewStartTimeL
NewEndTimeL
xxENDBEFOREBEGIN{
    0RR1RT12S13RT18S19S24S25S30S31S37RTT42RT43RT
NewEndTime
tmpActionType
tmpActionType
TaskG
    1S2S3S4S5S6S7S8S12S
xxNoDelegee
Nezadali jste
dnou osobu, na kterou bude tato sch
zka delegov
na. Zadejte jm
no osoby, na kterou chcete tuto sch
zku delegovat.
    1S2S
xxTitle
Neplatn
no delegovan
 osoby
    0R1S2S
tmpActionType
Delegee
xxTitle
xxNoDelegee
    0R3S4S5S6S10S11S13S19S21S24S30S
RequiredList
tmpActionType
Delegee
RequiredAttendees
Chair
    0R1S2S5S6S8S10S
OptionalList
tmpActionType
OptionalAttendees
    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
    Hledat...
tmpActionType
    1S2S3S4S5S
    Pokud chcete, m
ete od vlastn
ka i nad
le dost
vat ozn
tmpActionType
    1S2S3S4S5S6S
tmpKeepPosted
Informovat o aktualizac
ch sch
zky|1
tmpHideComments
    1S2S
va bude odesl
na vlastn
kovi t
dosti.
tmpIncludeComments
Zahrnout do odpov
di pozn
mky|1
Values
macintosh
    1S2S11S16S17S18S
tmpActionType
Values
    0R1S2S
tmpActionType
    1S2S
tmpActionType
TaskG
    1S2S3S5S6S10S
    Pokud jste tuto
dost p
ijali d
ve, bude aktualizov
 kalend
    obsazen
tmpActionType
    1S2S
thisform = document.forms[0]
parentwnd = window.opener
parentform = parentwnd.document.forms[0]
actiontype = thisform.tmpActionType.value
if (actiontype == "A") {
    iValue = 65536;
    if (thisform.tmpPencilIn.checked) parentform.tmpPencilIn.value = thisform.tmpPencilIn.value;
else if (actiontype == "R") {
    iValue = 131072;
    if (thisform.tmpKeepPosted.checked) parentform.tmpKeepPosted.value = thisform.tmpKeepPosted.value;
else if (actiontype == "D")
    iValue = 262144
    parentform.Delegee.value = thisform.Delegee.value
    if (thisform.tmpKeepPosted.checked) parentform.tmpKeepPosted.value = thisform.tmpKeepPosted.value;
else if (actiontype == "T")
    iValue = 524288
    parentform.NewStartDate.value = thisform.NewStartDate.value
    if (thisform.Form.value!="Task") parentform.NewStartTime.value = thisform.NewStartTime.value
    parentform.NewEndDate.value = thisform.NewEndDate.value
    if (thisform.Form.value!="Task") parentform.NewEndTime.value = thisform.NewEndTime.value
    iValue = 0
parentwnd.updateActionInProgress(iValue, true)
self.close()
parentwnd.submitDocument()
self.close()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$$NewStartDate
$NewStartDate_O
$$NewStartTime
$NewStartTime_O
tmpFTSStartDateTime
tmpFTSEndDateTime
NewStartDate
NewStartTime
NewEndDate
NewEndTime
$Body
$PublicAccess
&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 = "Vlo
it podpis"
    Set noteBEDoc = uiws.currentdocument.Document
    If (noteBEDoc.SignatureOption(0) = "2")_
    And (noteBEDoc.GetItemValue("Signature")(0) = "") Then
        vSignatureLocation = uiws.openfiledialog(False,xxWINDOW_TITLE,"Textov
 soubory|*.txt|Soubory HTML|*.htm|Rastry|BMP||","","")
        If Isempty(vSignatureLocation) Then
            Redim vSignatureLocation(0)
        End If
        Call noteBEDoc.ReplaceItemValue("Signature",Cstr(vSignatureLocation(0)))
    End If
End Sub
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@
nosti podpisuX
    Vyberte mo
nost:X
SignatureOption
Vybrat z p
edvoleb po
ty|1Importovat ze souboru:|2X
SignatureX
    K po
m zpr
t automaticky p
ipojov
n podpis. Chcete-li tuto mo
nost vyu
t, klepn
te na tla
tko N
stroje a v nab
dce vyberte p
kaz P
edvolby.
bg_DIALOGBANDX
Lotus Product
W32I4
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
$Body
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
(OwnerDlg)
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Use "CSEventClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim uidoc As notesuidocument
'++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
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Entering(Source As Field)
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 Entering From Source Call Entering
    On Event Exiting From Source Call Exiting
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
    Call AutoAdjustWindowEntering( uidoc, "StartDate", "StartTime", "EndDate", "EndTime")
End Sub
'++LotusScript Development Environment:2:2:Exiting:1:12
Sub Exiting(Source As Field)
    Call AutoAdjustWindowExiting( uidoc, "StartDate", "StartTime", "EndDate", "EndTime")
End Sub
'++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)
    Call AutoAdjustWindowExiting( uidoc, "StartDate", "StartTime", "EndDate", "EndTime")
End Sub
'++LotusScript Development Environment:2:2:Entering:1:12
Sub Entering(Source As Field)
    Call AutoAdjustWindowEntering( uidoc, "StartDate", "StartTime", "EndDate", "EndTime")
End Sub
type=hidden
Notes
tmpActionType
    3S4S6S
PartialName
Query_String
&ActionType=`
    0R1S2S
PartialName
PartialName
PartialName
    0R16StmpActionTypeX
tmpActionType
    1S2S
xxMeeting
Kdy se m
 tato sch
zka konat?
    1S2S
xxTodo
Kdy m
t tento
kol dokon
    0R1S2S
TaskG
xxTodo
xxMeeting
    0R6S9S11StmpHeading
tmpActionType
tmpActionType
    2S3S4S5S6S7S
    Datum zah
.,$$$$$
tmpActionType
$CSVersion
NewStartDate
NewDate
NewTimeRange
StartDate
    3S4S6S13S15S23S24S25S26S
NewStartDate
tmpActionType
StartDate
    1S2S3S6S7S9S11S
StartDate
StartDateX
tmpActionType
tmpActionType
TaskG
    2S3S4S5S6S7S9S10S14S
as zah
tmpActionType
tmpActionType
TaskG
    2S3S4S5S6S7S9S10S14S
.,$ //:
tmpActionType
$CSVersion
NewStartTime
NewDate
NewTimeRange
StartTime
    3S4S6S13S15S23S24S25S26S
NewStartTime
tmpActionType
StartTime
    1S2S3S6S7S9S11S
StartTime
StartTimeX
    Datum ukon
.,$ //:
tmpActionType
$CSVersion
NewEndDate
NewDate
NewTimeRange
TaskG
DueDate
EndDate
    3S4S6S23S24S25S26S53S
NewEndDate
tmpActionType
EndDate
    1S2S3S6S7S9S11S
DueDate
tmpActionType
TaskG
EndDate
    0R1S2S3S6S7S8S9S13S
EndDate
xxENDBEFOREBEGIN
Datum ukon
sledovat po datu zah
    0S0E
xxSpanMidnight
TaskG
zky nelze po
dat p
lnoc.
    0RR9S12S
StartDate
StartDate
    0RR1S
TaskG
StartDate
EndDate
tmpActionType
tmpActionType
tmpActionType
EndDate
StartDate
TaskG
xxSpanMidnight{
StartDate
EndDate
xxENDBEFOREBEGIN{
    0RR1RT2RT6S8S9S11S12S13S14S15S16S19RTT21RT23S24S25S26S27S28S31RTT33RT34S35S37RTT39RT43S44S48S49S54S57RTT62RT66S67S72RTT77RT78RTEndDateX
as ukon
.,$ //:
tmpActionType
$CSVersion
NewEndTime
NewDate
NewTimeRange
EndTime
    3S4S6S23S24S25S26S
NewEndTime
tmpActionType
EndTime
    1S2S3S6S7S9S11S
EndTime
xxENDBEFOREBEGIN
as ukon
sledovat po
ase zah
    0S0E
StartDate
StartDate
    0RR1S
StartTime
StartTime
    0R1S
EndDate
EndDate
    0R1S
tmpActionType
tmpActionType
tmpActionType
StartDate
EndDate
StartTime
EndTime
xxENDBEFOREBEGIN{
    0RR1RT2RT4S5S8RTT10RT12S13S14S15S16S17S20RTT22RT23S24S26RTT28RT33S34S39S40S45S46S52RTT57RT58RT
EndTimeX
RequiredList
Chair
RequiredAttendees
    1S2S
OptionalList
OptionalAttendees
    0R1S2S
RoomList
RoomToReserve
    0R1S2S
ResourceList
RequiredResources
Resources
    0R1S2S
tmpDoNotModifyInvitees
    0R1S
tmpFTSStartDateTime
StartDate
StartTime
    0RR1S2S3S11S12S13S14S
tmpFTSEndDateTime
EndDate
EndTime
    0R1S2S3S11S12S13S14S
RequiredList
OptionalList
RoomList
ResourceList
Uninvited
tmpFTSStartDateTime
tmpFTSEndDateTime
    0RR20RTTT25S27S
StartDate
tmpFTSStartDateTime
    0R1S2S3S
StartTime
tmpFTSStartDateTime
    0R1S2S3S
EndDate
tmpFTSEndDateTime
    0R1S2S3S
EndTime
tmpFTSEndDateTime
    0R1S2S3S
tmpDoNotModifyInvitees(
    Zkontrolovat pl
ny...X
tmpActionType
    1S2S
xxTask
Program Notes m
e odstranit v
echny dokumenty souvisej
kolem.
    1S2S
xxMeeting
Program Notes m
e odstranit v
echny dokumenty souvisej
 s touto sch
zkou.
    0R1S2S
TaskG
xxTask
xxMeeting
    0R6S
tmpDeleteHeading
tmpDeleteEntry
xxTodo
Odstranit
kol a v
echny odpov
    1S2S
xxMeeting
Odstranit polo
ku kalend
e a v
echny odpov
    0R1S2S
TaskG
xxTodo
xxMeeting
tmpHideComments
    1S2S
xxCancel
TaskG
em pov
m osob
m bude odesl
na informace o zru
kolu.
em pozvan
m osob
m bude odesl
na informace o zru
    1S2S8S11S
xxReschedule
TaskG
em pov
m osob
m bude odesl
na informace o zm
kolu.
em pozvan
m osob
m bude odesl
na informace o zm
nu sch
    0R1S2S8S
xxConfirm
TaskG
em pov
m osob
m bude odesl
na informace o potvrzen
kolu.
em pozvan
m osob
m bude odesl
na informace o potvrzen
    0R1S2S8S
xxDecline
TaskG
 osob
 bude odesl
na informace o odm
 navr
ho data.
 osob
 bude odesl
na informace o odm
 navr
    0R1S2S8S13S
xxRefresh
 aktualizovan
 informace bude odesl
no ozn
    0R1S2S
xxRemove
TaskG
m pov
m osob
m bude odesl
na informace o jejich odvol
 z tohoto
kolu.
m pozvan
m osob
m bude odesl
na informace o zru
 jejich
asti na sch
    0R1S2S11S13S
tmpActionType
xxCancel
tmpActionType
xxReschedule
tmpActionType
xxConfirm
tmpActionType
xxDecline
tmpActionType
xxRefresh
tmpActionType
xxRemove
    0R3S4S6S8S9S10S14S16S17S18S20S22S23S24S26S29S30S32S35S36StmpMessage
tmpIncludeComments
Zahrnout do ozn
 pozn
mky|1
tmpActionType
    1S2S
tmpActionType
    1S2S3S4S5S6S
    Budou odebr
ny tak
echny rezervace m
stnost
 a prost
 pro tuto sch
tmpActionType
tmpActionType
    2S3S4S5S6S7S9S10S11S12S
    Budou zm
ny pl
ny tak
ech rezervac
stnost
 a prost
 pro tuto sch
zku.X
thisform = document.forms[0];
parentwnd = window.opener;
parentform = parentwnd.document.forms[0];
actiontype = thisform.tmpActionType.value;
if (actiontype == "C")
    iValue = 256;
else if (actiontype == "B") iValue=2048;
else if (actiontype == "U")
    iValue = 512;
    parentform.StartDate.value = thisform.StartDate.value;
    if (thisform.Form.value!="Task") parentform.StartTime.value = thisform.StartTime.value;
    if (thisform.Form.value!="Task")
        parentform.EndDate.value = thisform.EndDate.value;
        } else
        parentform.DueDate.value = thisform.EndDate.value;
    if (thisform.Form.value!="Task") parentform.EndTime.value = thisform.EndTime.value;
else if (actiontype == "J")    iValue = 1024;
else if (actiontype == "N")    iValue = 4096;
else    iValue = 0;
parentwnd.updateActionInProgress(iValue, true);
self.close();
parentwnd.submitDocument();
self.close()
    Storno
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
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
$DesignerVersion
$$ScriptName
StartDate
StartTime
EndDate
EndTime
$PublicAccess
$Script
$$FormScript
$$StartDate
$$StartTime
$Body
$$Script_O
$$$FormScript_O
$StartDate_O
$StartTime_O
$Language
$LastBuildTime
$BabelInfo
&Arial
(RepeatForm)D
tmpRepeatUnit
RepeatUnit
    0S0E
 druh
 3. m
 4. m
 5. m
 6. m
 7. m
 8. m
 9. m
 10. m
 11. m
 12. m
    8R16RtmpRIMDMP
 rok|1
 druh
 rok|2
 3. rok|3
 4. rok|4
 5. rok|5
 6. rok|6
 7. rok|7
 8. rok|8
 9. rok|9
 10. rok|10
    10RtmpRIY
dy v|1
dy 2.|2
dy 3.|3
dy 4.|4
dy 5.|5
dy 6.|6
dy 7.|7
dy 8.|8
tmpRIW
 den|1
 2. den|2
 3. den|3
 4. den|4
 5. den|5
 6. den|6
 7. den|7
 8. den|8
 9. den|9
 10. den|10
 11. den|11
 12. den|12
 13. den|13
 14. den|14
 15. den|15
 16. den|16
 17. den|17
 18. den|18
 19. den|19
 20. den|20
 21. den|21
 22. den|22
 23. den|23
 24. den|24
 25. den|25
 26. den|26
 27. den|27
 28. den|28
 29. den|29
 30. den|30
 31. den|31
    10R20R30R40R50R60R
tmpRID
1. den|1
2. den|2
3. den|3
4. den|4
5. den|5
6. den|6
7. den|7
8. den|8
9. den|9
10. den|10
11. den|11
12. den|12
13. den|13
14. den|14
15. den|15
16. den|16
17. den|17
18. den|18
19. den|19
20. den|20
21. den|21
22. den|22
23. den|23
24. den|24
25. den|25
26. den|26
27. den|27
28. den|28
29. den|29
30. den|30
31. den|31
    20R38R56RtmpRAMD
eda|3
tvrtek|4
tek|5
Sobota|6
    0S0E
tmpRAW
1. ned
1. pond
1. st
eda|1.3
tvrtek
1. sobota
2. ned
le|2.0
2. pond
2. st
eda|2.3
tvrtek|2.4
tek|2.5
2. sobota|2.6
3. ned
le|3.0
3. pond
3. st
eda|3.3
tvrtek|3.4
tek|3.5
3. sobota|3.6
4. ned
le|4.0
4. pond
4. st
eda|4.3
tvrtek|4.4
tek|4.5
4. sobota|4.6
posledn
le|5.0
posledn
 pond
posledn
posledn
eda|5.3
posledn
tvrtek|5.4
posledn
tek|5.5
posledn
 sobota|5.6
    1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
RepeatUnit
    1S2S
    Tato polo
ka kalend
e se m
 opakovat
bg_DIALOGBAND
RepeatUnit
AppointmentType
RepeatUnit
RepeatUnit
    3S4S6S9S10S12S14S17S18S19S
RepeatUnit
RepeatUnit
RepeatForUnit
RepeatForUnit
    0R1S
tmpRepeatUnit
RepeatUnit
RepeatForUnit
RepeatUnit
tmpRepeatUnit
RepeatUnit
RepeatUnit
RepeatUnit
RepeatUnit
    0R1RT2RT3S4S6RTT7RTTT8RTTT20RTTT27RTTT33RTTT35RT36RT
RepeatUnit
 den|DKa
den|WKa
c podle data|MDKa
c podle dne|MPKa
 rok|YDVlastn
RepeatInterval
RepeatInterval
    3S4S8S
RepeatUnit
RepeatInterval
eba vybrat interval opakov
    3S4S5S6S7S8S10SRepeatInterval
RepeatUnit
tmpRID
RepeatUNit
tmpRIMDMP
RepeatUNit
tmpRIY
RepeatUnit
tmpRIW
    3S4S6S8S9S10S11S12S14S16S17S18S20S22S23S24S26S28S
RepeatUnit
    1S2S
RepeatUnit
RepeatStartDate
    3S4S6S16S
RepeatUnit
RepeatAdjust
Je nutn
 vybrat alespo
 jednu mo
nost.{
    3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
RepeatUnit
RepeatUnit
tmpRAMD
RepeatUnit
tmpRAMP
RepeatUnit
tmpRAW
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
RepeatUnit
    1S2S
RepeatFromEnd
t od konce m
RepeatUnit
    1S2S
    Zadejte seznam kalend
ch dat
StartDateTime
StartDateTime
    10S12S
RepeatCustom
    * Chcete-li n
jakou ud
lost opakovat n
kolikr
t za den, vytvo
te pro ka
as samostatnou opakuj
 se ud
lost.
RepeatUnit
    1S2S3S4S5S6S
kendy
bg_DIALOGBAND
    Pokud datum p
ipadne na v
kend:
RepeatWeekends
esunovat|DP
esunout na p
tek|FP
esunout na pond
esunout na nejbli
 pracovn
 den|NOdstranit|X
bg_DIALOGBAND
StartDateTime
StartDateTime
    10S12S
RepeatStartDate
eba zadat datum zah
    3S4S6S11SRepeatStartDate
RepeatHow
do|Upokra
uje po dobu|F
RepeatUnit
RepeatHow
    1S2S3S4S5S6S
StartDate
RepeatStartDate
    1S2S
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
RepeatUnit
StartDate
StartDate
    0R3S4S6S10S12S14S16S18S20S23S24S25S27S31S33S35S37S39S41S44S48S50S51S53S57S59S61S63S65S67S70S74S76S77S79S83S85S87S89S91S93S96S
xxFAILURE
Datum ukon
 opakov
sledovat za datem zah
 opakov
xxEMPTYDATE
Je nutn
 zadat datum zah
 i datum ukon
 opakov
RepeatHow
RepeatUntil
RepeatStartDate
xxEMPTYDATE
RepeatUntil
RepeatStartDate
xxFAILURE
    0RR1RT2RT6RTT7RTTT8RTTT10S11S12S13S14S15S18RTTTT23RTTT24S25S27RTTTT32RTTT33RTTT35RT36RTRepeatUntil
RepeatUnit
RepeatHow
    1S2S3S4S5S6S
RepeatFor
RepeatForUnit
AppointmentType
RepeatUnit
RepeatForUnit
    3S4S6S9S10S12S14SRepeatForUnit
Dny|D
    1S2S
Weeks
dny|W
    0R1S2S
Months
    0R1S2S
Years
Roky|Y
    0R1S2S
RepeatUnit
Weeks
Months
Years
RepeatUnit
Weeks
Months
Years
RepeatUnit
Months
Years
Years
    0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S
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()
self.close()
    Storno
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$ScriptName
$$FormAction1
RepeatCustom
RepeatStartDate
RepeatUntil
RepeatFor
$Body
$PublicAccess
Lotus Product
(RepeatOpenList)
type=hidden
tmpListOfDates
StartDateTime
tmpListOfDates
    3S4S6S
tmpListOfDates
type=hidden
tmpRepeatOptions
Notes
tmpPrompt
    3S4S11S
PartialName
Query_String
&Prompt=`
    0R1S2S
CompleteName
PartialName
PartialName
PartialName
    0R1S2S18S
CompleteName
tmpPrompt
    <BR>
tmpRepeatOptions
    0S0E
xxErr_NONE_SELECTED
Nebyl proveden
tmpDateList
tmpRepeatOptions
xxErr_NONE_SELECTED
    0R5S6S11StmpDateList
Notes
tmpListOfDatesV
--------------------------
    3S4S6S11S
size=4
tmpRepeatOptions
tmpMultiDateList
Notes
tmpListOfDatesV
    3S4S6S11S
tmpRepeatOptions
tmpRepeatOptions
    5S7S8S12S
tmpRepeatConflictDates
tmpRepeatOptions
tmpListOfDates
tmpRepeatConflictOption
tmpMultiDateListW
    1S2S3S12S14S15S16S18S23S
tmpRepeatConflictOption
xxNONESELECTED
eba vybrat datum.
    0S0E
tmpMultiDateList
tmpMultiDateList
    0RR1S
tmpDateList
tmpDateList
tmpRepeatConflictOption
tmpMultiDateList
tmpDateList
xxNONESELECTED{
    0RR1RT2RT4S5S7S8S10S11S12S13S14S15S18RTT23RT24RT
tmpRepeatConflictOption
Odebrat vybran
 data ze seznamu|1
    <BR><P>
parentwindow = window.opener
url = parentwindow.location.href
var fSelectedItem = false
thisform = document.forms[0]
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(" "))
        // Pick apart the date selected based upon the server's settings
        strDateFormat = thisform.tmpDateTimeFormat.value.substring(0,thisform.tmpDateTimeFormat.value.indexOf(","))
        strDateSep = thisform.tmpDateTimeSep.value.substring(0, thisform.tmpDateTimeSep.value.indexOf(","))
        if (strDateFormat == "0")         //DMY
            iIndex = datevalue.indexOf(strDateSep)
            day = datevalue.substring(0, iIndex)
            datevalue = datevalue.substring(iIndex+1, datevalue.length)
            iIndex = datevalue.indexOf(strDateSep)
            month = datevalue.substring(0, iIndex)
            year = datevalue.substring(iIndex+1, datevalue.length)
        else if (strDateFormat == "1")     // YMD
            iIndex = datevalue.indexOf(strDateSep)
            year = datevalue.substring(0, iIndex)
            datevalue = datevalue.substring(iIndex+1, datevalue.length)
            iIndex = datevalue.indexOf(strDateSep)
            month = datevalue.substring(0, iIndex)
            day = datevalue.substring(iIndex+1, datevalue.length)
        else // MDY
            iIndex = datevalue.indexOf(strDateSep)
            month = datevalue.substring(0, iIndex)
            datevalue = datevalue.substring(iIndex+1, datevalue.length)
            iIndex = datevalue.indexOf(strDateSep)
            day = datevalue.substring(0, iIndex)
            year = datevalue.substring(iIndex+1, datevalue.length)
        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("Je t\u0159eba vybrat n\u0115kter\u00E9 datum ze seznamu.")
        return
self.close()
    Storno
.,$ //:
tmpDateList
    0S0E
tmpDateSelected
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$Info
$DesignerVersion
$$Script_O
$$ScriptName
tmpListOfDates
tmpDateSelected
$Body
$PublicAccess
$106$103$107$Conflict
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
$Flags
$Flags
    0RL1S5S7S8S13S
$106N
zev slo
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
$103Slo
ka UNID
    0S0E
$107P
znaky slo
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&
    0S0E
OdstranitX
    0S0E
esunout do slo
ky...
    0S0E
Po_stoupit
Odpov
Reply
    0S0E
Odpov
 historieX@
Reply with history
    0S0E
adit do kategorie
_Upravit dokumentX
OdeslatX
Znovu odeslatX
NonDelivery Report
Nejedn
 se o zpr
vu o ne
m doru
Tuto zpr
ete odeslat znovu pouze v p
e se jedn
 o zpr
vu o ne
m doru
    6S12S17S23S
st na
lohuX0
ConvertToTask
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
OdstranitX
    0S0E
esunout do slo
ky...
    0S0E
Po_stoupit
Odpov
Reply
    0S0E
Odpov
 historieX@
Reply with history
    0S0E
adit do kategorie
_Upravit dokumentX
OdeslatX
Znovu odeslatX
NonDelivery Report
Nejedn
 se o zpr
vu o ne
m doru
Tuto zpr
ete odeslat znovu pouze v p
e se jedn
 o zpr
vu o ne
m doru
    6S12S17S23S
st na
lohuX0
ConvertToTask
esunout do slo
ky...X
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Name
$WebFlags
$HTMLDocumentStyles
$PublicAccess
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$Language
$LastBuildTime
$BabelInfo
Po_stoupit
adit do kategorie
Upravit zpr
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Po_stoupit
adit do kategorie
Upravit zpr
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$Language
$LastBuildTime
$BabelInfo
'++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
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
~V${-
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ViewGlobalScript
$ViewGlobalScript_O
$Language
$LastBuildTime
$BabelInfo
&Arial
(Room Resource Scheduler)
'++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)
'++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))
    If resourcetype(0) = "1" Then
        vResultSite=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Rooms)';1 )|)
    Else
        vResultSite=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Resources)';2 )|)
    End If
    Call doc.ReplaceitemValue("tmpSitesAll", vResultSite)
    If vResultSite(0)="" Then Msgbox "nebyla nalezena
 polo
sta"
    If resourcetype(0)="2" Then
        vResultCategory=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Resources)';3 )|)
        Call doc.ReplaceitemValue("tmpCategoriesAll", vResultCategory)
        If vResultCategory(0)="" Then Msgbox "nebyla nalezena
 kategorie"
    End If
End Sub
'++LotusScript Development Environment:2:2:BuildCategory:1:8
Sub BuildCategory(Source As Notesuidocument)
    Dim doc As NotesDocument
    Set doc=source.Document
    Dim currentsite As Variant
    Dim allcategories As Variant
    Dim tmpsubset As NotesItem
    Dim newval As String, strTmpSite As String, strTmpSitesAll 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
    strTmpSite = doc.getItemValue("tmpSite")(0)
    strTmpSitesAll = doc.getItemValue("tmpSitesAll")(0)
    If (strTmpSite <> strTmpSitesAll) And (strTmpSite <> "" And strTmpSitesAll <> "") 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
'++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
    If Not(hasbooks) Then
        Msgbox "Nebyly nalezeny
 seznamy jmen a adres."
        continue=False
        Exit Sub
    End If
    Call BuildList(source)
    Call BuildCategory(source)
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
    Call BuildCategory(source)
End Sub
choices
tmpResourceName
tmpResourceNameSingle
tmpResourceName
tmpResourceNameMulti
    0S0E
RoomToReserve
tmpResourceType
choices
choices
RoomToReserve
    0R1S15S
Resources
tmpResourceType
choices
choices
Resources
    0R1S15S
EndDate
StartDate
    0R1S
RoomToReserve
tmpResourceType
Rezervovat m
stnost|1Rezervovat prost
edky|2
tmpResourceName
tmpResourceNameX
tmpAddressBooksX
tmpSitesAllX
tmpCategoriesAll
tmpSubsetCategoryX
.,$$$$
EndDate
EndDateTime
EndDateTime
EndDate
    3S4S6S15S18S
EndDateX
OuterTable
tmpResourceType
stnost
resource
    8S10S
Vyhledat
 dostupn
 ve stanovenou dobu"
bg_DIALOGBANDX
    Datum:
.,$$$$
StartDate
StartDateTime
StartDateTime
StartDate
    3S4S6S15S18S
xxFailed
eba zadat datum zah
StartDate
xxFailed{
    0R3S4S6S11SStartDateX
tek:X
.,$$$$
StartTime
StartDateTime
StartDateTime
StartTime
    3S4S6S15S18S
xxFailed
eba zadat
as zah
StartTime
AppointmentType
AppointmentType
xxFailed{
    0R3S4S5S6S7S8S9S10S11S12S14S19SStartTimeX
    Konec:
.,$$$$
EndTime
EndDateTime
EndDateTime
EndTime
    3S4S6S15S
xxFailed
eba zadat
as ukon
EndTime
AppointmentType
AppointmentType
AppointmentType
xxFailed{
    0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTimeX
    Adres
tmpAddressBooks
    0S0E
tmpNABsXz
tmpNABs
tmpSitesAll
    0S0E
tmpResourceNameBlank
tmpSite
tmpSitehidden
tmpResourceNameBlank
    1S9S11S
tmpResourceName
tmpSite
tmpSitehidden
tmpResourceName
    0R1S9S11S
tmpSite
    0RRtmpSite
tmpSitesAll
    0S0E
tmpSite
tmpSitehiddenX
tmpResourceType
    0S0E
.,$$$$/
allNames
ClientSupportsAltName
EnterSendTo
EnterCopyTo
tmpRequired
tmpOptional
SendTo
CopyTo
tmpRequired
tmpOptional
    1S2S6RT14RT
allNames^
    0R15S16S17S18S19StmpCapacityX
tmpResourceType
    0S0E
tmpResourceCategory
tmpResourceCategory
Kategorie
Vyberte kategorii prost
tmpSubsetCategory
    0R1S7S9S11S13S
tmpResourceCategory
    KategorieX
tmpResourceCategoryX
StartTime
EndTime
Chyba
as zah
as ukon
    3S4S6S12S14S
tmpCapacity
tmpResourceType
Chyba
ed vyhled
stnosti je t
eba zadat po
    0R5S6S
tmpResourceCategory
tmpResourceType
Chyba
ed hled
m prost
edku je t
eba vybrat n
kterou kategorii.
    0R6S
tmpStartDateTime
StartDate
StartTime
tmpEndDateTime
StartDate
EndTime
StartDate
Chyba
ete rezervovat m
stnost na ji
 uplynul
 den.
    0R7S8S14S
Keyarg
CN=*/
tmpResourceType
tmpSite
tmpResourceCategory
tmpSite
ResNameCheck
tmpResourceType
Keyarg
tmpResourceType
tmpStartDateTime
tmpEndDateTime
tmpCapacity
Keyarg
tmpResourceType
tmpStartDateTime
tmpEndDateTime
ResNameCheckZ
Chyba
i hled
stnosti v
m byla doru
ena n
sleduj
 chyba:
ResNameCheck"
tmpResourceName
ResNameCheck
    0R1S2S3S
tmpResourceNameSingle
ResNameCheckj
ResNameCheck
    0R1S3S9S10S12S14S
tmpResourceNameBlank
ResNameCheck
Nebyly nalezeny
 prost
edky nebo m
stnosti, kter
 vyhovuj
 stanoven
asu nebo po
adavk
m na kapacitu.
    0R1S
    Hledat
sledky hled
bg_DIALOGBANDX
tmpResourceType
tmpResourceName
    3S4S
    Dostupn
stnosti:X
tmpResourceType
tmpResourceName
    3S4S
    Dostupn
 prost
edky:X
tmpResourceNameBlank
    0S0E
tmpResourceNameBlank
tmpResourceNameBlank
tmpResourceName
tmpResourceName
    3S4S
tmpResourceNameSingle
tmpResourceNameSingleX
tmpResourceName
tmpResourceName
    3S4S
tmpResourceNameMulti
tmpResourceName
    0S0E
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Capacity
dStartTime
dEndTime
dStartDate
$Info
$DesignerVersion
$$ScriptName
EndDate
StartDate
StartTime
EndTime
tmpCapacity
$PublicAccess
$Script
$$FormScript
$$FormAction2
$Body
$$Script_O
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
&Arial
Lotus Product
(WebSpecificFields)
function submitDocument()
    thisform = document.forms[0];
    if (verifyPreSend()) {
        if (thisform.onsubmit && (false == thisform.onsubmit()))
            return;
        thisform.submit()
function verifyPreSend()
    thisform = document.forms[0];
    if (thisform.SendTo.value == "" && thisform.CopyTo.value == "" && thisform.BlindCopyTo.value == "") {
        alert("Zadejte p
jemce zpr
vy.");
        return false;
    return true;
    1S2S3S
Path_Info
    0R1S2S3S
Query_Stringn
Query_String
    0R1S2S3S
tmpRemovePathX
Importance
.,$,  , :
DeliveryReport
.,$,  , :
DeliveryPriority
CalendarProfile
DefaultMailOpt
tmpSendOptions
Odeslat|1Odeslat a ulo
it|2Ulo
it jako koncept|3z
{FONT SIZE="2"}
ReturnReceiptX
MailOptionsX
SaveOptionsX
PostedDate
ReplyTo
    0S0E
ReplyToX
AbortGracefullyX
tmpOpenMsg
ReturnView
ClientType
tmpAlreadySent
tmpPrincipal
    Tato pole jsou v
dy skryta a nikam se neodes
. Pou
 se pouze p
tech. X
    8S12S14S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$DesignerVersion
$$Script_O
$$ScriptName
PostedDate
$HTMLCode
$Body
$Language
$LastBuildTime
$BabelInfo
function isEmpty(s)
    return ((s == null) || (s.length == 0))
function isDigit (c)
     return ((c >= "0") && (c <= "9"))
function isInteger (s)
    var i;
    if (isEmpty(s)) return false;
        for (i = 0; i < s.length; i++)
            var c = s.charAt(i);
            if (!isDigit(c)) return false;
    return true;
function isNonnegativeInteger (s)
    // The next line is a bit byzantine. What it means is:
    // a) s must be a signed integer, AND
    // b) one of the following must be true:
    // i) s is empty and we are supposed to return true for
    // empty strings
    // ii) this is a number >= 0
    return (isSignedInteger(s) && (isEmpty(s) || (parseInt (s) >= 0) ) );
function isSignedInteger (s)
    if (isEmpty(s)) return false;
    else {
        var startPos = 0;
            // skip leading + or -
            if ( (s.charAt(0) == "-") || (s.charAt(0) == "+") )
                startPos = 1;
            return (isInteger(s.substring(startPos, s.length)))
function makeArray(n)
    for (var i = 1; i <= n; i++) {
        this[i] = 0
    return this
var daysInMonth = makeArray(12);
daysInMonth[1] = 31;
daysInMonth[2] = 29; // must programmatically check this
daysInMonth[3] = 31;
daysInMonth[4] = 30;
daysInMonth[5] = 31;
daysInMonth[6] = 30;
daysInMonth[7] = 31;
daysInMonth[8] = 31;
daysInMonth[9] = 30;
daysInMonth[10] = 31;
daysInMonth[11] = 30;
daysInMonth[12] = 31;
function isIntegerInRange (s, a, b)
    if (isEmpty(s)) return false;
    if (!isInteger(s)) return false;
    var num = parseInt (s);
    return ((num >= a) && (num <= b));
function isMonth (s)
    if (isEmpty(s)) return false;
        // Format may yield "05 Wed" or "Wed 05" so look for substring of 2 chars.
        if (s.length > 2) {
            var space = s.indexOf(" ");
            if (space >2) s = s.slice( space + 1, s.length);
            else s = s.slice( 0, space );
        // now strip out leading 0 because parseInt() will not!
        s = stripLeadingCharsInBag (s, "0")
        return isIntegerInRange (s, 1, 12);
function isDay (s)
    if (isEmpty(s)) return false;
    // Format may yield "05 Wed" or "Wed 05" so look for substring of 2 chars.
        if (s.length > 2) {
            var space = s.indexOf(" ");
            if (space >2) s = s.slice( space + 1, s.length);
            else s = s.slice( 0, space );
        // now strip out leading 0 because parseInt() will not!
        s = stripLeadingCharsInBag (s, "0")
    return isIntegerInRange (s, 1, 31);
function stripLeadingCharsInBag (s, bag)
    var i;
    var returnString = "";
    for (i = 0; i < s.length; i++)
        var c = s.charAt(i);
        if (bag.indexOf(c) == -1) {
            returnString = s.substring( i, s.length);
            break;
    return returnString;
function daysInFebruary (year)
    return ( ((year % 4 == 0) && ( (!(year % 100 == 0)) || (year % 400 == 0) ) ) ? 29 : 28 );
function isYear (s)
    if (isEmpty(s)) return false;
    if (!isNonnegativeInteger(s)) return false;
    return ((s.length == 2) || (s.length == 4));
// isDate (STRING year, STRING month, STRING day)
function isDate (year, month, day)
    if (! (isYear(year) && isMonth(month) && isDay(day))) return false;
    var intYear = parseInt(year);
    var intMonth = parseInt(month);
    var intDay = parseInt(day);
    // catch invalid days, except for February
    if (intDay > daysInMonth[intMonth]) return false;
    if ((intMonth == 2) && (intDay > daysInFebruary(intYear))) return false;
    return true;
function isWhitespace (s)
    var i;
    var whitespace = " \t\n\r";
    if (isEmpty(s)) return true;
    for (i = 0; i < s.length; i++)
        var c = s.charAt(i);
        if (whitespace.indexOf(c) == -1) return false;
    return true;
function stripCharsInBag (s, bag)
    var i;
    var returnString = "";
    for (i = 0; i < s.length; i++)
        // Check that current character isn't whitespace.
        var c = s.charAt(i);
        if (bag.indexOf(c) == -1) returnString += c;
    return returnString;
function stripWhitespace (s)
    var whitespace = " \t\n\r";
    return stripCharsInBag (s, whitespace)
function addDuration(time, duration)
    var thisform = document.forms[0];
    var meridian = "";
    var amstring = thisform.tmpMeridian.value.slice( 0, thisform.tmpMeridian.value.indexOf(";"));
    var pmstring = thisform.tmpMeridian.value.slice( thisform.tmpMeridian.value.indexOf(";") + 1, thisform.tmpMeridian.value.length);
    var returnstring = "";
    var newstart = new Date( translateDate(thisform.StartDate.value) + " " + time);
    if (newstart.toString() == "Neplatn
 datum" || newstart.toString() == "NaN") return "NaN";
    strTimeFormat = thisform.tmpDateTimeFormat.value.slice(thisform.tmpDateTimeFormat.value.indexOf(";") + 1, thisform.tmpDateTimeFormat.value.length)
    strTimeFormat = stripWhitespace(strTimeFormat)
    var num = parseInt(duration); // convert string to integer
    var hours = newstart.getHours(); // 0 - 23
    var minutes = newstart.getMinutes(); // 0 - 59
    hours += num / 60;
    if (hours > 23) // we have spanned days
        var xxNoMidnight = 'Sch
zky nemohou p
ovat p
lnoc';
        alert( xxNoMidnight );
        return "NaN";
    if (strTimeFormat == "12")
        if (hours > 12)
            hours -= 12;
            meridian = pmstring;
        else if (hours < 12)
            meridian = amstring;
        } else {
            meridian = pmstring;
    if (hours < 9) hours = "0" + hours;
    minutes += num % 60;
    if (minutes < 9) minutes = "0" + minutes;
    if (meridian.length > 0)
        returnstring = hours + ":" + minutes + " " + meridian;
    else
        returnstring = hours + ":" + minutes;
    return returnstring;
//Displays participant status.
function openStatusWin()
thisform = window.document.forms[0]
var value = "/"+ thisform.path.value +  "/(wViewParticipantStatus)?OpenAgent&UNID=" + thisform.statusUNID.value;
var nav = navigator.appVersion.charAt(0);
var nap = navigator.appName;
if (nap.indexOf('Netscape') >=0  && (nav == 3))
        {
window.open(value,'wViewStatus','resizable=yes,width=570,height=490,status=no,location=no,toolbar=no,menubar=no,scrollbars=yes');
        }
        {
window.open(value,'wViewStatus','resizable=yes,width=550,height=464,status=no,location=no,toolbar=no,menubar=no,scrollbars=yes');
        }
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 +"&Form="+thisform.Form.value
    return window.open(strLocation,"Dlg","resizable=yes,width="+nWidth+",height="+nHeight)
function isUserOwner()
    thisform = document.forms[0]
    if (thisform.tmpOwner.value == thisform.Chair.value)
        return true
    else
        return false
function translateDate( datevalue )
    strDateFormat = thisform.tmpDateTimeFormat.value.substring(0,thisform.tmpDateTimeFormat.value.indexOf(";"))
    strDateSep = thisform.tmpDateTimeSep.value.substring(0, thisform.tmpDateTimeSep.value.indexOf(";"))
        if (strDateFormat == "0")         //DMY
            iIndex = datevalue.indexOf(strDateSep)
            day = datevalue.substring(0, iIndex)
            datevalue = datevalue.substring(iIndex+1, datevalue.length)
            iIndex = datevalue.indexOf(strDateSep)
            month = datevalue.substring(0, iIndex)
            year = datevalue.substring(iIndex+1, datevalue.length)
        else if (strDateFormat == "1")     // YMD
            iIndex = datevalue.indexOf(strDateSep)
            year = datevalue.substring(0, iIndex)
            datevalue = datevalue.substring(iIndex+1, datevalue.length)
            iIndex = datevalue.indexOf(strDateSep)
            month = datevalue.substring(0, iIndex)
            day = datevalue.substring(iIndex+1, datevalue.length)
        else // MDY
            iIndex = datevalue.indexOf(strDateSep)
            month = datevalue.substring(0, iIndex)
            datevalue = datevalue.substring(iIndex+1, datevalue.length)
            iIndex = datevalue.indexOf(strDateSep)
            day = datevalue.substring(0, iIndex)
            year = datevalue.substring(iIndex+1, datevalue.length)
         if (year.length == 2 && year.substring(0,1) < 5) year = '20' + year;
        if (isDate(year, month, day)) {
            return month + "/" + day + "/" + year;
        } else {
            return "NaN";
function isDateTimeValuesModified()
    thisform = document.forms[0]
if (thisform.Form.value!="Task")
    newstart = new Date(translateDate(thisform.StartDate.value) + " " + thisform.StartTime.value);
    newend = new Date(translateDate(thisform.EndDate.value) + " " + thisform.EndTime.value);
    } else
    newstart = new Date(translateDate(thisform.StartDate.value) + " 12:00" );
    newend = new Date(translateDate(thisform.DueDate.value) + " 23:59" );
    oldstart = new Date(thisform.tmpWebStartDateTime.value);
    oldend = new Date(thisform.tmpWebEndDateTime.value);
    if (newstart.getTime() != oldstart.getTime())
        return true
    else if (newend.getTime() != oldend.getTime())
        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 fixRepeats()
var urlString = new String(document.location);
//if we are creating a new appointment and have unchecked the repeat checkbox, we need to reset repeat values
if (urlString.search(/document/i) == -1) {
    if (((thisform.Repeats.type == "hidden" && thisform.Repeats.value == "") ||
        (thisform.Repeats.type == "checkbox" && !thisform.Repeats.checked))
            && thisform.OrgRepeat.value == "1") {
        thisform.RepeatStartDate.value = "";
        thisform.RepeatUnit.value = "";
        thisform.RepeatInterval.value = "";
        thisform.RepeatAdjust.value = "";
        thisform.RepeatCustom.value = "";
        thisform.RepeatHow.value = "";
        thisform.RepeatFor.value = "";
        thisform.RepeatForUnit.value = "";
        thisform.RepeatUntil.value = "";
        thisform.RepeatFromEnd.value = "";
        thisform.RepeatWeekends.value = "";
        thisform.OrgRepeat.value = "";
        thisform.tmpRepeatCheck.value = "";
function submitDocument()
    thisform = document.forms[0]
    fixRepeats();
    if (thisform.tmpAction.value != 2048) {
    // see if we are changing the date/time and we are the owner
    if (isUserOwner() && (thisform.tmpWasMailed.value == "1") && isDateTimeValuesModified() && !isActionInProgress(512))
        if ( !isActionInProgress(256) )
                {
                if (!self.confirm("Zm\u0115nili jste datum nebo \u010Das t\u00E9to polo\u017Eky. V\u0161ichni \u00FA\u010Dastn\u00EDci budou informov\u00E1ni. Opravdu chcete pokra\u010Dovat?"))
                    {
                    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.  We don't modify if we are just confirming.
    if (thisform.OrgRepeat.value == "1" && thisform.tmpResponse.value == "1" && thisform.tmpChangeWhich.value == "" )
    strLocation = window.location.protocol + "//" + window.location.host + "/" + thisform.tmpDB.value + "/(wDlgBox)?OpenForm&Subform=(ChangeRepeat)"
    strLocation += "&Title=Change"
    if (self.open(strLocation,"Other","width=450,height=300"))
        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) && (thisform.tmpRepeatCheck.value > 1))
        displayDialog("(RepeatOpenList)", "", "&Prompt=Vyberte%20opakovanou%20instanci,%20kterou%20chcete%20upravit.", "Open", "300","250")
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
type=hidden
Principal
type=hidden
DueDateTime
type=hidden
tmpDateTimeFormat
type=hidden
tmpDateTimeSep
type=hidden
tmpOpenMsg
type=hidden
tmpReschURL
type=hidden
statusUNID
tmpRepeatInstance
tmpRepeatInstance
type=Hidden
startdatetime
    0S0E
tmpRepeatCheck
type=hidden
$REFh
    0S0E
tmpResponse
type=hidden
Chair
type=hidden
$CSVersion
type=hidden
WebDateTimeInit
type=hidden
DeliveryReportz
DeliveryReport
type=hidden
DeliveryPriorityz
DeliveryPriority
type=hidden
ReturnReceipt
ReturnReceipt
type=hidden
Broadcast
type=hidden
PreventCounter
type=hidden
PreventDelegate
type=hidden
tmpAction
type=hidden
tmpKeepPosted
type=hidden
NewStartDate
type=hidden
NewEndDate
type=hidden
NewStartTime
type=hidden
NewEndTime
type=hidden
Delegee
type=hidden
RescheduleWhich
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
type=hidden
tmpWebStartDateTime
type=hidden
tmpWebEndDateTime
type=hidden
tmpPencilIn
type=hidden
posteddate
roomtoreserve
resources
    0S0E
tmpWasMailed
type=hidden
CalendarProfile
Owner
tmpOwner
NoticeType
DueState
DueState
ReturnView
    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
    8S12S14S
Upravit
query_string
&Date=G
path_Info
&Click_
    0S0E
NoticeType
tmpOwner
BlindCopyTo
NoticeType
OrgStatus
    8S9S18S19S28S29S31S32S33S34S35S36S
act_EDIT.GIF|act_EDIT?
it zm
ToDoFS
Appointment
CalendarFS
    0S0E
Notice
    1S2S
act_DELETE.GIF|act_DELETE?
it a rozeslat pozv
AppointmentType
tmpOwner
Chair
NoticeG
    10S13S14S
act_SEND.GIF|act_SEND?
document.forms[0].tmpAction.value = "6"
submitDocument()
it jako koncept
AppointmentType
tmpOwner
Chair
NoticeG
    10S13S14S
act_save.GIF|act_CSSAVE?
document.forms[0].tmpAction.value = "2"
submitDocument()
it a zav
AppointmentType
TaskType
    0S0E
act_ok.GIF|act_CSOK?
document.forms[0].tmpAction.value = "2"
submitDocument()
it a rozeslat zpr
vy o p
TaskType
tmpOwner
Chair
NoticeG
    1S2S3S10S13S14S
act_SEND.GIF|act_SEND?
document.forms[0].tmpAction.value = "6"
submitDocument()
it jako koncept~
TaskType
tmpOwner
Chair
NoticeG
    1S2S3S10S13S14S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
document.forms[0].tmpAction.value = "2"
submitDocument()
nosti doru
AppointmentType
tmpOwner
Chair
NoticeG
    10S13S14S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
displayDialog("CSDeliveryOptions","","","Doru
",570,350)
Akce\Zm
nit pl
tmpOwner
Chair
AppointmentType
posteddate
NoticeG
    6S9S10S20S21S22S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","U","","Znovu napl
novat","450","320")
Akce\Zm
nit pl
tmpOwner
Chair
TaskType
posteddate
NoticeG
    6S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","U","","Znovu napl
novat","450","320")
Akce\Zru
tmpOwner
Chair
AppointmentType
posteddate
NoticeG
    6S9S10S20S21S22S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","C","","Storno","450","270")
Akce\Zru
tmpOwner
Chair
TaskType
posteddate
NoticeG
    6S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","C","","Storno","450","270")
Akce\Potvrdit
tmpOwner
Chair
AppointmentType
posteddate
NoticeG
    6S9S10S20S21S22S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","N","","Potvrdit","450","220")
Akce\Potvrdite
tmpOwner
Chair
TaskType
posteddate
NoticeG
    6S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
displayDialog("(OwnerDlg)","N","","Potvrdit","450","220")
Akce\Zobrazit stav
tmpOwner
Chair
AppointmentType
posteddate
NoticeG
    6S9S10S20S21S22S
act_csowneractions.GIF|act_CSOWNERACTIONS?
openStatusWin()
Akce\Zobrazit stav
tmpOwner
Chair
TaskType
posteddate
NoticeG
    6S9S10S
act_csowneractions.GIF|act_CSOWNERACTIONS?
openStatusWin()
Odpov
ijmout
tmpOwner
Chair
Broadcast
tmpDoNotProcess
NoticeType
    6S9S10S19S20S21S22S23S24S27S28S29S30S
act_participantactions.GIF|act_CSPARTACTIONS
if (document.forms[0].Form.value.indexOf('Task')==-1)
displayDialog("(InviteeReplyDlg)","A","","P
ijmout","500","220")
} else
updateActionInProgress(65536, true);
submitDocument()
Odpov
t\Odm
tnoutl
tmpOwner
Chair
Broadcast
tmpDoNotProcess
NoticeType
    6S9S10S19S20S21S22S23S24S27S28S29S30S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","R","","Odm
tnout","500","220")
Odpov
t\Delegovat
tmpOwner
Chair
tmpDoNotProcess
Broadcast
PreventDelegate
NoticeType
    6S9S10S19S20S21S23S24S25S26S2E27S28S29S30S31S32S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","D","","Delegovat","500","320")
Odpov
t\Protin
tmpOwner
Chair
tmpNoActionBar
tmpOwnerHW
Broadcast
PreventCounter
OrgRepeat
    6S9S10S19S20S21S22R23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S2E38S43S44S
act_participantactions.GIF|act_CSPARTACTIONS
displayDialog("(InviteeReplyDlg)","T","","Protin
vrh","500","270")
Dokon
Appointment
NoticeG
NoticeType
DueState
    15S16S17S18S19S20S
act_CSCOMPLETED?
updateActionInProgress(4194306, true);
submitDocument()
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETE?
\Zkontrolovat v
echny pl
ny...
AppointmentType
tmpOwner
Chair
NoticeG
    10S13S14S23S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=yes,resizable=yes,screenX=70,screenY=70,width=840,height=610');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=yes,resizable=yes,top=80,left=70,width=800,height=600');
} else {
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=yes,resizable=yes,screenX=0,screenY=0,width=630,height=480');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wFreeTime?OpenForm','FreeTime','status=yes,scrollbars=yes,resizable=yes,top=0,left=0,width=630,height=480');
\Hledat m
stnosti...1
AppointmentType
tmpOwner
Chair
NoticeG
    10S13S14S23S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,resizable=yes,screenX=100,screenY=100,width=640,height=290');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,resizable=yes,top=120,left=100,width=600,height=280');
\Hledat prost
edky...f
AppointmentType
tmpOwner
Chair
NoticeG
    10S13S14S23S
act_participantactions.GIF|act_CSPARTACTIONS
var pathname = (window.location.pathname);
if (navigator.appName =='Netscape') {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,resizable=yes,screenX=100,screenY=100,width=640,height=290');
    } else {
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,resizable=yes,top=120,left=100,width=600,height=280');
idat do kalend
tmpOwner
Chair
Broadcast
tmpDoNotProcess
NoticeType
    6S9S10S19S20S21S22S23S24S27S28S29S30S
updateActionInProgress(2097154, true);
submitDocument()
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_goto?
t na\Dal
    0S0E
act_goto.gif|act_goto?
t na\P
edchoz
    0S0E
act_goto.gif|act_goto?
ijmout protin
tmpOwner
Chair
NoticeType
    6S9S10S19S20S2E21S22S
displayDialog("(OwnerDlg)","B","","P
ijmout","450","320")
tnout protin
tmpAction
    1S3S
    0S0E
tmpOwner
Chair
NoticeType
    6S9S10S19S20S2E21S22S
Upravit
query_string
&Date=G
path_Info
&Click_
    0S0E
NoticeType
tmpOwner
BlindCopyTo
NoticeType
OrgStatus
    8S9S18S19S28S29S31S32S33S34S35S36S
it zm
ToDoFS
Appointment
CalendarFS
    0S0E
Notice
    1S2S
Odstranit
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
t na\Dal
    0S0E
t na\P
edchoz
    0S0E
tnout protin
tmpAction
    1S3S
    0S0E
tmpOwner
Chair
NoticeType
    6S9S10S19S20S2E21S22S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
PostedDate
wasposted
$Language
$LastBuildTime
$BabelInfo
$HTMLCode
$Info
$DesignerVersion
$$Script_O
$$ScriptName
STARTDATETIME
EndDateTime
RepeatStartDate
RepeatCustom
RepeatFor
RepeatUntil
tmpCalInstanceDate
tmpOriginalStart
tmpOriginalEnd
DueDateTime
tmpRepeatCheck
NewStartDate
NewEndDate
NewStartTime
NewEndTime
tmpWebStartDateTime
tmpWebEndDateTime
DueState
$Body
$V5ACTIONS
$ACTIONS
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
  Pou
 datab
ze po
    Vytvo
    Novou po
vu lze vytvo
it pomoc
ho ze t
 jednoduch
ch formul
    - tento formul
 je ur
en k vytvo
    Odpov
    - tento formul
 je ur
en k odpov
di na p
ijatou zpr
vu. Formul
 lze pou
t pouze v p
, vyberete-li dokument, na kter
 chcete odpov
    Odpov
 historieX
     - tento formul
 je podobn
 formul
i Odpov
m rozd
lem,
e do nov
vy bude automaticky vlo
ena kopie p
ed odesl
m zpr
vy je nutn
 zadat n
sleduj
 informace:
    Komu:X
     - prim
jemci zpr
vy. Obsah zpr
vy je ur
mto p
m, kte
 na zpr
vu mus
 reagovat.
    Kopie:
     - p
jemci, kte
 obdr
 kopii zpr
vy, ale obvykle na ni nemus
 reagovat.X
    Na v
     - p
jemci, kte
 obdr
 skrytou kopii t
to zpr
vu lze odeslat pomoc
 akce Odeslat.X
 kalend
ch a pl
novac
ch funkc
    Tuto datab
ete pou
t tak
 k organizaci sv
asu, udr
ehledu
 a sch
zek a vytvo
sleduj
ch informac
, kter
 lze sd
let s ostatn
ivateli po
    Polo
ka kalend
    tento formul
 lze pou
t pro soukrom
 akce i k pl
zek s ostatn
mi osobami. Chcete-li napl
novat sch
zku, klepn
te na p
 Pozv
nka. M
ete odeslat zpr
vy oznamuj
zky, vybrat povinn
 a nepovinn
ky a naj
t voln
as pro pozvan
 osoby.
va s propojen
    - pomoc
 tohoto formul
ete jin
ivateli po
ty odeslat odkaz na dokument. To je vhodn
 zejm
 dokument
 v datab
zi, kter
 je sd
lena ostatn
ivateli na serveru. Pokud nap
klad proch
te diskusn
 datab
zi a naleznete dokument, kter
 by mohl poslou
it jin
ivateli, vytvo
m zpr
vy s propojen
m umo
te tomuto u
ivateli dan
 dokument velmi rychle vyhledatX
    Telefonick
 vzkaz
    - pomoc
 tohoto formul
ete p
t vzkaz pro jin
ivatele po
kol X
    - pomoc
 tohoto formul
e si m
ete p
ipomenout sv
vazky nebo po
dat jinou osobu o spln
kolu. Ode
lete-li
kol jin
ivatel
ty, budou v
s moci informovat o jeho dokon
. K organizaci osobn
ch jin
m osob
m je ur
en speci
 pohled (viz n
    Bude automaticky vytvo
en profil kalend
e s v
m nastaven
m. Pomoc
 tohoto profilu m
ete ur
it, kte
ivatel
 mohou zobrazit v
ehled voln
asu a tak
 definovat vlastn
 nastaven
 kalend
e. Ke zm
 nastaven
 profilu kalend
e pou
ijte p
kaz Akce - N
stroje kalend
e - Profil kalend
ky a pohledyX
    K dispozici jsou n
sleduj
 pohledy a slo
    zde jsou zobrazeny zpr
vy, kter
m byly zasl
ny jin
ivateli po
Kalend
    tento pohled p
 stoln
 kalend
. Na jednotliv
ch str
ch kalend
e (na kter
ch lze zobrazit dva dny, t
den, dva t
dny nebo cel
c) jsou uvedeny napl
novan
 akce.
    Koncepty - X
    zde jsou zobrazeny vytvo
 a ulo
vy, kter
 nebyly doposud odesl
    Odeslan
    - zde jsou zobrazeny odeslan
vy. M
ete ur
it, zda sem maj
t zpr
vy ukl
ny automaticky, nebo zda chcete b
t na ulo
vy dot
    - zde jsou ulo
eny zpr
vy ozna
 k odstran
koly
    - zde jsou zobrazeny osobn
koly a
koly p
m osob
m. Tento pohled tak
 poskytuje p
ehled o tom, kter
koly byly dokon
eny a kdy.
zky X
    - zde jsou zobrazeny pozv
nky na sch
zky a odpov
di od jednotliv
ch pozvan
ch osob.X
    K usnadn
 orientace v datab
zi po
ete vytvo
it tak
 vlastn
ky a pohledy.X
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$DesignerVersion
$Body
$Language
$LastBuildTime
$BabelInfo
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
$BackgroundR5
$Info
$$ScriptName
$Body
$PublicAccess
edloha zpr
Osobn
edloha
    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
edloha zpr
Osobn
edloha
    6S8S
IsMailStationeryh
    7S9S
$66Kdol
SendTo
    1S2S6S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$55Datum
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60P
edlohab
IsMailStationeryh
MailStationeryName
Subject
    7S9S
va podle p
edlohy
'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
va\Nov
    0S0E
act_NEWMAIL.GIF|act_NEWMAIL?
va\Nov
va podle p
edlohyw'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    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?
Po_stoupit
Postoupit
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARD?
edloha\P
edloha zpr
MailStEd
    1S2S3S
    0R4S
act_NEWSTATIONERY.GIF|act_NEWSTATIONERY?
edloha\Osobn
edloha    \
MailStEd
    1S2S3S
Personal Stationery
    0R4S
act_NEWSTATIONERY.GIF|act_NEWSTATIONERY?
Upravite
00000000
edloha programu Lotus Notes
ed spu
m tohoto p
kazu vyberte jeden dokument.
    11S12S14S16S
MailStEd
    0R1S2S3S
act_EDIT.GIF|act_EDIT?
ejmenovat p
edlohuz
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxTitle
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
act_RENAME.GIF|act_RENAME?
Odstranit1
00000000
edloha programu Lotus Notes
ed spu
m tohoto p
kazu vyberte jeden dokument.
    11S12S14S16S
act_DELETE.GIF|act_DELETE?
adit do kategorie
Upravita
Odeslatr
esunout do slo
ky...
_Odebrat ze slo
ky...
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
va podle p
edlohy
'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
va\Nov
    0S0E
va\Nov
va podle p
edlohyE'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
Po_stoupit
Postoupitt
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
edloha\P
edloha zpr
MailStEd
    1S2S3S
    0R4S
edloha\Osobn
edloha
MailStEd
    1S2S3S
Personal Stationery
    0R4S
Upravit
00000000
edloha programu Lotus Notes
ed spu
m tohoto p
kazu vyberte jeden dokument.
    11S12S14S16S
MailStEd
    0R1S2S3S
ejmenovat p
edlohuz
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxTitle
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
Odstranitm
00000000
edloha programu Lotus Notes
ed spu
m tohoto p
kazu vyberte jeden dokument.
    11S12S14S16S
adit do kategorie
Upravitt
Odeslat
esunout do slo
ky...
_Odebrat ze slo
ky...
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
'++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
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
kj]Wf
$FormatNote
$WebFlags
$Language
$LastBuildTime
$BabelInfo
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$DesignerVersion
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_2
$SCRIPTOBJ_17
$ViewGlobalScript
$ViewGlobalScript_O
Lotus Product
$27$39$13$32Subject$14$Conflict$REF
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
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
 DORU
FailureReason
PhoneCaller
Telefonn
 hovor:
PhoneCaller
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S
HiddenDocument
$MessageType
IsMailStationeryY
    L1S2S3S4S5S8S2E9S
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$39Kdo
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
Person2
    0R3S4S5S6S7S8S10S12S
$13Datum
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$32F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105SSubject$14P
NonDelivery Report
 DORU
FailureReason
PhoneCaller
Telefonn
 hovor:
PhoneCaller
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S&
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
MailStEd
    0S0E
Reply
Odpov
t\Odpov
 historieX
MailStEd
    0S0E
Odpov
 historie
This document is truncated.
    0R4S8S10S13S
Reply with history
ForwardX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
Po_stoupit
OdstranitX
    0S0E
_Upravit
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
ka\Odebrat ze slo
    0S0E
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
esunout do slo
ky...*
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\P
edvolby...0
wPreferences
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
act_NEWMEMO.GIF|act_NEWMEMOX
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
MailStEd
    0S0E
Reply
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
MailStEd
    0S0E
Odpov
 historie
This document is truncated.
    0R4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLYX
ForwardX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARDX
Po_stoupit
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
_Upravit
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLSX
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLSX
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEWX
ka\Vytvo
it slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
esunout do slo
ky...*
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...0
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
'++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
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Index
$FormulaClass
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_32
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_22
$SCRIPTOBJ_30
$Language
$LastBuildTime
$BabelInfo
xxNotCategorized
azeno
    1S2S
Category
xxNotCategorized
Category
    0R3S4S6S8S
Group
ListName
LastName
FirstName
LastName
Firstname
FirstName
CompanyName
    3S4S6RT10S18RT20S22S23S24S25S28RS12E41S59RS7E
Group
ListDescription
OfficePhoneNumber
PhoneLabel_1
PhoneLabel_1
Telefon do kancel
OfficePhoneNumber
OfficeFAXPhoneNumber
PhoneLabel_3
PhoneLabel_3
Fax do kancel
OfficeFAXPhoneNumber"
CellPhoneNumber
PhoneLabel_5
PhoneLabel_5
Mobiln
 telefon:
CellPhoneNumber
PhoneNumber
PhoneLabel_2
PhoneLabel_2
Telefon dom
PhoneNumber
HomeFAXPhoneNumber
PhoneLabel_4
PhoneLabel_4
Fax dom
HomeFAXPhoneNumber"
PhoneNumber_6
PhoneLabel_6
PhoneLabel_6
PhoneNumber_6
    3S4S6S8R10RS11E13S14S23S24S28S29S33S34RS11E37S47S48S52S53S57S58RS11E61S62S71S76S77S78S81S82RS11E85S86S88S95S100S101S102S103S105S106RS11E109S119S124S125S126S129S130RS11E133S143S144S148S149S150S153RS10E
Group
CompanyName
CompanyName
JobTitle
JobTitle
BusinessAddress
OfficeStreetAddress
OfficeCity
OfficeCity
OfficeState
OfficeState
OfficeZip
OfficeCountry
    3S4S6S8R10RS11E13S14S21RS11E24S25S32RS11E35S36S39S40RS17E43S44S47S48S49S50S51S52S58S59S60S61S62S63S65S70RS12E
Form$21$126$19$20$Conflict$REF
Person
Group
    L1S3S4S5S6S7S8S
@Form
xxNotCategorized
azeno
    1S2S
Category
xxNotCategorized
Category
    0R3S4S6S8S
$126N
Group
ListName
LastName
FirstName
LastName
Firstname
FirstName
CompanyName
    3S4S6RT10S18RT20S22S23S24S25S28RS12E41S59RS7E$19Telefonn
Group
ListDescription
OfficePhoneNumber
PhoneLabel_1
PhoneLabel_1
Telefon do kancel
OfficePhoneNumber
OfficeFAXPhoneNumber
PhoneLabel_3
PhoneLabel_3
Fax do kancel
OfficeFAXPhoneNumber"
CellPhoneNumber
PhoneLabel_5
PhoneLabel_5
Mobiln
 telefon:
CellPhoneNumber
PhoneNumber
PhoneLabel_2
PhoneLabel_2
Telefon dom
PhoneNumber
HomeFAXPhoneNumber
PhoneLabel_4
PhoneLabel_4
Fax dom
HomeFAXPhoneNumber"
PhoneNumber_6
PhoneLabel_6
PhoneLabel_6
PhoneNumber_6
    3S4S6S8R10RS11E13S14S23S24S28S29S33S34RS11E37S47S48S52S53S57S58RS11E61S62S71S76S77S78S81S82RS11E85S86S88S95S100S101S102S103S105S106RS11E109S119S124S125S126S129S130RS11E133S143S144S148S149S150S153RS10E
$20Zam
Group
CompanyName
CompanyName
JobTitle
JobTitle
BusinessAddress
OfficeStreetAddress
OfficeCity
OfficeCity
OfficeState
OfficeState
OfficeZip
OfficeCountry
    3S4S6S8R10RS11E13S14S21RS11E24S25S32RS11E35S36S39S40RS17E43S44S47S48S49S50S51S52S58S59S60S61S62S63S65S70RS12E&
\Kontakt
    1S10S14S16S23S
path"
/Person?OpenForm"
act_NEW?
\Skupina
    1S10S14S16S23S
path"
/Group?OpenForm
act_NEW?
_Upravit vizitku
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
ky...
stroje...\Za
adit do kategorieD
Napsat zpr
act_NEWMAIL?
var xxWarning = "Po
tu lze zaslat nejv
e 50 osob
var docs = document.applets.view.getSelectedDocumentsEx();
if (docs.size() == 0) return false;
if (docs.size() > 50) {
    alert(xxWarning);
    return false;
var pathname = window.location.pathname;
var path = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5));
var url = path + 'Memo?OpenForm&To=';
for (var i = 0; i < docs.size(); i++ ) {
    url += docs.elementAt(i) + '%%';
url += '&ReturnView=People';
window.parent.location.replace(url)
novat sch
act_scheduler.gif?
var xxWarning = "Pozvat lze nejv
e 50 osob";
var docs = document.applets.view.getSelectedDocumentsEx();
if (docs.size() == 0) return false;
if (docs.size() > 50) {
    alert(xxWarning);
    return false;
var pathname = window.location.pathname;
var path = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5));
var url = path + 'Appointment?OpenForm&To=';
for (var i = 0; i < docs.size(); i++ ) {
    url += docs.elementAt(i) + '%%';
url += '&ReturnView=People';
window.parent.location.replace(url)
Importovat z adres
act_ADDRESSBOOK?
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Directory','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Directory','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Directory','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Directory','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Directory','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm&Vers=Directory','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
stroje\P
edvolby...
act_TOOLS.GIF|act_TOOLS?
var pathname = window.location.pathname;
var viewname = "Calendar";
if (document.applets.view) {
    viewname = document.applets.view.getViewName();
var newurl = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wPreferences?OpenForm&ReturnView='+viewname;
window.parent.location.replace( newurl );
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLS?
Odstranit\Odstranito
    0S0E
act_DELETE.GIF|act_DELETE?
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETE?
\Kontakt
    1S10S14S16S23S
path"
/Person?OpenForm"
\Skupina
    1S10S14S16S23S
path"
/Group?OpenForm
_Upravit vizitku
Odeslat doku_ment
Po_stoupit
esunout do slo
ky...
_Odebrat ze slo
ky...
stroje...\Za
adit do kategorieE
stroje\N
WebHelp
    0S0E
Odstranit\Odstranit
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Language
$LastBuildTime
$BabelInfo
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$FrameInfo
$WebFlags
$DesignerVersion
$V5ACTIONS
$ACTIONS
$ViewGlobalScript_O
Lotus Product
W32I4
Lotus Product
OBJECT
$189DueState$186SubjectDueDateTime$190$Conflict
xxNotesCats
Dovolen
Projekty
Telefonn
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16S
DueState
DueState
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26R
Subject
Subject
DueDateTime
DueDateTime
DueState
DueState
Budouc
DueState
tnuto
DueState
Complete
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
DueDateTime
ExcludeFromView
OrgRepeat
    L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S
xxNotesCats
Dovolen
Projekty
Telefonn
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16SDueState
DueState
DueState
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26RSubject
Subject
Subject
DueDateTimeTerm
n spln
DueDateTime
DueDateTime
$190Stav
DueState
DueState
Budouc
DueState
tnuto
DueState
Complete
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S&
adit do kategorie
Po_stoupit
_Upravit dokumentX
Odeslat doku_mentX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
kol jako dokon
X'++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
Obnovit dokon
xxTitle
Obnovit dokon
    0S0E
xxNOTCOMPLETE
ete obnovit
kol, kter
 dosud nebyl dokon
xxWRONGASSIGNED
ete obnovit pouze dokon
kol, kter
m byl p
AssignState
xxTitle
xxNOTCOMPLETE
    0RR3S4S6S8S15S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
xxTitle
xxWRONGASSIGNED
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
NoticeType
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
_ViewIcon
    0R1S3S
    0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
NoticeTypeh
NoticeType
    4S5S
OdstranitX
xxTitle
Lotus Notes
    0S0E
xxMESSAGENONESELECTED
 vybran
 dokument.
xxTASKNOTCOMPLETE
loha nen
 dokon
xxTASKNOTCOMPLETEPROMPT
Tato
loha nen
 dosud dokon
ena. Opravdu ji chcete odstranit?
xxTitle
xxMESSAGENONESELECTED
DueState
xxTASKNOTCOMPLETE
xxTASKNOTCOMPLETEPROMPT
    0R1RT2RT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
Akce vlastn
ka\Zm
nit pl
nX'++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
OEMClient
    4S5S
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
Akce vlastn
ka\PotvrditX'++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
OEMClient
    4S5S
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
Akce
ijmoutX'++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
OEMClient
    4S5S
Akce
ka\Odm
tnoutX'++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
OEMClient
    4S5S
Akce
ka\DelegovatX'++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
OEMClient
    4S5S
Akce
ka\Navrhnout nov
asX'++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
OEMClient
    4S5S
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
st polo
ky programu Organizer 97 GSX2
(MigrateOrgGS)
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
adit do kategorie
Po_stoupit
_Upravit dokumentX
Odeslat doku_mentX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
kol jako dokon
X'++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_markCompleted.gifX
Obnovit dokon
xxTitle
Obnovit dokon
    0S0E
xxNOTCOMPLETE
ete obnovit
kol, kter
 dosud nebyl dokon
xxWRONGASSIGNED
ete obnovit pouze dokon
kol, kter
m byl p
AssignState
xxTitle
xxNOTCOMPLETE
    0RR3S4S6S8S15S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
xxTitle
xxWRONGASSIGNED
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
NoticeType
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
_ViewIcon
    0R1S3S
    0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
NoticeTypeh
NoticeType
    4S5S
act_unmark.gif
OdstranitX
xxTitle
Lotus Notes
    0S0E
xxMESSAGENONESELECTED
 vybran
 dokument.
xxTASKNOTCOMPLETE
loha nen
 dokon
xxTASKNOTCOMPLETEPROMPT
Tato
loha nen
 dosud dokon
ena. Opravdu ji chcete odstranit?
xxTitle
xxMESSAGENONESELECTED
DueState
xxTASKNOTCOMPLETE
xxTASKNOTCOMPLETEPROMPT
    0R1RT2RT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
Akce vlastn
ka\Zm
nit pl
nX'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\PotvrditX'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce
ijmoutX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Odm
tnoutX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\DelegovatX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Navrhnout nov
asX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
st polo
ky programu Organizer 97 GSX2
(MigrateOrgGS)
    0S0E
act_TOOLSX
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...
act_TOOLS.GIF|act_TOOLSX
var pathname = window.location.pathname;
var viewname = "Calendar";
if (document.applets.view) {
    viewname = document.applets.view.getViewName();
var newurl = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wPreferences?OpenForm&ReturnView='+viewname;
window.parent.location.replace( newurl );
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
'++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
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$PublicAccess
$Index
$FormulaClass
$AppHelpFormula
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_30
$ViewGlobalScript_O
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
(Globals) (
koly\Podle kategorie)|TodoB
$SCRIPTOBJ_7
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$SCRIPTOBJ_29
$Language
$LastBuildTime
$BabelInfo
Lotus Product
W32I4
Lotus Product
DueState$189$186SubjectDueDateTime$190$Conflict
DueState
DueState
DueState
DueState
Budouc
DueState
tnuto
DueState
Dokon
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26R
Subject
Subject
DueDateTime
DueDateTime
xxNotesCats
Dovolen
Projekty
Telefonn
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16S
DueDateTime
ExcludeFromView
OrgRepeat
DueStateh
    L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S28S29S
DueState
DueState
DueState
DueState
DueState
Budouc
DueState
tnuto
DueState
Dokon
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$186
AssignState
Importance
Importance
Importance
    3S4S6S8R14R20R26RSubject
Subject
Subject
DueDateTimeTerm
n spln
DueDateTime
DueDateTime
$190Kategorie
xxNotesCats
Dovolen
Projekty
Telefonn
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16S&
adit do kategorie
Po_stoupit
_Upravit dokumentX
Odeslat doku_mentX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
kol jako dokon
X'++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
Obnovit dokon
xxTitle
Obnovit dokon
    0S0E
xxNOTCOMPLETE
ete obnovit
kol, kter
 dosud nebyl dokon
xxWRONGASSIGNED
ete obnovit pouze dokon
kol, kter
m byl p
AssignState
xxTitle
xxNOTCOMPLETE
    0RR3S4S6S8S15S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
xxTitle
xxWRONGASSIGNED
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
NoticeType
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
_ViewIcon
    0R1S3S
    0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
NoticeTypeh
NoticeType
    4S5S
OdstranitX
xxTitle
Lotus Notes
    0S0E
xxMESSAGENONESELECTED
 vybran
 dokument.
xxTASKNOTCOMPLETE
loha nen
 dokon
xxTASKNOTCOMPLETEPROMPT
Tato
loha nen
 dosud dokon
ena. Opravdu ji chcete odstranit?
xxTitle
xxMESSAGENONESELECTED
DueState
xxTASKNOTCOMPLETE
xxTASKNOTCOMPLETEPROMPT
    0R1RT2RTT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
Akce vlastn
ka\Zm
nit pl
nX'++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
OEMClient
    4S5S
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
Akce vlastn
ka\PotvrditX'++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
OEMClient
    4S5S
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
Akce
ijmoutX'++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
OEMClient
    4S5S
Akce
ka\Odm
tnoutX'++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
OEMClient
    4S5S
Akce
ka\DelegovatX'++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
OEMClient
    4S5S
Akce
ka\Navrhnout nov
asX'++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
OEMClient
    4S5S
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
st polo
ky programu Organizer 97 GSX2
(MigrateOrgGS)
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
adit do kategorie
Po_stoupit
_Upravit dokumentX
Odeslat doku_mentX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
kol jako dokon
X'++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_markCompleted.gifX
Obnovit dokon
xxTitle
Obnovit dokon
    0S0E
xxNOTCOMPLETE
ete obnovit
kol, kter
 dosud nebyl dokon
xxWRONGASSIGNED
ete obnovit pouze dokon
kol, kter
m byl p
AssignState
xxTitle
xxNOTCOMPLETE
    0RR3S4S6S8S15S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
xxTitle
xxWRONGASSIGNED
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
NoticeType
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
_ViewIcon
    0R1S3S
    0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
NoticeTypeh
NoticeType
    4S5S
act_unmark.gif
OdstranitX
xxTitle
Lotus Notes
    0S0E
xxMESSAGENONESELECTED
 vybran
 dokument.
xxTASKNOTCOMPLETE
loha nen
 dokon
xxTASKNOTCOMPLETEPROMPT
Tato
loha nen
 dosud dokon
ena. Opravdu ji chcete odstranit?
xxTitle
xxMESSAGENONESELECTED
DueState
xxTASKNOTCOMPLETE
xxTASKNOTCOMPLETEPROMPT
    0R1RT2RTT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
Akce vlastn
ka\Zm
nit pl
nX'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\PotvrditX'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce
ijmoutX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Odm
tnoutX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\DelegovatX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Navrhnout nov
asX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
st polo
ky programu Organizer 97 GSX2
(MigrateOrgGS)
    0S0E
act_TOOLSX
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...
act_TOOLS.GIF|act_TOOLSX
var pathname = window.location.pathname;
var viewname = "Calendar";
if (document.applets.view) {
    viewname = document.applets.view.getViewName();
var newurl = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wPreferences?OpenForm&ReturnView='+viewname;
window.parent.location.replace( newurl );
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
'++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
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$PublicAccess
$Index
$FormulaClass
$AppHelpFormula
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_30
$ViewGlobalScript_O
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
(Globals) (
koly\Podle stavu)|TodoBySta
$SCRIPTOBJ_7
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$SCRIPTOBJ_29
$Language
$LastBuildTime
$BabelInfo
Lotus Product
$93$102$68$106$105$74$Conflict
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
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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
ExcludeFromView
    L1S2E
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$102Kdo
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
Person2
    0R3S4S5S6S7S8S10S12S
$68Datum
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$106Velikost
$105z
_ViewIcon2h
_ViewIcon2
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74P
NonDelivery Report
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
Odpov
t\Odpov
Reply
    0S0E
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
Odpov
t\Odpov
 historieX
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
Po_stoupit
_Upravit
OdstranitX
    0S0E
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\Odeslat
dost o sledov
(SendTrackingRequest)
    0S0E
OEMClient
    4S5S
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
esunout do slo
ky...*
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
Odeslat a p
ijmout po
Database
    1S2S
Database
($All)
    0R4S6S
OEMClient
    5S6S
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
act_NEWMEMO.GIF|act_NEWMEMOX
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLYX
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARDX
Po_stoupit
_Upravit
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDERX
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLSX
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLSX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Odeslat
dost o sledov
(SendTrackingRequest)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLSX
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLSX
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEWX
ka\Vytvo
it slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
esunout do slo
ky...*
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...
act_TOOLS.GIF|act_TOOLSX
var pathname = window.location.pathname;
var viewname = "Calendar";
if (document.applets.view) {
    viewname = document.applets.view.getViewName();
var newurl = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wPreferences?OpenForm&ReturnView='+viewname;
window.parent.location.replace( newurl );
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
Odeslat a p
ijmout po
Database
    1S2S
Database
($All)
    0R4S6S
OEMClient
    5S6S
act_CSNEWDOC'++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
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Index
$FormulaClass
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_32
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_22
$SCRIPTOBJ_29
$Language
$LastBuildTime
$BabelInfo
Lotus Product
$65$59$66$55$62$60$Conflict
SchedState
ScheduleStat
    1S2S
SchedState
Scheduled
ta byla napl
SchedState
ta byla pozastavena
Koncepty
    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
PostedDate
$MessageType
ExcludeFromView
ISMAILSTATIONERY
    L1S2S3S4S5S6S7S8S9S15S16S17S18S
SchedState
ScheduleStat
    1S2S
SchedState
Scheduled
ta byla napl
SchedState
ta byla pozastavena
Koncepty
    0R3S4S6S8S9S10S12S14S$59T
IsMailStationeryh
    7S9S
$66Kdo
EnterSendTo
EnterSendTo
EnterSendTo
SendTo
    1S2S10S11S12S13S20S
    0R1S2S8S
    0R1S2S15S16S17S18S25S
SendTo
    0R1S2S5S6S8S12S16S20S
SendTo
    0R1S2S5S6S8S12S16S20S
Person
    0R1S2S5S6S8S10S11S12S13S14S
Person
Person
Person
Person
    0R10S11S20S32S
$55Datum
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60P
IsMailStationeryh
MailStationeryName
Subject
    7S9S
    0S0E
Po_stoupit
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
UpravitX
OdstranitX
    0S0E
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
adit do kategorie
Odeslat dokument
esunout do slo
ky...X
_Odebrat ze slo
ky...
st po
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
esunout do slo
ky...*
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\P
edvolby...0
wPreferences
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
    0S0E
act_NEWMEMO.GIF|act_NEWMEMOX
Po_stoupit
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARDX
UpravitX
act_EDIT.GIF|act_EDITX
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDERX
adit do kategorie
Odeslat dokument
esunout do slo
ky...X
_Odebrat ze slo
ky...
st po
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLSX
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLSX
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEWX
ka\Vytvo
it slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
esunout do slo
ky...*
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...0
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
'++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
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Index
$FormulaClass
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_28
$FormFormula
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_18
$SCRIPTOBJ_26
$Language
$LastBuildTime
$BabelInfo
    $FolderInfo
$103Y8($FolderInfo)cs-CZ
000003B6
CN=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)}/T/M/B1
$68Y($HeadlinesView)cs-CZ
000003BE
CN=Lotus Notes Template Development/O=Lotus Notes######################################
    $FolderRefInfo
$105$
$105$FolderRefIDY($FolderRefInfo)
$105$FolderRefID$FolderRefFlags$Conflict
$FolderRefV
    0S0E
$FolderRefh
$105Slo
ka UNID*
$FolderRefV
    0S0E
$FolderRefIDReferen
 ID slo
ky$FolderRefFlagsReferen
znaky slo
cs-CZ
000003BA
CN=Lotus Notes Template Development/O=Lotus Notes####################################################
cs-CZfST
000003C2($Meetings)|Meetings1/P=3601
StartDateTime
StartDateTimeH
(Help)
MAIL_V_MEETINGS
    0S0E
CalendarFSNotesViewYB5
CN=Lotus Notes Template Development/O=Lotus Notes##############
    /P=2401
FormY($Profiles)H
Form$Conflict
Profile
    L1S5S
FormTyp&
cs-CZ
000003D2
CN=Lotus Notes Template Development/O=Lotus Notes#
    /P=2401-
MailPop3UIDLDeliveredDate
553Courier NewY($POP3UIDL)|($POP3UIDL)$
MailPop3UIDLDeliveredDate$32$30$Conflict
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$POP3ExportSize
    1S2S3S
$POP3ExportSize
MailPop3UIDL
    0RL1S2S3S
MailPop3UIDLMailPop3UIDLDeliveredDateDatum doru
$32$RFC822MessageSize`
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$30$POP3ExportSize\
$POP3ExportSize
    1S2S3S
$POP3ExportSize
cs-CZ
000003CA
CN=Lotus Notes Template Development/O=Lotus Notes###################################
cs-CZ
000003CE($POP3)/P=240
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$POP3ExportSize
    1S2S3S
$POP3ExportSize
DeliveredDate$32$30$Conflict
DeliveredDate
    0RL1S2S3S1
DeliveredDate
DeliveredDateDatum doru
$32$RFC822MessageSize`
$RFC822MessageSize
    1S2S3S
$RFC822MessageSize
$30$POP3ExportSize\
$POP3ExportSize
    1S2S3S
$POP3ExportSize
553Courier NewY5
CN=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)}1
$82$62
MailFSNotesViewYB5($Sent)cs-CZuTT
000003DA
CN=Lotus Notes Template Development/O=Lotus Notes####################
APPTUNID$3Y5($RepeatLookup)|($RepeatLookup)
APPTUNID$3RescheduleWhich$2PrincipalFromDomain$5SequenceNumOrgStateKeepPostedDelegee$CSFlagsMasterLastUpdated$Conflict
APPTUNID
APPTUNID
RepeatInstanceDates
RepeatInstanceDates
OriginalStartDate
    7S9S
RescheduleWhich
RescheduleWhich
Principal
Principal
FromDomain
FromDomain
NoticeType
OrgStatus
NoticeType
    3S4S6S8S
SequenceNum
SequenceNum
KeepPosted
KeepPosted
Delegee
Delegee
$CSFlags
$CSFlags
MasterLastUpdated
MasterLastUpdated
$CSFlagsh
OrgRepeat
    L1S5S6S10S11SHidden - DNTcs-CZ
000003D6
CN=Lotus Notes Template Development/O=Lotus Notes#####################
$68$106
$102$68
$106YlB($SoftDeletions)|($SoftDeletions)cs-CZ    UT
000003DE
CN=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)}
$189$186DueDateTimeD
(Help)
MAIL_V_TASKS
    0S0E
ToDoFSNotesViewYB5($ToDo)|Taskscs-CZ
000003E2
CN=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 Lambertcs-CZWVT
000003E6($VIM100)/P=240
    0S0E
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
DeliveryPriority
DeliveryPriority
    3S4S6S8S
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
Subject
    0S0E
$53$47$48$50$51$52$Conflict
$MessageType
    L1S1$
$53$47$485
CN=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/P=2401$
$53$47$48($VIM23)
$53$47$48$50$51$52$Conflict
PostedDateY
VIMSEL_DRAFT
    7S9S
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
DeliveryPriority
DeliveryPriority
    3S4S6S8S
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
Subject
    0S0E
$MessageType
    L1Scs-CZ
000003EA
CN=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/P=2401$
$53$47$48T($VIM256)<
$53$47$48$50$51$52$Conflict
Recipients
    1S2S3S
Categories
Categoriesb
(No Category)
    0R3S4S6S11S
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
DeliveryPriority
DeliveryPriority
    3S4S6S8S
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
Subject
    0S0E
$MessageType
    L1Scs-CZ
000003EE
CN=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/P=2401$
$53$47$48($VIM42)L
$53$47$48$50$51$52$Conflict
Recipients
    1S2S3S
SenderCategorized
SenderCategorized
(No Category)
    0R3S4S6S11S
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
DeliveryPriority
DeliveryPriority
    3S4S6S8S
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
Subject
    0S0E
$MessageType
    L1Scs-CZ
000003F2
CN=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/P=2401$
$45$47$48($VIM98)
$45$47$48$50$51$52$Conflict
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
DeliveryPriority
DeliveryPriority
    3S4S6S8S
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
Subject
    0S0E
$MessageType
    L1Scs-CZ
000003F6
CN=Lotus Notes Template Development/O=Lotus Notes##################################################
##########################################################
##########################################################t
$68$102$74$Conflict
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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
    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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
Odpov
t...\Odpov
Reply
    0S0E
Odpov
t...\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t...\Odpov
MailStEd
    0S0E
Reply
Odpov
t...\Odpov
 historie
MailStEd
    0S0E
Odpov
 historie
Tento dokument byl zkr
    0R4S8S10S13S
Reply with history
Po_stoupit
_Upravit dokumentX
OdstranitX
    0S0E
ka...\P
esunout do slo
ky...X
    0S0E
ka...\Odebrat ze slo
    0S0E
...\P
edvolby...X0
Preferences
    0S0E
...\Nov
va podle p
edlohyX'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
rovat jako...\Nov
va'++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
rovat jako...\Nov
 polo
ka kalend
eX'++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
rovat jako...\Nov
kol'++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
rovat jako\Nov
 skupinov
 kalend
'++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
va podle p
edlohyX'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
    0S0E
Odpov
t...\Odpov
Reply
    0S0E
Odpov
t...\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
Odpov
t...\Odpov
MailStEd
    0S0E
Reply
Odpov
t...\Odpov
 historie
MailStEd
    0S0E
Odpov
 historie
Tento dokument byl zkr
    0R4S8S10S13S
Reply with history
Po_stoupit
_Upravit dokumentX
OdstranitX
    0S0E
ka...\P
esunout do slo
ky...X
    0S0E
ka...\Odebrat ze slo
    0S0E
...\P
edvolby...X0
Preferences
    0S0E
...\Nov
va podle p
edlohyX'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
rovat jako...\Nov
va'++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
rovat jako...\Nov
 polo
ka kalend
eX'++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
rovat jako...\Nov
kol'++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
rovat jako\Nov
 skupinov
 kalend
'++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
va podle p
edlohyX'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
IsMailStationery
    1S2S
'++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
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Index
$FormulaClass
$WebFlags
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$Language
$LastBuildTime
$BabelInfo
Appointment
_ViewIcon
_ViewIcon
    3S4S6S8S13S15S
_Viewicon2h
_ViewIcon2
    7S9S
Principal
Principal
    1S2S
OrgRepeat
Notice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
OrgState
 se m
e sej
t v navr
enou dobu"
NoticeType
OrgState
 byl rezervov
NoticeType
 chce navrhnout zm
NoticeType
OrgState
 se nez
NoticeType
OrgState
 k dispozici
NoticeType
 se nez
, ale
ast n
koho jin
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S39S40S41S42S44RS13E45S46S48RTTS2E49S50S51S52S53S54S56RTTT57S58S60RS8E61S62S64RS14E65S66S68RS8E69S70S71S72S73S74S76RS14E77S78S80RTS3E81S2E82S83S84S85S86S88RTTT89S90S92RS8E93S94S96RS14E97S98S100RS7E101S102S103S104S105S106S109R
$119$123$122StartDateTimeSubject$Conflict$REF
Appointment
Notice
    L1S2S3S6S7S
 $119
Appointment
_ViewIcon
_ViewIcon
    3S4S6S8S13S15S
$123R
_Viewicon2h
_ViewIcon2
    7S9S
Principal
Principal
    1S2S
OrgRepeat
Notice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
OrgState
 se m
e sej
t v navr
enou dobu"
NoticeType
OrgState
 byl rezervov
NoticeType
 chce navrhnout zm
NoticeType
OrgState
 se nez
NoticeType
OrgState
 k dispozici
NoticeType
 se nez
, ale
ast n
koho jin
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S39S40S41S42S44RS13E45S46S48RTTS2E49S50S51S52S53S54S56RTTT57S58S60RS8E61S62S64RS14E65S66S68RS8E69S70S71S72S73S74S76RS14E77S78S80RTS3E81S2E82S83S84S85S86S88RTTT89S90S92RS8E93S94S96RS14E97S98S100RS7E101S102S103S104S105S106S109RStartDateTimeDoba kon
zkySubjectP
Po_stoupit
_Upravit dokument
esunout do slo
ky...
_Odebrat ze slo
ky...
adit do kategorie
Odeslat doku_ment
novat sch
OEMClient
OEMClient
    0S0E
CSDocType
OEMClient
    0R3RTTTTTT4RTTTTTT5S6S8RTTTTTTT10RTTTTTT11RTTTTTT
Notes
CSDocType
CSDocType
Appointment
    0RR3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=3"
    0R3S4S5S6S
OEMClient
    4S5S
act_scheduler.gif|act_scheduler.gif?
\Akceh
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=0"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=1"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
ipomenut
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=4"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=2"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
Akce vlastn
ka\Zm
nit pl
n3'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Potvrdit6'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONS?
Akce
ijmout '++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Odm
tnout
'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Delegovat
'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Navrhnout nov
'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
rovat jako\Nov
'++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?
rovat jako\Nov
 polo
ka kalend
e'++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?
rovat jako\Nov
kolc'++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?
stnosti...
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');
Rozbalit v
    0S0E
act_ExpandAll.gif?
Sbalit v
    0S0E
act_CollapseAll.gif?
stroje\Importovat sv
tky... 4
(ImportHolidays)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
edvolby...
act_TOOLS.GIF|act_TOOLS?
var pathname = window.location.pathname;
var viewname = "Calendar";
if (document.applets.view) {
    viewname = document.applets.view.getViewName();
var newurl = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wPreferences?OpenForm&ReturnView='+viewname;
window.parent.location.replace( newurl );
stroje\Hledat
    0S0E
act_TOOLS.GIF|act_TOOLS?
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLS?
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
Po_stoupit
_Upravit dokument
esunout do slo
ky...
_Odebrat ze slo
ky...
adit do kategorie
Odeslat doku_ment
novat sch
OEMClient
OEMClient
    0S0E
CSDocType
OEMClient
    0R3RTTTTTT4RTTTTTT5S6S8RTTTTTTT10RTTTTTT11RTTTTTT
Notes
CSDocType
CSDocType
Appointment
    0RR3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=3"
    0R3S4S5S6S
OEMClient
    4S5S
\Akcer
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=0"
    0R3S4S5S6S
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=1"
    0R3S4S5S6S
ipomenut
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=4"
    0R3S4S5S6S
Notes
CSDocType
Appointment
    3S4S6S12S13S19S20S
    0R1S2S
path"
/Appointment?OpenForm&Type=2"
    0R3S4S5S6S
Akce vlastn
ka\Zm
nit pl
'++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
OEMClient
    4S5S
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
Akce vlastn
ka\Potvrdite'++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
OEMClient
    4S5S
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
Akce
ijmout
'++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
OEMClient
    4S5S
Akce
ka\Odm
tnoutm'++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
OEMClient
    4S5S
Akce
ka\Delegovatm'++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
OEMClient
    4S5S
Akce
ka\Navrhnout nov
'++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
OEMClient
    4S5S
rovat jako\Nov
vaA'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kole'++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
Rozbalit v
    0S0E
Sbalit v
    0S0E
stroje\Importovat sv
tky...e4
(ImportHolidays)
    0S0E
OEMClient
    4S5S
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\HledatC
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
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 Product
W32I4
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
Lotus Product
'++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
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
YKLSS
$Language
$LastBuildTime
$BabelInfo
$TITLE
$PublicAccess
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$FrameInfo
$WebFlags
$DesignerVersion
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$SCRIPTOBJ_22
$SCRIPTOBJ_32
$ViewGlobalScript
$ViewGlobalScript_O
'++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
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Jcz@9
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$DesignerVersion
$ViewGlobalScript
$ViewGlobalScript_O
Lotus Product
$71$82$62$75$65$Conflict
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
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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
DeliveredDate
PostedDate
ExcludeFromView
    L1S4S5S8S9S
DeliveredDate
PostedDate
PostedDateY
Importance
    6S11S12S17S19S31S$82Kdo
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
Person2
    0R3S4S5S6S7S8S10S12S
$62Datum
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$75F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$65P
NonDelivery Report
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
    0S0E
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
Po_stoupit
UpravitX
OdstranitX
    0S0E
ka\Vytvo
it slo
    0S0E
esunout do slo
ky...
    0S0E
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
st po
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\Odeslat
dost o sledov
(SendTrackingRequest)
    0S0E
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
esunout do slo
ky...*
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\P
edvolby...0
wPreferences
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
    0S0E
act_NEWMEMO.GIF|act_NEWMEMOX
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARDX
Po_stoupit
UpravitX
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDERX
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
st po
Database
    1S2S
Database
($Inbox)
    0R4S6S
    4S5S
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLSX
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Nov
va podle p
edlohy'++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", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLSX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Odeslat
dost o sledov
(SendTrackingRequest)
    0S0E
act_TOOLS.GIF|act_TOOLSX
    1S10S14S16S23S
path"
/Memo?OpenForm&From="
view"
act_NEW.GIF|act_NEWX
ka\Vytvo
it slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
esunout do slo
ky...*
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat slo
act_FOLDER.GIF|act_FOLDERX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...0
wPreferences
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
'++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
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Index
$FormulaClass
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_29
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_17
$SCRIPTOBJ_27
$Language
$LastBuildTime
$BabelInfo
APPTUNIDApptID
APPTUNID
APPTUNID
$3InstanceDatep
RepeatInstanceDates
RepeatInstanceDates
OriginalStartDate
    7S9S
RescheduleWhichChangeWhich.
RescheduleWhich
RescheduleWhich
$2Creation
PrincipalPrincipal"
Principal
Principal
FromDomainFromDomain"
FromDomain
FromDomain
$5NoticeType^
NoticeType
OrgStatus
NoticeType
    3S4S6S8S
SequenceNumSequenceNum&
SequenceNum
SequenceNum
OrgStateParticipantTypeKeepPostedKeepPosted"
KeepPosted
KeepPosted
DelegeeDelegee
Delegee
Delegee
$CSFlagsFlags
$CSFlags
$CSFlags
AlternateName
Nedefinov
Not DefinedInternetname
Nedefinov
Not Defined$7StorageType
Nedefinov
Not Defined$6AlternateDelegee
Nedefinov
Not DefinedMasterLastUpdatedModified2
MasterLastUpdated
MasterLastUpdated
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$PublicAccess
$Index
$FormulaClass
$DesignerVersion
$Formula
$VIEWFORMAT
$Comment
$Language
$LastBuildTime
$BabelInfo
$93$102$68$106$105$74$Conflict
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
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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
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
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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Po_stoupit
_Upravit dokumentX
Trvale odebrat6
($PermanentDelete)
    0S0E
ObnovitX6
($RestoreDocument)
    0S0E
adit do kategorie
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Po_stoupit
_Upravit dokumentX
Trvale odebrat6
($PermanentDelete)
    0S0E
ObnovitX6
($RestoreDocument)
    0S0E
Trvale odebrat
document.view.deleteSelectedDocuments(true)    //true means do a hard delete
ObnovitX
document.view.undeleteSelectedDocuments()
'++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
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$HTMLDocumentStyles
$PublicAccess
$Index
$FormulaClass
$WebFlags
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
(Globals) ($SoftDeletions)|($SoftDeleti
$Language
$LastBuildTime
$BabelInfo
Lotus Product
W32I4
$189$186$187SubjectDueDateTime$188$190$Conflict$REF
DueState
    2S3S4S6S8S
$186l
OrgRepeat
$CSflags
NoticeTypeh
_ViewIcon
AssignState
Importance
Importance
Importance
    4S5S9S10S14S17S19R26R27S28S30S32R38R44R50R
Principal
Principal
    1S2S
OrgRepeat
TaskNotice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
ijal p
NoticeType
 chce navrhnout zm
NoticeType
tnul p
NoticeType
 delegoval p
 na n
koho jin
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
Subject
Subject
DueDateTime
DueDateTime
DueState
DueState
Budouc
DueState
tnuto
DueState
Dokon
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
xxNotesCats
Dovolen
Projekty
Clients
Telefonick
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16S
DueDateTime
ExcludeFromView
    L1S3S4S5S6S7S8S9S10S12S13S16S17S
$189\
DueState
    2S3S4S6S8S
$186f
$186l
OrgRepeat
$CSflags
NoticeTypeh
_ViewIcon
AssignState
Importance
Importance
Importance
    4S5S9S10S14S17S19R26R27S28S30S32R38R44R50R
$187d
Principal
Principal
    1S2S
OrgRepeat
TaskNotice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
ijal p
NoticeType
 chce navrhnout zm
NoticeType
tnul p
NoticeType
 delegoval p
 na n
koho jin
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
Subject
Subject
Subject
DueDateTimeTerm
n spln
DueDateTime
DueDateTime
$188Stav
DueState
DueState
Budouc
DueState
tnuto
DueState
Dokon
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$190Kategorie
xxNotesCats
Dovolen
Projekty
Clients
Telefonick
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16S&
adit do kategorie
Po_stoupit
_Upravit dokumentX
Odeslat doku_mentX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
kol jako dokon
X'++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
Obnovit dokon
xxTitle
Obnovit dokon
    0S0E
xxNOTCOMPLETE
ete obnovit
kol, kter
 dosud nebyl dokon
xxWRONGASSIGNED
ete obnovit pouze dokon
kol, kter
m byl p
AssignState
xxTitle
xxNOTCOMPLETE
    0RR3S4S6S8S15S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
xxTitle
xxWRONGASSIGNED
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
NoticeType
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
_ViewIcon
    0R1S3S
    0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
NoticeTypeh
NoticeType
    4S5S
OdstranitX
xxTitle
Lotus Notes
    0S0E
xxMESSAGENONESELECTED
 vybran
 dokument.
xxTASKNOTCOMPLETE
loha nen
 dokon
xxTASKNOTCOMPLETEPROMPT
Tato
loha nen
 dosud dokon
ena. Opravdu ji chcete odstranit?
xxTitle
xxMESSAGENONESELECTED
DueState
xxTASKNOTCOMPLETE
xxTASKNOTCOMPLETEPROMPT
    0R1RT2RTT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
Akce vlastn
ka\Zm
nit pl
nX'++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
OEMClient
    4S5S
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
Akce vlastn
ka\PotvrditX'++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
OEMClient
    4S5S
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
Akce
ijmoutX'++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
OEMClient
    4S5S
Akce
ka\Odm
tnoutX'++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
OEMClient
    4S5S
Akce
ka\DelegovatX'++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
OEMClient
    4S5S
Akce
ka\Navrhnout nov
asX'++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
OEMClient
    4S5S
rovat jako\Nov
vaX'++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
rovat jako\Nov
 polo
ka kalend
e'++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
rovat jako\Nov
kolX'++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
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
st polo
ky programu Organizer 97 GSX2
(MigrateOrgGS)
    0S0E
Odstranit\OdstranitX
    0S0E
Odstranit\Vypr
zdnit ko
    0S0E
stroje\HledatX
    0S0E
stroje\N
WebHelp
    0S0E
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
adit do kategorie
Po_stoupit
_Upravit dokumentX
Odeslat doku_mentX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Notes
    3S4S6S12S13S
    0R1S2S
path"
/Task?OpenForm"
    0R3S4S5S6S
act_csnew.GIF|act_CSNEWDOC
kol jako dokon
X'++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_markCompleted.gifX
Obnovit dokon
xxTitle
Obnovit dokon
    0S0E
xxNOTCOMPLETE
ete obnovit
kol, kter
 dosud nebyl dokon
xxWRONGASSIGNED
ete obnovit pouze dokon
kol, kter
m byl p
AssignState
xxTitle
xxNOTCOMPLETE
    0RR3S4S6S8S15S16S
DbOwner
CalendarProfile
Owner
    0R1S2S6S
4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
    0RR1S
Owner1
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
Owner2
DbOwner
DbOwner
    0R1S2S6S9S10S12S14S
AssignedTo1
AssignedTo
    0R1S2S6S
AssignedTo2
AssignedTo
    0R1S2S6S
User1
    0R1S2S6S
User2
    0R1S2S6S
AssignedTo1
AssignedTo2
Owner1
Owner2
User1
User2
xxTitle
xxWRONGASSIGNED
    0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
AssignState
    0R1S2S3S
DueState
    0R1S2S3S
NoticeType
    0R1S2S3S
CompletedDateTime
    0R1S2S3S
_ViewIcon
    0R1S3S
    0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
NoticeTypeh
NoticeType
    4S5S
act_unmark.gif
OdstranitX
xxTitle
Lotus Notes
    0S0E
xxMESSAGENONESELECTED
 vybran
 dokument.
xxTASKNOTCOMPLETE
loha nen
 dokon
xxTASKNOTCOMPLETEPROMPT
Tato
loha nen
 dosud dokon
ena. Opravdu ji chcete odstranit?
xxTitle
xxMESSAGENONESELECTED
DueState
xxTASKNOTCOMPLETE
xxTASKNOTCOMPLETEPROMPT
    0R1RT2RTT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
act_DELETE
Akce vlastn
ka\Zm
nit pl
nX'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Zru
it'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\PotvrditX'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Zobrazit stav
'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce vlastn
ka\Odeslat zpr
m'++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
OEMClient
    4S5S
act_csowneractions.GIF|act_CSOWNERACTIONSX
Akce
ijmoutX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Odm
tnoutX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\DelegovatX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
Akce
ka\Navrhnout nov
asX'++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
OEMClient
    4S5S
act_participantactions.GIF|act_CSPARTACTIONS
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\P
st polo
ky programu Organizer 97 GSX2
(MigrateOrgGS)
    0S0E
act_TOOLSX
Odstranit\OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odstranit\Vypr
zdnit ko
    0S0E
act_DELETE.GIF|act_DELETEX
stroje\P
edvolby...
act_TOOLS.GIF|act_TOOLSX
var pathname = window.location.pathname;
var viewname = "Calendar";
if (document.applets.view) {
    viewname = document.applets.view.getViewName();
var newurl = pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wPreferences?OpenForm&ReturnView='+viewname;
window.parent.location.replace( newurl );
stroje\HledatX
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\N
WebHelp
    0S0E
act_TOOLS.GIF|act_TOOLSX
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CSUIViewClass"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
'++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
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Biouw
$TABLEFORMAT
$HTMLDocumentStyles
$PublicAccess
$Index
$FormulaClass
$AppHelpFormula
$FrameInfo
$WebFlags
$DesignerVersion
$SCRIPTOBJ_30
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$SCRIPTOBJ_7
$SCRIPTOBJ_10
$SCRIPTOBJ_11
$SCRIPTOBJ_12
$SCRIPTOBJ_13
$SCRIPTOBJ_14
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$SCRIPTOBJ_19
$SCRIPTOBJ_20
$SCRIPTOBJ_21
$SCRIPTOBJ_29
$Language
$LastBuildTime
$BabelInfo
 $53Unique ID
    0S0E
$47Datex
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S$48Fromz
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
$50PriorityT
DeliveryPriority
DeliveryPriority
    3S4S6S8S
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$52Subject(
Subject
    0S0E
Categori_ze
_Edit Document
Send Docu_ment
_Forward
_Move To Folder...
_Remove From Folder
Categori_zee
_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
$TABLEFORMAT
$Author
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$DesignerVersion
$V5ACTIONS
$ACTIONS
 $53Draft@
PostedDateY
VIMSEL_DRAFT
    7S9S
$47Datex
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S$48Fromz
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
$50PriorityT
DeliveryPriority
DeliveryPriority
    3S4S6S8S
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$52Subject(
Subject
    0S0E
Categori_zeX
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Author
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$Language
$LastBuildTime
$BabelInfo
 $53Category
Recipients
    1S2S3S
Categories
Categoriesb
(No Category)
    0R3S4S6S11S$47Datex
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S$48Fromz
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
$50PriorityT
DeliveryPriority
DeliveryPriority
    3S4S6S8S
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$52Subject(
Subject
    0S0E
Categori_zeX
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Author
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$Language
$LastBuildTime
$BabelInfo
 $53Keyword
Recipients
    1S2S3S
SenderCategorized
SenderCategorized
(No Category)
    0R3S4S6S11S$47Datex
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S$48Fromz
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
$50PriorityT
DeliveryPriority
DeliveryPriority
    3S4S6S8S
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$52Subject(
Subject
    0S0E
Categori_zeX
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Author
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$Language
$LastBuildTime
$BabelInfo
 $45Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$47Datex
DeliveredDate
DeliveredDate
PostedDate
PostedDatei
    3S4S6S8S9S10S12S14S$48Fromz
FromDomainh
FromDomain"
    4S6S7S14S15S16S18S
$50PriorityT
DeliveryPriority
DeliveryPriority
    3S4S6S8S
$51Type
MessageType
MessageType
Delivery Report
VIM_DLR
NonDelivery Report
VIM_NDLR
Return Receipt
VIM_RTRC
VIM_MAILJ
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$52Subject(
Subject
    0S0E
Categori_zeX
_Edit Document
Send Docu_ment
_Forward
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TABLEFORMAT
$Author
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$Language
$LastBuildTime
$BabelInfo
    1($Trash)1
$87$64
MailFSNotesViewFYB5($Trash)cs-CZgWT
0000040A
CN=Lotus Notes Template Development/O=Lotus Notes
#####################################
cs-CZ
000003FE(Rules)|(Rules)|Rules(Rules)|(Rules)|Rules
Enable
    0S0E
Ordernum[
Ordernum
OrderNumX
    0S0E
EList
ExceptionList
ExceptionList
    1S2S2E5S6S8S10S11S12S2E
Pokud
ConditionList
ActionList
EList
    0R15S16S17S18S
$108$110$109$Conflict
    L1S1
 $108P
Enable
    0S0E
$110R
Ordernum[
Ordernum
OrderNumX
    0S0E
$109Jm
EList
ExceptionList
ExceptionList
    1S2S2E5S6S8S10S11S12S2E
Pokud
ConditionList
ActionList
EList
    0R15S16S17S18S
(Help)
MAIL_V_RULES
    0S0E
MailFSNotesView3FYB5
CN=Lotus Notes Template Development/O=Lotus Notes
    1($Alarms)|$Alarms1
$923FYw($Alarms)|$Alarms
$92CalendarDateTime$AlarmOffset$93$AlarmSound$94$Conflict
$AlarmTimeh
$AlarmTime
CalendarDateTime
$AlarmOffset
    7S9S13S15S17S19S21S23S
$AlarmDescription
$AlarmDescription
Subject
    7S9S
Participants
AssignedTo
OptionalAssignees
RequiredAttendees
OptionalAttendees
    1S2S5S6S8S2E12S
$AlarmMemoOptions
$AlarmMemoOptions
Participants
$AlarmSendTo
    0R3S4S9S10S12S14S
    L1Scs-CZ YT
00000402
CN=Lotus Notes Template Development/O=Lotus Notes##############################
cs-CZZYT
000003FA(Skupinov
 kalend
e)|Skupinov
 kalend
e|Group Calendars|(GroupCalendarFolder)1(Skupinov
 kalend
e)|Skupinov
 kalend
e|Group Calendars|(GroupCalendarFolder)
Subject
Subject
Members
Subject$106$Conflict
    L1S1
Subject
0SubjectN
Subject
Subject
lenov
Members
3FYwB5
CN=Lotus Notes Template Development/O=Lotus Notes
############
E4fL3
Archivovat\Zah
jit archivacics-CZ
0000042A}
CN=Lotus Notes Template Development/O=Lotus Notes#########
E4fL3
idat p
jemce\do nov
 polo
ky skupinov
ho kalend
ecs-CZ
00000412
CN=Lotus Notes Template Development/O=Lotus Notes############################################
E4f3L
idat p
jemce\do nov
 skupiny v seznamu adres|NewGroupcs-CZ
0000041E
CN=Lotus Notes Template Development/O=Lotus Notes###########################################
Archivovat\Otev
t protokolcs-CZ0ZT
00000442
CN=Lotus Notes Template Development/O=Lotus Notes##########
E4fL3
Archivovat\Povolit lok
novanou archivacics-CZWZT
00000436
CN=Lotus Notes Template Development/O=Lotus Notes######################################################
E4fL3
Archivovat\Vybran
 dokumentycs-CZ
0000044E
CN=Lotus Notes Template Development/O=Lotus Notes#########
E4fL3
Archivovat\Nastaven
...cs-CZ
0000045A
CN=Lotus Notes Template Development/O=Lotus Notes##############
*1SfL3
LocalScheduledArchivecs-CZ
00000466
CN=Lotus Notes Template Development/O=Lotus Notes#######
cs-CZ
00000472OutOfOffice|OutOfOffice
*1Sf3L5
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
Odeslat zpr
vu mana
erovi datab
zecs-CZ>[T
00000482
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
*1SfL3
Aktualizace
|Update Taskscs-CZx[T
00000492
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
E4f35
Inovovat tuto slo
ku podle n
vrhu verze 5cs-CZ
0000049E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
+MQ O
EH4fL3
(AddSenderToAddressBook)cs-CZ/\T
000004AA
CN=Lotus Notes Template Development/O=Lotus Notes############
EH41f3
(Check Calendar)cs-CZS\T
000004BA
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
EH4f3L
(EditOfficeProfile)cs-CZw\T
000004CE
CN=Lotus Notes Template Development/O=Lotus Notes#
EH4fL35
(MigrateOrgGS)cs-CZ
000004EA
CN=Lotus Notes Template Development/O=Lotus Notes#############
EH41fL3
(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'cs-CZy]T
000004DE
CN=Lotus Notes Template Development/O=Lotus Notes#########################################
EH4f3L
(Preferences)cs-CZ
000004FA
CN=Lotus Notes Template Development/O=Lotus Notes#######
EH4fL3
(SendTrackingRequest)cs-CZ
0000050A
CN=Lotus Notes Template Development/O=Lotus Notes###############
EH41fL3u
(wAddressOpen)cs-CZ-^T
00000516
CN=Lotus Notes Template Development/O=Lotus Notes############
EH4fL3u5
(wAddressSave)cs-CZ
00000522
CN=Lotus Notes Template Development/O=Lotus Notes############
EH4fL3u5
(wAppointmentOpen)cs-CZ
0000052E#
CN=Lotus Notes Template Development/O=Lotus Notes########
EH4fL3u5
(wAppointmentSave)cs-CZ
0000053A)
CN=Lotus Notes Template Development/O=Lotus Notes########
EH4fL3u5
(wDelete)Tento agent odstran
 dokumenty pro u
ivatele s
 WWW.cs-CZj_T
00000546.
CN=Lotus Notes Template Development/O=Lotus Notes#################
EH4fL3u
(wFolderCreateOpen)cs-CZ
000005525
CN=Lotus Notes Template Development/O=Lotus Notes################
EH4fL3u
(wFolderCreateSave)cs-CZ
0000055E9
CN=Lotus Notes Template Development/O=Lotus Notes################
EH4fL35
(wFreeTimeGroups)cs-CZ
0000056A?
CN=Lotus Notes Template Development/O=Lotus Notes##########
EH4fL3u5
(wMailRuleSubmit)cs-CZt`T
00000576D
CN=Lotus Notes Template Development/O=Lotus Notes#########
##########################################################
##########################################################
Form$79$87$64$80$69$Conflict
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
Person2
    0R3S4S5S6S7S8S10S12S
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
IsMailStationeryh
MailStationeryName
NonDelivery Report
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
Form$79
DeliveredDate
PostedDate
PostedDateY
IsMailStationeryh
_ViewIcon
_ViewIcon
Importance
Importance
_ViewIcon
_ViewIcon
$TypeIcon
    3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
$87KdoD
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
Person2
    0R3S4S5S6S7S8S10S12S
$64Datum
DeliveredDate
DeliveredDate
PostedDate
PostedDate
    3S4S6S8S9S10S12S14S$80F
$ContentIconh
$ContentIcon
Froma
 pager
SendToa
 pager
message.wav
vmsg_hdr.wav
.wavG
.tifG
$ContentIconh
$ContentIcon
    6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$69P
IsMailStationeryh
MailStationeryName
NonDelivery Report
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    7S9S10S11S13S14S15S17S18S19S21S22S23S25S26S27S29S30S31S33S34S35S37S38S39S41S
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
zdnit ko
    0S0E
_Odebrat z ko
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
Po_stoupit
esunout do slo
ky...X
zdnit ko
    0S0E
act_empty.gifX
_Odebrat z ko
act_rmvTrash.gif'++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
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
6w:p?KN
$PublicAccess
$Name
$Index
$FormulaClass
$FrameInfo
$WebFlags
$DesignerVersion
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$Language
$LastBuildTime
$BabelInfo
Lotus Product
Lotus Product
Po_stoupit
 pravidlo...'++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, "Nov
 pravidlo", newdoc, True, True)
End Sub
act_NEW.GIF|act_NEW?
Upravit pravidlo...
'++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, "Upravit pravidlo", oldrule, True, True)
    Else
        'More than one document is selected
        Messagebox "Je t
eba vybrat jeden dokument",16,"Chyba"
    End If
End Sub
act_EDIT.GIF|act_EDIT?
Odstranit pravidlo
    0S0E
act_DELETE.GIF|act_DELETE?
esunout nahorut'++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 "Je t
eba vybrat jeden dokument",16,"Chyba"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetPrevDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "Nem
ete zv
 dokumentu, kter
 je na nejvy
rovni.",32,"Chyba"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
act_MOVEUP.GIF|act_MOVEUP?
esunout dol
'++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 "Je t
eba vybrat jeden dokument",16,"Chyba"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetNextDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "Nem
ete sn
 dokumentu, kter
 je na nejni
rovni.",32,"Chyba"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
act_MOVEDOWN.GIF|act_MOVEDOWN?
adit do kategorie
_Upravit dokumentS
Odeslatu
esunout do slo
ky...
_Odebrat ze slo
ky...
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLS?
 pravidlob,
MailRule
    0S0E
act_NEW.GIF|act_NEW?
Upravit pravidlo
act_EDIT.GIF|act_EDIT?
var pathname = (window.location.pathname);
var unid = document.view.getCurrentDocument();
if (top != self) {
top.location.replace(pathname.substring(0,(pathname.lastIndexOf('/')+1))+"(Rules)/"+unid+"?EditDocument")
Zapnout pravidla'++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 vrulenum As Variant
    Dim strfilteritem As String
    Dim profile As notesdocument
    Dim item As notesitem
    Set profile= db.GetProfileDocument("CalendarProfile")
    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)
            vrulenum = note.getitemvalue("ordernum")(0)
            strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
            If Not(profile Is Nothing) Then
                Set item=note.getfirstitem("$FilterFormula")
                If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
                Call profile.save(True, True,True)
                Call note.save(True,False,True)
            Else
                Msgbox("Profil nelze naj
t. Pravidlo proto nen
 vypnout.")
                Exit Sub
            End If
        Next
        ws.ViewRefresh
    End If
End Sub
act_ok.GIF|act_CSOK?
Vypnout pravidla'++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 vrulenum As Variant
    Dim strfilteritem As String
    Dim profile As notesdocument
    Set profile= db.GetProfileDocument("CalendarProfile")
    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")
            vrulenum = note.getitemvalue("ordernum")(0)
            strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
            If Not(profile Is Nothing) Then
                Call profile.removeitem(strfilteritem)
                Call profile.save(True, True,True)
                Call note.save(True,False,True)
            Else
                Msgbox("Profil nelze naj
t. Pravidlo proto nen
 vypnout.")
                Exit Sub
            End If
        Next
        ws.ViewRefresh
    End If
End Sub
act_DELETE.GIF|act_DELETE?
Po_stoupit
 pravidlo...'++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, "Nov
 pravidlo", newdoc, True, True)
End Sub
Upravit pravidlo...
'++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, "Upravit pravidlo", oldrule, True, True)
    Else
        'More than one document is selected
        Messagebox "Je t
eba vybrat jeden dokument",16,"Chyba"
    End If
End Sub
Odstranit pravidlo
    0S0E
esunout nahorud'++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 "Je t
eba vybrat jeden dokument",16,"Chyba"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetPrevDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "Nem
ete zv
 dokumentu, kter
 je na nejvy
rovni.",32,"Chyba"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
esunout dol
'++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 "Je t
eba vybrat jeden dokument",16,"Chyba"
        Exit Sub
    End If
    Set note = docselected.GetFirstDocument()
    Set othernote = view.GetNextDocument(note)
    If (othernote Is Nothing) Then
        Messagebox "Nem
ete sn
 dokumentu, kter
 je na nejni
rovni.",32,"Chyba"
        Exit Sub
    End If
    Call SwapDocuments(othernote,note)
    ws.ViewRefresh
    uiview.SelectDocument(note)
End Sub
adit do kategorie
_Upravit dokumentu
Odeslat
esunout do slo
ky...a
_Odebrat ze slo
ky...
stroje\P
edvolby...R
DialogMode
(Preferences)
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
 pravidlo
MailRule
    0S0E
Zapnout pravidla'++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 vrulenum As Variant
    Dim strfilteritem As String
    Dim profile As notesdocument
    Dim item As notesitem
    Set profile= db.GetProfileDocument("CalendarProfile")
    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)
            vrulenum = note.getitemvalue("ordernum")(0)
            strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
            If Not(profile Is Nothing) Then
                Set item=note.getfirstitem("$FilterFormula")
                If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
                Call profile.save(True, True,True)
                Call note.save(True,False,True)
            Else
                Msgbox("Profil nelze naj
t. Pravidlo proto nen
 vypnout.")
                Exit Sub
            End If
        Next
        ws.ViewRefresh
    End If
End Sub
Vypnout pravidla'++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 vrulenum As Variant
    Dim strfilteritem As String
    Dim profile As notesdocument
    Set profile= db.GetProfileDocument("CalendarProfile")
    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")
            vrulenum = note.getitemvalue("ordernum")(0)
            strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
            If Not(profile Is Nothing) Then
                Call profile.removeitem(strfilteritem)
                Call profile.save(True, True,True)
                Call note.save(True,False,True)
            Else
                Msgbox("Profil nelze naj
t. Pravidlo proto nen
 vypnout.")
                Exit Sub
            End If
        Next
        ws.ViewRefresh
    End If
End Sub
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
'++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)
Declare Sub SwitchFormula(SourceDoc As notesdocument, DestDoc As notesdocument, dsort As Integer, ssort As Integer)
'++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
Dim profile As notesdocument
'++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
    Call SourceDoc.replaceitemvalue("OrderNum", Cstr(dsort))
    Call  DestDoc.replaceitemvalue("OrderNum", Cstr(ssort))
    Call SwitchFormula(SourceDoc, DestDoc, dsort, ssort)
    Call SourceDoc.Save(True,False,True)
    Call DestDoc.Save(True,False,True)
End Sub
'++LotusScript Development Environment:2:2:SwitchFormula:1:8
Sub SwitchFormula(SourceDoc As notesdocument, DestDoc As notesdocument, dsort As Integer, ssort As Integer)
    'need to modify the formula_# item number on the profile note if the rule is enabled
    Dim item1 As notesitem
    Dim item2 As notesitem
    Dim bprofilesave As Integer
    Set profile= db.GetProfileDocument("CalendarProfile")
    If SourceDoc.getitemvalue("Enable")(0) = "1" And DestDoc.getitemvalue("Enable")(0) = "1" Then
        Set item1=sourcedoc.getfirstitem("$FilterFormula")
        Set item2 = destdoc.getfirstitem("$FilterFormula")
        If Not(item1 Is Nothing) Then Call item1.copyitemtodocument(profile,"$FilterFormula_"+Cstr(dsort))
        If Not(item2 Is Nothing) Then Call item2.copyitemtodocument(profile,"$FilterFormula_"+Cstr(ssort))
        bprofilesave = True
    Elseif SourceDoc.getitemvalue("Enable")(0)="1" And DestDoc.getitemvalue("Enable")(0) = "0" Then
        Set item1=sourcedoc.getfirstitem("$FilterFormula")
        If Not(item1 Is Nothing) Then Call item1.copyitemtodocument(profile,"$FilterFormula_"+Cstr(dsort))
        Call profile.removeitem("$FilterFormula_"+Cstr(ssort))
        bprofilesave = True
    Elseif SourceDoc.getitemvalue("Enable")(0)="0" And DestDoc.getitemvalue("Enable")(0) = "1" Then
        Set item2 = destdoc.getfirstitem("$FilterFormula")
        If Not(item2 Is Nothing) Then Call item2.copyitemtodocument(profile,"$FilterFormula_"+Cstr(ssort))
        Call profile.removeitem("$FilterFormula_"+Cstr(dsort))
        bprofilesave = True
    Else
        bprofilesave = False
    End If
    If bprofilesave Then Call profile.save(True, True,True)
End Sub
Lotus Product
W32I4
'++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)
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 Postopen From Source Call Postopen
    On Event Queryopendocument From Source Call Queryopendocument
    On Event Postpaste From Source Call Postpaste
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,"Upravit pravidlo",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
'++LotusScript Development Environment:2:2:Postpaste:1:12
Sub Postpaste(Source As Notesuiview)
    Dim docs As notesdocumentcollection
    Dim ndoccount As Long
    Dim viewcoll As notesviewentrycollection
    Dim currentnote As notesdocument
    Dim item As notesitem
    Set profile = db.getprofiledocument("CalendarProfile")
    Set viewcoll = view.allentries
    ndoccount=viewcoll.count
    Set docs = source.documents
    Set currentnote=docs.getfirstdocument
    While Not(currentnote Is Nothing)
        If currentnote.getitemvalue("Form")(0)="Mailrule" Then
            Call currentnote.replaceitemvalue("ordernum", Cstr(ndoccount-1))
            Call currentnote.save(True,False,False)
            Set item=currentnote.getfirstitem("$FilterFormula")
            If Not(item Is Nothing) Then
                If currentnote.getitemvalue("Enable")(0)="1" Then Call item.copyitemtodocument(profile,"$FilterFormula_"+Cstr(ndoccount-1))
                Call profile.replaceitemvalue("$FilterFormulaCount",Cstr(ndoccount))
                Call profile.save(True, True,True)
            End If
        Else
            Msgbox("Do slo
ky Pravidla lze vlo
it pouze dokumenty s pravidly.")
            Call currentnote.removefromfolder("Rules")
            Exit Sub
        End If
        Set currentnote=docs.getnextdocument(currentnote)
    Wend
End Sub
Lotus Product
W32I4
Kp    ,(
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
og>A{N
$SCRIPTOBJ_17
$SCRIPTOBJ_18
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$AppHelpFormula
$Comment
$FrameInfo
$WebFlags
$DesignerVersion
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_4
$SCRIPTOBJ_5
$SCRIPTOBJ_15
$SCRIPTOBJ_16
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
$92AlarmTime
$AlarmTimeh
$AlarmTime
CalendarDateTime
$AlarmOffset
    7S9S13S15S17S19S21S23S
CalendarDateTimeCalendarDateTime$AlarmOffsetPosunut
$93Popisd
$AlarmDescription
$AlarmDescription
Subject
    7S9S
$AlarmSoundAlarmSound$94AlarmMailT
Participants
AssignedTo
OptionalAssignees
RequiredAttendees
OptionalAttendees
    1S2S5S6S8S2E12S
$AlarmMemoOptions
$AlarmMemoOptions
Participants
$AlarmSendTo
    0R3S4S9S10S12S14S&
Po_stoupit
adit do kategorie
_Upravit dokumentX
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
Po_stoupit
adit do kategorie
_Upravit dokumentX
OdeslatX
esunout do slo
ky...X
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$PublicAccess
$Name
$Index
$FormulaClass
$Formula
$VIEWFORMAT
$ACTIONS
$V5ACTIONS
$Language
$LastBuildTime
$BabelInfo
Lotus Product
W32I4
Po_stoupit
_Upravit dokument
adit do kategorie
Odeslat
esunout do slo
ky...O
_Odebrat ze slo
ky...
 skupinov
 kalend
'++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
Upravit
'++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?
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLS?
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
Po_stoupit
_Upravit dokument
adit do kategorie
Odeslat
esunout do slo
ky...
_Odebrat ze slo
ky...
 skupinov
 kalend
'++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
Upraviti'++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
Odstranitw
    0S0E
stroje\P
edvolby...R
DialogMode
(Preferences)
LSBind'++LotusScript Development Environment:2:5:(Options):0:74
Use "CommonUI"
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
End Sub
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
'++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
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
+{|bk
(Globals) (Group Calendars)|Group Calen
$Language
$LastBuildTime
$BabelInfo
$TITLE
$PublicAccess
$Name
$Index
$Formula
$FormulaClass
$VIEWFORMAT
$Comment
$WebFlags
$DesignerVersion
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_6
$SCRIPTOBJ_7
$SCRIPTOBJ_10
$ViewGlobalScript
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
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
    On Error Goto Trap
    Dim StringTable As New mailtoolsstringtable
    Dim s As New notessession
    Dim ws As New notesuiworkspace
    Dim db As notesdatabase
    Dim lngReturn As Long
    Set db = s.currentdatabase
    If YesNoPrompt(StringTable.GetString(TOOL_STRING+77,Null),StringTable.GetString(TOOL_STRING+75,Null)) Then
Archive:
        lngReturn = db.archiveNow()
    End If
    Exit Sub
Trap:
    If YesNoPrompt(Error$ & Chr(10) & StringTable.GetString(TOOL_STRING+74,Null),StringTable.GetString(TOOL_STRING+75,Null)) Then
        If ws.Currentdatabase.Editarchivesettings() Then
            Resume Archive
        End If
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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 = "P
ejmenovat c
lovou skupinu"
        Case 2
            GetString = "Nahradit existuj
 skupinu novou skupinou"
        Case 3
            GetString = "P
ipojit vybran
leny k existuj
m skupiny"
        Case 4
            GetString = "Skupina s t
mto n
zvem ji
 byla definov
na. "
        Case 5
            GetString = "Vyberte po
adovanou akci"
        Case 6
            GetString = "Zadejte nov
zev skupiny"
        Case  7
            GetString = "Lotus Notes"
        Case 8
            GetString = "-bez n
zvu-"
        Case 9
            GetString = "P
idat p
jemce do nov
 skupiny"
        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
W32I4
~###1
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
Started running agent 'Archive\Open Log' on 04/19/99 10:06:10 AM
1 document(s) were modified by formula
Done running agent 'Archive\Open Log' on 04/19/99 10:06:11 AM
xxTitle
t protokol archivu
    0S0E
xxMessage
Nebyla zad
 datab
ze, zkontrolujte nastaven
 archivace.
ARCHIVESERVER
Archive Profile
ArchiveServer
ARCHIVELOGDBPATH
Archive Profile
ArchiveLogDBPath
ARCHIVELOGDBPATH
ARCHIVESERVER
ARCHIVELOGDBPATH
xxTitle
xxMessage
    L1R8R
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction_Ex
$AssistAction
$AssistQuery
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const ENABLE_LOCAL_AGENTS = &h8000000&
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim s As New notessession
    Dim db As notesdatabase
    Dim agentArchive As notesagent
    Dim lngPreferences As Long
    Dim StringTable As New mailtoolsstringtable
    Set db = s.currentdatabase
    If Len(db.Server)=0 Then
        Set agentArchive = db.GetAgent("LocalScheduledArchive")
        If Not agentArchive Is Nothing Then
            If     Not agentArchive.IsEnabled Then
                agentArchive.Servername = s.username
                agentArchive.IsEnabled = True
                Call agentArchive.Save
            End If
        End If
        lngPreferences = s.GetEnvironmentvalue("Preferences",True)
        If lngPreferences And ENABLE_LOCAL_AGENTS Then
        'the local agent manager is already running
        Else
            Call DisplayWarn(StringTable.GetString(TOOL_STRING+78,Null),MB_OK, StringTable.GetString(TOOL_STRING+75,Null))
        End If
    Else
        Call DisplayWarn(StringTable.GetString(TOOL_STRING+79,Null),MB_OK, StringTable.GetString(TOOL_STRING+75,Null))
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
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
    On Error Goto Trap
    Dim s As New notessession
    Dim uiws As New notesuiworkspace
    Dim db As notesdatabase
    Dim coll As notesdocumentcollection
    Dim StringTable As New mailtoolsstringtable
    Set db = s.currentdatabase
    Set coll = db.unprocesseddocuments
    If YesNoPrompt(StringTable.GetString(TOOL_STRING+76,coll.count),StringTable.GetString(TOOL_STRING+75,Null)) Then
Archive:
        Call db.ArchiveNow(coll)
        Call uiws.Viewrefresh()
    End If
    Exit Sub
Trap:
    If YesNoPrompt(Error$ & Chr(10) & StringTable.GetString(TOOL_STRING+74,Null),StringTable.GetString(TOOL_STRING+75,Null)) Then
        If uiws.Currentdatabase.Editarchivesettings() Then
            Resume Archive
        Else
            End
        End If
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
'++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 ws As New notesuiworkspace
    Dim uidb As notesuidatabase
    Set uidb = ws.currentdatabase
    If (uidb Is Nothing) Then Exit Sub
    Call uidb.EditArchiveSettings()
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
wf]I4
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    On Error Goto Trap
    Dim s As New notessession
    Dim db As notesdatabase
    Dim lngReturn As Long
    Set db = s.currentdatabase
Archive:
    lngReturn = db.archivenow()
    Exit Sub
Trap:
    Print (Cstr(Err) & " " & Error$)
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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("Protokol agenta Mimo kancel
        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) & " bylo nalezeno ke zpracov
    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)  & "  chyb zji
no." )
        Else
            Call Me.m_OutOfOfficeLog.LogAction("Nebyly zji
 chyby.")
        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(10)
                    Else
                        Me.m_strNotifiedMsg = Me.m_strNotifiedMsg & Me.m_nameNotify.Common & Chr(10)
                    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("")
            'we clear this item if the agent has never run before
            Call Me.m_profileOffice.ReplaceItemValue ("Notified", "")
            Call Me.m_OutOfOfficeLog.LogAction("Seznam upozorn
ch osob byl vypr
n.")
        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) <= SINGLE_DAY Then
            Call Me.m_profileOffice.ReplaceItemValue ("Notified", "")
            Call Me.m_OutOfOfficeLog.LogAction("Seznam upozorn
ch osob byl vypr
            If Me.m_dtNow.TimeDifference(Me.m_dtLeave) < 0 Then
                AgentOKToRun = False
                Exit Function
            End If
        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..
          '
        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(10) & Chr(10)
          '
        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("Byl p
n " & Me.m_strNameFrom & " do seznamu" )
        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
W32I4
#K|    -
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$DesignerVersion
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
!w+,%
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction_Ex
$AssistAction
$AssistQuery
$Language
$LastBuildTime
$BabelInfo
'++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
A@;@;
Lotus Product
W32I4
 8"`;
X!X!p<
X"8+8>
"8#4?
%8&XD
&x&\E
'x'PG
'x(XH
(8(HI
)x) K
)x+PL
8+X1DO
+8-PP
X-x-XS
X/x4HW
0x2`Z
X1X2$[
183l\
x2x5\]
x386T_
487|`
x488Pa
4x6Tb
5X6pc
87x7<g
7X84h
90;$>
<$>$j
D\D\D
PFlo]Z
B}pk#
^t=K0;-
>Kt=,
>-LC#8
>-pC#
^$>+4>
A^$>^
N$>T,D^
N$>T8D'
N$>TDD'
N$>TPD'
<,\D}
>Kt=,
@,<E}
@,<E}
@-lE#
B-,F#
AQPFJ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$MachineName
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
xxTitle
Inovace n
xxReplace
Nahra
vrh '
    0R2S
xxWith
vrhem '
    0R2S
xxQuestion
    0R2S
xxCancelled
Operace byla zru
    0R2S
xxTARGET_IS_SOURCE
Nelze inovovat stejn
 jako zdrojov
 prvek n
vrhu.
TargetView
SourceDesign
($Inbox)
TargetView
SourceDesign
xxTitle
xxTARGET_IS_SOURCE
xxTitle
xxReplace
TargetView"
xxWith"
SourceDesign"
xxQuestion"
TargetView
SourceDesign
xxTitle
xxCancelled
    0RR1RT2RT3S4S6RTT15RT21S22S23S24S25S26S27S28S29S32RTT39TRT47RT
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction_Ex
$DesignerVersion
$AssistAction
$AssistQuery
$Language
$LastBuildTime
$BabelInfo
'++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 LIST_SEPERATOR$ = ", "
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_SenderNameTable As NotesCSParticipantTable
    Private m_SenderNameTableEntry As NotesCSParticipantInstance
    Private m_listNoteId List As String
    Private m_listFromValue List As String
    Private m_listFromDomain List As String
    Private m_vMailDomain As Variant
    Private m_vResult As Variant
    Private m_AllFrom 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_CurrentUser As String
    Private m_strCurrentNoteValue 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_str509Failures 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 m_nListEntry As Integer
    Private m_nUniqueEntries As Integer
    Private nDisplayError 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_SenderNameTable = New NotesCSParticipantTable(17)
        Set Me.m_noteCandidate = Me.m_collection.getfirstdocument
        While Not Me.m_noteCandidate Is Nothing
            If Me.m_noteCandidate.hasitem("From") Then
                Me.m_strCurrentNoteValue    = Me.m_noteCandidate.GetItemValue("From")(0)
                If (Not Instr(Me.m_strCurrentNoteValue,"@")) Or (Instr(Me.m_strCurrentNoteValue,"@") And _
                Not Len(Fulltrim(Strleft(Me.m_strCurrentNoteValue,"@"))) = 0) Then
                    If Not NAMECompare(Cstr(Me.m_strCurrentNoteValue), Me.m_CurrentUser) Then
AddThisEntry:
                        Call Me.m_SenderNameTable.AddInstance(Me.m_strCurrentNoteValue,Me.m_nListEntry,0)
                        Me.m_listFromValue(Me.m_nListEntry) = Me.m_strCurrentNoteValue
                        Me.m_listNoteId(Me.m_nListEntry) = Me.m_noteCandidate.NoteID
                        If (GetFromDomain(Me.m_noteCandidate) <> "") And Lcase(Me.m_vMailDomain(0)) <> Lcase(GetFromDomain(Me.m_noteCandidate))  Then
                            Me.m_listFromDomain(Me.m_nListEntry) = GetFromDomain(Me.m_noteCandidate)
                        Else
                            Me.m_listFromDomain(Me.m_nListEntry) = ""
                        End If
                        Me.m_nValidItemAdded = True
                        Me.m_nListEntry = Me.m_nListEntry + 1
                    Else
                        If Not Me.m_nUserWasInList Then
                            Me.m_nUserWasInList = True
                            'Let's allow the user to decide!
                            If YesNoPrompt(Me.m_AddressStringTable.GetString(TOOL_STRING+63,Null),_
                            Me.m_AddressStringTable.GetString(TOOL_STRING+62,Null)) Then
                                Goto AddThisEntry
                            End If
                        End If
                    End If
                End If
            End If
            Set Me.m_noteCandidate = Me.m_collection.getnextDocument(Me.m_noteCandidate)
        Wend
        If Not Me.m_nValidItemAdded Then
            Exit Function
        End If
        Me.m_nUniqueEntries = CountTableEntries()
        '//process parallel noteitems
        Call ParseNamesToItems()
        '//place noteitems on dialog note
        With Me.m_noteOptions
            Call .replaceitemvalue("AllAddresses",Me.m_strEmail)
            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
        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()
            Call ReportResults()
        End If
    End Function
    Private Function ReportResults() As Integer
        If Me.nDisplayError Then
            Dim nReturn As Integer
            nReturn = Msgbox(Me.m_AddressStringTable.GetString(TOOL_STRING+84,Me.m_str509Failures), MB_OK+MB_ICONINFORMATION, Me.m_AddressStringTable.GetString(TOOL_STRING+62,Null))
        Else
'WEZ
        End If
    End Function
    Private Function AddToErrorList(strName As String) As Integer
        If Len(strName) Then
            Dim nameObj As New notesname(strName)
            If Len(Me.m_str509Failures) Then
                Me.m_str509Failures = Me.m_str509Failures & LIST_SEPERATOR & nameObj.Abbreviated
            Else
                Me.m_str509Failures = nameObj.Abbreviated
            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
    Private Function CountTableEntries() As Integer
        Dim nUpper As Integer
        Set Me.m_SenderNameTableEntry = Me.m_SenderNameTable.GetFirstInstance()
        Do While Not (Me.m_SenderNameTableEntry Is Nothing)
            nUpper = nUpper + 1
            Set Me.m_SenderNameTableEntry = Me.m_SenderNameTable.GetNextInstance()
        Loop
        CountTableEntries = nUpper
    End Function
    Sub ParseNamesToItems()
        Dim nameCurrentName As notesname
        Redim Me.m_AllFrom((Me.m_nUniqueEntries - 1))
        Redim Me.m_strTitle((Me.m_nUniqueEntries - 1))
        Redim Me.m_strFirst((Me.m_nUniqueEntries - 1))
        Redim Me.m_strMiddle((Me.m_nUniqueEntries - 1))
        Redim Me.m_strLast((Me.m_nUniqueEntries - 1))
        Redim Me.m_strFullName((Me.m_nUniqueEntries - 1))
        Redim Me.m_strSuffix((Me.m_nUniqueEntries - 1))
        Redim Me.m_strEmail((Me.m_nUniqueEntries - 1))
        Redim Me.m_strDomain((Me.m_nUniqueEntries - 1))
        Redim Me.m_strPublicAddressUNID((Me.m_nUniqueEntries - 1))
        Redim Me.m_strNoteID((Me.m_nUniqueEntries - 1))
        Redim Me.m_strEmailType((Me.m_nUniqueEntries - 1))
        Redim Me.m_strConflictInNAB((Me.m_nUniqueEntries - 1))
        Redim Me.m_strConflictAction((Me.m_nUniqueEntries - 1))
        Set Me.m_SenderNameTableEntry = Me.m_SenderNameTable.GetFirstInstance()
        Do While Not (Me.m_SenderNameTableEntry Is Nothing)
            Set nameCurrentName = New notesname(Me.m_listFromValue(Me.m_SenderNameTableEntry.role))
            Me.m_AllFrom(x) = Me.m_listFromValue(Me.m_SenderNameTableEntry.role)
            Me.m_strEmailType(x) = Cstr(GetMailType(Me.m_listFromValue(Me.m_SenderNameTableEntry.role)))
            If Len(nameCurrentName.Addr821) Then
                Me.m_strEmail(x) = nameCurrentName.Addr821
            Else
                Me.m_strEmail(x) = Me.m_listFromValue(Me.m_SenderNameTableEntry.role)
            End If
            Me.m_strDomain(x) = Me.m_listFromDomain(Me.m_SenderNameTableEntry.role)
            Me.m_strNoteID(x) = Me.m_listNoteID(Me.m_SenderNameTableEntry.role)
            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_listFromValue(Me.m_SenderNameTableEntry.role)))
                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
                'Construct like Notes
                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_SenderNameTableEntry.ReplyTo)
            Me.m_strSuffix(x) = FindSuffixInString(Me.m_SenderNameTableEntry.ReplyTo)
            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
            Set Me.m_SenderNameTableEntry = Me.m_SenderNameTable.GetNextInstance()
            x = x + 1
        Loop
    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
            If nNumberOfSpaces = 1 Then
                GetCommonPart = ""
            Else
                GetCommonPart = P2
            End If
        Case 3
            If nNumberOfSpaces = 0 Then
                GetCommonPart = P0
            Elseif nNumberOfSpaces = 1 Then
                GetCommonPart = P2
            Else
                GetCommonPart = P3
            End If
        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,"p.") Then
            FindTitleInString = "p."
        Elseif Instr(StringName,"p
.") Then
            FindTitleInString = "p
        Elseif Instr(StringName,"sl.") Then
            FindTitleInString = "sl."
        Elseif Instr(StringName,"p
.") Then
            FindTitleInString = "p
        Else
            FindTitleInString = "-
        End If
    End Function
    Function FindSuffixInString(StringName As String) As String
        If Instr(StringName,"ml.") Then
            FindSuffixInString = "ml."
        Elseif Instr(StringName,"st.") Then
            FindSuffixInString = "st."
        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 = "-
        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))
        If Not Me.m_nIncludeX509 Then
            Me.m_PersonalNAB.Delayupdates = True
        End If
        For x = 0 To Ubound(Me.m_vretAllFullName)
            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(Cstr(Me.m_AllFrom(x))))
                Call .replaceitemvalue("MailAddress",Me.m_vretAllEmail(x))
                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)_
                    & |";@DBName;"| & Me.m_strNoteID(x) & |")|)
                    If Len(Me.m_vResult(0)) Then
                        Call AddToErrorList(Me.m_vretAllFullName(x))
                        Me.nDisplayError = True
                    End If
                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 "ml.*,st.*, 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
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
H!H!8
Lotus Product
W32I4
h!h!@
%d d
$ $ T#T#
d @%,
~p&#K\
- $##/
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
DateToGoto
StartDateTime
StartDateTime
DueDateTime
DueDAteTime
NewStarTDateh
NewStartDAte
    1S2S
CalendarFS
Calendar
DateToGoto
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction_Ex
$PublicAccess
$AssistAction
$AssistQuery
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Const strWindowTitle = "Mimo kancel
'++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
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
P-?&,L
Ic:O4
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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 Function OrgMigratePC(dbMail As notesdatabase) As Integer
Declare Function OrgMigrateNotepad(dbMail As notesdatabase, dbJournal As notesdatabase) As Integer
Declare Function BuildFullFilePath(strServer As String, strFilepath As String) As String
Declare Sub PopulateBody( note As notesdocument, strOldSubject As String )
Declare Function CreateNewRepeatingParent( dbMail As notesdatabase, vBEObj As Variant, note As notesdocument ) As String
Declare Sub OrgMigrateFix( db As notesdatabase, strViewName As String, strOwner As String, iWhich As Integer )
Declare Sub OrgMigrateFixExisting( db As notesdatabase )
'++LotusScript Development Environment:2:5:(Declarations):0:10
'MigrateOrgGS:
'MigrateOrgGS:
'MigrateOrgGS:
'MigrateOrgGS:
''MigrateOrgGS:
Dim strTable As OrgGSMigrationStringTable
Declare Public Function OSLoadProgram Lib "nnotes.dll" Alias "OSLoadProgram" (Byval filename As Lmbcs String, Byval WorkingDir As Lmbcs String, Byval args As Lmbcs String, Byval flags As Integer) As Integer
Declare Sub GetExecutableDirectory Lib "nnotes.dll" Alias "OSGetExecutableDirectory"(Byval retstrPath As String)
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim session As New notessession
    Dim db As notesdatabase, dbJournal As notesdatabase
    Dim note As notesdocument
    Dim ws As New notesuiworkspace
    Dim strJournalLocation As String, strJournalPath As String
    On Error Goto errhandle
    Set db = session.currentdatabase
    Set note = New notesdocument(db)
    Set strTable = New OrgGSMigrationStringTable
Restart:
    If ws.dialogbox("ImportOrgGSDlg", True, True, ,,,,strTable.getString(13,""),note, True) = False Then Exit Sub
    If (note.GetItemValue("MigrateNotepadEntries")(0) = "1") Then
        strJournalLocation = note.GetItemValue("JournalLocation")(0)
        strJournalPath = note.GetItemValue("JournalPathname")(0)
        If (strJournalLocation = "2") Then
            'We will create the Journal
            Set dbJournal = session.GetDatabase("", strJournalPath)
            If (dbJournal.IsOpen) Then
                If YesNoPrompt(strTable.getString(8, ""), Error$) Then
                    dbJournal.remove
                Else
                    Exit Sub
                End If
            End If
            Dim dbTemplt As New NotesDatabase("", "journal4.ntf")
            Set dbJournal = dbTemplt.createFromTemplate("", strJournalPath, True)
        Else
                'Use an existing Journal
            Set dbJournal = session.GetDatabase("", strJournalPath, False)
            If Not (dbJournal.IsOpen()) Then
                Messagebox(strTable.getString(9, strJournalPath))
                Goto Restart
            End If
        End If
        Call OrgMigrateNotepad(db, dbJournal)
    End If
    If (note.GetItemValue("MigratePhoneCalls")(0) = "1") Then Call OrgMigratePC(db)
    Call OrgMigrateFixExisting( db )
errhandle:
    Print Erl
End Sub
'++LotusScript Development Environment:2:1:OrgMigratePC:1:8
Function OrgMigratePC(dbMail As notesdatabase) As Integer
    Dim viewCalls As notesview
    Dim note As notesdocument, noteParent As notesdocument, noteOrig As notesdocument
    Dim vTodo As Variant, vArray As Variant, vContinue As Variant
    Dim viewEntry As NotesViewEntry
    Dim viewEntries As NotesViewEntryCollection
    Dim item As notesitem
    Dim bIsRepeating As Variant, bNeedNewParent As Variant
    Dim strNoteField As String
    Dim listParentIDS List As String
    Dim noteProfile As notesdocument
    Dim parentRefID As String
    Set viewCalls = dbMail.GetView("($OrgH0StartDateTime)")
    If (viewCalls Is Nothing) Then Exit Function
    ' Enumerate the phone call entries
    Set viewEntries = viewCalls.AllEntries()
    Set viewEntry = viewEntries.GetFirstEntry()
    While Not(viewEntry Is Nothing)
        If (viewEntry.IsDocument()) Then
            Set noteOrig = viewEntry.Document
            Set vTodo = New NotesCSEventOwnerDocument(2)
            vContinue = True
            Set note = dbMail.createDocument
            Call noteOrig.copyAllItems( note )
            'We need special processing if this is a repeating phone call
            bIsRepeating = False
            If (note.hasItem("$REF")) Then
                bIsRepeating = True
                bNeedNewParent = False
                parentRefID = note.getItemValue("$REF")(0)
                If Not Iselement(listParentIDS(parentRefID)) Then
                    bNeedNewParent = True
                End If
            End If
            'massage data
            Set noteProfile = dbMail.getProfileDocument("CalendarProfile")
            Call note.ReplaceItemValue("Chair", noteProfile.getItemValue("Owner")(0))
            Call note.ReplaceItemValue("Principal", noteProfile.getItemValue("Owner")(0))
            Call note.replaceItemValue("Form", "Task")
            Call note.replaceItemValue("TaskType", "1")
            Call note.replaceItemValue("OrgTable", "T0")
            strNoteField = note.getItemValue("Subject")(0)
            Call note.replaceItemValue( "Subject", strTable.getString( 1, "") & " " & note.GetItemValue("Name1")(0) & " " & note.GetItemValue("Name2")(0))
            If  (note.hasItem("Body")) Then
                Call note.removeItem("Body")
            End If
            Call PopulateBody( note, strNoteField )
            If (note.HasItem("Categories")) Then
                Set item = note.GetFirstItem("Categories")
                If item.contains("Calls") Then
                    vArray = Arrayreplace(item.Values, "Calls", "PC")
                    Call note.replaceItemValue( "Categories", vArray)
                End If
            End If
            Call note.ReplaceItemValue("Importance", "2")
            Call note.ReplaceItemValue("$WasOrgPC", Now())
            Call note.replaceItemValue("DueState", 1)
            If note.hasItem( "Completed" ) Then
                Call note.replaceItemValue("DueState", 9)
                Call note.replaceItemValue("AssignState", 9)
                Call note.replaceItemValue("_Zobrazit ikonu", 82)
            End If
            Call note.replaceItemValue("$CSVersion", "2")
            Call note.removeItem("Broadcast")
            Call note.removeItem("OrgEntityNumber")
            Call note.removeItem("Name1")
            Call note.removeItem("Name2")
            Call note.removeItem("Status")
            Call note.removeItem("Use_Area_and_country_code")
            Call note.removeItem("EndDateTime")
            If (bIsRepeating) Then
                If bNeedNewParent Then
                    listParentIDS( parentRefID ) = CreateNewRepeatingParent( dbMail, vTodo, note )
                End If
                Call note.makeResponse( dbMail.getDocumentByUNID( listParentIDS(parentRefID) ) )
                Call note.replaceItemValue("ApptUNID", listParentIDS(parentRefID))
                Call note.replaceItemValue("$CSFlags", "i")
                Call note.replaceItemValue("Repeats", "1")
                Call note.replaceItemValue("RepeatFromEnd", "")
                'we must clear the time field in order to find a match in parent's repeatdates list
                Dim dtStartDateTime As notesdatetime
                Set dtStartDateTime = note.getFirstItem("StartDateTime").DateTimeValue
                Dim vLSDate As Variant, vNumHours As Variant, vNumMins As Variant, vNumSecs As Variant
                vLSDate = dtStartDateTime.LSLocalTime
                vNumHours = Hour( vLSDate )
                vNumMins = Minute( vLSDate )
                vNumSecs = Second( vLSDate )
                Call dtStartDateTime.AdjustHour( - vNumHours )
                Call dtStartDateTime.AdjustMinute( - vNumMins )
                Call dtStartDateTime.AdjustSecond( - vNumSecs )
                Call note.replaceItemValue("StartDateTime", dtStartDateTime)
                Call note.replaceItemValue("StartDate", dtStartDateTime)
                Call note.replaceItemValue("RepeatInstanceDates", dtStartDateTime)
                Call note.replaceItemValue("CalendarDateTime", dtStartDateTime)
                Call note.replaceItemValue("DueDateTime", dtStartDateTime)
                Dim dttoday As notesdatetime
                Set dttoday = New notesdatetime( "Today")
                Call dttoday.setanytime()
                Call dtStartDateTime.setanytime()
                If (dtStartDateTime.timedifference( dttoday ) < 0 ) Then
                    If Not note.hasItem("Completed") Then Call note.replaceitemvalue("DueState", 0)
                End If
                Call note.replaceItemValue("_Zobrazit ikonu", 168)
                Call note.replaceItemValue("$ExpandGroups", "3")
                Call note.replaceItemValue("$KeepPrivate", "")
                Call note.replaceItemValue("$SMTPKeepNotesItems", "1")
                Call note.replaceItemValue("$WebFlags", "J")
                Call note.replaceItemValue("DueDate", "")
                Call note.save(True, True, True)
            Else
                If Not note.hasItem("DueDate") Then
                    Call note.replaceItemValue("DueDate", note.getItemValue("StartDate"))
                End If
                Call note.replaceItemValue("DueDateTime", note.getItemValue("StartDateTime"))
                Call note.removeItem("Use_Area_and_country_code")
                Call vTodo.Init(note)
                Set note = vTodo.document
                Call CSDocSave(vTodo, Nothing, 0, CS_DOC_TASK Or CS_DOC_FOROWNER, vContinue)
                If (vContinue) Then
                    If note.hasItem( "Completed" ) Then
                        Call note.replaceItemValue("DueState", 9)
                        Call note.replaceItemValue("AssignState", 9)
                        Call note.replaceItemValue("_Zobrazit ikonu", 82)
                        Call note.removeItem("Completed")
                    End If
                    Call note.replaceItemValue("CalendarDateTime", note.getItemValue("StartDateTime"))
                    Call note.save(True, True, True)
                End If
            End If
        End If
        Set viewEntry = viewEntries.GetNextEntry(viewEntry)
    Wend
    OrgMigratePC = True
End Function
'++LotusScript Development Environment:2:1:OrgMigrateNotepad:1:8
Function OrgMigrateNotepad(dbMail As notesdatabase, dbJournal As notesdatabase) As Integer
    Dim iResult As Integer
    Dim strMailFile As String, strJournal As String
    Dim strNotesExecutableDir As String
    strNotesExecutableDir = "                                                                                                                                                                                                                                                                "
    Call GetExecutableDirectory(strNotesExecutableDir)
    strMailFile = BuildFullFilePath(dbMail.Server, dbMail.FilePath)
    strJournal = BuildFullFilePath(dbJournal.Server, dbJournal.FilePath)
    iResult = OSLoadProgram ("rtfcnvt", strNotesExecutableDir, strMailFile & " " & strJournal, 0)
End Function
'++LotusScript Development Environment:2:1:BuildFullFilePath:1:8
Function BuildFullFilePath(strServer As String, strFilepath As String) As String
    If (strServer = "") Then
        BuildFullFilePath  = strFilePath
    Else
        BuildFullFilePath = strServer & "!!" & strFilePath
    End If
End Function
'++LotusScript Development Environment:2:2:PopulateBody:1:8
Sub PopulateBody( note As notesdocument, strOldSubject As String )
    Dim session As New NotesSession
    Dim richtextTmp As NotesRichTextItem
    Dim rtpara As NotesRichTextParagraphStyle
    Dim strTmp As String, strTmpBegin As String, strTmpEnd As String
    Dim lngDuration As Long
    Set rtpara = session.createrichtextparagraphstyle
    Call rtpara.settab( 4320, TAB_LEFT)
    Set richtextTmp = New notesrichtextitem(note, "Body")
    Call richtextTmp.appendParagraphStyle( rtPara)
    'Construct telephone #
    strTmp = ""
    strTmpBegin = ""
    strTmpEnd = ""
    If (note.hasItem("Use_Area_and_country_code")) Then
        strTmpBegin = note.GetItemValue("Country_Code")(0) & " " & note.GetItemValue("Area_Code")(0) & " "
    Else
        Dim strTmpEndX As String
        strTmpEndX = note.GetItemValue("Country_Code")(0) & " " & note.GetItemValue("Area_Code")(0)
        If Len(strTmpEndX) > 0 Then strTmpEnd = "   (" & strTable.getString( 16, "" ) & strTmpEndX & ")"
    End If
    strTmp = note.GetItemValue("TelephoneNumber")(0)
    If (Len(note.GetItemValue("extension")(0)) > 0) Then strTmp = strTmp & " " & strTable.getString( 2, "") & " " & note.GetItemValue("Extension")(0)
    strTmp = strTmpBegin & " " & strTmp & " " & strTmpEnd
    strTmp = Trim(strTmp)
    If Len(strTmp) > 0 Then
        Call richtextTmp.appendText( strTable.getString( 0, "") )
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText(strTmp )
        Call richtextTmp.addNewLine(1)
    End If
                'Construct duration and start
    Call richtextTmp.appendText( strTable.getString( 10, ""))
    Call richtextTmp.addTab(1)
    Call richtextTmp.appendText(note.getFirstItem("StartDateTime").dateTimeValue.timeOnly)
    lngDuration = note.getFirstItem( "EndDateTime").dateTimeValue.timeDifference(note.getFirstItem( "StartDateTime").dateTimeValue)
    If lngDuration > 0 Then
        lngDuration = lngDuration\60    'Now in minutes...
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText( strTable.getString( 3, ""))
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText( Cstr(lngDuration\60)  & " " & strTable.getString( 4, "")  & " " & Cstr(lngDuration Mod  60)  & " " & strTable.getString( 5, ""))
    End If
    Call richtextTmp.addNewLine(1)
            'Construct Company
    If Len( note.getItemValue( "Company")(0)) > 0 Then
        Call richtextTmp.appendText( strTable.getString( 11, ""))
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText( note.getItemValue( "Company")(0) )
        Call richtextTmp.addNewLine(1)
    End If
            'Construct Customer code
    If Len( note.getItemValue( "OrgCostRate")(0)) > 0 Then
        Call richtextTmp.appendText( strTable.getString( 6, ""))
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText( note.getItemValue( "OrgCostRate")(0) )
        Call richtextTmp.addNewLine(1)
    End If
            'construct Cost code
    If Len( note.getItemValue( "OrgCostCode")(0)) > 0 Then
        Call richtextTmp.appendText( strTable.getString( 7, ""))
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText(note.getItemValue( "OrgCostCode")(0) )
        Call richtextTmp.addNewLine(1)
    End If
            'keep state
    If Len( note.getItemValue( "Status" )(0)) > 0 Then
        Call richtextTmp.appendText( strTable.getString( 12, ""))
        Call richtextTmp.addTab(1)
        Call richtextTmp.appendText(note.getItemValue( "Status")(0) )
        Call richtextTmp.addNewLine(1)
    End If
            'Last addition to description
    If Len( strOldSubject ) > 0 Then
        Call richtextTmp.appendText( strTable.getString( 15, ""))
        Call richtextTmp.addNewLine(1)
        Call richtextTmp.appendText( strOldSubject )
        Call richtextTmp.addNewLine(1)
    End If
End Sub
'++LotusScript Development Environment:2:1:CreateNewRepeatingParent:1:8
Function CreateNewRepeatingParent( dbMail As notesdatabase, vBEObj As Variant, note As notesdocument ) As String
    Dim vContinue As Variant
    Dim newParent As notesdocument, oldParent As notesdocument
    Set newParent = dbMail.createdocument
    Set oldParent = dbMail.getDocumentByUNID( note.getItemValue("$REF")(0) )
    'get the data from the child note
    Call note.CopyAllItems(newParent)
    Call newParent.removeItem("$REF")
    Call newParent.removeItem("$RefOptions")
    Call newParent.removeItem("$NoPurge")
    Call newParent.removeItem("$Revisions")
    Call newParent.removeItem("$UpdatedBy")
    Call newParent.removeItem("StartDateTime")
    Call newParent.removeItem("StartDate")
    'get the repeat rule from the parent note
    Call newParent.ReplaceItemValue("RepeatAdjust", oldParent.getItemValue("RepeatAdjust"))
    Call newParent.ReplaceItemValue("RepeatCustom", oldParent.getItemValue("RepeatCustom"))
    Call newParent.ReplaceItemValue("RepeatFor", oldParent.getItemValue("RepeatFor"))
    Call newParent.ReplaceItemValue("RepeatForUnit", oldParent.getItemValue("RepeatForUnit"))
    Call newParent.ReplaceItemValue("RepeatFromEnd", oldParent.getItemValue("RepeatFromEnd"))
    Call newParent.ReplaceItemValue("RepeatHow", oldParent.getItemValue("RepeatHow"))
    Call newParent.ReplaceItemValue("RepeatInterval", oldParent.getItemValue("RepeatInterval"))
    Call newParent.ReplaceItemValue("RepeatStartDate", oldParent.getItemValue("RepeatStartDate"))
    Call newParent.ReplaceItemValue("RepeatUnit", oldParent.getItemValue("RepeatUnit"))
    Call newParent.ReplaceItemValue("RepeatUntil", oldParent.getItemValue("RepeatUntil"))
    Call newParent.ReplaceItemValue("RepeatWeekends", oldParent.getItemValue("RepeatWeekends"))
    'set the rest of required items...
    Call newParent.ReplaceItemValue("OrgRepeat","1")
    Call newParent.ReplaceItemValue("$CSVersion","2")
    Call newParent.ReplaceItemValue("$PublicAccess","1")
    If Not(newParent.hasItem("DueState")) Then Call newParent.replaceItemValue("DueState", 1)
    Call newParent.ReplaceItemValue("$ExpandGroups","3")
    Call newParent.ReplaceItemValue("$KeepPrivate","")
    Call newParent.ReplaceItemValue("$WebFlags","J")
    Call newParent.ReplaceItemValue("$CSFlags", "c")
    'Now fixup repeat dates, since our repeat rule works slightly differently
    Dim dt As New notesdatetime( "" )
    Dim vDTs As Variant
    vDTS = oldParent.getItemValue("RepeatDates")
    Dim i As Integer
    For i = 0 To Ubound( vDTS )
        Dim vLSDate As Variant, vNumHours As Variant, vNumMins As Variant, vNumSecs As Variant
        vLSDate = vDTS(i)
        dt.LSLocalTime = vLSDate
        vNumHours = Hour( vLSDate )
        vNumMins = Minute( vLSDate )
        vNumSecs = Second( vLSDate )
        Call dt.AdjustHour( - vNumHours )
        Call dt.AdjustMinute( - vNumMins )
        Call dt.AdjustSecond( - vNumSecs )
        vDTS(i) = dt.LSLocalTime
    Next
    Call newParent.ReplaceItemValue("RepeatInstanceDates", vDTS)
    Call newParent.ReplaceItemValue("RepeatDates", vDTS)
    Call newParent.save(True, True, True)
    CreateNewRepeatingParent = newParent.UniversalID
End Function
'++LotusScript Development Environment:2:2:OrgMigrateFix:1:8
Sub OrgMigrateFix( db As notesdatabase, strViewName As String, strOwner As String, iWhich As Integer )
    Dim view As notesview
    Dim note As notesdocument
    Dim viewEntry As NotesViewEntry
    Dim viewEntries As NotesViewEntryCollection
    Set view = db.GetView(strViewName)
    If (view Is Nothing) Then Exit Sub
    Set viewEntries = view.AllEntries()
    Set viewEntry = viewEntries.GetFirstEntry()
    While Not(viewEntry Is Nothing)
        If (viewEntry.IsDocument()) Then
            Set note = viewEntry.Document
            If (iWhich = 4) Then
                If (Not note.hasItem("AssignedTo") And Not note.hasItem("$CSVersion")) Then

                'we're dealing with an Organizer ToDo
                    Dim vDate As Variant, vYear As Variant
                    vDate = note.getItemValue("StartDate")
                    vYear = Year( vDate(0) )
                    If (vYear = 1899) Then
                        Call note.replaceItemValue("DueDateTime", "")
                        Call note.replaceItemValue("StartDateTime", "")
                    End If
                    Call note.removeItem("StartDate")
                    Call note.replaceItemValue("$WasOrgToDo", Now())
                    Call note.replaceItemValue("From", note.getItemValue("Principal"))
                    Call note.replaceItemValue("AssignedTo", note.getItemValue("Principal"))
                    Call note.replaceItemValue("Chair", note.getItemValue("Principal"))
                    Call note.replaceItemValue("SendTo", "")
        '        Sign    0
        '        Encrypt    0
        '        DefaultMailSaveOptions    1
        '        CopyTo
        '        Body
        '        $KeepPriva te
                    Call note.save( True, True )
                End If
            Elseif ( Not note.hasItem("$ExpandGroups") And Not note.hasItem("$CSVersion")) Then
                'we have an organizer event, appointment, anniversary
                Call note.replaceItemValue("$ExpandGroups", "3")
                If Not note.hasItem( "From" ) Then Call note.replaceItemValue("From", note.getItemValue("$UpdatedBy")) 'This is the only field with name on it!
                If Not note.hasItem( "Chair" ) Then Call note.replaceItemValue("Chair", note.getItemValue("$UpdatedBy")) 'This is the only field with name on it!
                If Not note.hasItem( "Principal" ) Then Call note.replaceItemValue("Principal", note.getItemValue("$UpdatedBy")) 'This is the only field with name on it!
                'DocAuthors    CN=Farah Notes/O=Trek
                'Body
                'ReminderTime    10/15/99 10:00:00 AM
                'TimeRange    10/15/99 10:00:00 AM-10/15/99 11:00:00 AM
        '        BookFreeTime    (EVENT)
        '        OrgConfidential
                'OrgDontDoubleBook
        '        SendTo
        '        CopyTo
        '        Broadcast
                '$ExpandGroups    3
                'Duration (anniversary)
                'busyname, prevbusyname
                Call note.replaceItemValue("$WasOrgCalEntry", Now())
                Call note.save( True, True )
            End If
        End If
        Set viewEntry = viewEntries.GetNextEntry(viewEntry)
    Wend
End Sub
'++LotusScript Development Environment:2:2:OrgMigrateFixExisting:1:8
Sub OrgMigrateFixExisting( db As notesdatabase )
    Dim noteProfile As notesdocument
    Dim strOwner As String
    Set noteProfile = db.getProfileDocument("CalendarProfile")
    strOwner = noteProfile.getItemValue("Owner")(0)
    Call OrgMigrateFix( db, "($OrgA0MonthDayRepeatYear)", strOwner, 1 ) 'Anniversaries
    Call OrgMigrateFix( db, "($OrgC0StartDateTime)", strOwner, 2 )  'Appointments
    Call OrgMigrateFix( db, "($OrgP0StartDateTime)", strOwner, 3 )  'Events
    Call OrgMigrateFix( db, "($OrgT0StartDateTime)", strOwner, 4 )  'Todos
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
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
'//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
    Public m_dbCurrentDatabase As notesdatabase
    Public m_dbMasterHoliday As notesdatabase
    m_uiws As NotesUIWorkspace
    m_cStringTable As HolidayImportStringTable
    m_noteHolidayProfile As notesdocument
    m_noteCursorDoc As notesdocument
    m_noteDoItemsExist As notesdocument
    m_viewMailHoliday As notesview
    m_viewHolidayGroup As notesview
    m_entrycollection As notesviewentrycollection
    m_viewEntry As notesdocument
    m_notePublicHolidayDoc As notesdocument
    m_collLocalHolidayDocs As notesdocumentcollection
    m_noteHolidayDoc As notesdocument
    m_vColumnValues As Variant
    m_vAPPTUNID As Variant
    m_vModified As Variant
    m_vLocatedInPublicNAB As Variant
    m_vUserForcedLocalDeletion As Variant
    m_vDeletedByAgent As Variant
    m_vCategories As Variant
    m_vReturnValue As Variant
    m_vTempAPPTUNID As Variant
    Public m_strMailServerName As String
    m_strTempAPPTUNID As String
    m_strServerName As String
    m_nAdded As Integer
    m_nUpdated As Integer
    m_nDeleted As Integer
    m_nMB_OK As Integer
    m_nSuccess As Integer
    m_nHolidayEntry As Integer
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
        Me.m_dbCurrentDatabase.Delayupdates = True
        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()
            If Not CheckIntegrity() Then
                Print("Z
znam profilu je po
kozen nebo obsahuje neplatn
 data")
            End If
            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
    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
    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
    Function UpdateEntryInProfile(IndexNumber 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
            Me.m_nUpdated = Me.m_nUpdated + 1
        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
    Function MarkEntryDeleted(Index As Integer)
        Me.m_vDeletedByAgent(Index) = 1
        Me.m_nDeleted = Me.m_nDeleted + 1
    End Function
    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(Cstr(Me.m_vAPPTUNID(n)))
                            Call MarkEntryDeleted(n)
                        Else
                            If Not Me.m_notePublicHolidayDoc.LastModified = Me.m_vModified(n) Then
                                Call RemoveAllDocumentsByAPPTUNID(Cstr(Me.m_vAPPTUNID(n)))
                                Call CreateEntryInMailFile()
                                Call UpdateEntryInProfile(n)
                            End If
                        End If
                    End If
                End If
            Next
        End If
        Exit Sub
TRAP:
        Select Case Err
        Case 200
            Resume Next
        Case 4091
            If Not Me.m_notePublicHolidayDoc Is Nothing Then
                Delete Me.m_notePublicHolidayDoc
            End If
            Resume Next
        Case Else
            Messagebox(Cstr(Err) & ": " & Error$)
        End Select
    End Sub
    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("Z
znam profilu je po
kozen nebo obsahuje neplatn
 data")
        End If
    End Sub
    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:
        Select Case Err
        Case 13
            CheckIntegrity = True 'structure is not initialized this is OK on new objects
            Resume Next
        Case Else
            Messagebox(Cstr(Err) & ": " & Error$)
        End Select
    End Function
    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)
        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
    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
    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.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 = "Importovat sv
        Case HOLIDAY_STRING+5
            GetString = "Vyberte kategorie sv
, kter
 chcete importovat."
        Case HOLIDAY_STRING+6
            GetString = "Aby bylo mo
 pokra
ovat, mus
t pro tuto datab
zi alespo
stupov
va autora."
        Case HOLIDAY_STRING+7
            GetString = "Ve
 seznam jmen a adres nelze otev
        Case HOLIDAY_STRING+8
            GetString = "Tato funkce vy
aduje seznam jmen a adres serveru Domino verze 5.0 nebo nov
        Case HOLIDAY_STRING+9
            GetString = "Po
adovan
 pohled nebyl ve ve
m seznamu adres nalezen."
        Case HOLIDAY_STRING+10
            GetString = "Pro aktu
 pracovi
 nebyl ur
 server."
        Case HOLIDAY_STRING+11
            GetString = "Ve ve
m seznamu jmen a adres nebyly definov
 polo
        Case HOLIDAY_STRING+12
            GetString = " z
 o sv
ch bylo p
        Case HOLIDAY_STRING+13
            GetString = " z
 o sv
ch bylo aktualizov
        Case HOLIDAY_STRING+15
            GetString = " z
 o sv
ch bylo odstran
        Case HOLIDAY_STRING+16
            GetString = "Nebyla vybr
 skupina."
        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
W32I4
| | %
~8!#~
~P!##1
~@"##1
~X"##1
~p"#H8
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$PublicAccess
$Comment
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
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
    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)
    If db.currentaccesslevel <= ACLLEVEL_AUTHOR Then
        Msgbox ACLManager.StringTable.GetString(TOOL_STRING+70,Null)
        Exit Sub
    Else
        Call ACLManager.Init()
    End If
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 ws As New notesuiworkspace
    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 "Ke ka
dodenn
 aktualizaci
 bude nutn
 zapnout agenty lok
                    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("AutoProcessType")(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)
    'if there are minutes, end on the next hour
        If Minute(dtValue.LSLocalTime) <> 0 Then
            iHour = iHour +1
        End If
        Call session.setenvironmentvar("CalendarTimeSlotEnd", iHour * 60, True)
    End If
    Call session.setenvironmentvar("CalendarTimeSlotDuration", note.getitemvalue("CalendarTimeSlotDuration")(0), True)
    If (note.GetItemValue("EnableAlarms")(0) = "1") Then
        Call ws.EnableAlarms(True)
    Else
        Call ws.EnableAlarms(False)
    End If
End Sub
Lotus Product
W32I4
    K$    -@
K$    -0
K$    ,`
K$    ,`
K$    ,`
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"r9ql
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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)
            If NoteGetValidRecipients(Me.m_vTargetNames) Then
                Me.m_nNoShowInstruction = 0 - Cint(session.Getenvironmentvalue("NoShowTrackMessage",False))
            Else
'No one to track!!
                Call DisplayWarn(Me.m_TrackingStringTable.GetString(TRACKING_STRING+69,Null),_
                MB_OK, Me.m_TrackingStringTable.GetString(TRACKING_STRING+65,Null))
                End
            End If
        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("(subTrackingRequest)",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 =  Fulltrim(Arrayappend(Me.m_noteCursorDoc.GetItemValue("SelectedOptions"),Me.m_noteCursorDoc.GetItemValue("UserDefinedName")))
            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)
                Call .ReplaceItemValue("SMTPKeepNotesItems","1")
                .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
    Private Function NoteGetValidRecipients(retvTargetNames As Variant) As Integer
        On Error Goto Trap
        NoteGetValidRecipients = False
        retvTargetNames = Fulltrim(Arrayappend(Arrayappend(note.GetItemValue("SendTo"),note.GetItemValue("CopyTo")),note.GetItemValue("BlindCopyTo")))
        NoteGetValidRecipients = True
        Exit Function
Trap:
        If note.HasItem("Recipients") Then
            retvTargetNames = note.GetItemValue("Recipients")
            If Not Strcompare(retvTargetNames(0),"") = 0 Then
                NoteGetValidRecipients = True
            End If
        End If
        Resume EndTrap
EndTrap:
    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
W32I4
}$    }P    #1
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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
    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
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$PublicAccess
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Declare
Option Compare Nocase
Use "Common"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class NameHelperLauncher As BaseApplication
Declare Sub Initialize
Declare Sub processNewContactNAB( newContact As String)
Declare Function contactExists( strName As String, viewLookUp As notesview ) As Variant
Declare Sub processNewContactUNID( strUNID As String, strNameParseFormula As String )
'++LotusScript Development Environment:2:5:(Declarations):0:10
'wAddressSave:
Dim dbMAIL As notesdatabase
Dim dbNAB As notesdatabase
Dim docCtxt As NotesDocument
Dim viewNAB As notesview
Dim viewMAIL As notesview
Const LIST_SEPERATOR$ = ", "
Const NOTES% = 1
Const CCMAIL% = 2
Const INTERNET% = 5
Const X400% = 4
Const QUOTE = """"
Class NameHelperLauncher As BaseApplication
    Private m_noteMail As Notesdocument
    Private m_noteNAB As Notesdocument
    Private m_vMailDomain As Variant
    Private m_EmailType As Variant
    Private m_strFrom As String
    Private m_strEmail 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_strDomain As String
    Sub Init( strFrom As String, MailDoc As notesdocument, NABDoc As notesdocument)
        Me.m_strFrom = strFrom
        Set Me.m_noteMail = MailDoc
        Set Me.m_noteNAB = NABDoc
        Me.m_vMailDomain = Evaluate(|@Domain|)
    End Sub
    Function ProcessCandidate()
        Call ParseNameToItems()
        Call WriteStackToNAB()
    End Function
    Private Sub ParseNameToItems()
        Dim nameCurrentName As notesname
        Set nameCurrentName = New notesname(Me.m_strFrom)
        Me.m_EmailType = Cstr(GetMailType(Me.m_strFrom))
        If Len(nameCurrentName.Addr821) Then
            Me.m_strEmail = nameCurrentName.Addr821
        Else
            Me.m_strEmail = Me.m_strFrom
        End If
        Me.m_strDomain = GetFromDomain( Me.m_noteMail )
        Select Case Cint(Me.m_EmailType)
        Case NOTES, CCMAIL
            Me.m_strFirst = GetCommonPart(nameCurrentName.Common, 1)
            Me.m_strMiddle = GetCommonPart(nameCurrentName.Common, 2)
            Me.m_strLast = GetCommonPart(nameCurrentName.Common, 3)
            Me.m_strFullName = nameCurrentName.Canonical
        Case INTERNET
            Me.m_strFullName  = FixFullName(GetInternetFullName(Me.m_strFrom))
            Me.m_strFirst = GetCommonPart(Me.m_strFullName, 1)
            Me.m_strMiddle = GetCommonPart(Me.m_strFullName, 2)
            Me.m_strLast = GetCommonPart(Me.m_strFullName, 3)
        Case X400
                'Construct like Notes
            Me.m_strFirst = GetCommonPart(nameCurrentName.Common, 1)
            Me.m_strMiddle = GetCommonPart(nameCurrentName.Common, 2)
            Me.m_strLast = GetCommonPart(nameCurrentName.Common, 3)
            Me.m_strFullName = nameCurrentName.Canonical
        End Select
        Me.m_strTitle = FindTitleInString(Me.m_strEmail)
        Me.m_strSuffix = FindSuffixInString(Me.m_strEmail)
    End Sub
    Private Function WriteStackToNAB() As Integer
        On Error Goto TRAP
        With Me.m_noteNAB
            Call .replaceitemvalue("Form","Person")
            Call .replaceitemvalue("Type","Person")
            Call .replaceitemvalue("Title",Me.m_strTitle)
            Call .replaceitemvalue("Suffix",Me.m_strSuffix)
            Call .replaceitemvalue("FirstName",Me.m_strFirst)
            Call .replaceitemvalue("MiddleInitial",Me.m_strMiddle)
            Call .replaceitemvalue("LastName",Me.m_strLast)
            Call .replaceitemvalue("FullName", ConstructFullNameList(Me.m_strFrom))
            Call .replaceitemvalue("MailAddress",Me.m_strEmail)
            Call .replaceitemvalue("MailSystem",Me.m_EmailType)
            Select Case Cint(Me.m_EmailType)
            Case NOTES
                Call .replaceitemvalue("MailDomain",Me.m_strDomain)
            Case INTERNET
                Call .replaceitemvalue("InternetAddress", Me.m_strEmail)
                Call .replaceitemvalue("InternetDomain",Me.m_strDomain)
            Case CCMAIL
                Call .replaceitemvalue("ccMailAddress", Me.m_strEmail)
                Call .replaceitemvalue("ccMailDomain",Me.m_strDomain)
            Case X400
                Call .replaceitemvalue("X400Address", Me.m_strEmail)
                Call .replaceitemvalue("X400Domain", Me.m_strDomain)
            End Select
            Dim arrViews(1) As String
            arrViews(0) = "A"
            arrViews(1) = "D"
            Call .replaceItemValue("ExcludeFromView", arrViews)
            Call .save(True, False,True)
        End With
TRAP:
    End Function
    Private Function GetMailType(FromName As String) As Integer
        GetMailType = 0
        If Instr(FromName, " dne ") 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 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
    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
    Private 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
            If nNumberOfSpaces = 1 Then
                GetCommonPart = ""
            Else
                GetCommonPart = P2
            End If
        Case 3
            If nNumberOfSpaces = 0 Then
                GetCommonPart = P0
            Elseif nNumberOfSpaces = 1 Then
                GetCommonPart = P2
            Else
                GetCommonPart = P3
            End If
        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
    Private Function FindTitleInString(StringName As String) As String
        If Instr(StringName,"Dr.") Then
            FindTitleInString = "Dr."
        Elseif Instr(StringName,"Prof.") Then
            FindTitleInString = "Prof."
        Elseif Instr(StringName,"p.") Then
            FindTitleInString = "p."
        Elseif Instr(StringName,"p
.") Then
            FindTitleInString = "p
        Elseif Instr(StringName,"sl.") Then
            FindTitleInString = "sl."
        Elseif Instr(StringName,"p
.") Then
            FindTitleInString = "p
        Else
            FindTitleInString = "-
        End If
    End Function
    Function FindSuffixInString(StringName As String) As String
        If Instr(StringName,"ml.") Then
            FindSuffixInString = "ml."
        Elseif Instr(StringName,"st.") Then
            FindSuffixInString = "st."
        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 = "-
        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_strFirst & " " & Me.m_strMiddle & " " & Me.m_strLast))
            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 "ml.*,st.*, 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
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim NABFilename As String
    Dim strContacts As String
    Dim strNewName As String
    Dim query_string As String
    Dim strUNIDS As String
    Dim iStart As Integer
    Dim strUNID As String
    Dim strNameParseFormula As String
    Dim column As NotesViewColumn
    Set session = New notessession
    Set dbMAIL = session.currentdatabase
    Set docCtxt = session.DocumentContext
    Let NABFilename = "names.nsf"
    If (docCtxt.hasItem("NABs")) Then    Let NABFilename = docCtxt.getitemvalue("NABs")(0)
    If NABFilename <> "" Then
        Set dbNAB = New notesdatabase("", NABFilename)
        If Not(dbNAB Is Nothing) And Not(dbNAB.isOpen()) Then
            If Not(dbNAB.open("","")) Then Exit Sub
        End If
        Set viewNAB = dbNAB.getView("($PeopleGroupsFlat)")
    End If
    Set viewMAIL = dbMAIL.getView("($PeopleGroupsFlat)")
    If viewMAIL Is Nothing Then Exit Sub
    query_string = docCtxt.getitemvalue("Query_String")(0)
    If Instr(query_string, "&UNIDs=%%") Then
        'We are called by Add Sender To Address Book
        Set column = viewMAIL.columns(1)
        strNameParseFormula = column.formula
        strUNIDS = Strright( query_string, "&UNIDs=%%")
        strUNIDS = Strleft( strUNIDS, "&Return=")
        strUNID = Strleft(strUNIDS, "%%")
        While Not(strUNID = "")
            strUNIDS = Strright(strUNIDS, "%%")
            Call processNewContactUNID( strUNID, strNameParseFormula )
            strUNID = Strleft(strUNIDS, "%%")
        Wend
        Call processNewContactUNID( strUNIDS, strNameParseFormula )
        Print  "[" & Strrightback(query_string, "&Return=")  & "]"
    Else
        'We are called by Import From Directories
        If viewNAB Is Nothing Then Exit Sub
        'now look for entry
        strContacts = docCtxt.getitemvalue("tmpContactsRef")(0)
        strNewName = Strleft(strContacts, "%%")
        While Not(strNewName = "")
            strContacts = Strright(strContacts, "%%")
            Call processNewContactNAB( strNewName )
            strNewName = Strleft(strContacts, "%%")
        Wend
        Call processNewContactNAB( strContacts )
    End If
End Sub
'++LotusScript Development Environment:2:2:processNewContactNAB:1:8
Sub processNewContactNAB( newContact As String)
    Dim docNAB As notesdocument
    Dim docNew As notesdocument
    'before copy, make sure we don't already have this contact.
    If Not(contactExists(newContact, viewMAIL)) Then
        Set docNAB = viewNAB.getDocumentByKey( newContact, True )
        If docNAB Is Nothing Or Isnull(docNAB) Then Exit Sub
        Set docNew = docNAB.copyToDatabase( dbMAIL )
        If (docNew.hasEmbedded()) Then
            Call docNew.removeitem("$FILE")
        End If
        Call docNew.save( True, False)
    End If
End Sub
'++LotusScript Development Environment:2:1:contactExists:1:8
Function contactExists( strName As String, viewLookUp As notesview ) As Variant
    contactExists = False
    Dim veFound As notesviewentry
    Set veFound = viewLookUp.getEntryByKey( strName, True )
    If veFound Is Nothing Or Isnull(veFound) Then Exit Function
    contactExists = True
End Function
'++LotusScript Development Environment:2:2:processNewContactUNID:1:8
Sub processNewContactUNID( strUNID As String, strNameParseFormula As String )
    Dim docMail As notesdocument
    Dim docNew As notesdocument
    Dim strName As String, strFrom As String
    Dim tempVar As Variant
    Set docMail = dbMAIL.getDocumentByUNID( strUNID )
    If docMail Is Nothing Or Isnull(docMail) Then Exit Sub
    tempVar = Evaluate( strNameParseFormula, docMail )
    strName = tempVar(0)
    If (contactExists( strName, viewMAIL )) Then Exit Sub
    If (contactExists( strName, viewNAB )) Then
        Call processNewContactNAB( strName )
        Exit Sub
    End If
    'Otherwise, we need to extract Contact info from From field
    strFrom = docMail.getItemValue("From")(0)
    Set docNew = dbMAIL.createDocument()
    Dim nameObj As New NameHelperLauncher()
    Call nameObj.init( strFrom, docMail, docNew )
    Call nameObj.ProcessCandidate()
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "Common"
Use "CSWeb"
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub CopyInto()
Declare Sub CreateNewDoc(FormName As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'wAppointmentOpen:
Dim strUNID As String
Dim noteReferred As notesdocument
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call wInstantiateObjectVariables
    Dim query_string As String
    Dim international As NotesInternational
    Set international = session.International
    If international.IsTime24Hour Then
        Call note.ReplaceItemValue("tmpMeridian","")
    Else
        Call note.ReplaceItemValue( "tmpMeridian", international.AMString & ";" & international.PMString)
    End If
    query_string = note.getitemvalue("query_string")(0)
    'Set statusUNID field for participant status window
    If Not(note.IsNewNote) Then
        Call note.ReplaceItemValue("statusUNID", note.Universalid)
    End If
    If wGetCalendarProfile() Then
        If Instr(query_string, "CopyInto") Then
            Call CopyInto()
        End If
        If Instr(query_string, "&To=") Then
            Call PopulateSendTo()
        End If
        If Instr(query_string, "&ReturnView=") Then
            Call note.replaceitemvalue("ReturnView", Strrightback(query_string, "&ReturnView="))
        End If
        Call WebQueryOpen(note, False)
    End If
End Sub
'++LotusScript Development Environment:2:2:CopyInto:1:8
Sub CopyInto()
    Call agentlog.logaction("About to do copyinto")
    strUNID = Mid(note.Query_String(0), Instr(note.Query_String(0), "=")+1, 32)
    Set noteReferred = db.getdocumentbyUNID(strUNID)
    If Not(noteReferred Is Nothing) Then
            'Create new task
        If note.getitemvalue("Form")(0)= "Task" Then
            Call agentlog.logaction("About to do copyinto for task")
            Call CreateNewDoc(note.getitemvalue("Form")(0))
        End If
            'Create new calendar entry
        If note.getitemvalue("Form")(0)="Appointment" Then
            Call agentlog.logaction("About to do copyinto for calendar entry")
            Call CreateNewDoc(note.getitemvalue("Form")(0))
        End If
    End If
End Sub
'++LotusScript Development Environment:2:2:CreateNewDoc:1:8
Sub CreateNewDoc(FormName As Variant)
    Call note.replaceitemvalue("Subject", notereferred.getitemvalue("Subject"))
    Call note.replaceitemvalue("SendTo",notereferred.getitemvalue("SendTo"))
    Call note.replaceitemvalue("CopyTo",notereferred.getitemvalue("CopyTo"))
    Call note.replaceitemvalue("BlindCopyTo",notereferred.getitemvalue("BlindCopyTo"))
    Call note.replaceitemvalue("Body",notereferred.getitemvalue("Body"))
    Select Case FormName
    Case "Task"
        Call note.replaceitemvalue("TaskType","2")
    Case "Appointment"
        Call note.replaceitemvalue("AppointmentType", "3")
    End Select
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Option Compare Nocase
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
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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
    On Error Goto ErrorRoutine
    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)
        'If the document is a rules document, update the profile note
    If (originalNote.getitemvalue("Form")(0) = "Mailrule") Then
        Call wGetCalendarProfile
        vrulenum = originalNote.getitemvalue("ordernum")(0)
        strfilteritem = "$FilterFormula_"+Cstr(vrulenum)
        Call profile.removeitem(strfilteritem)
        Call profile.save(True, True,True)
    End If
'remove the document, first grabbing path item
    tmp1$ = originalNote.getitemvalue("path")(0)
    pathinfo$ = note.getitemvalue("Path_Info")(0)
    If Not (Len(tmp1$) >0) Then
        tmp1$ = Strleft( pathinfo$, "/wDelete")
        tmp1$ = Strright( tmp1$, "/")
    End If
    originalNote.Remove(True)
    Call agentlog.logaction("querystring is "+note.getitemvalue("Query_String")(0))
    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
        '''Look for docurl if from an opendocument
        docurl$ = "&docurl="
        pos% = Instr(pathinfo$, docurl$)
        If pos% <> 0 Then
            targeturl$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(docurl$) + 1)
        Else
          'the view name was not passed as an argument, so pull it out of the URL if possible
            Call agentlog.logaction("pathinfo is " + pathinfo$ + " File path is  " + db.Filepath)
            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")
                '''Don't treat "Memo" as a view as in Memo?OpenForm
                pos%  = Instr (workstr$, "?OpenView")     '''@mek
                If (pos% <> 0 ) Then
                    targetview$ = Left$ (workstr$, pos% - 1)     '''@mek
                Else
                    targetview$ = ""   '''@mek
                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
    End If
    On Error Goto ErrorRoutine
    Call agentlog.logaction("targetview is "+targetview$)
    Call agentlog.logaction("targeturl is " + targeturl$)
    If InfoPathPos% <> 0 Then
        If note.tmpBackToTask(0) = "1" Then
            Print "[" & tmp1$ & "/ToDoFS?OpenFrameset]"
        Else
            If targetview$ <> "" Then
                If targetview$="Calendar" Or targetview$="Meetings" Then
                    Print "[" & tmp1$ & "/CalendarFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F"&targetview$ & "%3FOpenView]"
                Elseif targetview$ = "Tasks" Or targetview$="TodoByCategory" Or targetview$="TodoByStatus" Then
                    Print "[" & tmp1$ & "/ToDoFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F"&targetview$ & "%3FOpenView]"
                Else
                    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" & tmp1$ &"%2F"&targetview$ & "%3FOpenView]"
                End If
            Else
                If targeturl$ <> "" Then

                    Print "[" & targeturl$ & "]"
                Else
                    Call agentlog.logaction("url to open is " & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F($All)%3FOpenView")

                    Print "[" & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ & "%2F($All)%3FOpenView]"
                End If
            End If
        End If
    Else
        Print "Dokument byl zpracov
    End If
    Exit Sub
ErrorRoutine:
    Print Error & " (WebDelete)"
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$Comment
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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")
    'this code populates the currentfolder field with non-s folders
    views = db.views
    Dim strName As String
    Forall x In views
        If x.isfolder Then
            If Not Isempty(x.Aliases) Then
                Let strName = x.Aliases(0)
            Else
                Let strName = x.Name
            End If
            If  Not ( Left(strName, 1) = "(" And Right( strName, 1) = ")")  And Not( Left( strName, 1 ) = "$") Then
                currentfolders.appendtotextlist(strName)
            End If
        End If
    End Forall
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
a%0GT
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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 folderdelete ( ve As notesviewentry, foldername As String)
'++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")
    If note.getitemvalue("Form")(0)= "FolderCreate" Then
        Call db.enablefolder(note.getitemvalue("Foldername")(0))
    Else
        Dim folderName As String
        Dim folders As notesview
        Dim entries As notesviewentrycollection
        Dim ve As notesviewentry
        Let foldername = note.getitemvalue("CurrentFolders")(0)
        Set folders = db.getview("($FolderInfo)")
        Set entries = folders.allentries
        Set ve = entries.getFirstEntry()
        Call folderdelete( ve, folderName )
        Set ve = entries.getNextEntry( ve )
        While Not ve Is Nothing
            Call folderdelete( ve, folderName )
            Set ve = entries.getNextEntry( ve )
        Wend
    End If
End Sub
'++LotusScript Development Environment:2:2:folderdelete:1:8
Sub folderdelete ( ve As notesviewentry, foldername As String)
    Dim fname As String
    Let fname = ve.columnvalues(0)
    If (Strcomp( fname, foldername ) = 0 Or Instr( fname, foldername & "\" ) > 0) Then
        Dim fNote As notesdocument
        Set fNote = db.getDocumentByUNID( ve.columnvalues(1) )
        fNote.remove( True )
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Compare Nocase
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 vSendTo As Variant
    Dim vcopyTo As Variant
    Dim viewPGF As notesview
    Set viewPGF = db.getView("($PeopleGroupsFlat)")
    Dim listSendTo List As String
    Dim listCopyTo List As String
    Dim strNames As String
    Dim listGroups List As String
    vSendTo = note.getitemvalue("SendTo")
    Forall strName In vSendTo
        Call NABResolveName( strName, listSendTo, viewPGF, listGroups )
    End Forall
    vCopyTo = note.getitemvalue("CopyTo")
    Forall strName In vCopyTo
        Erase listGroups
        Call NABResolveName( strName, listCopyTo, viewPGF, listGroups )
    End Forall
    strNames = ""
    Forall strTmp In listSendTo
        If (Len(strNames) = 0) Then
            strNames = strTmp
        Else
            strNames = strNames & ", " & strTmp
        End If
    End Forall
    Call note.replaceItemValue("SendTo", strNames)
    strNames = ""
    Forall strTmp In listCopyTo
        If (Len(strNames) = 0) Then
            strNames = strTmp
        Else
            strNames = strNames & ", " & strTmp
        End If
    End Forall
    Call note.replaceItemValue("CopyTo", strNames)
    Call note.replaceItemValue("tmpFirstTime", "0")
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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, strUNID As String, strstring As String)
Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
Declare Sub ProcessConditions
Declare Function ProcessActions As Integer
Declare Sub ProcessConditionList(vtokconditionlist As Variant)
Declare Function GetString ( StringType As Variant) As String
'++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 strTokenSeperator As String
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
    Let strTokenSeperator = "
    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
    'First give the rule a sequence number if it's a new rule
    If note.isnewnote Then
        Set viewcollection = view.allentries
        If viewcollection.count = 0 Then
            nrulenum=0
        Else
            nrulenum = Cint(viewcollection.getlastentry.document.getitemvalue("ordernum")(0))+1
        End If
        Call agentlog.logaction("is a new note")
        Call note.replaceitemvalue("OrderNum", (nrulenum))
        bmovetofolder=True
    Else
        nrulenum = note.getitemvalue("ordernum")(0)
    End If
        '$FilterFormulaCount is the total number of rules in the db
    If Not (profile.hasitem("$FilterFormulaCount")) Then
        Call profile.replaceitemvalue("$FilterFormulaCount","1")
    Else
        Call profile.replaceitemvalue("$FilterFormulaCount", Cstr(Cint(profile.getitemvalue("$FilterFormulaCount")(0))+1))
    End If
    bprofilesave=True
    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
    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, False)
    ' Provisional URL
    tmp1$ = note.getitemvalue("path")(0)
    Print "["+tmp1$+"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ & "%2FRules%3FOpenView]"
End Sub
'++LotusScript Development Environment:2:2:ActionParser:1:8
Sub ActionParser(strAction As String, strUNID As String, strstring As String)
    Dim strImportance As String
    Select Case straction
    Case "1"
        strformula = strformula+"(@MailFilterAddtofolder("""+strUNID+"""; @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("""+strUNID+"""))"
    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
    Dim bnormal As Integer
    bnormal = False
    Select Case strcondition
    Case "1"
        'Sender
        Fieldstring="From"
    Case "2"
        'Subject
        FieldString = "Subject"
    Case "3"
        'Body
        FieldString = "@Abstract([TextOnly];64994;"""";""Body"")"
    Case "4"
        'Importance
        FieldString = "Importance"
        If strstring = "2" Then bnormal = True
    Case "5"
        'Delivery Priority
        FieldString = "DeliveryPriority"
        If strstring = "1" Then
            strstring = "H"
        Elseif strstring = "2" Then
            strstring = "N"
            bnormal = True
        Elseif strstring = "3" 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+");"""+ Lcase(strstring) +""")"
        Case "3" , "4"
            strformula=strformula+fieldstring+logicstring+""""+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+"); """+ Lcase(strstring) +""") | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
        Case "3" , "4"
            strformula=strformula+fieldstring1+logicstring+""""+strstring +" | "+fieldstring2+logicstring+strstring
        End Select
    Case Else
        Select Case strlogic
        Case "1" , "2"
            If bnormal Then
                Call agentlog.logaction("bnormal is true")
                If strlogic="1" Then
                    strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"+"|"+fieldstring+"="""""

                Else
                    strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"+"|"+fieldstring+"!="""""

                End If
            Else
                strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"
            End If
        Case "3" , "4"
            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:1:ProcessActions:1:8
Function ProcessActions As Integer
    Dim vtokactionlist As Variant
    ProcessActions=True
    vtokactionlist = note.getitemvalue("tokactionlist")
    If vtokactionlist(0)="" Then Exit Function
    strformula=strformula+"; (@do("
    strUNID=""
    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 (straction = "1" Or straction ="4") Then
            'Get the UNID for the folder
            Set thisfolder=db.getview(strfolder)
            If thisfolder Is Nothing Then
                Msgbox getstring("V"), 16
                ProcessActions=False
                Exit Function
            End If
            strUNID = thisfolder.Universalid
        End If
        Call ActionParser(straction, Cstr(strUNID), strstring)
        If x<> Ubound(vtokactionlist) Then strformula=strformula+" ; "
    Next
    strformula=strformula+|));"")|
End Function
'++LotusScript Development Environment:2:2:ProcessConditionList:1:8
Sub ProcessConditionList(vtokconditionlist As Variant)
    Dim iLength As Integer
    For  x = 0 To Ubound(vtokconditionlist)
        'Seperate the four elements in their individual items
        iLength = Len(vtokconditionlist(x))
        strcondition = Left(vtokconditionlist(x),1) '1st byte
        strlogic = Mid(vtokconditionlist(x), 3,1) '3rd byte
        stroperator = Right(vtokconditionlist(x),1) 'Last byte
        strstring = Mid(vtokconditionlist(x),5,iLength-6)
        'if this is the size, strip bytes off of strstring
        If strcondition="C" Then strstring = Left(strstring, Len(strstring) -6)  'Question - does bytes get translated?
            'strstring = StrLeft( strstring, " bytes")
        If x<>0 Then
            If nIsException Then
                strformula=strformula+"|"
            Elseif stroperator="0" Then
                strformula=strformula+" & "
            Elseif stroperator="1" Then
                strformula=strformula+"|"
            End If
        End If
        Call ConditionParser(strcondition, strlogic, strstring)
%REM SPR #MQUE4CMPY4
     If x<> Ubound(vtokconditionlist) Then
         Select Case stroperator
         Case "0": strformula=strformula+" & "
         Case "1": strformula=strformula+" | "
         End Select
     End If
%END REM
    Next
    strformula=strformula+")"
End Sub
'++LotusScript Development Environment:2:1:GetString:1:8
Function GetString ( StringType As Variant) As String
    GetString = ""
    Select Case StringType
    Case "1"
        GetString = " Odes
latel "
    Case "2"
        GetString = " Subject "
    Case "3"
        GetString = " Body "
    Case "4"
        GetString =  " Importance "
    Case "5"
        GetString = " Priorita doru
    Case "6"
        GetString = " To "
    Case "7"
        GetString = " CC "
    Case "8"
        GetString = " Komu nebo Kopie "
    Case "9"
        GetString = " text zpr
vy nebo p
    Case "A"
        GetString = " BCC "
    Case "B"
        GetString = " Dom
 Internet "
    Case "C"
        GetString = " Velikost "
    Case "D"
        GetString = " obsahuje "
    Case "E"
        GetString = " je men
    Case "F"
        GetString = " neobsahuje "
    Case "G"
        GetString = " je v
    Case "H"
        GetString = " je "
    Case "I"
        GetString = " nen
    Case "J"
        GetString = " p
esunout do slo
ky "
    Case "K"
        GetString = "Vysok
    Case "L"
        GetString = "Norm
    Case "M"
        GetString = "N
    Case "N"
        GetString = " zm
nit d
itost na "
    Case "O"
        GetString = " odstranit p
    Case "P"
        GetString =  " zkop
rovat do slo
    Case "Q"
        GetString = "AND"
    Case "R"
        GetString = "OR"
    Case "S"
        GetString = "P
kaz Odstranit dokument nelze pou
t u v
ce akc
. Chcete tento p
kaz odebrat ze seznamu akc
    Case "T"
        getString = "Je t
eba zadat platnou podm
nku."
    Case "U"
        getString = "Je t
eba zadat platnou akci."
    Case "V"
        getString = "Tuto slo
ku je t
eba vytvo
it v dialogov
m okn
 Vybrat slo
    End Select
End Function
Lotus Product
W32I4
)<    ^t
)<    ^t
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
EH41fL3u
(wMemoOpen)cs-CZ
00000582O
CN=Lotus Notes Template Development/O=Lotus Notes######
EH4fL3u5
(wMemo)cs-CZ
0000058EV
CN=Lotus Notes Template Development/O=Lotus Notes###################
EH4fL35
(wNDROpen)cs-CZ8aT
0000059A]
CN=Lotus Notes Template Development/O=Lotus Notes#################
cs-CZfaT
000005A6(wPNABSave)
EH4fL3u5
CN=Lotus Notes Template Development/O=Lotus Notes###############
EH41fL3u
(wPreferencesOpen)cs-CZ
000005B2g
CN=Lotus Notes Template Development/O=Lotus Notes########
EH41fL3u5
(wPreferencesSave)cs-CZ
000005BEm
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
fL3nu(wViewParticipantStatus)cs-CZ
000005CAs
CN=Lotus Notes Template Development/O=Lotus Notes##########
EH4f3
($PermanentDelete)cs-CZ(bT
000005D6x
CN=Lotus Notes Template Development/O=Lotus Notes###################
EH4f3
($RestoreDocument)cs-CZ@bT
000005E2|
CN=Lotus Notes Template Development/O=Lotus Notes###################
completed.GIF1
act_completed.GIFact_CSCOMPLETEDcs-CZObT
000005F6
CN=Lotus Notes Template Development/O=Lotus Notes########################################
copy into.GIF1
act_COPYINTO.GIFact_COPYINTOcs-CZYbT
000005FA
CN=Lotus Notes Template Development/O=Lotus Notes############################################
address book.GIF1
act_ADDRESSBOOK.GIFact_ADDRESSBOOKcs-CZcbT
000005EA
CN=Lotus Notes Template Development/O=Lotus Notes###################################
fullcalendar.gif34Ci1
act_calFormat.gifact_calFormat.gifcs-CZjbT
000005EE
CN=Lotus Notes Template Development/O=Lotus Notes###################################
34CiQ
collapse all.gif5
act_CollapseAll.gifact_CollapseAll.gifcs-CZvbT
000005F2
CN=Lotus Notes Template Development/O=Lotus Notes##############################
new.GIF1
act_csnew.GIFact_CSNEWDOCcs-CZ
000005FE
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
owner actions.GIF1
act_csowneractions.GIFact_CSOWNERACTIONScs-CZ
00000602
CN=Lotus Notes Template Development/O=Lotus Notes############################
delete.GIF1
act_DELETE.GIFact_DELETEcs-CZ
00000606
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
discard changes.GIF1
act_discardchanges.GIFact_CSDISCARDcs-CZ
0000060E
CN=Lotus Notes Template Development/O=Lotus Notes###############################
delivery options.GIF1
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONScs-CZ
0000060A
CN=Lotus Notes Template Development/O=Lotus Notes#######################
edit.GIF1
act_EDIT.GIFact_EDITcs-CZ
00000612
CN=Lotus Notes Template Development/O=Lotus Notes#########################################################
34CiQ
permanently delete.gif1
act_empty.gifact_empty.gifcs-CZ
00000616
CN=Lotus Notes Template Development/O=Lotus Notes####################################
34CiQ
expand all.gif5
act_ExpandAll.gifact_ExpandAll.gifcs-CZ
0000061A
CN=Lotus Notes Template Development/O=Lotus Notes####################################
folder.GIF1
act_FOLDER.GIFact_FOLDERcs-CZ
0000061E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
forward.GIF1
act_FORWARD.GIFact_FORWARDcs-CZ
00000622
CN=Lotus Notes Template Development/O=Lotus Notes################################################
34CiQ
go to.gif1
act_goto.gifact_gotocs-CZ
00000626
CN=Lotus Notes Template Development/O=Lotus Notes#######################################################
ok.GIF1
act_ok.GIFact_CSOKcs-CZ
00000656
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
calendar import dialog box.gif1
act_IMPORTHOLIDAYact_IMPORTHOLIDAYcs-CZ
0000062A
CN=Lotus Notes Template Development/O=Lotus Notes#####################
insert signature.GIF1
act_INSERTSIG.GIFact_INSERTSIGcs-CZ-cT
0000062E
CN=Lotus Notes Template Development/O=Lotus Notes###################################
34CiQ
webmail_internet.gif51
act_internet.gifact_internetcs-CZ9cT
00000632
CN=Lotus Notes Template Development/O=Lotus Notes###########################
34CiQ
markCompleted.gif1
act_markCompleted.gifact_markCompleted.gifcs-CZ@cT
00000636
CN=Lotus Notes Template Development/O=Lotus Notes#########################
34CiQmessage tracking2.gif1
act_MessageTrackact_MessageTrackcs-CZYcT
0000063A
CN=Lotus Notes Template Development/O=Lotus Notes###############################
move down.GIF1
act_MOVEDOWN.GIFact_MOVEDOWNcs-CZhcT
0000063E
CN=Lotus Notes Template Development/O=Lotus Notes############################################
move up.GIF1
act_MOVEUP.GIFact_MOVEUPcs-CZvcT
00000642
CN=Lotus Notes Template Development/O=Lotus Notes##################################################
new mail.GIF1
act_NEWMAIL.GIFact_NEWMAILcs-CZ
00000646
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
new mail.GIF1
act_NEWMEMO.GIFact_NEWMEMOcs-CZ
0000064A
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
new.GIF1
act_NEWSTATIONERY.GIFact_NEWSTATIONERYcs-CZ
0000064E
CN=Lotus Notes Template Development/O=Lotus Notes########################################
new.GIF1
act_NEW.GIFact_NEWcs-CZ
00000652
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
participant actions.GIF1
act_participantactions.GIFact_CSPARTACTIONScs-CZ
0000065A
CN=Lotus Notes Template Development/O=Lotus Notes###################
rename.GIF1
act_RENAME.GIFact_RENAMEcs-CZ
0000065E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
reply.GIF1
act_REPLY.GIFact_REPLYcs-CZ
00000662
CN=Lotus Notes Template Development/O=Lotus Notes######################################################
34CiQ
restore.gif1
act_rmvTrash.gifact_rmvTrash.gifcs-CZ
00000666
CN=Lotus Notes Template Development/O=Lotus Notes#########################################
save as draft.GIF1
act_SAVEASDRAFT.GIFact_SAVEASDRAFTcs-CZ
0000066A
CN=Lotus Notes Template Development/O=Lotus Notes##################################
##########################################################
##########################################################
'++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 receipt As NotesDocument
Dim strUNID As String
Dim noteReferred As notesdocument
Dim strTo As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Call wInstantiateObjectVariables
    Dim query_string As String
    query_string = note.getitemvalue("query_string")(0)
    If Instr(query_string, "&To=") Then
        Call PopulateSendTo()
    End If
    If Instr(query_string, "&ReturnView=") Then
        Call note.replaceitemvalue("ReturnView", Strrightback(query_string, "&ReturnView="))
    End If
        'we are doing a forward
    If Instr(query_string, "Forward") Then
        On Error Resume Next
        strUNID = Mid(query_string, Instr(query_string, "=")+1, 32)
        Set noteReferred = db.getdocumentbyUNID(strUNID)
        On Error Goto ErrorRoutine
        If noteReferred Is Nothing Then
            note.AbortGracefully = "1"
            Exit Sub
        End If
        note.AbortGracefully = "0"
        Call note.replaceitemvalue("Websubject",noteReferred.getitemvalue("subject")(0))
        Call note.replaceitemvalue("subject",noteReferred.getitemvalue("subject")(0))
        note.sendto=""
        note.copyto=""
        note.blindcopyto=""
    End If
    Call wReturnReceipt( note )
    If Instr(query_string,"All") Then
        strUNID = Mid(query_string, Instr(query_string, "=")+1, 32)
        Set noteReferred = db.getdocumentbyUNID(strUNID)
        If Not(noteReferred Is Nothing) Then
            Call agentlog.logaction("Doing Reply to All")
            Call MEMOReplytoAll(note)
            If Instr(query_string,"ParentUNID")=0 Then
                Call note.replaceitemvalue("websubject",note.subject(0)+" "+notereferred.subject(0))
            End If
        End If
    End If
    If (note.isNewNote And wGetCalendarProfile) Then
        If (profile.getitemvalue("EnableSignature")(0) = "1") Then
            Dim rtiOrig As Variant
            Dim rtiTmp As New notesrichtextitem( note, "BodyTemp")
            Set rtiOrig = note.getFirstItem("Body")
            rtiTmp.appendText( profile.getitemvalue("Signature_1")(0))
            Call rtiTmp.appendRTItem( rtiOrig )
            Call note.removeItem( "Body" )
            Dim rtiNewBody As New notesrichtextitem( note, "Body" )
            Call rtiNewBody.appendRTItem(rtiTmp)
            Call note.removeItem( "BodyTemp")
        End If
    End If
    Exit Sub
ErrorRoutine:
    Messagebox Error & " (wMemoOpen)"
    Exit Sub
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$DesignerVersion
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$PublicAccess
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Compare Nocase
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:2:10
Sub Initialize
    IsWebClient = True
    Call wInstantiateObjectVariables
    session.ConvertMime = False
    If Not(wGetCalendarProfile ) Then Goto MustSetCalendarProfile
    On Error Goto ErrorRoutine
    optionValue$ = note.getitemvalue("tmpSendOptions")(0)
    If note.getitemvalue("Form")(0) = "NonDelivery Report" Then
        Call note.replaceitemvalue("Form", "Memo")
        Call note.replaceitemvalue("WebSubject", note.getitemvalue("Subject")(0))
    Elseif (note.getitemvalue("Form")(0) = "wForward") Then
        Call note.replaceitemvalue("Form", "Memo")
    End If
    Select Case note.getitemvalue("Form")(0)
    Case "Memo"
               'cool
    Case "Reply"
               'cool
    Case "wForward"
            'cool
    Case "Phone Message"
               'cool
    Case Else
               'we don't know what kind of form this is
        optionValue$ = "2"
    End Select
    Dim datetime As New NotesDateTime( "Today" )
    Call datetime.SetNow
    Select Case optionValue$
    Case "1"
     '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")(0))
        Call note.removeitem("WebSubject")
        Call note.removeitem("tmpAlreadySent")
    Case "2"
     '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")(0))
        Call note.removeitem("WebSubject")
        Call note.removeitem("tmpAlreadySent")
    Case "3"
     '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")(0))
        Call note.removeitem("WebSubject")
    Case "4"
    'Save only - from inbox
        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")(0))
        Call note.removeitem("WebSubject")
    End Select
    If note.HasItem("Query_String") Then
        Call note.replaceitemvalue("Query_String", "") 'don't leave stale info around
    End If
    Call NABResolveAllNames()
    pathinfo$ = note.getitemvalue("Path_Info")(0)
    tmp1$ = note.getitemvalue("path")(0)
    If (note.hasItem("ReturnView")) Then
        tmp2$ = note.getitemvalue("ReturnView")(0)
        If Not(tmp2$ = "") Then
            Print "[" & tmp1$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F"&tmp2$ & "%3FOpenView]"
            Exit Sub
        End If
    End If
    If pathinfo$="" Then
        Print "[" & tmp1$ &"/MailFS?OpenFrameSet]"
        Goto continue
    End If
    InfoPathPos% = Instr (1,pathinfo$,tmp1$,1)
    Dim view As notesview
    targetview$ = ""
    targetviewargs$ = ""
    fromstr$ = "&From="
    pos%  = Instr (pathinfo$, fromstr$)
    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
        '''Look for docurl if from an opendocument
        docurl$ = "&docurl="
        pos% = Instr(pathinfo$, docurl$)
        If pos% <> 0 Then
            targeturl$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(docurl$) + 1)
        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$, "/")
            If (pos% <> 0 ) Then
                targetview$ = Left$ (workstr$, pos% - 1)
            Else
                '''Don't treat "Memo" as a view as in Memo?OpenForm
                pos%  = Instr (workstr$, "?OpenView")     '''@mek
                If (pos% <> 0 ) Then
                    targetview$ = Left$ (workstr$, pos% - 1)     '''@mek
                Else
                    targetview$ = ""   '''@mek
                End If
               'is it a view name?
                On Error Resume Next
                Set view  = db.GetView( targetview$)
                If (view Is Nothing) Then
                    'or is it a unid?

                    Dim viewnote As notesdocument
                    Set viewnote = db.getdocumentbyunid(targetview$)

                    If viewnote Is Nothing Or Not (viewnote.hasitem("$VIEWFORMAT") )Then targetview$ = ""     'no

                End If
            End If
        End If
    End If
    On Error Goto ErrorRoutine
    If InfoPathPos% <> 0 Then
        If note.tmpBackToTask(0) = "1" Then
            Print "[" & tmp1$ & "/ToDoFS?OpenFrameset]"
        Else
            If targetview$ <> "" Then
                Print "[" & tmp1$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F"&targetview$ & "%3FOpenView]"
            Else
                If targeturl$ <> "" Then

                    Print "[" & targeturl$ & "]"
                Else

                    Print "[" & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ & "%2F($Inbox)%3FOpenView]"
                End If
            End If
        End If
    Else
        Print "Dokument byl zpracov
    End If
continue:
    Call wMarkTempFields( note )
    Exit Sub
MustSetCalendarProfile:
    Print "P
ed odesl
m dokumentu mus
te nastavit sv
edvolby."
    Print "Nastavte po
adovan
edvolby pomoc
dky u tla
tka N
stroje v pohledu Do
    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
          h
Lotus Product
W32I4
K     -0    #
K     ,T    J
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
7*esX
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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 query_string As String
    query_string = note.getitemvalue("query_string")(0)
    If Instr(query_string, "EditDocument") Then
        Call note.replaceitemvalue("SendTo", note.getItemValue("IntendedRecipient")(0))
        Call note.replaceitemvalue("CopyTo", "")
        Dim temp$, final$
        temp$ = Strright( note.getitemvalue("Path_Info")(0), note.getitemvalue("path")(0) & "/")
        final$ = Strleft( temp$, "/")
        Call note.replaceitemvalue("ReturnView", final$)
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Gm*#'
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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 ProcessCategories(  note As notesdocument, profile As notesdocument )
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim strPath As String
    Dim strView As String
    Set session = New notessession
    Set db =session.currentdatabase
    Set note = session.documentcontext
    If (wGetCalendarProfile) Then
        Call ProcessCategories( note, profile )
    End If
    strPath = note.getitemvalue("path")(0)
    Print "[" &  strPath &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & strPath &"%2FPeople%3FOpenView]"
End Sub
'++LotusScript Development Environment:2:2:ProcessCategories:1:8
Sub ProcessCategories(  note As notesdocument, profile As notesdocument )
    Dim vCategories As Variant
    Dim vResult As Variant
    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("Category")(0)
    If Len(strSelectedCategory) = 0 Then Exit Sub
    If (strSelectedCategory = "N") Then
        Call note.replaceitemvalue("Category", "")
        Exit Sub
    End If
    Set item = profile.GetFirstItem("NABCategories")
    If item Is Nothing Then
        Call profile.ReplaceItemValue("NABCategories", strSelectedCategory)
        Call profile.save(True, False)
        Exit Sub
    End If
    vCategories = item.Values
    vResult = Arraygetindex(vCategories, strSelectedCategory)
    If Isnull(vResult) = True Then
        Call item.appendtotextlist(strSelectedCategory)
        Call profile.save(True, False)
    End If
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
[p^xK
%|>l,X`l
$Language
$LastBuildTime
$BabelInfo
$TITLE
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistQuery
$AssistAction
$AssistAction_Ex
$DesignerVersion
'++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
    Property Get IsOwnerManager As Integer
        IsOwnerManager = Me.CanChangeOwner
    End Property
    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.strNameReference)
        Msgbox Me.m_strLastErrorString
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim agentlog As New noteslog("Protokol agenta")
    Call agentlog.openagentlog
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call wGetCalendarProfile
    On Error Goto ErrorRoutine
    Set ACLManager = New WEBDelegationACLManager(profile)
    Call ACLManager.Init()
    If (ACLManager.IsOwnerManager) Then
        Call note.replaceitemvalue("tmpOwnMan", "1")
    End If
    If Len(ACLManager.m_strLastErrorString) Then
        'some error has occured creating setup context!
        Msgbox ACLManager.m_strLastErrorString
    End If
    Call CopyProfileValues(profile, note)
    Exit Sub
ErrorRoutine:
    Messagebox Error & " (wPreferences)"
    Exit Sub
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$PublicAccess
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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,strNameReference)
        Msgbox Me.m_strLastErrorString
    End Sub
End Class
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim agentlog As New noteslog("Protokol agenta")
    Call agentlog.openagentlog
    IsWebClient = True
    Call wInstantiateObjectVariables
    Call wGetCalendarProfile
    Dim strPath As String, strReturnView As String
    On Error Goto ErrorRoutine
'//AdminP setup code
    Set ACLManager = New WEBDelegationACLManager(profile)
    Call ACLManager.Init()
    Call note.removeitem("$BusyName")
    Call note.removeitem("$AvailableDays")
    Call note.computewithform(False, False)
    Call CopyProfileValues(note, profile)
    profile.DefaultMailOpt = note.DefaultMailOpt
    'Need to add this field
'    profile.wCalGridType = note.CalGridType
    '//AdminP SAVE CONTEXT
    ACLManager.DelegateUsingAdminP = True
    ACLManager.IsWebClient = True
    If Not ACLManager.CommitACL(False)    Then
        Msgbox ACLManager.m_strLastErrorString
    End If
    Call profile.computewithform(False, False)
    Call profile.Save(True,True,True)
    strPath = note.getitemvalue("path")(0)
    If (note.hasItem("ReturnView")) Then
        strReturnView = note.getitemvalue("ReturnView")(0)
        If (strReturnView = "Kalend
") Then
            Print "[" & strPath & "/CalendarFS?OpenFrameset]"
        Else
            Print "[" & strPath & "/" & strReturnView & "?OpenView]"
        End If
    Else
        Print "[" + strPath + "/MailFS?OpenFrameset]"
    End If
    Exit Sub
ErrorRoutine:
    Print Error & " (wPreferences)"
    Exit Sub
End Sub
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$PublicAccess
$DesignerVersion
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
'++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
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
!kfwC
#9dl^
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction
$AssistQuery
$AssistAction_Ex
$Language
$LastBuildTime
$BabelInfo
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction_Ex
$AssistAction
$AssistQuery
$Language
$LastBuildTime
$BabelInfo
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
"3v2`p
}Lz"d
$AssistType
$AssistLastRun
$AssistDocCount
$AssistFlags
$AssistTrigger
$AssistInfo
$AssistAction_Ex
$AssistAction
$AssistQuery
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
0t" &
NGv58
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
/i>A[BDs
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
[o0iT
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
g<>2N
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
9A    `(
o19;=?]-G
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$DesignerVersion
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
:B\eF
9#/;G
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
AE    +Yj
Ut"4=?AC<e/M
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$DesignerVersion
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
UV$!jTy
7DF'5JCm1N
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
Yw{`^
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
A.^#$0
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
ppp___LLL///
s+w$|~
BM    $]'LE
79;=bc
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$DesignerVersion
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
]]]///
p\Q@l#
PxBEj
j-<R0T8Et
(E%_!
T&D+u5
p0) :
OHw4g
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
k%l%GIF89ax
LL;nmZ
AD7*, jm[
,}z0
g@1E{
g-x@ra
MP[+@G
y+K[_
-AX&4
NeMn"
E%1d$
<-dSHU>
`*YYh
0Y+r&%
23oVY    @w
_6+,v
,!#!!" $
%%<#*/
)@XZ<b
R\.^u
S@?lu
eO{<P
)2w,{
z| !'(
f*s U
ww""6
h!PRe
6A|Fs0
(~AHykby
0uT'wt
7wUq>
7J5'w|_ZX
RH5fSO?
h9ZX.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
*PuuG
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
a1Y,n8
)<M|! mT
'n3I.I:
9y;Gb,
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
^Kw7H
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
tx],l
save.GIF1
act_save.GIFact_CSSAVEcs-CZ
0000066E
CN=Lotus Notes Template Development/O=Lotus Notes#######################################################
34CiQ
scheduler.gif1
act_scheduler.gifact_scheduler.gifcs-CZ
00000672
CN=Lotus Notes Template Development/O=Lotus Notes#####################################
7),'Kf
34CiQ
send & file.GIF1
act_SENDFILEact_SENDFILEcs-CZ
00000676
CN=Lotus Notes Template Development/O=Lotus Notes#############################################
send.GIF1
act_SEND.GIFact_SENDcs-CZ
0000067A
CN=Lotus Notes Template Development/O=Lotus Notes#########################################################
tools.GIF1
act_TOOLS.GIFact_TOOLScs-CZ
0000067E
CN=Lotus Notes Template Development/O=Lotus Notes######################################################
34CiQ
unmark.GIF1
act_unmark.gifact_unmark.gifcs-CZ
00000682
CN=Lotus Notes Template Development/O=Lotus Notes##############################################
bBK2T
?scribble.gif1
bg_1bg_1cs-CZ$dT
000006A2
CN=Lotus Notes Template Development/O=Lotus Notes#################
a(D:W
whoisonline.gif534CiQ1
act_whoisonline.gifact_whoisonline.gifcs-CZ6dT
00000686
CN=Lotus Notes Template Development/O=Lotus Notes######################
add action.gif1
add action.gifadd_actioncs-CZBdT
0000068A
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
add condition.gif1
add condition.gifadd_conditioncs-CZQdT
0000068E
CN=Lotus Notes Template Development/O=Lotus Notes######################################
add exception.gif1
add exception.gifadd_exceptioncs-CZ[dT
00000692
CN=Lotus Notes Template Development/O=Lotus Notes######################################
?add to address book dialog_final.gif1
address.giftb_ADDTOADDRESSBOOKcs-CZfdT
00000696
CN=Lotus Notes Template Development/O=Lotus Notes###################
arch.gif34CiQ1
ArchLog.gifArchLog.gifcs-CZydT
0000069A
CN=Lotus Notes Template Development/O=Lotus Notes######################################################
34CiQ
off white speckle.gif1
bg_0bg_0cs-CZ
0000069E
CN=Lotus Notes Template Development/O=Lotus Notes#######################################################
^agA6
34CiQ
green paper.gif1
bg_2bg_2cs-CZ
000006A6
CN=Lotus Notes Template Development/O=Lotus Notes)
##########################################################
34CiQ
glacier.gif1
bg_3bg_3cs-CZ
000006AA
CN=Lotus Notes Template Development/O=Lotus Notes#
34CiQ
diamonds.gif1
bg_4bg_4cs-CZ
000006AE
CN=Lotus Notes Template Development/O=Lotus Notes
34CiQ
lotus tech.gif1
bg_5bg_5cs-CZ
000006B2
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
34CiQ
?solid header.gif
bg_DIALOGBANDbg_DIALOGBANDcs-CZ
000006B6
CN=Lotus Notes Template Development/O=Lotus Notes##########################################
34CiQ
phone_top.jpg1
bg_MessagePadbg_MessagePadcs-CZ
000006BA
CN=Lotus Notes Template Development/O=Lotus Notes#############################################
I,G*i
bouncyearth.gif1
Bouncy EarthStdNotesLtr1cs-CZ
000006BE
CN=Lotus Notes Template Development/O=Lotus Notes##############################################
Buck Rogers.gif1
Buck Rogers MailStdNotesLtr2cs-CZ
000006C2
CN=Lotus Notes Template Development/O=Lotus Notes##########################################
34CiQ
web_wheat-speckle.gif1
calendarbckgnd.gifcalendarbackgroundcs-CZ1eT
000006C6
CN=Lotus Notes Template Development/O=Lotus Notes###########################
?1to do.gifclipboardcs-CZKeT
000006CA
CN=Lotus Notes Template Development/O=Lotus Notes###########################
computer chip.gif1
ComputerChipStdNotesLtr3cs-CZ]eT
000006CE
CN=Lotus Notes Template Development/O=Lotus Notes############################################
Deco.gif1
DeccoStdNotesLtr4cs-CZheT
000006D2
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
cLr/~
?1address.gif
DialogButton Address.GIFAddresscs-CZveT
000006D6
CN=Lotus Notes Template Development/O=Lotus Notes###########################################
DialogButton.GIF
@1DialogButton.GIFcs-CZ~eT
000006DA
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
tabbed table bg5.gif1entrybgcs-CZ
000006DE
CN=Lotus Notes Template Development/O=Lotus Notes##
exclamation.gif1
exclamation.giftb_EXCLAMATIONcs-CZ
000006E2
CN=Lotus Notes Template Development/O=Lotus Notes#########################################
falling spheres.gif1
Falling SpheresStdNotesLtr5cs-CZ
000006E6
CN=Lotus Notes Template Development/O=Lotus Notes#######################################
rtrQU
Frank Lloyd.gif1
Frank LloydStdNotesLtr7cs-CZ
000006EA
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
desk.gif1
From The DeskStdNotesLtr8cs-CZ
000006EE
CN=Lotus Notes Template Development/O=Lotus Notes####################################################
ftbusy.gif34Ci1ftbusy.gifcs-CZ
000006F2
CN=Lotus Notes Template Development/O=Lotus Notes#########
ftconf.gif34Ci1ftconf.gifcs-CZ
000006F6
CN=Lotus Notes Template Development/O=Lotus Notes#########
)R 3S|E
ftfree.gif34Ci1ftfree.gifcs-CZ
000006FA
CN=Lotus Notes Template Development/O=Lotus Notes#########
ftno.gif34Ci1ftno.gifcs-CZ
000006FE
CN=Lotus Notes Template Development/O=Lotus Notes#############
ftok.gif34Ci1ftok.gifcs-CZ
00000702
CN=Lotus Notes Template Development/O=Lotus Notes#############
?G        #/o
ftrestrict.gif34CiQ1ftrestrict.gifcs-CZ
00000706
CN=Lotus Notes Template Development/O=Lotus Notes
gateway.gif1
GatewayStdNotesLtrGatewaycs-CZ
0000070A
CN=Lotus Notes Template Development/O=Lotus Notes#################################################
geometry2.GIF1
Geometry StdNotesLtr9cs-CZ&fT
0000070E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
grey gradient.gif1
Gray Gradient with Lines|StdNotesLtr13cs-CZ2fT
00000712
CN=Lotus Notes Template Development/O=Lotus Notes##############################
green & yellow diamonds.gif1
Green and Yellow DiamondStdNotesLtr14cs-CZBfT
00000716
CN=Lotus Notes Template Development/O=Lotus Notes#####################
0zL*i
leaves.gif1
LeavesStdNotesLtr6cs-CZMfT
0000071A
CN=Lotus Notes Template Development/O=Lotus Notes#########################################################
##########################################################
##########################################################
GIF89a
@B$`)
eM! c:<~(&
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
A 0H*6
9.)WE5
e!B:`l?Aa
) v\9^8_b
]i_'>
?MO QJy6W>y
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
fKm]R
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
$`-3P)8 Q#b}oX&-Y]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
519Dy
pAVJn
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
```///
@&/i'b
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
Ry+00
$ImagesWide
$ImagesHigh
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
///###
L'UB@p=
90j5I
il=?@
(U+v\A
+,w8]
1<JLNP
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$DesignerVersion
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
```===
evelopment Envir

End Sub
End Sub
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
4?)I.
^>^QD
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a4
~~~uuucccDDD
Hd00
iCiF(!
k)vLP
i=kpF
!@wy>Z
*Ma%,
FdQ2X,H
r6ua;
(]t]9
r_XD8
n3s&#
K`}"(
pSK .=
f`csv
XJlq+I(>
P%-F2x
c[G+J
BJze3
%7*cC
^:-{*
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
{s]}b
%giHjk+
pqrut^
00m!:
(Qv(m
t`rFa6o
-M<4YS&
'j]J&
*{j('5
`z&OK
D8qPps
A6epxe
uvH:7
4tlV[Z
$C!dj
zQf.*U
ID4Br"
pj*rN
j6gBR
e-wC'wH
'v!8V
vtH7vH$+E
&Qzxc+
TXb2H
QXigO
`)tV8
[q hU.$
zJEzbha
XG1P&
_    d0x
f$ZddG
zah'`
}g#@'
Fpn6'^A
4k1sj
\>qu6q1
T#jt-
.50dUHer
}t]#=
X    FSM
K&qHD&
4%5^na
EuXdD
6pS<$
78N>p
=zMIv
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
}!&WA%
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
3b=J#Z.
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
%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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImageNames
$ImagesColorize
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
 $.' ",#
(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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a[
BZ%|u
'288
NDB9pa
jYdQ#
CDUGJ+
JRHM`
    *Z0P
%,G>~
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
RQ!YL
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
P 5    BUIBT
Q e\@
]M.<x
+^@pc^-
[{#A@
)v>Dj
    `MWz
,C'*P_
V:G    R
4-^Ui
BnTQ
,{;/"
9XDET
S    nRf
4'\`\
#s`PD
*BV.WV
(p%~*
tYEDZU%s0
[CikP
wJ0eo
M5v#b
5w0R"
[X <7
W+hP D
@.naG+6
I<<\4
4L,@<8
,,>@,
6!$T$
\DD($$ 4
q@Jd,R
d.&=rL
,t`1.
[k%bC
N1dhv
![d1I
(v6(X
@6b#}
1(.=']
auapIU
*jfbT
B>yA,hA
dTp%N
P"AnD
e2^Y2:FC
CT^"D`
]0A#`O
S#LF!
/E<F_d
U<I`]
Eo$J*tE2
;DOpk
AtTBX\
.8d!@B
x%I,YM
!hPR;R$
BLX$%
+!1G    X
JTrE!kqaEG
Yp|8B
 p    z(
AH@O3P
S'7HRF
` 8<P,
5j"0'
pso}S
wZ-\:
Q"8PY
`V    SC
O{#/i%
EB6E0F
E|PG58
;0wr 6
()E=wd-M
1^K@_h
cG#6i
=pCI@
#!#cV
 Ipas
t&b9n
Y:2wE
'ibLt
)OcPX@
$"$I@
"bj&"    h
Mg-="@
{$ZpZ
}`.<B
#'z:8
,/FPqv'3
YU(U>s-I_c
}sqL$
9 lQAD
)wp b
I`RxF
&-iS@
}<WAF
d%5(p
|d#^V
`hR"0d
t4S!7tI
DZhAe
"Bc&h
6-!@Rg
(p"y!
F,HX"
KZDI]
`q9$9
ynZH|
A~ CB
B8WWX
(Z%|B
yB'|zK(
=P<"4A
,)5ss
k>M;
 4XT`
LXD=h
#/|E@X
46L$2
Q`.YV
8G    -T
kKcjB
EA$,C5l
BBa,U    h
J$'bD
    e4dq
8KE"b
k!P$Q+
    >a'g
a8;JB>
Cp*Mq
\E"O1:
FxCup
@I\Gd'
 paHs
Z1ORp
 3yrzy
4>r`D
1/\0m
Xlg .
0$rN7D
iaA;8Qcs
AzXw0z
K8LRR8;`
AS`+(
%0Z[s
x$ (/
|S _
0Eoj!
    sq(n
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
3y<zKO
$ImagesWide
$ImagesHigh
$PublicAccess
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
DbB(^,D
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
iOts9
$ImagesHigh
$ImagesColorize
$ImagesWide
$PublicAccess
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a/
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesHigh
$ImagesColorize
$ImageNames
$ImagesWide
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
zwvvx
VmT,_pZ Q
_0(5~
5m&<G~
Go{I)
[!eiI
!#bcw
yS)HT&
(G;"P
^'Gz>
e.Hh6I
`PQ '
gf5[ 3
%aece
d|bU?
|Tr;6u
rZv%}2
aTbly
f6Dsu
fgf77
@HEU_
4+tp>
WNU6M
4Z    Dgc8
fix7hv[
dn%i`!&9Gi
 leU\c[,
1Jl'8V
qS'_e
]Rc1?
R2E6o
g2}q=
Ht9A+jk
N C s%~
f5>4:
W0otW
UA=    pG
Wq8kfs0
S8I]g
 -%,252.
ISW7=
Mqu_=
H(*YOA
g*gXa
ehvvY
O<T    5
E%bbZ
nSdi    %
0mhClZ@c
Rs+Lbr
~<:<|
    H.e29%r9M"
 bGh0
~YI?M
baZh/>
#aNc:
4\w]!=
p,^=c'
xrS;5K
g    O35[39
R*4G"
/o'wn
D'ErPvG
~OR%0:
$b #r
uwXGh
<-|vV
]>=_o/
n    (@$L
"*V-R%6
%\D1&$
    |tla
dUhkRa
 %GgS
VYrwIJM
ds&lk
\$#CW=
>av,~
}|UVT
%vX(K
,@6`Bh
.!VC_
wk;8    <Hq
c2's{
h)Rg^^
s[    g00"o
|@T7i
8wP7o
5?HyA
MY:'Lp
aJ1c*
'6b)4nZ
Au*KT
    *>;^v
-38m<
T?"gO $4
.*kw:
&B+s*
*t49f;
lX9/h
ZA|%F
IR?H4
M*E^F
SOs6W
<[BQSyt+
(F1"N
=. 6H
1psK\&l
Oufr{
L$:gzY
aNG<bX
l;F`Nt8
<'w$X
^"&fb%
\BR$@
@jbHj
%Z6!,
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
]X_X{|<
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
a}'+|
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
D1`_#
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
iE]Pw
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89aM
}}}yyyuuummmaaaTTTKKKDDD???999...
lnp6"9    n
_+T    (
&4p L
%D[r)eiU
anb9Ykr
0    |HLq
'f$14#
&FPIN
x".p:
lu}9<
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
>Qcg^
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
lH;bS
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
marquee4.GIF1
MarqueeStdNotesLtr34cs-CZZfT
0000071E
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
metal plate.gif1
Metal PlateStdNotesLtr15cs-CZifT
00000722
CN=Lotus Notes Template Development/O=Lotus Notes##############################################
34CiQ
address book view icon.gif51
out_AddressBookout_AddressBookcs-CZzfT
00000726
CN=Lotus Notes Template Development/O=Lotus Notes###################
achive outline icon.gif34CiQ1
out_ARCHIVEout_ARCHIVEcs-CZ
0000072A
CN=Lotus Notes Template Development/O=Lotus Notes#######################################
out_Month1.gif34Ci1
out_Month1out_Month1cs-CZ
0000072E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
10.gif34Ci1
out_Month10out_Month10cs-CZ
00000732
CN=Lotus Notes Template Development/O=Lotus Notes#########################################################
out_Month11.gif34Ci1
out_Month11out_Month11cs-CZ
00000736
CN=Lotus Notes Template Development/O=Lotus Notes################################################
12.gif34Ci1
out_Month12out_Month12cs-CZ
0000073A
CN=Lotus Notes Template Development/O=Lotus Notes#########################################################
out_Month2.gif34Ci1
out_Month2out_Month2cs-CZ
0000073E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month3.gif34Ci1
out_Month3out_Month3cs-CZ
00000742
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month4.gif34Ci1
out_Month4out_Month4cs-CZ'gT
00000746
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month5.gif34Ci1
out_Month5out_Month5cs-CZ4gT
0000074A
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month6.gif34Ci1
out_Month6out_Month6cs-CZCgT
0000074E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month7.gif34Ci1
out_Month7out_Month7cs-CZQgT
00000752
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month8.gif34Ci1
out_Month8out_Month8cs-CZagT
00000756
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_Month9.gif34Ci1
out_Month9out_Month9cs-CZtgT
0000075A
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
out_rMonth1.gif34Ci1
out_rMonth1out_rMonth1cs-CZ
0000075E
CN=Lotus Notes Template Development/O=Lotus Notes################################################
r10.gif34Ci1
out_rMonth10out_rMonth10cs-CZ
00000762
CN=Lotus Notes Template Development/O=Lotus Notes######################################################
out_rMonth11.gif34Ci1
out_rMonth11out_rMonth11cs-CZ
00000766
CN=Lotus Notes Template Development/O=Lotus Notes#############################################
out_rMonth12.gif34Ci1
out_rMonth12out_rMonth12cs-CZ
0000076A
CN=Lotus Notes Template Development/O=Lotus Notes#############################################
out_rMonth2.gif34Ci1
out_rMonth2out_rMonth2cs-CZ
0000076E
CN=Lotus Notes Template Development/O=Lotus Notes################################################
out_rMonth3.gif34Ci1
out_rMonth3out_rMonth3cs-CZ
00000772
CN=Lotus Notes Template Development/O=Lotus Notes################################################
out_rMonth4.gif34Ci1
out_rMonth4out_rMonth4cs-CZ
00000776
CN=Lotus Notes Template Development/O=Lotus Notes################################################
out_rMonth5.gif34Ci1
out_rMonth5out_rMonth5cs-CZ
0000077A
CN=Lotus Notes Template Development/O=Lotus Notes################################################
out_rMonth6.gif34Ci1
out_rMonth6out_rMonth6cs-CZ
0000077E
CN=Lotus Notes Template Development/O=Lotus Notes################################################
out_rMonth7.gif34CiQ1
out_rMonth7out_rMonth7cs-CZ
00000782
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
out_rMonth8.gif34Ci1
out_rMonth8out_rMonth8cs-CZ
00000786
CN=Lotus Notes Template Development/O=Lotus Notes################################################
out_rMonth9.gif34Ci1
out_rMonth9out_rMonth9cs-CZ
0000078A
CN=Lotus Notes Template Development/O=Lotus Notes################################################
mail outline2.gif34Ci1
out_STAMPSout_STAMPScs-CZ1hT
0000078E
CN=Lotus Notes Template Development/O=Lotus Notes################################################
to do2.gif1
out_TODOout_TODOcs-CZMhT
00000792
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
pencil and grid.gif1
Pencil and GridStdNotesLtr16cs-CZdhT
00000796
CN=Lotus Notes Template Development/O=Lotus Notes######################################
ponyexpress99b.GIF1
Pony ExpressStdNotesLtr17cs-CZxhT
0000079A
CN=Lotus Notes Template Development/O=Lotus Notes##########################################
postmark.gif1
Post MarkStdNotesLtr33cs-CZ
0000079E
CN=Lotus Notes Template Development/O=Lotus Notes###################################################
tribal.gif1
PrimitiveStdNotesLtr20cs-CZ
000007A2
CN=Lotus Notes Template Development/O=Lotus Notes#####################################################
purple geometry.gif1
Purple GeometryStdNotesLtr18cs-CZ
000007A6
CN=Lotus Notes Template Development/O=Lotus Notes######################################
2\<{Xxb
res.gif1rooms.GIFcs-CZ
000007AA
CN=Lotus Notes Template Development/O=Lotus Notes#############
34CiQgroup calendar2.gif1sidebar.gifcs-CZ
000007AE
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
slashed lines with globe.gif1
Slashed Lines with GlobeStdNotesLtr21cs-CZ
000007B2
CN=Lotus Notes Template Development/O=Lotus Notes####################
squiggle w backdrop.gif1
Squiggle with BackdropStdNotesLtr22cs-CZ
000007B6
CN=Lotus Notes Template Development/O=Lotus Notes###########################
squiggly line.GIF1
Squiggly LineStdNotesLtr23cs-CZ
000007BA
CN=Lotus Notes Template Development/O=Lotus Notes##########################################
tacks.gif1
TacksStdNotesLtr24cs-CZ
000007BE
CN=Lotus Notes Template Development/O=Lotus Notes##########################################################
tape.GIF1
TapeStdNotesLtr25cs-CZ#iT
000007C2
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
5cs-CZ
000007F6
CN=Lotus Notes Template Development/O=Lotus Notes#########################
GIF89aZ
34>./8$%,79D(+3
-1.!&"
).)&)&595(+(
141!"!\c8^d8
**%NNI
+++((('''
]h`xI0
4| 'rBd
,E%"q
E4B\[XO
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
0TVn[dgw
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
    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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
`h,Fb
*l7LF
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
5zT _
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$DesignerVersion
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
dsjMZ
7AR<GY1:HBRbapzD
`8&g-+o
;%SDt
JGS,Z<2
hJ]h$
aNF-*@
%)VxQ
Zh    3 Zh
qz+$2
D;buD)
l    XJ@
9>Q8!
53I12s
QwRsa
Zc    R%W
hOP=U)mW$
VET6]
5}i`0~
FL8e!
,L(P'
*Wbuu
+Tr'.2
dM#h7}R%
Xq"c!
IW?YB
+b8*^
%:C1f
/'aKCJH"
%lR`eFf
c<wgH
16aum
+q<!B
~IU#Qp.
pP}7a
c)D%q
lTUa%
s:].<
 |S }
8    s}#Fo
7bZ!,K
o\4HqY(o
uuvfb
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
 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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
BSt?M< 6DL
`U[SWa\L]Y
203u}
j    *%s4
@NPxr
{I4XD2
uC|9,0
fysnQ
ytVU=
~J_G(
Dhai6
kX1Tc
;s,@R
n[#@"
fKEx}K
eM}"]
EW[W    i `
Dj(3va~
QtJh&
">>d>
3RcwN
6yaCq
    U4JMBx
vl4rc
-c9$pe
*pw|1
`a4ayIl1
w-m `
Ve6/{
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
-31;+@
K^S4|
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(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
Mw"r&
p]t$7
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
BXPXa
j]!mIpqsrpHF
yR_V/8
&f4_c
??5]9
iC"/%
9ryqpU
bmI\h
fd4HK.
M0yd"
&jI$2a(
(I"P$q
8tv/pa
4sqr_
"iX73
S'dZK55
xi|6Oh
47oSK
OAfT?b{`
{Vz2vi
(;h:'
rvf)N
nYTm#1Ka
V^ymmF&
xhTfE
eV'vO(
:bl6e#
+kj+K
s1XbW
+4gTL
!5bSf
Y4Au=
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
"Q0L:8k
Dp @P
]bU&.
p9b2y
6h2Hb
/$1d\,L7B
 aD,S
$*-HH:
('.ik
\xY%E
M-p    F
M-kWx
eBmIW
D/^qB
{"|e/
8Zsmc
ix0/"
'uCx~
eXwc[f
"#C#]1WQ
"Jh04
v*S42O
wb@i5
f38P
UdoB-|
[A    9'
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
ip[fz
h5~\o/Z([#
7&l3x`<Y%x@e
:9&.qG3
dSj^-S
1.Hm]a8
`y|<?A
B`\V*;
@OwPK
Hbm{g
`Ag~dx
WqkGm
S%R6B]
$yrZ^xU|
X}Ja3
;7&<dU
,g@c30z
YU&EFR
6t':BiH
I8a!tlc
k<BlU S
3?It'
-"=yuG
n8K!ng
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
!lIYp
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
pS{E"l
.oc1F
Ufg7_+}ei<%
Qs=YL
0!F)9
=z1{V
0zP!Q
"x5#b
|Pn(xd
LBF5<0
L<1`H(
"BM$v
xhI?zI
`UoV3
%jh/{>
zdI(7
hfPaL
U/Z#FQ
KhG?x<
r.u4*W
cZmh@Q
d an*
6HvgS
HUNI5
|,auY
j#/dn
/{+cb>
`yA|X
kTv\p
-ifEx
uC R9{
RG<[a    tQ
4nbsW
eHfho;Q
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
pot4?> % \;1
xHb~G
"V4\lVk
aeUi;6
joLT`{.
IM'As6
hzI@&e
4,2D^
C.1nc
29H-&*
|1`C)"
4?n)\
d"w*"f^1
V^'N8
4.r%1S
aVyB~
 z97}
@~0P9
<4QU.
b!w2R
P+9 -k
tJR 2
Vge2[
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
2v#6C\n
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
4&.B1:F8DQ@NW&,/MZ[f
 T?$oJ
ObvNMcQ^e35^
S7W9w;
AAjT7P
F*lrV7oN
Q8@Dq
p]@:8
fJQq>
w?x%nA
Bv    Vp
b[D2E
GK9JF
dGXSYw
F:nsix
99hB\
S*K12
~]u    -
#nfXn
Q8cfas<
Pw)K%D7
AQ}&Q
FbboR
R4^%u
KxzBw
47jYH`x
}mtdt
)DP#P
Q% :"
EM@1=:
:FpgK
    I\{c
_q7G[
    gZ*I
x26GS
HU)mfk
r7~=6
z|)+q$/
`j570
5/}7;`
~0i<c{
    zlzB
k~iV=
|sdt\
@zp!]h
7/hM_
FV;v*
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
;R3Y}El
1c-&nHTxxm><nrhS
'0ad#,
%+Lnh
 6m2j
A;XE]`
 "J&9
p28_i
XNZj-h
xD_3    N
V3;m7
BV;Dy
pN|!)
L\bRx
#-I]Ba
5.s]/P
u.?dS"
1Br8Q
xLlJNn
DcufI
' "1]- "
f    42M_
@s$w}W
G7`r,
`]8'@u@^x
xM/Ac
&TOQ3
reHW3
 "R'j
Z`H^k
jr4j+>
AsWV!iP
g&ZFS
IdjSLb
t!RyJy
CKfFz
XufKZ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
6 7]`
>sq!L
ZADT*~
dyRjB]
zT,GF
:n>mP
qf#hr0>
M?pP@
%:i    M
Q_ic@
`C_TJE
.E>e)
{-; 0
]&lC8
@oJ $
wILaNQ
(<I"d
&D#Xvh4
NFTn^HZ
gd"6V
o:VdE
T%0]&0'
`a:(BJ
!5o+85
sXO8h
V-LZ_
Nc7<[
hWAgu
{;Ds#:
jA87$
04s&y{
u~1kZ
F[j}[
w    _o3n
LVGma
G=50!
0F1P^
~~j46
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
    GIF89a
eIoPh
b.'j'
{klIHCla\J
rO$)qsqH
k:T]2t
a%uxP
Cb9;=D|
XJO*+o
R7b/7w|
    H7dM
TiO]t
!KbJJ'
},]~i
+Q@6#
y2 NQ
\$OGFz
sLI#j
    \P)F
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
^x!sU
'W<5I
C5{5vWx=
j(34G+rF
`ZU1h
6a21f
#K3EL'
$DG"'
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
:YwJK
9MWB"
`hu|dY
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
/QpN:d$:=
p'V'I
!}G8x{
)-_l:Sk
+vFtc
\]?P"
G:<,9
[gATC
O< DO
Fz?%d!M[,3
*DT6G5
}IkFZ
<!    b!
F^+yJ
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
0Dv(Z
>+jumgA
C5t+%/
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
wZ(%)!
^SW"Dh
C8']tX
`/EqA
    ?G<{
xId6t
xKc^:
)9+mL
!nqd$z
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
:XAs_4
P_icFe/r
B0LNX
Xhd(1
RZ``>e
L}!p2
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
@Rx7t
G7c9?
4dPIZ/
Ib/5?Ll3i
.}TLTAI\
%0Q'W
GR'|u?
o    I2l
5XG'i
BgYLL
&9p*)
{3DSCbo
p^H\J
P9wMc
    (Gc{
=DAbh&j3G
h<#`# V"(
uV(@x
[m`;2p
t!r2[QK
t(bd%
!`= a NP
QA5>1()
8S    Q(
&Wuu%VV
q jpN&RP
B/b}a
bRWjg
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
    GIF89a
cX\`I`n
z{@^_Ia
HOR#2O^4)h
>b%&+
=K]r4*F
&3GQj
aGU]6
"Ya[u
-E4Q2
LdE."
0ybG
+vkU7l
dK^zD
)WV3*i
xt$II
h*,pR
vhX])I
t(FAfY
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
B~i*Z$
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
lUmQUY
xEH7.
X)YY?]!    ]
/Xp`
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
 '=%-B$*9*2D.8H6BO3>IAMT
Kf_iOb~o{ss+laMy}|uZ0j
s@@C@;
A[,|YC
^YK$B
hA3R-
4f>enB
\w@T"e
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
XQv<^
FpXA0    F
pqd*{*H"K9!
u"|.1%$;FK
y'HM"
4P04%
PZ,tqw
c!y21
PjE    {
`PRxr
5ivd$
#Duq j$
*HxJAc
` $\%
b|o9Q+Pu
rdD<6,
b^ALa
)9yBO
)+FqL
9[*0em$K7
\If5"
OEr9,l
T-HU@,
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
&+h0B[0F
XC.@+
Ki-3G
BKE}N
$IxQo
Z|F.>
FU<rA
h5~X]
:aM*$51s1
j    O}E
y.%a7H
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
+vLo*
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
h!2H`
e(A1j
PwYRH:
t+Fu(@
{C<Y~r
e]z_@3
H9..:Vfw8mi
s1&td
gvCfr
~_g}]Ud
k>Xg>x
tWtk?f^
$>HWu
WzD7V
px(QL'~
r0I}.
f~?fq5
}!(Sg
h|A    X
S%W|pI
ih^|'
.{)+wl5
AYJ3H
i*GwZ'x
BdlV|
b>k<=v
TqlEr
Acm1x
WIW1C
R;#e$O!
&Z"+1
D`<cQ
#orb<P
IFu2hy
z=\de*z
LLe,)
q}G:*m
r?:Rh2w
i!xJ!5
()-hF
't12
9AtgW
)#Y.X
Zv(    ,i
g|Y    X
-Hi^{
n*:q:
0W+=j
F8L6<
yMp+nx
zEQO#
#l*veX
$T@Ya
rs:3\
4`=[@]GKJ
lIe"3
Q    ' M
NS)=W%
$wq.^
14K|l
#K9".
Li)gJh
LrUjD^9
Cd%oD
#x\aU
Sq7]W
/ui\N
o~f\r
 ?JdO
VZTk&
'hggwZ&K
6?@AG^5
#~Djb
TazSCR]
8}Zet
rW>!D
GeG$X
4-?EB
2z ),
    i#"Yb
"4(Zy
NwJ5J"~
~B"-j%
d* 3p
"0C6;
tUg ,
,2$@3t"S
QyG(r4    *R
vPq3R
~)d_UQ
r^uQne>yz_
lOSyH
XgVQIx'
zY8Jk
X;&<w
8l/O2
FukBSd&H
MNosU
On2n_B
d,8GP|
EM\>=
xlNw9
4S}]!
Mk=-h
8RsjB
5a~E&VSgC
ba"0e
R"m7P
"R vO
2jk8t
vb)ac_5
8wZX=
yP.9-t
Y[g.r7C
R/iDB?
V]E6/,
fO5=K
f3KYS
@c.2E"
+w{zx
KG-3YN
6HKn\H
)WTB\mCk
hf"_0M
/MM8+
U"*;}
F*y.>
*I=B:
7hOL+-12
{BJ-a/c
GLXvh
Q~nd#
e+AXH]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
^~]@u~
<!ii=
5G0JN
W@qFR
j&YjY
n}c4]
t%<yX0a
kvN"&q
m?JMI
(cu._$V
cOwL^
:LeB&
vNZvLz
l,jLy
m}+p=
fg2q6
;2:$<Em
TNW_F
0:4i{
E'5p@
pScJ\t
K;c72C
wm9wPrv
*@$%9
9I8^}
09xOc8
68`@eQ
8(GyF-A4
0;[g9
k@*+$7
A8lD'
b/+|&EC
Rs;^@
C63BN,
AU2M5DCJ$HI
@P*9c
L<IG6
.yTF7M
AV}uC
xmR8\
]4y`8
]ZZ7.
]}Qlq
.<VjD
Uc4&e
\vecI
K}\]&
&&qFR&
/\MOsCci
.FV{geb
KPFDB
Y>eF=
0"Trn
r,mogv
og_vD
^2zr4
1ZNk:
%]beE7
}1y#4
Gq(]\h
++^{/
<{|A_
 7mY,
.YP@
V_rtV
$t5dJ
K2fUu!
en#d^
]rdG^
*'!Zhdn
*tyil~$y6'
J&F>+
Q+K35
+7ss;
vqM&4F7p8
Aop#;t2
2=725'
3*{t3
5_#[E
wu9[6L
6qG70G
~cnI;5>
d#x;{
[8BCtG?
]C5e;
2&+=e7A
$]3Ub
,fk(j!"T
~[rL=
`u?.vZk
qq7V<R
*nQ{Q
<$'=    IKv
    KW>r
//9KU
.yiMo
/]iN\
hGSZN
(Ec:Str
cq    MQ
#+R$?2
%]2%c
&u2'Ur'{
!]r(}
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
=5-Zq
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
=X03'H
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
PG+%(
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
S>T+"
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
xwuUv
xmfyp8qqJA
.+N%{ip
nZ'ZSL1
I:AaV
s}.f"
+~-/A
"39`~
4 yw3
XmU\L
^*S135Q[
 tGJf
]jle;YB
-<EK0
!r=}7
rEWZAB
|Wfsk
s{ 6~
{1Tl]
SG{(5
nJF~ d
nh>pBh
G2{RN
!<V%{
<tR7-f
XOOh&
3iFv-F
#E    ?(
CvA&QY
hIC{w
2ovjZ-
5dI'Z
\5Y]K
v$g1S
D095d
f+[$;
i&cXU$
i4t @
&L+FLz
G]HyJ
LV|HW
D5gjm
wYWlvc
R+dAPJJ
>gmvf
*W\U{
Un[TJ%
4Nd(I
5M9YIA\}9$
K:uBu
YtF0x
)r!mE
+:n\&u
PX.xO
QMDFH}5
KtYF^
U3P ,\-
$BU!<
V'v\p
% nu    I7~Y,
aF:\4
\-jd3
7DYFhc
x&}Fa
n0G!t)9F
j ,!<
*}2kh:#
A*AE*
LJ-wL
` <AH
V^b%z
,@{"G^
E%G,G
sK"d)
%V!z&@8
)wb67@-6$
sOz.G
\_Se2
NRk:[l
sHLg2x
T_jXL.1
:qJ@)
T/DB@8]
 Bp@R
49,&Ph
~,*H
A3!ET
q    VrD
JzW@m
jq;0 D
`{Q3*
)\$+)]
=ho-ub
!Fe$V
WeF[%V-
wNG>4
'#{xK
"1aQ@
Z_$/K'
 ]]P_
I[*z3
Ok9nq
oY(&f
K/yLX2
s*pd
c~4@^
` xuv;
7fhg{2
h)Uf6xEA
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
Q'p@ASZxR62
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a[
`3Z|S~j:rU
pa6kcN
Zs4t)
j   ]*
045G@?\
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a[
1``k8qL
zbF*I(e
bPWl6
|4u]>/6o^
b%DX}
>K\`A!
t]v3l
~2nqoc
!    lX"
~Hd`r
Q    | "
p2Pp[
]Yrc96H<
suJcVfg
'uwwyW
@yEay
dffhv
`'vdgv
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
MD@jc
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
U+jB!
X9r+=
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
teal & yellow lines.gif1
Teal and Yellow LinesStdNotesLtr26cs-CZ+iT
000007C6
CN=Lotus Notes Template Development/O=Lotus Notes############################
3d relief.gif1
Three Dimensional ReliefStdNotesLtr27cs-CZ3iT
000007CA
CN=Lotus Notes Template Development/O=Lotus Notes###################################
to do tabbed tabled bg.gif34CiQ1
TodoBackground.gifTodoBackground.gifcs-CZLiT
000007CE
CN=Lotus Notes Template Development/O=Lotus Notes######################
tornpapercool99.GIF1
Torn PaperStdNotesLtr28cs-CZ`iT
000007D2
CN=Lotus Notes Template Development/O=Lotus Notes###########################################
triangle w-dots1b.gif1
Triangle with DotsStdNotesLtr30cs-CZiiT
000007D6
CN=Lotus Notes Template Development/O=Lotus Notes#################################
triangles.GIF1
TrianglesStdNotesLtr29cs-CZxiT
000007DA
CN=Lotus Notes Template Development/O=Lotus Notes##################################################
vspacer.GIF34Ci1vspacer.GIFcs-CZ
000007DE
CN=Lotus Notes Template Development/O=Lotus Notes#######
wildconfetti2.gif1
Wild ConfettiStdNotesLtr32cs-CZ
000007E2
CN=Lotus Notes Template Development/O=Lotus Notes##########################################
    m3415
CalendarOutlineCalendarOutlinecs-CZ
000007E6
CN=Lotus Notes Template Development/O=Lotus Notes#######################################
cs-CZ
000007EAm341
MailOutlineMailOutline5
CN=Lotus Notes Template Development/O=Lotus Notes###############################################
    m3415
To Do OutlineToDoOutlinecs-CZ
000007EE
CN=Lotus Notes Template Development/O=Lotus Notes#############################################
lWuBwL
MailFS
CN=John Clair/O=ConnectPo
ta (verze 5.0)
#1StdR50Mailcs-CZ0jT
oooooooool
oooooolooooooo
oooooolooooooo
000007F2#######################################################
5cs-CZ
000007FA
CN=Lotus Notes Template Development/O=Lotus Notes#########################
cs-CZJkT
000007FEDatabase Scriptt34Q1
CN=Lotus Notes Template Development/O=Lotus Notes=ConnectDatabase Scriptt34Q1##################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
Mail Picker1C34WQP
CN=Lotus Notes Template Development/O=Lotus Notes#############################
cs-CZu
CD4198F538019F0185256652006198B9
(RulesDlg)MailruleCDw5
OrderNumActionListDisplayimportancecondfolderactionConditionListDisplaydomainlistimportancestringLogicconditionOperatorTypeEnableProtectFromArchive$NoPurgeFormExcludeFromViewtokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormula
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
cs-CZ8
58B49E1E76BFA8AE8525669E00501187
(wRulesDlg)MailruleCDnF5#
OrderNumActionListActionListDisplayNewImportanceCurrentFoldersActionExceptionListExceptionListDisplayConditionListConditionListDisplayDomainListImportanceStringLogicConditionOperatorEnableProtectFromArchive$NoPurgeHTTP_RefererpathQuery_StringPath_InfoFormtokActionListtokExceptionListfolderlisttokConditionList$FilterFormulaActionValuesImportanceValuesLogic2ValuesLogic1ValuesConditionValuesOperatorValues
CN=Lotus Notes Template Development/O=Lotus Notesannon
##########################################################
##########################################################
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF5!
InheritedAltSendToInheritedSendToBodySubjectFaxToListEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToPrincipalQuery_StringDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInetBlindCopyToAltCopyToInetSendToInetCopyTo$StorageBcc$StorageTo$StorageCc$AltNameLanguageTags
Odpov
 historieReply With HistoryReplycs-CZS
C5E1781190ABBA7C852564FF006DDF34
CN=Lotus Notes Template Development/O=Lotus Noteslate Development/O=Lotus Notes
Odpov
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
cs-CZW
38D46BF5E8F08834852564B500129B2C($Inbox)1($Inbox)1
$70$106
$93$70
$106Nov
MailFSNotesViewFYB5
CN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
BodySubjectCopyToSendToIntendedRecipient
(NonDelivery Report)DeliveryReportNonDelivery Reportcs-CZ[
90F63F9121E68583852565E0005D9909
CN=Lotus Notes Template Development/O=Lotus NotesReport)DeliveryReportNonDelivery Repor
##########################################################
StatusUpdateBodySMTPKeepNotesItemstmpNoActionBarForm1
(Pozn
mka)(Notice)Noticecs-CZ
5E3FBC2372F0A19485256516005C5070
CN=Lotus Notes Template Development/O=Lotus NotesConnect
(Pozn
mka)(N
$134$126$144$146H
(Help)
MAIL_V_CALENDAR
    0S0E
Notes
    0S0E
($Calendar)|Calendar
cs-CZ
738CB93AE2E1B7F8852564B5001283E2HStdR50Mail
CN=Lotus Notes Template Development/O=Lotus Notes8852564B5001283E2HStdR50Mail###########################
##########################################################
##########################################################
##########################################################
AddressBookstmpNextIndextmpCurIndextmpBlindCopyToEntryListtmpCopyTotmpContactstmpMemberstmpDelegeetmpSendToFindTextNABstmpResetIndicestmpChangedNABtmpAddrVersionQuery_stringSaveOptionstmpContactsReftmpMembersReftmpDelegeeReftmpBlindCopyToReftmpCopyToReftmpSendToRef
(wAddress)wAddresscs-CZT
EF64E386B658922F8525668A0061F226
CN=Lotus Notes Template Development/O=Lotus NotesBannon/O=Connect
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
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
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
vi+F+$B
Habml
3Z     y
K`Ql!
KgbSw
M,$9r
Q"j'-
53}AG
DonSp
WX$b$,
7zTFS
D,Fhg
g7/Su
W#8Wj
't5G}R
=txC2e
z_22VF
<    w /
'IPwS
R8VSxjv)0
^|ZX~
_UU:$W
)Eu7E
{J$@@{
VRH^u
H0rxv
X;22L
hYGTY
KV'{"
rsh^j
[g"d"K
M^7sR
Q09qyI
=@88EMM
1( nQQAQV6
\F>.6
`"P0UEXh"
??+Ls)
m~Na\
Ju)PQ
(|0ST
KZ(?9
1j6(k
5&    9[/
/dlf&
KNH8Zt
JQol
;W01=2{
gz.=2
1IH%q
PpEV<
$Ku*,
j"uaR
YahxVmIE
YL.6}I
-vU<\c
kt4Xbs~,e+V"
3?!($
VM8I(
%=\'i
    =n o
|],={{
85&np
CG:FnF
z>S q0
GMfH\EY
Dak<b
`e1&n^`
(Z8v2
`u.?H~f
a(,"j
D>Dje
IUW>\
yfF.a
HGP)sR
V*s^i0
=;!k>o
T#6IT
r2S6b
wvvX8
?v<D6
    I=}(
TQ$K9{m
"{1N(u
IHB-f
24YBE
[[%%V
p-J<ac
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
3F3dG\
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a[
&!KXNdhe
'T3TnhU|3{U
V>`T@
 C%&b
@6ouG_
  6-[
# @%:
JPZIT0
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
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
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
Kalend
($Calendar)|CalendarH
($Meetings)|MeetingsH
Skupinov
 kalend
Skupinov
 kalend
e|(GroupCalendarFolder)
OEMClient
    4S5S
($Trash)
Trash
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$PublicAccess
$DesignerVersion
$SiteMapList
$Language
$LastBuildTime
$BabelInfo
($Inbox)
Koncepty
($Drafts)X
Odeslan
($Sent)X
Seznam adres
People
out_AddressBookXH
echny dokumenty
($All)
Archivovat
xxTitle
t archiv
    0S0E
xxMessage
Nebyla zad
 datab
ze, zkontrolujte nastaven
 archivace.
ARCHIVESERVER
Archive Profile
ArchiveServer
ARCHIVEDBPATH
Archive Profile
ArchivePath
ARCHIVEDBPATH
ARCHIVESERVER
ARCHIVEDBPATH
xxTitle
xxMessage
    0R7R
out_ARCHIVEX
ArchiveDBName
Archive Profile
ArchivePath
    0S0E
ArchiveDBName
ArchiveDBName
    0R5S6S8S9S11S12S
Archive
($Trash)
Trash
Posloupnosti diskus
(Discussion Threads)|ThreadsH
Pravidla
Rules|RulesX
OEMClient
    4S5S
edloha
Stationery|StationeryXH
Other Folders
Other Views
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Ib98N
$Language
$LastBuildTime
$BabelInfo
$PublicAccess
$SiteMapList
$DesignerVersion
Podle term
nu spln
($ToDo)|TasksX
Podle kategorie
koly\Podle kategorie|TodoByCategory
TodoByCategory
Podle stavu
koly\Podle stavu|TodoByStatus
TodoByStatus
($Trash)
Trash
($Trash)
Trash
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$PublicAccess
$DesignerVersion
$SiteMapList
$Language
$LastBuildTime
$BabelInfo
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]
(wRooms)wRooms$FormPrivs$FormUsers$Body$Flags
CD$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZF
$TITLE
(wRulesDlg)Mailrule$FormPrivs$FormUsers$Body$Flags
CDn$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZ
$TITLE
(wViewParticipantStatus)$FormPrivs$FormUsers$Body$Flags
fL3nu$Class$Modified
$Comment$AssistTrigger
4$AssistType
@$AssistFlags
EH$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZ
$TITLE
($Alarms)|$Alarms$FormPrivs$FormUsers$Body$Flags
3FYw$Class
 @  @@ @` @
@@ @@@@@`@@
`@ `@@`@``@
  Popis datab
ze po
ablona po
ty slou
 k vytvo
 datab
ze, pomoc
 kter
ete v programu Notes odes
lat a p
mat elektronickou po
ablonu lze pou
t k vytvo
 datab
ze po
ty na lok
 pracovn
 stanici nebo na serveru. Datab
ze po
ty vytvo
 podle t
ablony jsou nejvhodn
 pro program Notes nebo klienty s
 intranet
i Internet. X
ablona po
ty obsahuje tak
 kalend
 a pl
novac
 funkce, kter
ete vyu
t k organizaci sv
asu, pl
zek a akc
 nebo delegov
 ostatn
m osob
m. Pohled Kalend
 stoln
 kalend
, ve kter
m lze snadno vyhledat napl
novan
 akce.
 informace o pou
 funkc
ablony po
te klepnut
m na p
kaz T
mata n
dy v nab
dce N
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$DesignerVersion
$Body
$Language
$LastBuildTime
$BabelInfo
BugSelection
BugSelection_1
SPRID
Project
Notes V5.04 - PCa
ProjectBuild
ProjectBuild
Build 1
Langua
$189$186$187SubjectDueDateTime$188$190$Conflict$REF$C1$
DueState
    2S3S4S6S8S
$186l
OrgRepeat
$CSflags
NoticeTypeh
_ViewIcon
AssignState
Importance
Importance
Importance
    4S5S9S10S14S17S19R26R27S28S30S32R38R44R50R
Principal
Principal
    1S2S
OrgRepeat
TaskNotice
Subject
Subject
StartDateTime
D0S2V
PostedDateh
NoticeType
ijal p
NoticeType
 chce navrhnout zm
NoticeType
tnul p
NoticeType
 delegoval p
 na n
koho jin
From
Subject
Subject
    0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S40RS13E41S42S44RS8E45S46S48RS14E49S50S52RS8E53S54S56RS14E57S58S60RS8E61S62S64RS14E65S66S68RS7E69S70S71S72S73S74S77R
Subject
Subject
DueDateTime
DueDateTime
DueState
DueState
Budouc
DueState
tnuto
DueState
Dokon
    3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
xxNotesCats
Dovolen
Projekty
Clients
Telefonick
 hovory
 cesta
    1S2S
Categories
xxNotesCats
    0R16S
DueDateTime
ExcludeFromView
    L1S3S4S5S6S7S8S9S10S12S13S16S17S
$189$186DueDateTime
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
Body(
wMemo
wMemoOpen
    0S0E
&Arial
FComic Sans MS
 Reply
30D9076F:05xKnE0BpBA04Wr4E0BpBA
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
(Help)
MAIL_F_MEMO
    0S0E
tmpSendOptions
tmpPrincipal
    6S9S10S
act_CSSAVE
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVEX
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDERX
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
act_NEWMEMO.GIF|act_NEWMEMOX
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLYX
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARDX
Po_stoupit
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...X
_Odebrat ze slo
OdeslatX
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SENDX
Odeslat\Odeslat a ulo
itX'++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
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILEX
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFTX
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFTX
Odpov
emX'++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_REPLYX
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAMEX
Adresa...XT
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOKX
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONSX
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
Osoby v re
imu online8
SameTimeServer
SameTimeServerZ
OEMClient
Macintosh
HKEY_LOCAL_MACHINE
Software\Lotus\Sametime Client
BasePath
\Connect"
    0R9S13S14S15S16S20S21S22S23S27S29S30S37S39S41S42S
act_whoisonline.gifX
//This Javascript hack of working around the header footer focusing problem
//will probably not work in future releases
var win = window
if ( window.document.forms[0].SametimeServer == null &&
    window.parent != window &&
    window.parent.length >= 2 &&
    window == window.parent[1])
    win = window.parent[0]
// Click the hidden button to run Lotus Script for Who Is Online
win.document.forms[0].WhoIsOnlineLS.click()
if( win.document.forms[0].SametimeServer.value != "" )
    newFrame = window.open("notes://" +  win.document.forms[0].SametimeServer.value + "/STDomino.nsf/STWIO?OpenForm","WIO","toolbar=no,location=no,scrollbars=no,directories=no,height=300,width=300")
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLSX
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLSX
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLSX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLSX
stroje\Vlo
it podpis...'++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_TOOLSX
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLSX
qstring
Query_String
Query_String
Query_String
    1S2S8S11S15S18S
pathinfo
Path_Info
&ClickG
Path_Info
&Click_
Path_Info
    0R1S2S8S11S15S18S
    0R1S10S14S16S23S
qstring
OpenDocument
path"
/Memo?OpenForm&docurl="
pathinfo"
path"
/Memo?OpenForm"
    0R1S3S13S14S17S
act_NEW.GIF|act_NEWX
PostoupitX
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
act_FORWARD.GIF|act_FORWARDX
Odeslat\OdeslatX
act_SEND.GIF|act_SENDX
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "1";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Odeslat a ulo
act_SEND.GIF|act_SENDX
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "2";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Ulo
it jako koncept`
tmpSendOptions
act_SEND.GIF|act_SENDX
Odpov
t\Odpov
wReply
    0S0E
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Odpov
+historie?OpenForm&ParentUNID=
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historieX&
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Odpov
+historie?OpenForm&ParentUNID=
&Format="
FormatChar"
&All"
path"
/Odpov
+historie?OpenForm&ParentUNID=
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Adresa...X
Appointment
AppointmentType
TaskType
tmpOwner
Chair
    20S21S22S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOKX
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
nosti doru
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONSX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
UpravitX
    0S0E
act_EDIT.GIF|act_EDITX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTOX
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTOX'++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
'++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
function setFormattedReplyText(offsetchar) {
var form = document.forms[0];
var offset;
var newtext = new String("");
var replytext = new String(document.applets.lnaBody.getText("text//html"));
//Start parsing the string for P and BR
var regexp = /<P>/g
newtext = replytext.replace(regexp,'<P>'+offsetchar);
regexp = /<BR>/g
newtext = newtext.replace(regexp,'<BR>'+offsetchar)
document.applets.lnaBody.setText('TEXT/HTML',newtext);
if ((window.location.href.indexOf('Format'))!=-1)  {
formatchar=window.location.href.charAt(window.location.href.indexOf('Format')+7);
if (formatchar=='4')  {
 offsetchar='>>';
} else {
offsetchar='>'
 setFormattedReplyText(offsetchar);
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
    Always hidden:
Notes
PostedDateh
SendTo
CopyTo
Principal
Principal
InheritedSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT31S32S33S34RTTTTTTTTTTTTTTTTT35RTTTTTTTTTTTTTTTTT49S50S51S52S55RTTTTTTTTTTTTTTTTTT57RTTTTTTTTTTTTTTTTT59RTTTTTTTTTTTTTTTTT60TTTTRTT63RT65R68RInheritedSendToXz
InheritedSendTo
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
Principal
Principal
SendTo
CopyTo
Principal
Principal
InheritedAltSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT40S41S42S43S44RTTTTTTTTTTTTTTTTT45RTTTTTTTTTTTTTTTTT59S60S61S62S65RTTTTTTTTTTTTTTTTTT67RTTTTTTTTTTTTTTTTT69RTTTTTTTTTTTTTTTTT71RTTTT75S76S77S78RTTTTTTTTTTTTTTTTT79RTTTTTTTTTTTTTTTTT93S94S95S96S99RTTTTTTTTTTTTTTTTTT101RTTTTTTTTTTTTTTTTT103RTTTTTTTTTTTTTTTTT104RTTTT105RTT108RT110R113R
InheritedAltSendToz
InheritedSendTo_1
$AltNameLanguageTags
$AltNameLanguageTags
$StorageTo
$StorageCc
    1S2S
$StorageCc
NoteHasNativeMime
    1RT2RT7RTT9RT10RT$StorageTo
$StorageBcc
$StorageBccX
InetSendTo
InetCopyTo
    1S2S
InetCopyTo
InetFrom
InetSendTo
AltSendTo
AltCopyTo
    1S2S
AltCopyToX
InetBlindCopyTo
InetBlindCopyToX
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
PostedDateh
ReplyTo
ReplyTo
ReplyTo
FromDomain
ReplyTo
FromDomain"
ReplyTo
    0TT1RTTT3S4S6S7S13RTTTT15RTTT17S18S19S22RTTTTT24RTTT28S29S30S31S35S36S37S38RTTTTT39S40S41S42S44RTTT45RTTTInheritedReplyToz
InheritedReplyTo
Principal
Principal
Principal
Fromh
    1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedFromXz
InheritedFrom
AltPrincipalh
AltPrincipal
AltPrincipal
AltFrom
AltFrom
    1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
InheritedFrom_1
Notes
PostedDateh
FromDomain
InheritedFromDomain
FromDomain
    9S10S12S13SInheritedFromDomainXz
InheritedFromDomain
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
AltFrom
    10SAltFromX
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
$LangFrom
LanguagePreferencet
AltFrom
    1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
    0RR1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
ParentOption
Encrypt
    0S0E
GlobalPreference
GlobalPreference
ParentOption
    0RR1RT2RT5RTT6RTTT7RTTT11RTTTT16RTTT17RTTT19RT20RT
EncryptXz
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
.,$,  , :
Path_Info_DEcoded
Path_InfoX
.,$,  , :
Query_String_Decoded
Query_String
'++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:10
Dim sametimeInfoVar As Variant
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Execute |
        Use "Sametime"
        Call prepareRemoteSTDBForMemoWIO( cMemoObject.uiDocument, sametimeInfoVar)
End Sub
Lotus Product
W32I4
WhoIsOnlineLSXz
WhoIsOnlineLS
.,$,  , :
SameTimeServer
SameTimeServerZ
SameTimeServer
SametimeServer
CalendarProfile
Owner
PrincipalX
(WebSpecificFields)
    0S0E
    Od:X
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogoXz
tmpDisplayFrom_NoLogo
    Komu:X
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1X
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
V5DOTBL=true
    Komu:X
MailAddress
InheritedReplyTo
InheritedReplyTo
InheritedFrom
NamePreference
AltSendTo
AltSendTo
SendTo
    1S2S22S2E23S24S25S
MailAddress
SendToz
SIZE=80
    Kopie:
CopyTo
InheritedSendTo
    1RT2RT5RTT7RT8RTT9RTT10S11S13RTTT15RTT16RTT17RTCopyToz
SIZE=80
    Na v
BlindCopyTo
    0S0E
BlindCopyToXz
SIZE=80
Subject
Topic
Subject
    1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
Subj"
    0R1RT10S12S16S17S19RTT21RT22S23S24RT
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_PreviewXz
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
    Odeslal: X
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
na.Xz
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfoXz
tmpDisplayReplyInfo_1
lohy:X
    <font size=-1>
    </font>X
V5DOTBL=true
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFromXz
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal: X
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySentXz
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
        Komu:    X
MailAddress
InheritedReplyTo
InheritedReplyTo
NamePreference
InheritedAltFrom
InheritedAltFrom
InheritedFrom
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
MailAddress
EnterSendTo
    0S0E
EnterSendToSeznam prim
, jim
t zpr
va zasl
        Kopie:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
EnterCopyTo
    0S0E
EnterCopyToSeznam osob, jim
 bude zasl
na kopie zpr
        Kopie:
CC_Content
PostedDateh
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
EnterCopyTo
    6RTTTTTT7RTTTTTTT8RTTTTTTT13RTTTTTTTT14RTTTTTTTTT15RTTTTTTTTT18RTTTTTTTTT19S20S22RTTTTTTTTT23S27S30RTTTTTTTTTT32RTTTTTTTTT33RTTTTTTTTT35RTTTTTTT36TTTTTTTRTTTTTTT37RTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
PostedDateh
EnterBlindCopyTo
    0RR3RTTTTTTT4RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT29RTTTTTTTT31RTTTTTTT32RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
        Na v
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
EnterBlindCopyTo}
    0S0E
EnterBlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
$HideMailHeader
FxDVersion
    4S5S6S7S
        Faxovat komu:    X
FaxToListSeznam osob, jim
t zpr
va zasl
na faxem.
SIZE=50
Subject
Topic
Subject
    1S2S5S6S8S10S
Subj"
    0R10S12S16S17S19S21S22S23S
SubjectP
t zpr
Subject
tmpDisplaySubjectX
$HideMailHeader
tmpDisplayLink
ISMAILSTATIONERYh
    0S0E
ReplyDate
ReplyDate
ReplyDate
FaxToList
FaxToList
FaxToList
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S40RTTTTT47RTTTT48RTTTT50RTTT52RTTTT56S57S58S59S60S61S62S63S64S67RTTTTT74RTTTT75RTTTT77RTTT79RTTTT83S84S86S87S88S89S90S91S94RTTTTT101RTTTT102RTTTT104RTTT106RTTTT110S111S113S114S115S116S117S118S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S223S224S226RTTTTT233RTTTT234RTTTT236RTTT238RTTTT242S243S245S246S247S248S249S250S253RTTTTT260RTTTT261RTTTT263RTTT265RTTTT269S270S272S273S274S275S276S277S280RTTTTT287RTTTT288RTTTT290RTTT292RTTTT296S297S299S300S301S302S303S304S307RTTTTT314RTTTT315RTTTT317RTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RRTTT340RTTTT344S345S349RTTTTT356RTTTT357RTTTT359RTTT361RTTTT365S366S368S369S370S371S2E373S376RTTTTT383RTTTT384RTTTT385RTT387RT388RT
RemoveNoteItemsX
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
BodyText zpr
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
dv=G:3axA
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$ScriptName
$Babel_Tags
$WINDOWTITLE
$AppHelpFormula
$V5ACTIONS
$Script
$$FormScript
$HTMLCode
$Body
$$Script_O
$$$FormScript_O
$SCRIPTOBJ_22
$SCRIPTOBJ_26
$SCRIPTOBJ_30
$SCRIPTOBJ_31
$SCRIPTOBJ_32
$SCRIPTOBJ_38
$SCRIPTOBJ_39
$Language
$LastBuildTime
$BabelInfo
wAddressSave
wAddressOpen
Lotus Product
OBJECT
 wAddress
tmpAddrVersion
Directory
Importovat kontakty a skupiny do osobn
ho seznamu adres
Adresa
    3S4S6S
// For convenience
var fieldSendTo ;
var fieldCopyTo;
var fieldBlindCopyTo;
var fieldDelegee;
var fieldMembers;
var fieldContacts;
var fieldSendToRef;
var fieldCopyToRef;
var fieldBlindCopyToRef;
var fieldDelegeeRef;
var fieldMembersRef;
var fieldContactsRef;
var openerSendTo;
var openerCopyTo;
var openerBlindCopyTo;
var openerDelegee;
var openerMembers;
var fieldEntryList;
var AddrVersion;
var curNAB;
function OKClick()
    // put the values back in the underlying form in the right format
    if(window.opener)
        //parent may be Group form
        if (AddrVersion == "Group")
            openerMembers.value = selectToString(fieldMembers);
        //parent may be a InviteeReply type form
        } else if (AddrVersion == "Delegate")
            openerDelegee.value = fieldDelegee.value;
        //parent is a view, so save dlg to get info back to server
        } else if (AddrVersion == "Directory")
            document.forms[0].SaveOptions.value = "0";
            document.forms[0].submit();
            setTimeout("self.close()" , 0);
        } else //parent may be Memo/Calendar Entry/ToDo form
            openerSendTo.value = selectToString(fieldSendTo);
            openerCopyTo.value = selectToString(fieldCopyTo);
            openerBlindCopyTo.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);
                if (AddrVersion == "Delegate") {
                    field.value = selection;
                } else if (AddrVersion == "Directory") {
                    field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
                } else {
                    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;
            while (strpos != -1)
                 tmpstring=substring2(tmpstring,strpos,tmpstring.length);
                if (tmpstring.indexOf("/")!= -1)
                {
                restofname=substring2(tmpstring,0,tmpstring.indexOf("/"));
                tmpstring = substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
                if (restofname.length!=0)
                    {
                    fullname=fullname+"/"+restofname;
                    }
                strpos=tmpstring.indexOf("=") + 1;
                } 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;
                        --i;
                    }
function RemoveAllClick()
    if (AddrVersion == "Group") {
        fieldMembers.options.length=0;
    } else if (AddrVersion == "Directory") {
        fieldContacts.options.length=0;
    } else if (AddrVersion != "Delegate") {
        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)
    var div = ","
    if (AddrVersion == "Directory") div = "%%"
    for(var  beg=0 ; beg < str.length ; beg = end+div.length)
        if(-1 == (end = str.indexOf(div,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 div = ","
        var str = "";
        if (AddrVersion == "Directory") div = "%%"
        for(i=0 ; i < field.options.length-1 ; i++)
            str += field.options[i].text + div;
        return str += field.options[i].text;
    } else return "";
function okFocus()
    document.forms[0].OK.focus();
function findSubmit() {
    if (document.forms[0].tmpAddrVersion != "Directory")
    if (document.forms[0].tmpFindSubmit.value == "1") {
        document.forms[0].tmpFindSubmit.value = "0";
        document.forms[0].Find.click();
    return true;
// For convenience
fieldSendTo = document.forms[0].tmpSendTo;
fieldCopyTo = document.forms[0].tmpCopyTo;
fieldBlindCopyTo = document.forms[0].tmpBlindCopyTo;
fieldDelegee = document.forms[0].tmpDelegee;
fieldMembers = document.forms[0].tmpMembers;
fieldContacts = document.forms[0].tmpContacts;
fieldSendToRef = document.forms[0].tmpSendToRef;
fieldCopyToRef = document.forms[0].tmpCopyToRef;
fieldBlindCopyToRef = document.forms[0].tmpBlindCopyToRef;
fieldDelegeeRef = document.forms[0].tmpDelegeeRef;
fieldMembersRef = document.forms[0].tmpMembersRef;
fieldContactsRef = document.forms[0].tmpContactsRef;
fieldEntryList = document.forms[0].EntryList;
//This window is called up by a few different parent windows
AddrVersion = document.forms[0].tmpAddrVersion.value;
// Grab original values from underlying document
var OrigSendTo;
var OrigCopyTo;
var OrigBlindCopyTo;
var OrigMembers;
if (window.opener) {
    if (AddrVersion == "Group") {
        openerMembers = window.opener.document.forms[0].Members;
    } else    if (AddrVersion == "Delegate") {
        openerDelegee = window.opener.document.forms[0].Delegee;
    } else if (AddrVersion == "") {
        openerSendTo = window.opener.document.forms[0].SendTo;
        openerCopyTo = window.opener.document.forms[0].CopyTo;
        openerBlindCopyTo = window.opener.document.forms[0].BlindCopyTo;
if ((window.location.href.indexOf("Seq"))==-1)  { //first-time open
if(window.opener)
    if (AddrVersion == "Group") {
        OrigMembers = openerMembers.value;
        fieldMembersRef.value = openerMembers.value;
    } else if (AddrVersion == "Delegate") {
        fieldDelegeeRef.value = openerDelegee.value;
        fieldDelegee.value = openerDelegee.value;
    } else if (AddrVersion == "") {
        OrigSendTo = openerSendTo.value;
        OrigCopyTo = openerCopyTo.value;
        OrigBlindCopyTo = openerBlindCopyTo.value;
        fieldSendToRef.value = OrigSendTo;
        fieldCopyToRef.value = OrigCopyTo;
        fieldBlindCopyToRef.value = OrigBlindCopyTo;
else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = OrigMembers = "";
// Initialize fields
if (AddrVersion == "Group") {
    RemoveAllClick();
    stringToSelect(OrigMembers, fieldMembers);
} else if (AddrVersion == "Directory") {
    RemoveAllClick();
} else if (AddrVersion == "") {
    RemoveAllClick();
    stringToSelect(OrigSendTo,fieldSendTo);
    stringToSelect(OrigCopyTo,fieldCopyTo);
    stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
} else { //Sequential open
if(window.opener)
     if (AddrVersion == "Group") {
         OrigMembers = fieldMembersRef.value;
    } else if (AddrVersion == "Delegate") {
         fieldDelegee.value = fieldDelegeeRef.value;
        } else if (AddrVersion == "") {
        OrigSendTo = fieldSendToRef.value;
        OrigCopyTo = fieldCopyToRef.value;
        OrigBlindCopyTo = fieldBlindCopyToRef.value;
} else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = OrigMembers =  "";
//If this is a reload -- move the reference values into the current visible fields
if (AddrVersion == "Group") {
    RemoveAllClick();
    stringToSelect(OrigMembers, fieldMembers);
} else if (AddrVersion == "Directory") {
    RemoveAllClick();
    stringToSelect(fieldContactsRef.value,fieldContacts);
} else if (AddrVersion == "") {
    RemoveAllClick();
    stringToSelect(OrigSendTo,fieldSendTo);
    stringToSelect(OrigCopyTo,fieldCopyTo);
    stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
self.focus();
return findSubmit();
'++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
<NOSCRIPT><H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR></NOSCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    _version_=10 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.1"><!--X
    _version_=11 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript1.2"><!--X
    _version_=12 //--></SCRIPT>
<SCRIPT LANGUAGE="JavaScript"><!--
    if(_version_<11)X
        document.write('<H2>
Tato str
nka vy
aduje skript JavaScript 1.1 nebo vy
</H2><HR>');
        document.close();X
//--></SCRIPT>
tmpSendToRef
tmpSendToRef
tmpCopyToRef
tmpCopyToRef
tmpBlindCopyToRef
tmpBlindCopyToRefX
tmpDelegeeRef
tmpDelegeeRefX
tmpMembersRef
tmpMembersRefX
tmpContactsRef
tmpContactsRef
SaveOptionsX
query_string
Query_string
Query_String
&Vers=G
Query_String
&Vers=`
Query_String
&Vers=
Query_String
&Vers=`
    6S9RT17S23RTT27S29S32RTT36S40RTtmpAddrVersion
tmpChangedNABX
tmpCurIndex
tmpCurIndex
    1S2S3S
tmpNextIndex
tmpNextIndex
    0R1S2S3S
tmpChangedNAB
tmpCurIndex
Domino
LoadAddressListByIndex
EntryList
tmpNextIndex
tmpCurIndex
    0R3S4S6RTT12S16S18S20S22S24S28RTT34S38S39S40S44RTT45RTTtmpResetIndicesX
tmpFindSubmitX
     X
javascript:alert('Select which address book you would like to choose names from.')
    Kde hledat:X
tmpAddrVersion
Directory
names.nsf
    12SNABs
myAddr
    1S2S3S4S5S6S10S
tmpAddrVersion
Directory
Addressbooks
myAddr
Addressbooks
    0R3S4S
document.forms[0].tmpChangedNAB.value="1";
NABs_1
javascript:alert('Enter the first few characters of the last name to search for and click on the Find button to locate the entry.')
 na:X
FindText
document.forms[0].tmpFindSubmit.value = "1";
FindText_1SIZE=15
tmpChangedNAB
    1S2S3S
tmpCurIndex
Domino
LoadAddressListByName
EntryList
FindText
    0R1S2S3S7S9S11S13S15S
tmpNextIndex
tmpCurIndex
    0R1S2S3S5S9S10S11S
      Naj
t  Xz
     X
tmpAddrVersion
    0S0E
AddClick(fieldSendTo);
fieldSendToRef.value=selectToString(fieldSendTo);
okFocus();
     Komu >
tmpAddrVersion
Delegate
    0S0E
AddClick(fieldDelegee);
fieldDelegeeRef.value=fieldDelegee;
okFocus();
    Delegovat >X
tmpAddrVersion
Group
    0S0E
AddClick(fieldMembers);
fieldMembersRef.value=selectToString(fieldMembers);
okFocus();
lenov
tmpAddrVersion
Directory
    0S0E
AddClick(fieldContacts);
fieldContactsRef.value=selectToString(fieldContacts);
okFocus();
 polo
ky >X
tmpAddrVersion
    0S0E
tmpSendTo
________________________________Xz
tmpSendTo_1SIZE=6
tmpAddrVersion
Delegate
    0S0E
________________________________
tmpDelegeez
tmpDelegee_1SIZE=6
tmpAddrVersion
Group
    0S0E
tmpMembers
________________________________z
tmpMembers_1SIZE=6
tmpAddrVersion
Directory
    0S0E
tmpContacts
________________________________Xz
tmpContacts_1SIZE=6
AddClick(tmpCopyTo);
fieldCopyToRef.value=selectToString(fieldCopyTo);
okFocus();
     Kopie > X
tmpCopyTo
________________________________Xz
tmpCopyTo_1SIZE=6
EntryList
EntryListXz
EntryList_1
AddClick(tmpBlindCopyTo);
fieldBlindCopyToRef.value=selectToString(fieldBlindCopyTo);
okFocus();
    Na v
tmpBlindCopyTo
________________________________z
tmpBlindCopyTo_1SIZE=6
tmpChangedNAB
    1S2S3S
tmpIndexStr
tmpCurIndex
    0R1S2S8S9S
tmpCur1
Domino
LoadAddressListByIndexExt
EntryList
tmpCurIndex
    0R1S6E2S6S8S10S2E12S14S16S
revert to LoadAddressListByIndex if LoadAddressListByIndexExt is not supported
    0RR1S
tmpCur2
tmpCur1
Domino
LoadAddressListByIndex
EntryList
tmpIndexStr
tmpCur1
    0RR1S2S4S9RS5E13S15S17S19S21S24RS5E
tmpCurIndex
tmpCur2
    0R1S2S2E3S
tmpNextIndex
tmpCurIndex
    0R1S2S3S5S9S10S11S
edchoz
tmpChangedNAB
    1S2S3S
tmpCur1
Domino
LoadAddressListByIndexExt
EntryList
tmpCurIndex
    0R1S2E2S6S8S10S3E12S14S16S
revert to LoadAddressListByIndex if LoadAddressListByIndexExt is not supported
    0RR1S
tmpCur2
tmpCur1
Domino
LoadAddressListByIndex
EntryList
tmpNextIndex
tmpCur1
    0RR1S2E2S3S9RS2E13S15S17S19S21S24RS3E
tmpCurIndex
tmpCur2
    0RR1S2S2E3S
tmpNextIndex
tmpCurIndex
    0R1S2S3S5S9S10S11S
 >
tmpAddrVersion
Delegate
    0S0E
if (AddrVersion == "Group") {
    RemoveClick(tmpMembers);
    fieldMembersRef.value = selectToString(fieldMembers);
} else if (AddrVersion == "Directory") {
    RemoveClick(tmpContacts);
    fieldContactsRef.value = selectToString(fieldContacts);
} else if (AddrVersion != "Delegate") {
    RemoveClick(tmpSendTo);
    RemoveClick(tmpBlindCopyTo);
    RemoveClick(tmpCopyTo);
    fieldSendToRef.value=selectToString(fieldSendTo);
    fieldCopyToRef.value=selectToString(fieldCopyTo);
    fieldBlindCopyToRef.value=selectToString(fieldBlindCopyTo);
okFocus();
      Odebrat  X
if (AddrVersion == "Group") {
    RemoveAllClick();
    fieldMembersRef.value = "";
} else if (AddrVersion == "Directory") {
    RemoveAllClick();
    fieldContactsRef.value="";
} else if (AddrVersion != "Delegate") {
    RemoveAllClick();
    fieldSendToRef.value="";
    fieldCopyToRef.value="";
    fieldBlindCopyToRef.value="";
okFocus();
    Odebrat v
fieldDelegee.value = "";
okFocus();
    OdebratX
OKClick();
       OK   z
CancelClick()
     StornoX
query_stringa
Domino
LoadAddressListByIndex
EntryList
    18S20S22S24S26StmpCurIndexXz
tmpCurIndex
tmpCurIndex
    2S6S7S8S
tmpNextIndexz
tmpNextIndex
AddressBooksz
AddressBooks
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
T9f@9
$Info
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$Script_O
$$ScriptName
$WINDOWTITLE
$HTMLCode
$$AddressBooks
$Body
$AddressBooks_O
$Language
$LastBuildTime
$BabelInfo
$TITLE
Calendar Switcher$FormPrivs$FormUsers$Body$Flags
C34WQ$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZN
$TITLE
Calendar Title$FormPrivs$FormUsers$Body$Flags
C34WQ$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZ
$TITLE
calendarbckgnd.gifcalendarbackground$FormPrivs$FormUsers$Body$Flags
34CiQ$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZ
$TITLE
CalendarFS|CalendarFS$FormPrivs$FormUsers$Body$Flags
$TITLE
Calendar Switcher$FormPrivs$FormUsers$Body$Flags
C34WQ$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZN
$TITLE
Calendar Title$FormPrivs$FormUsers$Body$Flags
C34WQ$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZ
$TITLE
calendarbckgnd.gifcalendarbackground$FormPrivs$FormUsers$Body$Flags
34CiQ$Class$Modified
$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy
CN=Lotus Notes Template Development/O=Lotus Notes$$FormScript_O$LANGUAGE
cs-CZ
$TITLE
CalendarFS|CalendarFS$FormPrivs$FormUsers$Body$Flags
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
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
 DORU
FailureReason
Delivery Report
ENO:
Subject
Return Receipt
IJATO:
Subject
ReturnNonReceipt
IJATO:
Subject
Subject
    3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
$86$93$70$106$97$73$Conflict$C1$
$70$106
$93$70
$HideMailHeader
BGTableColor
HeaderRegion
BodyRegion
wMemo
wMemoOpen
    0S0E
&Arial
FComic Sans MS
 Reply
30D9076F:05xKnE0BpBA04Wr4E0BpBA
Subject
Subject
Subject
    1RT4RTT6RT7RTT12S13S14S15S17RTTT18RTTTT21RTTTTT23RTTTTS24RTTT25RTTT26S28RTT32RTT33RT
(Help)
MAIL_F_MEMO
    0S0E
tmpSendOptions
tmpPrincipal
    6S9S10S
act_CSSAVE
it zm
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    1S2S3S
it a zav
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_save.GIF|act_CSSAVEX
it a za
MEMO_DRAFT_FILE
    0S0E
ActionInProgress
MEMO_DRAFT_FILE
    0R1S
PostedDateh
IsMailStationery
    7S8S9S10S13S14S15S16S
act_FOLDER.GIF|act_FOLDERX
MEMO_CANCEL
4194304
    0S0E
ActionInProgress
MEMO_CANCEL
    0R1S
IsMailStationery
    0S1S2S
    0S0E
act_NEWMEMO.GIF|act_NEWMEMOX
Odpov
t\Odpov
Reply
    0S0E
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Reply with history
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
00000000
MailStEd
    1RT2RT8S11S12S14RTTTT21RT22RT
Reply
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
xxTitle
Odpov
 historie
    0S0E
xxMessage
Tento dokument byl zkr
    0R2S
00000000
xxTitle
xxMessage
MailStEd
    0RR1RT2RT8S11S12S14RTT15RTTTT16RTTTT17RTTTTT18RTTTTT20RTTTTTT24S26S29RTTTTT30RTTTTT32RTTTT38RTTTT40RT41RT
Odpov
 historie
act_REPLY.GIF|act_REPLYX
adit do kategorie
_Upravit dokumentX
Odeslat doku_mentX
PostoupitX
    0S0E
ISMAILSTATIONERY
tmpNewDoc
    1S2S3S4S5S6S
act_FORWARD.GIF|act_FORWARDX
Po_stoupit
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
ka\Vytvo
it slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...
    0S0E
act_FOLDER.GIF|act_FOLDERX
ka\Odebrat ze slo
    0S0E
act_FOLDER.GIF|act_FOLDERX
esunout do slo
ky...X
_Odebrat ze slo
OdeslatX
MEMO_SEND
    0S0E
ActionInProgress
MEMO_SEND
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SEND.GIF|act_SENDX
Odeslat\Odeslat a ulo
itX'++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
Odeslat a za
MEMO_SEND_FILE
    0S0E
ActionInProgress
MEMO_SEND_FILE
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S12S13S
act_SENDFILE|act_SENDFILEX
MEMO_STATIONERYSAVE
    0S0E
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
IsMailStationery
    2S3S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFTX
it jako koncept
MEMO_DRAFT
    0S0E
ActionInProgress
MEMO_DRAFT
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFTX
Odpov
emX'++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_REPLYX
ejmenovat p
edlohud
xxERROR
 vybran
 dokument.
    0S0E
xxTitle
ejmenovat p
edlohu
xxPrompt
Zadejte nov
zev p
edlohy.
xxERROR
MailStationeryName
xxTitle
xxPrompt
MailStationeryName
    0RR1S
    0RS>
IsMailStationery
    2S3S4S5S
act_RENAME.GIF|act_RENAMEX
Adresa...XT
EnterSendTo
EnterCopyTo
EnterBlindCopyTo
    0S0E
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOKX
nosti doru
$KeepPrivate
$KeepPrivate
$KeepPrivate
$KeepPrivate
DeliveryOptions
nosti doru
    0R4S10S
PostedDateh
    5S6S7S8S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONSX
rovat jako\Nov
vaX'++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_COPYINTOX
rovat jako\Nov
 polo
ka kalend
e'++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_COPYINTOX
rovat jako\Nov
kolX'++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_COPYINTOX
Osoby v re
imu online8
SameTimeServer
SameTimeServerZ
OEMClient
Macintosh
HKEY_LOCAL_MACHINE
Software\Lotus\Sametime Client
BasePath
\Connect"
    0R9S13S14S15S16S20S21S22S23S27S29S30S37S39S41S42S
act_whoisonline.gifX
//This Javascript hack of working around the header footer focusing problem
//will probably not work in future releases
var win = window
if ( window.document.forms[0].SametimeServer == null &&
    window.parent != window &&
    window.parent.length >= 2 &&
    window == window.parent[1])
    win = window.parent[0]
// Click the hidden button to run Lotus Script for Who Is Online
win.document.forms[0].WhoIsOnlineLS.click()
if( win.document.forms[0].SametimeServer.value != "" )
    newFrame = window.open("notes://" +  win.document.forms[0].SametimeServer.value + "/STDomino.nsf/STWIO?OpenForm","WIO","toolbar=no,location=no,scrollbars=no,directories=no,height=300,width=300")
stroje\P
edvolby...R
DialogMode
(Preferences)
act_TOOLS.GIF|act_TOOLSX
stroje\Informace o doru
xxTitle
Informace o doru
    0S0E
DeliveryInfo
xxTitle
    0RR4S5S6S7S8S9S10S11S12S14S
act_TOOLS.GIF|act_TOOLSX
stroje\Mimo kancel
(EditOfficeProfile)
    0S0E
OEMClient
    4S5S
act_TOOLS.GIF|act_TOOLSX
stroje\P
idat odes
latele do seznamu adresX<
(AddSenderToAddressBook)
    0S0E
act_TOOLS.GIF|act_TOOLSX
stroje\Nov
va podle p
edlohy'++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, "P
edloha", "Vybrat p
edlohu", "Vyberte p
edlohu pro novou zpr
vu.")
    Set noteCursorDoc = collection.getfirstdocument
    If Not noteCursorDoc Is Nothing Then
        Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
    End If
End Sub
act_TOOLS.GIF|act_TOOLSX
stroje\Vlo
it podpis...'++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_TOOLSX
stroje\Ulo
it jako p
edlohu...
MEMO_ISSTATIONERY
    0S0E
MEMO_STATIONERYSAVE
ActionInProgress
MEMO_STATIONERYSAVE
    0R1S
MergeFlag
MEMO_ISSTATIONERY
    0R1S
PostedDateh
IsMailStationery
    5S6S7S8S10S11S12S13S
act_TOOLS.GIF|act_TOOLSX
qstring
Query_String
Query_String
Query_String
    1S2S8S11S15S18S
pathinfo
Path_Info
&ClickG
Path_Info
&Click_
Path_Info
    0R1S2S8S11S15S18S
    0R1S10S14S16S23S
qstring
OpenDocument
path"
/Memo?OpenForm&docurl="
pathinfo"
path"
/Memo?OpenForm"
    0R1S3S13S14S17S
act_NEW.GIF|act_NEWX
PostoupitX
Format
CalendarProfile
FormatReplies
FormatChar
CalendarProfile
OffsetChar
    0R1S10S14S16S23S
Format
path"
/wForward?OpenForm&ParentUNID="
Forward
path"
/wForward?OpenForm&ParentUNID="
Forward&Format=
FormatChar"
    0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
act_FORWARD.GIF|act_FORWARDX
Odeslat\OdeslatX
act_SEND.GIF|act_SENDX
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "1";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Odeslat a ulo
act_SEND.GIF|act_SENDX
thisform = document.forms[0];
if (thisform.tmpAlreadySent.value != "1") {
    thisform.tmpSendOptions.value = "2";
    submitDocument();
    thisform.tmpAlreadySent.value = "1";
Odeslat\Ulo
it jako koncept`
tmpSendOptions
act_SEND.GIF|act_SENDX
Odpov
t\Odpov
wReply
    0S0E
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Odpov
+historie?OpenForm&ParentUNID=
&Format="
Formatchar"
Reply With History
    0R9S10S11S12S13S14S21S23S24S
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
    0R1S10S14S16S23S
path"
/wReply?OpenForm&ParentUNID="
&All"
    0R3S4S5S6S7S8S15S17S18S
Odpov
t\Odpov
 historieX&
    1S10S14S16S23S
Format
CalendarProfile
FormatReplies
    0R6S
FormatChar
CalendarProfile
OffsetChar
Format
path"
/Odpov
+historie?OpenForm&ParentUNID=
&Format="
FormatChar"
&All"
path"
/Odpov
+historie?OpenForm&ParentUNID=
&All"
    0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
Adresa...X
Appointment
AppointmentType
TaskType
tmpOwner
Chair
    20S21S22S
act_ADDRESSBOOK.GIF|act_ADDRESSBOOKX
var pathname = (window.location.pathname);
if (screen.width>640)
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=100,screenY=100,width=750,height=630');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=120,screenY=100,width=740,height=470');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=120,left=100,width=700,height=540');
} else
if (navigator.appVersion.indexOf('X11') != -1)
        window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
    } else
    if (navigator.appName =='Netscape')
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,screenX=0,screenY=0,width=630,height=480');
            } else
            window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,resizable=yes,scrollbars=yes,top=0,left=0,width=630,height=480');
nosti doru
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONSX
var pathname = (window.location.pathname);
window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
UpravitX
    0S0E
act_EDIT.GIF|act_EDITX
OdstranitX
    1S10S14S16S23S
    0R5S
path"
/wDelete?OpenAgent&
UNID"
&From="
view"
tmpWasMailed
    1S2S
act_DELETE.GIF|act_DELETEX
t na\Do
    1S2S
path"
/MailFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Kalend
    1S2S
path"
/CalendarFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\
    1S2S
path"
/ToDoFS?OpenFrameset"
    0R3S4S5S6S
act_goto.gif|act_gotoX
t na\Dal
    0S0E
act_goto.gif|act_gotoX
t na\P
edchoz
    0S0E
act_goto.gif|act_gotoX
rovat jako\Nov
    1S10S14S16S23S
path"
/Task?OpenForm&UNID="
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTOX
rovat jako\Nov
 polo
ka kalend
    1S10S14S16S23S
path"
/Appointment?OpenForm&UNID=
&CopyInto
    0R3S4S5S6S7S8S15S17S18S
act_COPYINTO.GIF|act_COPYINTOX'++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
'++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
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
    Always hidden:
Notes
PostedDateh
SendTo
CopyTo
Principal
Principal
InheritedSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT31S32S33S34RTTTTTTTTTTTTTTTTT35RTTTTTTTTTTTTTTTTT49S50S51S52S55RTTTTTTTTTTTTTTTTTT57RTTTTTTTTTTTTTTTTT59RTTTTTTTTTTTTTTTTT60RTT63RT65R68RInheritedSendToXz
InheritedSendTo
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
Principal
Principal
SendTo
CopyTo
Principal
Principal
InheritedAltSendTo
SendTo
CopyTo
    1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT40S41S42S43S44RTTTTTTTTTTTTTTTTTTTTTT45RTTTTTTTTTTTTTTTTTTTTTT59S60S61S62S65RTTTTTTTTTTTTTTTTTTTTTTT67RTTTTTTTTTTTTTTTTTTTTTT69RTTTTTTTTTTTTTTTTTTTTTT71RTTTT75S76S77S78RTTTTTTTTTTTTTTTTT79RTTTTTTTTTTTTTTTTT93S94S95S96S99RTTTTTTTTTTTTTTTTTT101RTTTTTTTTTTTTTTTTT103RTTTTTTTTTTTTTTTTT104RTTTT105RTT108RT110R113RInheritedAltSendToz
InheritedSendTo_1
$AltNameLanguageTags
$AltNameLanguageTags
$StorageTo
$StorageCc
    1S2S
$StorageCc
NoteHasNativeMime
    1RT2RT7RTT9RT10RT$StorageTo
$StorageBcc
$StorageBccX
InetSendTo
InetCopyTo
    1S2S
InetCopyTo
InetFrom
InetSendTo
AltSendTo
AltCopyTo
    1S2S
AltCopyToX
InetBlindCopyTo
InetBlindCopyToX
    0S0E
NamePreferencez
NamePreference
    0S0E
LanguagePreference
PostedDateh
ReplyTo
ReplyTo
ReplyTo
FromDomain
ReplyTo
FromDomain"
ReplyTo
    0TT1RTTT3S4S6S7S13RTTTT15RTTT17S18S19S22RTTTTT24RTTT28S29S30S31S35S36S37S38RTTTTT39S40S41S42S44RTTT45RTTTInheritedReplyToz
InheritedReplyTo
Principal
Principal
Principal
Fromh
    1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedFromXz
InheritedFrom
AltPrincipalh
AltPrincipal
AltPrincipal
AltFrom
AltFrom
    1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
FromDomainh
FromDomain"
    0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
InheritedFrom_1
Notes
PostedDateh
FromDomain
InheritedFromDomain
FromDomain
    9S10S12S13SInheritedFromDomainXz
InheritedFromDomain
Principal
CalendarProfile
Owner
    1S2S3S7S
FromPerson memo is from.z
AltFrom
    10SAltFromX
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
$LangFrom
LanguagePreferencet
AltFrom
    1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
    0RR1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S10S11S16S18S
FromStops
Principal
Principal
Principal
    0RR1S2S10S11S16S18S21S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
ParentOption
Encrypt
    0S0E
GlobalPreference
GlobalPreference
ParentOption
    0RR1RT2RT5RTT6RTTT7RTTT11RTTTT16RTTT17RTTT19RT20RT
EncryptXz
Encrypt
$KeepPrivate
$KeepPrivate
$KeepPrivate
    3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
    0S0E
DefaultMailSaveOptionsz
DefaultMailSaveOptions
.,$,  , :
Path_Info_DEcoded
Path_InfoX
.,$,  , :
Query_String_Decoded
Query_String
'++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:10
Dim sametimeInfoVar As Variant
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Execute |
        Use "Sametime"
        Call prepareRemoteSTDBForMemoWIO( cMemoObject.uiDocument, sametimeInfoVar)
End Sub
Lotus Product
W32I4
WhoIsOnlineLSXz
WhoIsOnlineLS
.,$,  , :
SameTimeServer
SameTimeServerZ
SameTimeServer
SametimeServer
CalendarProfile
Owner
PrincipalX
(WebSpecificFields)
    0S0E
    Od:X
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogoXz
tmpDisplayFrom_NoLogo
    Komu:X
NamesList
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    11S12S15S16S20S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1X
    Kopie:
CC_Content
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    7S8S9S11S12S16S
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
V5DOTBL=true
    Komu:X
MailAddress
InheritedReplyTo
InheritedReplyTo
InheritedFrom
NamePreference
AltSendTo
AltSendTo
SendTo
    1S2S22S2E23S24S25S
MailAddress
SendToz
SIZE=80
    Kopie:
CopyTo
InheritedSendTo
    1RT2RT5RTT7RT8RTT9RTT10S11S13RTTT15RTT16RTT17RTCopyToz
SIZE=80
    Na v
BlindCopyTo
    0S0E
BlindCopyToXz
SIZE=80
Subject
Topic
Subject
    1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
Subj"
    0R1RT10S12S16S17S19RTT21RT22S23S24RT
WebSubjectz
SIZE=80
tmpDisplayFrom_Preview
DisplayFrom_PreviewXz
DisplayFrom_Preview_1
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
    Odeslal: X
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
tmpDisplaySentBy_1
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreviewDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
na.Xz
tmpDisplayDate_Preview_1
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfoXz
tmpDisplayReplyInfo_1
lohy:X
    <font size=-1>
    </font>X
V5DOTBL=true
$HideMailHeader
    0S0E
tmpDisplayFrom_Preview
DisplayFromXz
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal: X
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20SDisplaySentXz
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
DisplayDateDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
tmpDisplayReply
$HideMailHeader
StdNotesLtr16
    7S9S10S11S13S15S
        Komu:    X
MailAddress
InheritedReplyTo
InheritedReplyTo
NamePreference
InheritedAltFrom
InheritedAltFrom
InheritedFrom
NamePreference
AltSendTo
$NameLanguageTags
LanguagePreferencet
AltSendTo
SendTo
    1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
MailAddress
EnterSendTo
    0S0E
EnterSendToSeznam prim
, jim
t zpr
va zasl
        Kopie:
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
    1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
EnterCopyTo
    0S0E
EnterCopyToSeznam osob, jim
 bude zasl
na kopie zpr
        Kopie:
CC_Content
PostedDateh
NamePreference
AltCopyTo
$NameLanguageTags
LanguagePreferencet
AltCopyTo
CopyTo
EnterCopyTo
    6RTTTTTT7RTTTTTTT8RTTTTTTT13RTTTTTTTT14RTTTTTTTTT15RTTTTTTTTT18RTTTTTTTTT19S20S22RTTTTTTTTT23S27S30RTTTTTTTTTT32RTTTTTTTTT33RTTTTTTTTT35RTTTTTTT36TTTTTTTRTTTTTTT37RTTTTTT
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0RR3RTTTTTTT4RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
CC_Content
BCC_Content
    0RR3S4StmpEnterCopyTo
        Na v
NamePreference
AltBlindCopyTo
$NameLanguageTags
LanguagePreferencet
AltBlindCopyTo
BlindCopyTo
    1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
EnterBlindCopyTo}
    0S0E
EnterBlindCopyToSeznam bl
e neur
ch osob, jim
t zasl
na kopie zpr
$HideMailHeader
FxDVersion
    4S5S6S7S
        Faxovat komu:    X
FaxToListSeznam osob, jim
t zpr
va zasl
na faxem.
SIZE=50
Subject
Topic
Subject
    1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
Subj"
    0R1RT10S12S16S17S19RTT21RT22S23S24RT
SubjectP
t zpr
Subject
tmpDisplaySubjectX
$HideMailHeader
tmpDisplayLink
ISMAILSTATIONERYh
    0S0E
ReplyDate
ReplyDate
ReplyDate
FaxToList
FaxToList
FaxToList
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(
tmpSenderTagh
tmpSenderTag
tmpSenderTag
tmpSenderTag(
    1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S40RTTTTT47RTTTT48RTTTT50RTTT52RTTTT56S57S58S59S60S61S62S63S64S67RTTTTT74RTTTT75RTTTT77RTTT79RTTTT83S84S86S87S88S89S90S91S94RTTTTT101RTTTT102RTTTT104RTTT106RTTTT110S111S113S114S115S116S117S118S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S223S224S226RTTTTT233RTTTT234RTTTT236RTTT238RTTTT242S243S245S246S247S248S249S250S253RTTTTT260RTTTT261RTTTT263RTTT265RTTTT269S270S272S273S274S275S276S277S280RTTTTT287RTTTT288RTTTT290RTTT292RTTTT296S297S299S300S301S302S303S304S307RTTTTT314RTTTT315RTTTT317RTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RRTTT340RTTTT344S345S349RTTTTT356RTTTT357RTTTT359RTTT361RTTTT365S366S368S369S370S371S2E373S376RTTTTT383RTTTT384RTTTT385RTT387RT388RT
RemoveNoteItemsX
$HideMailHeader
Moods
PostedDate
SenderTag
Moods
    7S9S11S13S14S15S16S17S19S20S21S22S25S27S
BodyText zpr
$Seal
    0S0E
Text t
to zpr
vy je za
ifrov
n a nelze jej zobrazit pomoc
 prohl
e. Otev
ete tuto zpr
vu pomoc
 klienta programu Notes nebo po
dejte odes
latele o neza
ifrovanou kopii zpr
tmpWebDisplayIfEncrypted
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
Lotus Product
W32I4
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$SubForms
$WEBQuerySave
$WEBQueryOpen
$WebFlags
$DesignerVersion
$$ScriptName
$Babel_Tags
$WINDOWTITLE
$AppHelpFormula
$V5ACTIONS
$Script
$$FormScript
$Body
$$Script_O
$$$FormScript_O
$SCRIPTOBJ_22
$SCRIPTOBJ_26
$SCRIPTOBJ_30
$SCRIPTOBJ_31
$SCRIPTOBJ_32
$SCRIPTOBJ_38
$SCRIPTOBJ_39
$Language
$LastBuildTime
$BabelInfo
'++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 Function VIEWGetName(uiview1 As NotesUIView) As String
Declare Sub Postopen(Source As Notesuidatabase)
Declare Sub Postdocumentdelete(Source As Notesuidatabase)
Declare Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
Declare Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)
Declare Sub Querydragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
Declare Sub Initialize
Declare Sub Terminate
Declare Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:10
'ANT:
'Mail_(R5.0):
Dim ws As notesuiworkspace
Dim uiview As NotesUIView
Dim session As NotesSession
Dim dbmail As notesdatabase
Dim note As NotesDocument, profile As notesdocument
Dim StringTable As mailtoolsstringtable
Dim collection As NotesDocumentCollection
Dim bRemoveNote As Integer, nChangeWhich As Integer, fRefresh As Integer
Dim strViewName As String
Dim nINIValue As Integer,nAction As Integer
'++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 Postopen From Source Call Postopen
    On Event Postdocumentdelete From Source Call Postdocumentdelete
    On Event Queryclose From Source Call Queryclose
    On Event Querydocumentundelete From Source Call Querydocumentundelete
    On Event Querydragdrop From Source Call Querydragdrop
    On Event Querydocumentdelete From Source Call Querydocumentdelete
End Sub
'++LotusScript Development Environment:2:2:Postdragdrop:1:12
Sub Postdragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
    On Error Goto Trap
    Dim ws As New NotesUIWorkspace
    If EntryName = "Skupinov
 kalend
e" Then
        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 = "Ko
" Then
        ' user wants to delete the documents
        Call source.documents.RemoveAll(True)
    Elseif EntryName = "Archive" Then
        Dim StringTable As New mailtoolsstringtable
        If YesNoPrompt(StringTable.GetString(TOOL_STRING+76,Source.documents.count),StringTable.GetString(TOOL_STRING+75,Null)) Then
Archive:
            Call Source.Database.ArchiveNow(Source.documents)
            Call ws.ViewRefresh()
        End If
    End If
    Exit Sub
Trap:
    If YesNoPrompt(Error$ & Chr(10) & StringTable.GetString(TOOL_STRING+74,Null),StringTable.GetString(TOOL_STRING+75,Null)) Then
        If ws.Currentdatabase.Editarchivesettings() Then
            Resume Archive
        Else
            Exit Sub
        End If
    End If
    End
End Sub
'++LotusScript Development Environment:2:1:VIEWGetName:1:8
Function VIEWGetName(uiview1 As NotesUIView) As String
    Dim strViewName As String
    If uiview1 Is Nothing Then Exit Function
    strViewName = uiview1.ViewAlias
    If Len(strViewName) = 0 Then
        VIEWGetName = uiview1.ViewName
    Elseif Instr(strViewName, "|") Then
        VIEWGetName = Strrightback(strViewName, "|")
    Else
        VIEWGetName = strViewName
    End If
End Function
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidatabase)
End Sub
'++LotusScript Development Environment:2:2:Postdocumentdelete:1:12
Sub Postdocumentdelete(Source As Notesuidatabase)
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Querydocumentundelete:1:12
Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Querydragdrop:1:12
Sub Querydragdrop(Source As Notesuidatabase, Entryname As Variant, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
'++LotusScript Development Environment:2:2:Querydocumentdelete:1:12
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
    If ws Is Nothing Then
        Set ws = New notesuiworkspace
    End If
    If session Is Nothing Then
        Set session = New NotesSession
    End If
    Set uiview = ws.CurrentView
    strViewName = VIEWGetName(uiview)
    If Len(strViewName) = 0 Then Exit Sub
    If Strcompare(strViewName, "Rules")  = 0 Then
        Set StringTable = New mailtoolsstringtable
        If YesNoPrompt(StringTable.GetString(TOOL_STRING+80,Null),StringTable.GetString(TOOL_STRING+81,Null)) Then
            Dim strfilteritem As String
            Dim vrulenum As Variant
            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)
                    Call profile.save(True, True,True)
                End If
                Set note = collection.getnextdocument(note)
            Wend
            Call source.documents.RemoveAll(False)
            Call profile.save(True, True, False)
            fRefresh = True
        End If
        continue = False
    Elseif Strcompare(strViewName, "Calendar") = 0 Or Strcompare(strViewName, "Meetings") = 0 Then
        Dim uiobject As UIEventObject
        Dim vBEObject As Variant
        Dim notePlaceHolder As notesdocument
        Set StringTable = New mailtoolsstringtable
        If YesNoPrompt(StringTable.GetString(TOOL_STRING+82,Null),StringTable.GetString(TOOL_STRING+83,Null)) Then
            On Error Goto DoNextDocument
            Set collection = source.documents
            Set note = collection.GetFirstDocument
            While Not(note Is Nothing)
                Set uiobject = InitEventObject(note, False)
'WEZ
                If note.HasItem("OrgRepeat") And Not note.IsResponse Then
                    Call DisplayWarn(uiobject.StringTable.getstring(USER_INVALID_DOCUMENT , Null) ,MB_OK, uiobject.StringTable.getstring(ERR_TITLE, Null))
                    Continue = False
                    Exit Sub
                End If
                If Not (uiobject Is Nothing) Then
                    Set vBEObject = uiobject.BEObject
                    bRemoveNote = False
                    Dim dtNow As New notesdatetime( "Today")
                    dtNow.SetNow

                    If CheckForRepeatChanges(uiobject,True) Then
                        If (vBEobject.WasMailed And vBEObject.IsWorkflowEnabled) Then
                            If (uiobject.IsOwner) Then
                                'if event is in past, just delete, don't cancel.
                                If (vBEobject.CurrentEndDate.TimeDifference(dtNow) > 0) Then
                                    ' we need to cancel the event
                                    If uiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",3) Then
                                        Call uiobject.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT Or REMOVE_DELETED)
                                        If (uiobject.SendComments) Then Call uiobject.editnotice
                                    Else
                                        Exit Sub
                                    End If
                                End If
                            Else
                                If (vBEobject.CurrentEndDate.TimeDifference(dtNow) > 0) Then
                                ' we need to decline the event
                                    If (CanProcessViewCommand(ACTION_DECLINE, uiobject) = True) Then
                                        uiobject.SendComments = True
                                        If uiobject.OkToPerformAction(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",3) Then
                                            Call uiobject.PerformAction(ORS_MSGTYPE_REJECT, 0)
                                            If (uiobject.SendComments) Then Call uiobject.editnotice
                                        Else
                                            Exit Sub
                                        End If
                                    End If
                                Else
                                    Call vBEObject.ActionHandler("H",0,0)
                                End If
                            End If
                        Else
                    ' workflow is not enabled, simply delete the entries
                            Call vBEObject.ActionHandler("H", 0, 0)
                        End If
                        Call CSDocSaveRepeatingEntry(vBEObject)
                    End If
                End If
DoNextDocument:
                Set notePlaceHolder = note
                Set note = collection.getnextdocument(note)
                Call notePlaceHolder.Remove(False)
                fRefresh = True
            Wend
        End If
        If (fRefresh = True) Then Call ws.viewrefresh
        continue = False
    Elseif Strcompare(strViewName, "($Sent)")  = 0 Then
        ' We are deleting from the Sent view; see if the user wants to delete or remove
        nINIValue = session.GetEnvironmentValue("DeleteFromSent", True)
        If (nINIValue = 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)
            nAction = Cint(note.GetItemValue("Action")(0))
            If (nAction <> 0) Then
                If (note.GetItemValue("tmpDontAsk")(0) = "1") Then
                    Call session.SetEnvironmentVar("DeleteFromSent", nAction,True)
                End If
            End If
        Else
            nAction = nINIValue
        End If
        Select Case nAction
        Case 2
            Call source.documents.stampall("ExcludeFromView","S")
            fRefresh = True
        Case 1
            Call source.documents.RemoveAll(False)
            fRefresh = True
        End Select
        Continue = False
    End If
    If (fRefresh = True) Then Call ws.viewrefresh
End Sub
Lotus Product
W32I4
t    t    d    d
^T    *X
##KT    ,
!##8#
!##8$
~("#Kd
~@"##8n
#,t!}|
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$DBScript
$DBScript_O
$TITLE
$PublicAccess
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
Option Explicit
Use "CSEventClass"
'++LotusScript Develop