home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 September / PCW0999.ISO / Software / NotesR5 / edition / DATA1.CAB / DataFilesRequiredDataFiles / mail50.ntf (.txt) < prev    next >
Encoding:
Lotus Notes Storage Facility  |  1999-07-08  |  4.9 MB  |  54,947 lines

Text Truncated. Only the first 1MB is shown below. Download the file for the complete contents.
  1. Mail (V5.0)
  2. #1StdR50Mail
  3. ?^pP\
  4. ^agA6
  5. cLr/~
  6. )R 3S|E
  7. 0zL*i
  8. 2\<{Xxb
  9. uwr|7
  10. +MQ O
  11. tx],l
  12. 7),'Kf
  13. bBK2T
  14. I,G*i
  15. rtrQU
  16. lWuBwL
  17. CN=Shaun McGale/OU=DUB/O=Lotus
  18. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes1OQ
  19. ############################
  20. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesACLManagements34Q1de-DE
  21. 00000116################################
  22. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesDocumentConversionss34Q1de-DE
  23. 00000136#####################################################
  24. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Damien Katz/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCommonUIs34Q1de-DE
  25. 0000011E
  26. ##########################################################
  27. CN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Daffy Duck/O=WarnerCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Tweety Bird/O=WarnerCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCommons34Q1de-DE
  28. 0000011A###########################################
  29. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCoreEmailClassess34Q1de-DE
  30. 00000122#####################
  31. CN=Ryan Jansen/O=IrisCN=Pluto Dog/O=DisneyCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSEventClasss34Q1de-DE
  32. 00000126###########
  33. CN=Ryan Jansen/O=IrisCN=Daisy Duck/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSUIDocClasss34Q1de-DE
  34. 0000012A###################################
  35. CN=Ryan Jansen/O=IrisCN=Don Hatch/O=IrisCN=Ryan Jansen/O=IrisCN=Mickey Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Rob Slapikoff/O=IrisCN=Ryan Jansen/O=IrisCN=Pluto Dog/O=DisneyCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Daffy Duck/O=WarnerCN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSUIViewClasss34Q1de-DEq;N
  36. 0000012E########################
  37. CN=Daisy Duck/O=DisneyCN=Ryan Jansen/O=IrisCN=Minnie Mouse/O=DisneyCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Daffy Duck/O=WarnerCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Pluto Dog/O=DisneyCN=Mickey Mouse/O=DisneyCN=Bugs Bunny/O=WarnerCN=Teresa Deane/O=IrisCN=Daffy Duck/O=WarnerCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Bugs Bunny/O=WarnerCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Daffy Duck/O=WarnerCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCSWebs34Q1de-DE
  38. 00000132########################################
  39. ##########################################################
  40. ##########################################################
  41. ##########################################################
  42. ##########################################################
  43. ##########################################################
  44. ##########################################################
  45. ##########################################################
  46. GroupCalendarFS|GroupCalendarFS1#4Cw
  47. CN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notesde-DE
  48. 0000013E####################################################
  49. CalendarFS|CalendarFS
  50. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Bugs Bunny/O=WarnerCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes1#4Cwde-DE
  51. 0000013A#########
  52. MailFS|MailFS
  53. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Daffy Duck/O=WarnerCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes1#4Cwde-DEeMN
  54. 00000142
  55. ##########################################################
  56. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notesde-DE
  57. 00000146ToDoFS|ToDoFS1#4Cw#
  58. WebCalendarFS|CalendarFS
  59. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Bugs Bunny/O=WarnerCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes1#4Cnde-DE
  60. 0000014A###############################################
  61. WebToDoFS|ToDoFS
  62. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes1#4Cnde-DEQNN
  63. 00000152#########################
  64. WebMailFS|MailFS
  65. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Rob Shaver/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=William Zircher/O=IrisCN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Daffy Duck/O=WarnerCN=Ryan Jansen/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes1#4Cnde-DE
  66. 0000014E###################################
  67. C34WQ1
  68. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCalendar Pickerde-DE
  69. 00000156##################################################
  70. de-DEgON
  71. 0000015ACalendar SwitcherC34WQ1
  72. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###
  73. C34WQ1
  74. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesCalendar Titlede-DE
  75. 0000015E
  76. 1C34WQ
  77. CN=Debbie Branco/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesGroupCalendarIntrode-DE
  78. 00000162#######################################
  79. C34WQ1
  80. CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesMail Pickerde-DE
  81. 00000166#####
  82. de-DEsQN
  83. 0000016AMail SwitcherC34WQ1
  84. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###############
  85. C34WQ1
  86. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesMail Titlede-DE
  87. 0000016E####
  88. C34WQ1
  89. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesTo Do Pickerde-DE
  90. 00000172
  91. ##########################################################
  92. de-DEORN
  93. 00000176To Do SwitcherC34WQ1
  94. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes######
  95. C34WQ1
  96. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesTo Do Titlede-DE
  97. 0000017A###
  98. C34WQ
  99. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesWebHelpde-DEv\N
  100. 0000017E###################
  101. BodyDeliveryDateSubject
  102. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  103. (Delivery Report)Delivery Reportde-DE
  104. 0000019A################################
  105. ##########################################################
  106. ##########################################################
  107. ##########################################################
  108. O=Lotus Notes
  109. O=Lotus Notes
  110. PURSAFO
  111. |.:#U
  112. O=Lotus Notes
  113. CN=Lotus Notes Template Development/O=Lotus Notes
  114. PURSAFO
  115. $ACLDigest
  116. '++LotusScript Development Environment:2:5:(Options):0:74
  117. Option Public
  118. Use "Common"
  119. Option Declare
  120. '++LotusScript Development Environment:2:5:(Forward):0:1
  121. Declare Class DelegationACLManager
  122. '++LotusScript Development Environment:2:5:(Declarations):0:10
  123. Const READWRITE=&h010&
  124. Const CANDELETE = &h100&
  125. Const READPUBLIC= &h200&
  126. Const WRITEPUBLIC= &h400&
  127. Const NO_UPDATE_MANAGER = 37
  128. Const NO_UPDATE_ACL = 42
  129. Const NO_UPDATE_OWNER = 68
  130. Const NO_ACL_REFERENCE = 69
  131. Const ERROR_ADMINP = 72
  132. Const OWNER_IS_FLAT = 71
  133. Const WINDOW_TITLE = 61
  134. Class DelegationACLManager
  135.     Public StringTable As MailToolsStringTable
  136.     Private session As notessession
  137.     Private note As notesdocument    
  138.     Private acl As notesacl
  139.     Private aclentry As notesaclentry
  140.     Private name As notesname
  141.     Private agentDelegateAgent As notesagent
  142.     Private ReadCal() As String
  143.     Private WriteCal() As String
  144.     Private ReadMail() As String
  145.     Private WriteMail() As String
  146.     Private EditMail() As String
  147.     Private DeleteMail() As String
  148.     Private OtherUsers() As String
  149.     Private AddedUsers() As String        
  150.     Private DeletedUsers() As String
  151.     Private OriginalOwner As String 
  152.     Private AdminServer As String    
  153.     Private DefaultPublicReader As Integer
  154.     Private DefaultPublicWriter As Integer
  155.     Private MustDelegate As Integer    
  156.     Private ACLIsDirty As Integer
  157.     Private nSuccess As Integer
  158.     Private x As Integer
  159.     Private CanChangeOwner As Integer
  160.     Private nIsWebClient As Integer
  161.     Private strWEBSubmission As String
  162.     Sub New(note As notesdocument)
  163.         Set Me.StringTable = New MailToolsStringTable            
  164.         Set Me.session = New notessession        
  165.         Set Me.acl = note.parentdatabase.ACL
  166.         Set Me.note = note        
  167.         Me.note.autoreload = False
  168.         OriginalOwner = Me.note.GetItemValue("Owner")(0)
  169.         Set Me.aclentry = Me.acl.GetEntry(Me.session.Effectiveusername)
  170.         If Me.aclentry Is Nothing Then
  171.             Set Me.name = New NotesName(Me.session.Effectiveusername)
  172.             Set Me.aclentry = Me.acl.GetEntry(Me.name.Common)
  173.         End If
  174.         If Me.aclentry Is Nothing Then
  175.             'user not in ACL?
  176.             Call RaiseUIError(NO_ACL_REFERENCE)
  177.             End
  178.         Elseif Me.aclentry.level < ACLLEVEL_MANAGER Then
  179.             If Me.note.hasitem("Owner")  Then
  180.                 If Not NameCompare(Me.OriginalOwner,Me.session.Effectiveusername) Then 
  181.                     Me.CanChangeOwner = False
  182.                 Else 
  183.                     Me.CanChangeOwner = True
  184.                 End If
  185.             Else
  186.                 Me.CanChangeOwner = True
  187.             End If
  188.             Me.MustDelegate = True
  189.         Elseif Me.aclentry.level = ACLLEVEL_MANAGER Then
  190.             Me.CanChangeOwner = True
  191.         End If     
  192.     End Sub
  193.     Public Function Init()
  194.         Call GetDefaultAccess()    
  195.         Call GetAclEntries()
  196.         Call ValidateAdminServer()
  197.     End Function
  198.     Property Set IsWebClient As Integer
  199.         Me.nIsWebClient = IsWebClient
  200.     End Property
  201.     Property Set DelegateUsingAdminP As Integer
  202.         Me.MustDelegate = DelegateUsingAdminP
  203.     End Property
  204.     Private Function InvokeAdminP() As Integer
  205.         Dim vHomeServer As Variant
  206.         Dim vSuccess As Variant            
  207.         If Me.nIsWebClient Then
  208.             Redim vHomeServer(0)
  209.             vHomeServer(0) = Me.session.Username 'the context of the server running the agent
  210.             Me.strWEBSubmission = "1"
  211.         Else
  212.             vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)            
  213.         End If
  214.         vSuccess = Evaluate(|@AdminDelegateMailFile("| &_
  215.         Me.AdminServer & |";"admin4.nsf";"|& vHomeServer(0) &|";"| &_
  216.         Me.session.Effectiveusername & |";PublicRead;ReadCalendar;PublicWrite;WriteCalendar;ReadMail;WriteMail;EditMail;DeleteMail;RemoveFromACL;Owner;@Subset(@DbName; -1);"|_
  217.         & Me.strWEBSubmission &|")|, note)
  218.         InvokeAdminP = 0 - Cint(vSuccess(0))        
  219.     End Function
  220.     Private Function IsPublicReader()
  221.         If Me.aclentry.IsPublicReader Then
  222.             x = Ubound(Me.ReadCal)
  223.             Me.ReadCal(x) = Me.aclentry.Name
  224.             Redim Preserve Me.ReadCal(x + 1)
  225.         End If
  226.     End Function
  227.     Private Function IsPublicWriter()
  228.         If Me.aclentry.IsPublicWriter Then
  229.             x = Ubound(Me.WriteCal)
  230.             Me.WriteCal(x) = Me.aclentry.Name
  231.             Redim Preserve Me.WriteCal(x + 1)
  232.         End If
  233.     End Function
  234.     Private Function AddedUser()
  235.         x = Ubound(Me.AddedUsers)
  236.         Me.AddedUsers(x) = Me.aclentry.Name
  237.         Redim Preserve Me.AddedUsers(x+1)
  238.     End Function
  239.     Private Function WasUserAdded()
  240.         WasUserAdded = False
  241.         Forall AddedNames In Me.AddedUsers
  242.             If NameCompare(AddedNames,Me.aclentry.Name) Then
  243.                 WasUserAdded = True
  244.                 Exit Forall
  245.             End If
  246.         End Forall
  247.     End Function
  248.     Private Function AddToDeletedList()
  249.         If Not WasUserAdded() Then
  250.             x = Ubound(Me.DeletedUsers)
  251.             Me.DeletedUsers(x) = Me.aclentry.Name
  252.             Redim Preserve Me.DeletedUsers(x+1)
  253.         End If
  254.     End Function
  255.     Function IsNameDesignerManager() As Integer
  256.         IsNameDesignerManager = False
  257.         If Me.aclentry.level => ACLLEVEL_DESIGNER Then
  258.             IsNameDesignerManager = True
  259.         End If
  260.     End Function
  261.     Public Function CommitACL(DiscardChanges As Integer) As Integer
  262.         If DiscardChanges Then 
  263.             Exit Function
  264.         Else
  265.             CommitACL = ValidateOwner()
  266.             Call SetDefaultAccess()            
  267.             If ACLHasChanged(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail)) Then
  268.                 Call UpdateACL(Fulltrim(Me.note.ReadMail),Fulltrim(Me.ReadMail),ACLLEVEL_READER)                                
  269.             End If
  270.             If ACLHasChanged(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail)) Then
  271.                 Call UpdateACL(Fulltrim(Me.note.WriteMail),Fulltrim(Me.WriteMail),READWRITE)             
  272.             End If
  273.             If ACLHasChanged(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail)) Then
  274.                 Call UpdateACL(Fulltrim(Me.note.EditMail),Fulltrim(Me.EditMail),ACLLEVEL_EDITOR)            
  275.             End If
  276.             If ACLHasChanged(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail)) Then
  277.                 Call UpdateACL(Fulltrim(Me.note.DeleteMail),Fulltrim(Me.DeleteMail),CANDELETE)             
  278.             End If
  279.             If ACLHasChanged(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal)) Then
  280.                 Call UpdateACL(Fulltrim(Me.note.ReadCalendar),Fulltrim(Me.ReadCal),READPUBLIC)     
  281.             End If
  282.             If ACLHasChanged(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal)) Then
  283.                 Call UpdateACL(Fulltrim(Me.note.WriteCalendar),Fulltrim(Me.WriteCal),WRITEPUBLIC)            
  284.             End If
  285.             If Me.ACLIsDirty Then
  286.                 If Me.MustDelegate Then
  287.                     Call Me.note.ReplaceItemValue("RemoveFromACL", Fulltrim(DeletedUsers))
  288.                     If Not InvokeAdminP() Then
  289.                         Call RaiseUIError(ERROR_ADMINP)                                                    
  290.                     End If
  291.                 Else
  292.                     Call Me.ACL.SAVE()                
  293.                 End If
  294.             End If
  295.         End If
  296.     End Function
  297.     Private Function ACLHasChanged(CurrentEntries As Variant,InitialEntries As Variant) As Integer
  298.         ACLHasChanged = False
  299.         If Ubound(CurrentEntries) <> Ubound(InitialEntries) Then
  300.             Me.ACLIsDirty = True
  301.             ACLHasChanged = True
  302.             Exit Function
  303.         Else
  304.             For x = 0 To Ubound(InitialEntries)
  305.                 If Not CurrentEntries(x) = InitialEntries(x) Then
  306.                     Me.ACLIsDirty = True
  307.                     ACLHasChanged = True
  308.                     Exit Function
  309.                 End If
  310.             Next
  311.         End If 
  312.     End Function
  313.     Private Function GetDefaultAccess()
  314.         Set Me.aclentry = Me.acl.getentry("-Default-")
  315.         If Me.aclentry Is Nothing Then
  316.             Set Me.aclentry = Me.acl.createACLEntry("-Default-",ACLLEVEL_NOACCESS)            
  317.         End If
  318.         If Me.aclentry.ispublicreader Then
  319.             Me.DefaultPublicReader = True
  320.         Else
  321.             Me.DefaultPublicReader = False
  322.         End If
  323.         If Me.aclentry.ispublicwriter Then
  324.             Me.DefaultPublicWriter = True
  325.         Else
  326.             Me.DefaultPublicWriter = False
  327.         End If
  328.     End Function
  329.     Private Function SetDefaultAccess()
  330.         Set Me.aclentry = Me.acl.getentry("-Default-")
  331.         If  Not Val(Me.note.getitemvalue("PublicRead")(0)) = Me.DefaultPublicReader Then
  332.             If (0 - Val(Me.note.getitemvalue("PublicRead")(0))) Then
  333.                 aclentry.ispublicreader = True
  334.             Else
  335.                 aclentry.ispublicreader = False
  336.             End If
  337.             Me.ACLIsDirty = True
  338.         End If
  339.         If Not Val(note.getitemvalue("PublicWrite")(0)) = Me.DefaultPublicWriter Then
  340.             If (0 - Val(note.getitemvalue("PublicWrite")(0)))    Then        
  341.                 aclentry.ispublicwriter = True
  342.             Else
  343.                 aclentry.ispublicwriter = False                
  344.             End If
  345.             Me.ACLIsDirty = True
  346.         End If            
  347.     End Function
  348.     Private Function IsNameInACL(ACLName As Variant) As Integer
  349.         IsNameInACL = False
  350.         Set Me.aclentry = Me.acl.getentry(ACLName)
  351.         If Not aclentry Is Nothing Then IsNameInACL = True
  352.     End Function
  353.     Private Function RemoveIfNoAccess()
  354.         If Me.aclentry.Level = ACLLEVEL_NOACCESS  Then
  355.             If Not Me.aclentry.Ispublicreader And Not Me.aclentry.Ispublicwriter Then
  356.                 Call AddToDeletedList()
  357.                 Call Me.aclentry.remove()
  358.             End If
  359.         End If
  360.     End Function
  361.     Private Function UpdateACL(CurrentEntries As Variant,InitialEntries As Variant,LEVEL As Integer) As Integer
  362.         UpdateACL = False        
  363.         Forall ACLName In InitialEntries
  364.             If ACLName <> "" Then
  365.                 If Arraygetindex(CurrentEntries,ACLName) => 0 Then
  366.                 'we keep it as it was
  367.                 Else
  368.                     Set Me.aclentry = Me.acl.getentry(ACLName)
  369.                     If Not Me.aclentry Is Nothing Then
  370.                         If IsNameInACL(ACLName) Then
  371.                             If IsNameDesignerManager() Then
  372.                                 Call RaiseUIError(NO_UPDATE_MANAGER)                            
  373.                             Else
  374.                                 Select Case LEVEL
  375.                                 Case CANDELETE
  376.                                     Me.aclentry.candeletedocuments = False
  377.                                 Case READPUBLIC
  378.                                     Me.aclentry.ispublicreader = False                        
  379.                                     Me.aclentry.ispublicwriter = False
  380.                                     Call RemoveIfNoAccess()
  381.                                 Case WRITEPUBLIC
  382.                                     Me.aclentry.ispublicwriter = False
  383.                                     Call RemoveIfNoAccess()
  384.                                 Case Else
  385.                                     If Isnull(Arraygetindex(Me.AddedUsers,ACLName)) Then
  386.                                         Call AddToDeletedList()
  387.                                         Call Me.aclentry.remove()
  388.                                     End If
  389.                                 End Select
  390.                             End If 
  391.                         End If
  392.                     End If
  393.                 End If
  394.             End If
  395.         End Forall
  396.         Forall ACLName In CurrentEntries
  397.             If ACLName <> "" Then
  398.                 If Arraygetindex(InitialEntries,ACLName) => 0 Then
  399.                 'it's there so leave it alone
  400.                 Else
  401.                     If IsNameInACL(ACLName) Then
  402.                         If IsNameDesignerManager() Then
  403.                             Call RaiseUIError(NO_UPDATE_MANAGER)                                                    
  404.                             Exit Function
  405.                         End If
  406.                     End If    
  407.                     Select Case LEVEL
  408.                     Case ACLLEVEL_READER
  409.                         If IsNameInACL(ACLName) Then
  410.                             Me.aclentry.level = Acllevel_reader
  411.                         Else
  412.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_reader)
  413.                         End If
  414.                         Call AddedUser()
  415.                     Case READWRITE
  416.                         If IsNameInACL(ACLName) Then
  417.                             Me.aclentry.level = Acllevel_author
  418.                         Else                    
  419.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_author)
  420.                         End If                        
  421.                         Call AddedUser()
  422.                         Me.aclentry.cancreatedocuments = True
  423.                         Me.aclentry.candeletedocuments = False
  424.                     Case ACLLEVEL_EDITOR                    
  425.                         If IsNameInACL(ACLName) Then
  426.                             Me.aclentry.level = Acllevel_editor
  427.                         Else
  428.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,Acllevel_editor)
  429.                         End If 
  430.                         Call AddedUser()
  431.                         Me.aclentry.cancreatedocuments = True
  432.                         Me.aclentry.candeletedocuments = False
  433.                     Case READPUBLIC
  434.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  435.                         If Not Me.aclentry Is Nothing Then
  436.                             Me.aclentry.ispublicreader = True
  437.                         Else
  438.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
  439.                             Call AddedUser()
  440.                             Me.aclentry.ispublicreader = True
  441.                         End If
  442.                     Case WRITEPUBLIC
  443.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  444.                         If Not Me.aclentry Is Nothing Then
  445.                             Me.aclentry.ispublicreader = True
  446.                             Me.aclentry.ispublicwriter = True
  447.                         Else
  448.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_NOACCESS)
  449.                             Call AddedUser()
  450.                             Me.aclentry.ispublicreader = True
  451.                             Me.aclentry.ispublicwriter = True
  452.                         End If
  453.                         
  454.                     Case CANDELETE
  455.                         Set Me.aclentry = Me.acl.getentry(ACLName)
  456.                         If Not Me.aclentry Is Nothing Then
  457.                             If Me.aclentry.level < Acllevel_author Then
  458.                                 Me.aclentry.level = Acllevel_author
  459.                             End If
  460.                             Me.aclentry.candeletedocuments = True
  461.                         Else
  462.                             Set Me.aclentry = Me.acl.createACLEntry(ACLName,ACLLEVEL_AUTHOR)
  463.                             Call AddedUser()
  464.                             Me.aclentry.candeletedocuments = True
  465.                         End If
  466.                     End Select
  467.                 End If
  468.             End If                
  469.         End Forall
  470.     End Function
  471.     Sub RaiseUIError(nStringID As Integer)
  472.         'this function is virtual so the WEB and Client can handle them thier own way    OR NOT AT ALL
  473.     End Sub
  474.     Function ValidateOwner() As Integer
  475.         ValidateOwner = False        
  476.         If Not Me.CanChangeOwner Then
  477.             If Not NameCompare(Me.OriginalOwner, Me.note.GetitemValue("Owner")(0)) Then
  478.                     'only a manager or the current owner of a mail file can alter the value
  479.                 Call note.ReplaceItemValue("Owner",Me.OriginalOwner)
  480.                 Call RaiseUIError(NO_UPDATE_OWNER)
  481.                 Exit Function
  482.             End If
  483.         End If
  484.         Set Me.name = New notesname(Me.note.GetitemValue("Owner")(0))
  485.         If Not Me.name.Ishierarchical Then
  486.             Set Me.name = New notesname(Me.session.UserName)
  487.             If Me.name.Ishierarchical Then
  488.                 Call RaiseUIError(OWNER_IS_FLAT)
  489.             End If
  490.         End If
  491.         ValidateOwner = True
  492.     End Function
  493.     Private Function GetAclEntries()    
  494. 'initialize dynamic array
  495.         Redim Me.ReadCal(0)
  496.         Redim Me.WriteCal(0)
  497.         Redim Me.ReadMail(0)
  498.         Redim Me.WriteMail(0)
  499.         Redim Me.EditMail(0) 
  500.         Redim Me.DeleteMail(0) 
  501.         Redim Me.OtherUsers(0)
  502.         Redim Me.AddedUsers(0)
  503.         Redim Me.DeletedUsers(0)
  504.         Set Me.aclentry = Me.acl.GetFirstEntry
  505.         Do Until Me.aclentry Is Nothing
  506.             Select Case Me.aclentry.Level
  507.             Case ACLLEVEL_NOACCESS
  508.                 If Me.aclentry.Name = "-Default-" Then
  509.                     If Me.aclentry.IsPublicReader Then
  510.                         Me.note.PublicRead = "1"
  511.                     Else
  512.                         Me.note.PublicRead = "0"
  513.                     End If
  514.                     If Me.aclentry.IsPublicWriter Then
  515.                         Me.note.PublicWrite = "1"
  516.                     Else
  517.                         Me.note.PublicWrite = "0"
  518.                     End If
  519.                 Else
  520.                     If Me.aclentry.IsPublicReader Or Me.aclentry.IsPublicWriter Then
  521.                         Call IsPublicReader()
  522.                         Call IsPublicWriter()
  523.                     Else
  524.                         'These are other NoAccess people and we don't want to change them
  525.                         x = Ubound(Me.OtherUsers)
  526.                         Me.OtherUsers(x) = Me.aclentry.Name
  527.                         Redim Preserve Me.OtherUsers(x+1)
  528.                     End If
  529.                 End If
  530.             Case ACLLEVEL_READER
  531.                 x = Ubound(Me.ReadMail)
  532.                 Me.ReadMail(x) = Me.aclentry.Name
  533.                 Redim Preserve Me.ReadMail(x+1)
  534.                 Call IsPublicReader()
  535.                 Call IsPublicWriter()
  536.             Case ACLLEVEL_AUTHOR
  537.                 If Me.aclentry.CanCreateDocuments Then
  538.                     x = Ubound(Me.WriteMail)
  539.                     Me.WriteMail(x) = Me.aclentry.Name
  540.                     Redim Preserve Me.WriteMail(x+1)
  541.                 Else
  542.                     x = Ubound(Me.ReadMail)
  543.                     Me.ReadMail(x) = Me.aclentry.Name
  544.                     Redim Preserve Me.ReadMail(x+1)
  545.                 End If
  546.                 If Me.aclentry.CanDeleteDocuments Then
  547.                     x = Ubound(Me.DeleteMail)
  548.                     Me.DeleteMail(x) = Me.aclentry.Name
  549.                     Redim Preserve Me.DeleteMail(x+1)
  550.                 End If
  551.                 Call IsPublicReader()
  552.                 Call IsPublicWriter()
  553.             Case ACLLEVEL_EDITOR
  554.                 x = Ubound(Me.EditMail)
  555.                 Me.EditMail(x) = Me.aclentry.Name
  556.                 Redim Preserve Me.EditMail(x+1)
  557.                 If Me.aclentry.CanDeleteDocuments Then
  558.                     x = Ubound(Me.DeleteMail)
  559.                     Me.DeleteMail(x) = Me.aclentry.Name
  560.                     Redim Preserve Me.DeleteMail(x+1)
  561.                 End If
  562.                 Call IsPublicReader()
  563.                 Call IsPublicWriter()
  564.             Case Else
  565.                 'These are Manager,Designers or NO_ACCs and we don't want to change them
  566.                 x = Ubound(Me.OtherUsers)
  567.                 Me.OtherUsers(x) = aclentry.Name
  568.                 Redim Preserve Me.OtherUsers(x+1)
  569.                 If Me.aclentry.IsAdminServer Then
  570.                     Me.AdminServer = Me.OtherUsers(x)
  571.                 End If
  572.             End Select
  573.             Set Me.aclentry = Me.acl.GetNextEntry(Me.aclentry)
  574.         Loop
  575.         Me.note.ReadCalendar = Fulltrim(Me.ReadCal)
  576.         Me.note.WriteCalendar = Fulltrim(Me.WriteCal)
  577.         Me.note.ReadMail = Fulltrim(Me.ReadMail)
  578.         Me.note.WriteMail = Fulltrim(Me.WriteMail)
  579.         Me.note.EditMail = Fulltrim(Me.EditMail)
  580.         Me.note.DeleteMail = Fulltrim(Me.DeleteMail)
  581.         Me.note.OtherUsers = Fulltrim(Me.OtherUsers)
  582.     End Function
  583.     Private Function ValidateAdminServer()
  584.         If Not Len(Me.AdminServer) Then
  585.             Me.AdminServer = note.parentdatabase.Server            
  586.         End If
  587.     End Function
  588. End Class
  589. Lotus Product
  590. d!d!\
  591. -p #87
  592. -, #81
  593. -, #81
  594. #-d!#
  595.     0S0E
  596. O=Lotus Notes
  597. O=Lotus Notes
  598. PURSAFO
  599. |.:#U
  600. O=Lotus Notes
  601. CN=Lotus Notes Template Development/O=Lotus Notes
  602. PURSAFO
  603. $TITLE
  604. $PublicAccess
  605. $Language
  606. $LastBuildTime
  607. $BabelInfo
  608. $ScriptLib
  609. $ScriptLib_O
  610. '++LotusScript Development Environment:2:5:(Options):0:74
  611. Option Public
  612. Option Explicit
  613. Use "CommonUI"
  614. '++LotusScript Development Environment:2:5:(Forward):0:1
  615. Declare Sub Initialize
  616. Declare Sub CreateNewDoc(nType As Integer)
  617. '++LotusScript Development Environment:2:5:(Declarations):0:10
  618. 'DocumentConversions: 
  619. 'DocumentConversions: 
  620. 'This script library wraps person folders and views created prior to 5.0_
  621. ' into 5.0 functions and classes
  622. Const NEW_MEMO             =     &h00000001&
  623. Const NEW_CALENDAR     =     &h00000002&
  624. Const NEW_TASK             =     &h00000004&
  625. '++LotusScript Development Environment:2:2:Initialize:1:10
  626. Sub Initialize
  627. End Sub
  628. '++LotusScript Development Environment:2:2:CreateNewDoc:1:8
  629. Sub CreateNewDoc(nType As Integer)
  630.     Select Case nType
  631.     Case NEW_MEMO
  632.         Call UICopyIntoNewDocument(CREATE_MEMO, True)
  633.     Case NEW_CALENDAR
  634.         Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  635.     Case NEW_TASK         
  636.         Call UICopyIntoNewDocument(CREATE_TASK, True)
  637.     Case Else
  638.         Messagebox("Undefinierter Dokumenttyp!")
  639.     End Select
  640. End Sub
  641. Lotus Product
  642. O=Lotus Notes
  643. O=Lotus Notes
  644. PURSAFO
  645. |.:#U
  646. O=Lotus Notes
  647. CN=Lotus Notes Template Development/O=Lotus Notes
  648. PURSAFO
  649. $TITLE
  650. $PublicAccess
  651. $Language
  652. $LastBuildTime
  653. $BabelInfo
  654. $ScriptLib
  655. $ScriptLib_O
  656. '++LotusScript Development Environment:2:5:(Options):0:74
  657. Option Public
  658. Option Explicit
  659. Use "Common"
  660. '++LotusScript Development Environment:2:5:(Forward):0:1
  661. Declare Sub Initialize
  662. Declare Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  663. Declare Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
  664. '++LotusScript Development Environment:2:5:(Declarations):0:2
  665. '++LotusScript Development Environment:2:2:Initialize:1:10
  666. Sub Initialize
  667. End Sub
  668. '++LotusScript Development Environment:2:2:DisplayGroupCalendarDlg:1:8
  669. Sub DisplayGroupCalendarDlg(note As NotesDocument, bPutInFolder As Integer)
  670.     Dim ws As New notesuiworkspace
  671.     Dim strAction As String
  672.     Call ws.dialogbox("(GroupCalendarDlg)", True, True, True,,,,"Neuer Gruppenkalender", note, True, True)
  673.     strAction = note.GetItemValue("Action")(0)
  674.     If (strAction = "" Or strAction = "Cancel") Then Exit Sub
  675.     note.replaceItemValue "ExcludeFromView", "D"
  676.     Call note.save(True, False)
  677.     If (bPutInFolder) Then Call note.PutInFolder("(GroupCalendarFolder)")
  678.     Call ws.viewrefresh
  679.     If (strAction = "ViewNow") Then Call ws.editdocument(True, note)
  680. End Sub
  681. '++LotusScript Development Environment:2:1:UICopyIntoNewDocument:1:8
  682. Function UICopyIntoNewDocument(Byval nType As Integer, Byval bLaunch As Integer) As NotesDocument
  683.     Dim session As New notessession
  684.     Dim ws As New notesuiworkspace
  685.     Dim note As notesdocument
  686.     Dim newnote As notesdocument
  687.     Dim uidoc As notesuidocument
  688.     Set note = session.currentdatabase.unprocesseddocuments.getfirstdocument()
  689.     If note Is Nothing Then
  690.         Set uidoc = ws.currentdocument
  691.         If Not(uidoc Is Nothing) Then Set note = uidoc.document
  692.     End If
  693.     If note Is Nothing Then 
  694.         Msgbox "Das Dokument, von dem kopiert werden sollte, konnte nicht gefunden werden."
  695.         Exit Function
  696.     End If
  697.     Set newnote = NOTECopyIntoNewDocument(nType, False, note, "")
  698.     If (bLaunch) Then Call ws.editdocument(True, newnote)
  699.     Set UICopyIntoNewDocument = newnote
  700. End Function
  701. Lotus Product
  702. #,`    #
  703. O=Lotus Notes
  704. O=Lotus Notes
  705. PURSAFO
  706. |.:#U
  707. O=Lotus Notes
  708. CN=Lotus Notes Template Development/O=Lotus Notes
  709. PURSAFO
  710. $TITLE
  711. $PublicAccess
  712. $Language
  713. $LastBuildTime
  714. $BabelInfo
  715. $ScriptLib
  716. $ScriptLib_O
  717. '++LotusScript Development Environment:2:5:(Options):0:74
  718. Option Public
  719. Option Explicit
  720. '++LotusScript Development Environment:2:5:(Forward):0:1
  721. Declare Class BaseApplication
  722. Declare Class BaseCSStringTable
  723. Declare Class BaseEventOwnerStringTable As BaseCSStringTable
  724. Declare Class MeetingOwnerStringTable As BaseEventOwnerStringTable
  725. Declare Class TaskOwnerStringTable As BaseEventOwnerStringTable
  726. Declare Class BaseEventParticipantStringTable As BaseCSStringTable
  727. Declare Class MeetingParticipantStringTable As BaseEventParticipantStringTable
  728. Declare Class TaskParticipantStringTable As BaseEventParticipantStringTable
  729. Declare Class MessageTrackStringTable
  730. Declare Class MailToolsStringTable
  731. Declare Class MemoStringTable
  732. Declare Class CopyFactory
  733. Declare Class BaseNoteCopy
  734. Declare Class MemoCopy As BaseNoteCopy
  735. Declare Class CalendarCopy As BaseNoteCopy
  736. Declare Class TaskCopy As BaseNoteCopy
  737. Declare Class GroupCalendarCopy As BaseNoteCopy
  738. Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
  739. Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer
  740. Declare Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
  741. Declare Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
  742. Declare Function NAMEGetNumOrgUnits(sName) As Integer
  743. Declare Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) 
  744. Declare Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
  745. Declare Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
  746. Declare Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
  747. Declare Function CSGetMailFileOwner() As String
  748. Declare Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
  749. Declare Function NOTEUserIsCreator(note As NotesDocument) As Integer
  750. Declare Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
  751. Declare Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
  752. Declare Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
  753. Declare Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
  754. Declare Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
  755. Declare Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
  756. Declare Function CSEventDTItemsModified(vBEObject As Variant) As Integer
  757. Declare Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
  758. Declare Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
  759. Declare Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
  760. Declare Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
  761. Declare Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
  762. Declare Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
  763. Declare Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
  764. Declare Sub wInstantiateObjectVariables
  765. Declare Sub wMessagePageHeader
  766. Declare Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  767. Declare Function wGetDBPath  As Variant
  768. Declare Sub SetInternationalFormatHelpers( note As NotesDocument)
  769. Declare Sub wMarkTempFields(doc As NotesDocument)
  770. Declare Sub wCreateDefaultCalendarProfile
  771. Declare Function wGetCalendarProfile As Integer
  772. Declare Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
  773. Declare Function CSGetMainEventObject(vBEObject As Variant) As Variant
  774. Declare Sub Initialize
  775. Declare Function CSNoteGetType(note As notesdocument) As Integer
  776. Declare Function CSProfileGetAutoAnnivRepeat() As Integer
  777. Declare Function CSEventPerformAction(vBEObject As Variant, Byval strAction As String, Byval bSendNow As Integer, vArgs As Variant) As Integer
  778. Declare Function CSEventPerformActionGuts(vBEObject As Variant, strAction As String, bSendNow As Integer, vArgs As Variant) As Integer
  779. '++LotusScript Development Environment:2:5:(Declarations):0:10
  780. %INCLUDE "lsconst.lss"
  781. %INCLUDE "orgconst.lss"
  782. Const USER_MAILDOCUMENT_SELECTED = CS_SHARED_STRING + 26
  783. 'Back end classes
  784. Dim session As NotesSession
  785. Dim db As NotesDatabase
  786. Dim note As NotesDocument
  787. Dim profile As NotesDocument
  788. Dim item As NotesItem
  789. Dim NameLookup As NotesName
  790. Dim agentlog As noteslog 
  791. Dim PathAndName As String
  792. 'General Purpose classes
  793. Dim Owner As String
  794. Dim NewDocument As Integer
  795. 'Client Differenciation
  796. Dim IsWebClient As Variant
  797. Class BaseApplication
  798.  ' Properties
  799.     m_session As NotesSession  ' pointer to current session object
  800.     m_db As NotesDatabase    ' pointer to current database
  801.     m_stringtable As Variant    ' Reference to a StringTable object        
  802.     Property Get Session As NotesSession
  803.         Set Session = m_session
  804.     End Property
  805.     Property Get Database As NotesDatabase
  806.         Set Database = m_db
  807.     End Property
  808.     Property Get StringTable As Variant
  809.         Set StringTable = m_stringtable
  810.     End Property
  811.     Property Get DocumentsToProcess As NotesDocumentCollection
  812.         Set DocumentsToProcess = m_db.UnprocessedDocuments
  813.     End Property
  814.     Property Get LocalAddressBook As NotesDatabase
  815.         Dim sAddressLine As String
  816.         Dim nPos As Integer
  817.         sAddressLine = m_session.getenvironmentstring("names",True)
  818.         If Len(sAddressLine) Then
  819.             nPos = Instr(sAddressLine,",")
  820.             If (nPos = 0) Then
  821.                 Set LocalAddressBook = m_session.GetDatabase("",sAddressLine)
  822.             Else
  823.                 Set LocalAddressBook = m_session.GetDatabase("",Left$(sAddressLine,nPos-1))
  824.             End If
  825.         Else
  826.             Set LocalAddressBook = m_session.GetDatabase("","names.nsf")
  827.         End If
  828.     End Property
  829.  ' Methods
  830.     Sub New
  831.         Set m_session = New NotesSession
  832.         Set m_db = m_session.CurrentDatabase
  833.     End Sub    
  834.     Function CreateDocument As NotesDocument
  835.         Set CreateDocument = New NotesDocument(m_db)
  836.     End Function
  837. End Class
  838. Class BaseCSStringTable
  839.     Function GetString(nIndex As Integer, vData As Variant) As String
  840.         Select Case nIndex
  841.         Case INC_COMMENTS                                            ' Include comments on reply notice
  842.             GetString = "M
  843. chten Sie die Antwort mit Kommentaren versehen?"
  844.         Case ALARM_TITLE
  845.             GetString = "Alarmoptionen"
  846.         Case DBLBOOK_TITLE
  847.             GetString = "Doppelt buchen"
  848.         Case ERR_FREETIME
  849.             GetString = "Bei der Suche nach freien Zeiten ist ein Fehler aufgetreten."
  850.         Case RPTCHANGE_TITLE
  851.             GetString = "Wiederkehrenden Eintrag 
  852. ndern"        
  853.         Case ENTRY_CONF
  854.             GetString = "Zwischen diesem und einem weiteren Eintrag besteht ein Konflikt. Trotzdem erstellen?"            
  855.         Case USER_INVALID_DOCUMENT
  856.             GetString = "Sie m
  857. ssen einen Wiederholungseintrag w
  858. hlen, um diese Aktionen durchzuf
  859. hren."
  860.         Case ERR_CREATE_REPEAT
  861.             GetString = "Die maximale Anzahl von Wiederholungseintr
  862. gen wurde erreicht. Bitte reduzieren Sie die Anzahl der zu erstellenden Eintr
  863.         Case ERR_TITLE
  864.             GetString = "Fehler"
  865.         Case REPEAT_CONFLICT_PROMPT
  866.             GetString = "Terminkonflikte bestehen zwischen den nachfolgenden Terminen und bestehenden Eintr
  867. gen, bzw. die folgenden Termine entsprechen nicht Ihren Profilzeiten:"
  868.         Case REPEAT_CONFLICT_TITLE
  869.             GetString = "Wiederholungskonflikt:"
  870.         Case REPEAT_OPEN_PROMPT
  871.             GetString = "W
  872. hlen Sie den Wiederholungseintrag, den Sie 
  873. ffnen m
  874. chten:"
  875.         Case REPEAT_OPEN_TITLE
  876.             GetString = "Wiederholungseintrag 
  877. ffnen"    
  878.         Case ENABLE_OUT_PROMPT
  879.             GetString = "M
  880. chten Sie, da
  881.  Ihr Abwesenheits-Agent w
  882. hrend Ihrer Abwesenheit Ihre Nachrichten verwaltet?"
  883.         Case ENABLE_OUT_TITLE
  884.             GetString = "Abwesenheits-Agenten aktivieren"
  885.         Case RESOURCE_BOOKED_PROMPT
  886.             GetString = "Zu der angeforderten Uhrzeit steht die angegebene Ressource nicht zur Verf
  887. gung. Bitte w
  888. hlen Sie eine andere Uhrzeit."
  889.         Case RESOURCE_BOOKED_TITLE
  890.             GetString = "Ressource steht nicht zur Verf
  891. gung"
  892.         Case RESOURCE_FREETIME_ERR_PROMPT
  893.             GetString = "Beim 
  894. berpr
  895. fen der Verf
  896. gbarkeit dieser Ressource ist ein Fehler aufgetreten. Bitte versuchen Sie es sp
  897. ter erneut."
  898.         Case WEB_GOBACK
  899.             GetString = "Zur
  900.         Case REPEAT_PASTE_PROMPT
  901.             GetString = "Bei dem kopierten Eintrag handelt es sich um einen wiederkehrenden Eintrag.  Der neu eingef
  902. gte Eintrag wird in Form eines einmaligen, nicht wiederkehrenden Eintrags erstellt."
  903.         Case REPEAT_PASTE_TITLE
  904.             GetString = "Wiederkehrenden Eintrag einf
  905. gen"        
  906.         Case USER_MAILDOCUMENT_SELECTED
  907.             GetString = "Diese Aktion ist im Zusammenhang mit Mail-Nachrichten nicht zul
  908. ssig."            
  909.         Case Else
  910.             GetString = ""
  911.         End Select
  912.     End Function
  913. End Class
  914. Class BaseEventOwnerStringTable As BaseCSStringTable
  915.     Function GetString(nIndex As Integer, vData As Variant) As String
  916.         Select Case nIndex
  917.         Case CANC_TITLE
  918.             GetString = "Optionen - Absagen"
  919.         Case RESC_TITLE
  920.             GetString = "Optionen - Neu planen"
  921.         Case STS_TITLE
  922.             GetString = "Teilnehmerstatus"
  923.         Case MODTYPE_TITLE
  924.             GetString = "Eintragstyp 
  925. ndern "
  926.         Case PAST_TITLE
  927.             GetString = "In Vergangenheit erstellen"
  928.         Case CONF_TITLE
  929.             GetString = "Veranstaltung best
  930. tigen"
  931.         Case REM_PART
  932.             GetString = "W
  933. hlen Sie die Teilnehmer, die Sie von dieser Veranstaltung entfernen m
  934. chten."
  935.         Case REM_PART_TITLE
  936.             GetString = "Teilnehmer entfernen"
  937.         Case REPEAT_TITLE
  938.             GetString = "Wiederholungsoptionen"
  939.         Case NO_SEND_LIST
  940.             GetString = "Es gibt keine Teilnehmer, an die diese Benachrichtigung gesendet werden kann."
  941.         Case USER_ACTION_INVALID
  942.             GetString = "Sie sind der Besitzer dieses Eintrags. Sie k
  943. nnen diese Aktion nicht ausf
  944. hren."
  945.         Case CTRACPT_TITLE
  946.             GetString = "Gegenvorschlag annehmen"
  947.         Case CTRDECL_TITLE
  948.             GetString = "Gegenvorschlag ablehnen"
  949.         Case WEB_TABLE_NAME
  950.             GetString = "Name"
  951.         Case WEB_TABLE_STATUS
  952.             GetString = "Status"
  953.         Case WEB_TABLE_ROLE
  954.             GetString = "Rolle"            
  955.         Case Else
  956.             GetString = BaseCSStringTable..GetString(nIndex, vData)
  957.         End Select
  958.     End Function
  959. End Class
  960. Class MeetingOwnerStringTable As BaseEventOwnerStringTable
  961.     Function GetString(nIndex As Integer, vData As Variant) As String
  962.         Select Case nIndex
  963.         Case ENTRY_TYPE
  964.             GetString = "Wenn Sie den Eintragstyp 
  965. ndern, wird die Besprechung abgesagt. Trotzdem 
  966. ndern?"            
  967.         Case ENTRY_DTMOD
  968.             GetString = "Sind Sie sicher, da
  969.  Sie das Datum bzw. die Uhrzeit dieses Eintrags 
  970. ndern m
  971. chten?"
  972.         Case ENTRY_PAST
  973.             GetString = "Bei diesem Eintrag handelt es sich um einen Termin in der Vergangenheit. Trotzdem erstellen?"
  974.         Case DTMOD_TITLE
  975.             GetString = "Datum/Uhrzeit 
  976. ndern"
  977.         Case RESC_UPD_MSG
  978.             GetString = "Eine Aktualisierungs-Benachrichtigung wird an die Teilnehmer und an alle evtl. angeforderten R
  979. ume/Ressourcen gesendet, um sie 
  980. ber diese 
  981. nderung zu informieren. "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null) 
  982.         Case SEND_INV_MSG
  983.             GetString = "M
  984. chten Sie Besprechungseinladungen an die entsprechenden Benutzer senden?"
  985.         Case SEND_INVRES_MSG
  986.             GetString = "M
  987. chten Sie Besprechungseinladungen und Reservierungsanforderungen senden?"
  988.         Case SEND_INV_TITLE
  989.             GetString = "Einladungen senden"        
  990.         Case VIEWSTATUS_NOMEMBERS_PROMPT
  991.             GetString = "Es gibt z. Zt. keine eingeladenen Personen, deren Status angezeigt werden kann."
  992.         Case Else
  993.             GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
  994.         End Select
  995.     End Function
  996. End Class
  997. Class TaskOwnerStringTable As BaseEventOwnerStringTable
  998.     Function GetString(nIndex As Integer, vData As Variant) As String
  999.         Select Case nIndex
  1000.         Case ENTRY_TYPE
  1001.             GetString = "Wenn Sie den Eintragstyp 
  1002. ndern, wird die Aufgabe abgesagt. Trotzdem 
  1003. ndern?"            
  1004.         Case ENTRY_DTMOD
  1005.             GetString = "Sind Sie sicher, da
  1006.  Sie das F
  1007. lligkeitsdatum f
  1008. r diese Aufgabe 
  1009. ndern m
  1010. chten?"
  1011.         Case ENTRY_PAST
  1012.             GetString = "Bei dieser Aufgabe handelt es sich um einen Termin in der Vergangenheit. Trotzdem erstellen?"
  1013.         Case SEND_INV_MSG
  1014.             GetString = "Zuweisungen an die entsprechenden Benutzer senden?"
  1015.         Case SEND_INV_TITLE
  1016.             GetString = "Zuweisungen senden"        
  1017.         Case RESC_UPD_MSG
  1018.             GetString = "Eine Aktualisierungs-Benachrichtigung wird an alle an dieser Aufgabe beteiligten Personen gesendet, um sie 
  1019. ber diese 
  1020. nderung zu informieren.  "& BaseEventOwnerStringTable..GetString(INC_COMMENTS, Null)
  1021.         Case VIEWSTATUS_NOMEMBERS_PROMPT
  1022.             GetString = "Es gibt z. Zt. keine Teilnehmer, deren Status angezeigt werden kann."
  1023.         Case Else
  1024.             GetString = BaseEventOwnerStringTable..GetString(nIndex, vData)
  1025.         End Select
  1026.     End Function
  1027. End Class
  1028. Class BaseEventParticipantStringTable As BaseCSStringTable
  1029.     Function GetString(nIndex As Integer, vData As Variant) As String
  1030.         Select Case nIndex
  1031.         Case PAST_TITLE
  1032.             GetString = "Vergangen"
  1033.         Case ACPT_TITLE
  1034.             GetString = "Optionen - Annehmen"
  1035.         Case DECL_TITLE
  1036.             GetString = "Optionen - Ablehnen"
  1037.         Case UPD_TITLE
  1038.             GetString = "Besprechungs
  1039. nderung"
  1040.         Case DELE_TITLE
  1041.             GetString = "Optionen - Delegieren"            
  1042.         Case CNTR_TITLE
  1043.             GetString = "Optionen - Vorschlagen"
  1044.         Case USER_ACTION_INVALID
  1045.             GetString = "Sie sind ein Teilnehmer dieses Eintrags. Sie k
  1046. nnen die Aktion nicht ausf
  1047. hren."
  1048.         Case STATUS_TITLE
  1049.             GetString = "Statusaktualisierung"
  1050.         Case ERR_SEND_DELE
  1051.             GetString = "Beim Senden der Delegierungsbenachrichtigung an die delegierte Person ist ein Fehler aufgetreten. Stellen Sie sicher, da
  1052.  Sie den Namen richtig geschrieben haben. "
  1053.         Case USER_MUST_ACCEPT
  1054.             GetString = "Sie m
  1055. ssen eine Einladung annehmen, bevor Sie diese Aktion durchf
  1056. hren."        
  1057.         Case Else
  1058.             GetString = BaseCSStringTable..GetString(nIndex, vData)
  1059.         End Select
  1060.     End Function
  1061. End Class
  1062. Class MeetingParticipantStringTable As BaseEventParticipantStringTable
  1063.     Function GetString(nIndex As Integer, vData As Variant) As String
  1064.         Select Case nIndex
  1065.         Case RESC_MSG                                        ' Reschedule notice
  1066.             GetString = "Diese Besprechung wurde auf einen neuen Termin verlegt. M
  1067. chten Sie die entsprechende Benachrichtigung 
  1068. ffnen?"
  1069.         Case CANCEL_MSG
  1070.             GetString = "Diese Besprechung wurde abgesagt."    ' Message that appears for all cancellation notices
  1071.         Case CANCEL_UPD
  1072.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " Der Kalendereintrag wird entsprechend aktualisiert."     ' User accepted main invitation that is now cancelled
  1073.         Case CANCEL_NOACTN
  1074.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " Sie m
  1075. ssen nichts unternehmen."                                ' The main invitation has not been accepted    
  1076.         Case ADD_TITLE
  1077.             GetString = "In Kalender eintragen"
  1078.         Case STATUS_REMOVED
  1079.             GetString = "Ihre Teilnahme an dieser Besprechung ist nicht mehr erforderlich. Ihr Kalender wird entsprechend aktualisiert."
  1080.         Case STATUS_REQUIRED
  1081.             GetString = "Ihre Teilnahme an dieser Besprechung ist erforderlich. Ihr Kalender wird entsprechend aktualisiert."
  1082.         Case ERR_BROADCAST
  1083.             GetString = "Eine Antwort an den Leiter dieser Besprechung ist nicht erforderlich. W
  1084. hlen Sie 'Teilnehmeraktionen / Annehmen', um den Termin in Ihren Kalender aufzunehmen."
  1085.         Case ERR_NO_DELEGATE
  1086.             GetString = "Der Leiter dieser Besprechung hat das Delegieren nicht zugelassen. Bitte w
  1087. hlen Sie eine andere Aktion."
  1088.         Case ERR_NO_PROPOSE
  1089.             GetString = "Der Leiter dieser Besprechung hat Vorschl
  1090. ge nicht zugelassen. Bitte w
  1091. hlen Sie eine andere Aktion."
  1092.         Case Else
  1093.             GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
  1094.         End Select
  1095.     End Function
  1096. End Class
  1097. Class TaskParticipantStringTable As BaseEventParticipantStringTable
  1098.     Function GetString(nIndex As Integer, vData As Variant) As String
  1099.         Select Case nIndex
  1100.         Case RESC_MSG                                        ' Reschedule notice
  1101.             GetString = "Das F
  1102. lligkeitsdatum f
  1103. r diese Aufgabe wurde ge
  1104. ndert. M
  1105. chten Sie die Aktualisierungs-Benachrichtigung 
  1106. ffnen?"
  1107.         Case CANCEL_MSG
  1108.             GetString = "Diese Aufgabe wurde abgesagt."    ' Message that appears for all cancellation notices
  1109.         Case CANCEL_UPD
  1110.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " Der Eintrag f
  1111. r die Aufgabe wird gem
  1112.  dieser 
  1113. nderung aktualisiert."     ' User accepted main invitation that is now cancelled
  1114.         Case CANCEL_NOACTN
  1115.             GetString = Me.GetString(CANCEL_MSG, Nothing) & " Sie m
  1116. ssen nichts unternehmen."                                ' The main invitation has not been accepted    
  1117.         Case STATUS_REMOVED
  1118.             GetString = "Diese Aufgabe ist Ihnen nicht mehr zugewiesen. Ihre Aufgabenliste wird entspechend aktualisiert."
  1119.         Case STATUS_REQUIRED
  1120.             GetString = "Es ist erforderlich, da
  1121.  Sie diese Aufgabe erledigen. Ihre Aufgabenliste wird entsprechend aktualisiert."
  1122.         Case ERR_BROADCAST
  1123.             GetString = "Eine Antwort an den Besitzer dieser Aufgabe ist nicht erforderlich. W
  1124. hlen Sie 'Teilnehmeraktionen / Annehmen', um die Aufgabe in Ihre Aufgabenliste aufzunehmen."
  1125.         Case ERR_NO_DELEGATE
  1126.             GetString = "Der Besitzer dieser Aufgabe hat das Delegieren nicht zugelassen. Bitte w
  1127. hlen Sie eine andere Aktion."
  1128.         Case ERR_NO_PROPOSE
  1129.             GetString = "Der Besitzer dieser Aufgabe hat Vorschl
  1130. ge nicht zugelassen. Bitte w
  1131. hlen Sie eine andere Aktion."
  1132.         Case Else
  1133.             GetString = BaseEventParticipantStringTable..GetString(nIndex, vData)
  1134.         End Select
  1135.     End Function
  1136. End Class
  1137. Const TOOL_STRING = 400
  1138. Const MEMO_STRING = 500
  1139. Const TRACKING_STRING = 700
  1140. Class MessageTrackStringTable
  1141.     Function GetString(nIndex As Integer, vData As Variant) As String
  1142.         Select Case nIndex
  1143.         Case TRACKING_STRING+1
  1144.             GetString = "Unbekannt "
  1145.         Case TRACKING_STRING+2
  1146.             GetString = "In Warteschlange "
  1147.         Case TRACKING_STRING+4
  1148.             GetString = "Zugestellt "
  1149.         Case TRACKING_STRING+8
  1150.             GetString = "Zustellung fehlgeschlagen "
  1151.         Case TRACKING_STRING+16
  1152.             GetString = "
  1153. bertragen "
  1154.         Case TRACKING_STRING+32 
  1155.             GetString = "
  1156. bertragung fehlgeschlagen "
  1157.         Case  TRACKING_STRING+64
  1158.             GetString = "Gruppe erweitert "
  1159.         Case  TRACKING_STRING+65
  1160.             GetString = "Mail-Verfolgung"    
  1161.         Case  TRACKING_STRING+66
  1162.             GetString = "Bitte w
  1163. hlen Sie den/die Empf
  1164. nger der Mails, die verfolgt werden sollen."
  1165.         Case  TRACKING_STRING+67
  1166.             GetString = "Sie d
  1167. rfen nur die Mail-Nachrichten verfolgen, die Sie gesendet haben."
  1168.         Case  TRACKING_STRING+68
  1169.             GetString = "Es wurden keine Empf
  1170. nger ausgew
  1171.         Case TRACKING_STRING+69
  1172.             GetString = "Es wurden keine g
  1173. ltigen Teilnehmer zum Verfolgen gefunden."            
  1174.         End Select
  1175.     End Function        
  1176. End Class
  1177. Class MailToolsStringTable
  1178.     Function GetString (nIndex As Integer, vData As Variant) As String
  1179.         Select Case nIndex
  1180.         Case TOOL_STRING
  1181.             GetString = "Ihr Adre
  1182. buch wurde nicht gefunden. Die Namen wurden nicht hinzugef
  1183.         Case TOOL_STRING+1
  1184.             GetString = Str(vData) + " Name(n) verarbeitet."
  1185.         Case TOOL_STRING+2
  1186.             GetString = Str(vData) + " Name(n) wurde(n) in Ihr pers
  1187. nliches Adre
  1188. buch aufgenommen."
  1189.         Case TOOL_STRING+3
  1190.             GetString = Str(vData) + " Name(n) wurde(n) nicht aufgenommen; bereits in Ihrem pers
  1191. nlichen Adre
  1192. buch."
  1193.         Case TOOL_STRING+4
  1194.             GetString = "Beim Aufnehmen von Namen in das pers
  1195. nliche Adre
  1196. buch ist ein Fehler aufgetreten. " + Str(vData)
  1197.         Case TOOL_STRING+10
  1198.             GetString = "Ein Kalendereintrag f
  1199. r Ihre freie Zeit konnte nicht erstellt werden."
  1200.         Case TOOL_STRING+11
  1201.             GetString = "Ein Abwesenheitsdokument wurde Ihrem Kalender hinzugef
  1202.         Case TOOL_STRING+12
  1203.             GetString = "M
  1204. chten Sie einen Abwesenheits-Kalendereintrag erstellen?"
  1205.         Case TOOL_STRING+13
  1206.             GetString =  "Willkommen zur
  1207. ck!  Bitte deaktivieren Sie Ihren Abwesenheits-Agenten. So deaktivieren Sie den Agenten: " & _
  1208. ffnen Sie Ihr Abwesenheitsprofil, und klicken Sie auf 'Deaktivieren'."  & Chr(13)_
  1209.             & "W
  1210. hrend Ihrer Abwesenheit hat der Abwesenheits-Agent folgende Personen informiert." & Chr(13)
  1211.         Case TOOL_STRING+14
  1212.             GetString = "Willkommen zur
  1213. ck!  Bitte deaktivieren Sie Ihren Abwesenheits-Agenten. So deaktivieren Sie den Agenten: " & _
  1214. ffnen Sie Ihr Abwesenheitsprofil, und klicken Sie auf 'Deaktivieren'."  & Chr(13)  &_
  1215.             "W
  1216. hrend Ihrer Abwesenheit hat Ihr Abwesenheits-Agent niemanden informiert:"
  1217.         Case TOOL_STRING+15
  1218.             GetString = "Willkommen zur
  1219.         Case TOOL_STRING+16
  1220.             GetString = "Nochmals zur Erinnerung! Bitte deaktivieren Sie Ihren Abwesenheits-Agenten. Um den Agenten zu deaktivieren, " & _
  1221. ffnen Sie Ihr Abwesenheitsprofil, und klicken Sie auf 'Aktivieren/Deaktivieren'."
  1222.         Case TOOL_STRING+17
  1223.             GetString = "Abwesenheitsprofil - FEHLER"
  1224.         Case TOOL_STRING+18
  1225.             GetString = "FEHLER: Sie m
  1226. ssen ein Abwesenheitsprofil erstellen, BEVOR Sie Ihren Abwesenheits-Agenten ausf
  1227. hren."
  1228.         Case TOOL_STRING+19
  1229.             GetString = "FEHLER: Sie m
  1230. ssen Ihr Abwesenheitsprofil aktivieren, BEVOR Sie Ihren Abwesenheits-Agenten ausf
  1231. hren."
  1232.         Case TOOL_STRING+31
  1233.             GetString = " kann bereits Mail lesen."
  1234.         Case TOOL_STRING+32
  1235.             GetString = " kann bereits Mail senden."
  1236.         Case TOOL_STRING+33
  1237.             GetString = " kann Dokumente bereits bearbeiten."
  1238.         Case TOOL_STRING+34
  1239.             GetString = " kann den Kalender bereits verwalten."
  1240.         Case TOOL_STRING+37
  1241.             GetString = vData & Chr(13) & "Das Delegierungsprofil kann nicht dazu verwendet werden, um Manager und Designer zu 
  1242. ndern."
  1243.         Case TOOL_STRING+38
  1244.             GetString =   "Sie m
  1245. ssen " & Str(vData) & " entweder zur Liste 'Lesen und Senden' oder zur Liste 'Lesen, senden und bearbeiten' hinzuf
  1246. gen, bevor Sie sie zur Liste 'L
  1247. schen' hinzuf
  1248. gen."
  1249.         Case TOOL_STRING+39
  1250.             GetString =   "Sie m
  1251. ssen " & Str(vData) & " entweder zur Liste 'Lesen und Senden' oder zur Liste 'Lesen, senden und bearbeiten' hinzuf
  1252. gen, bevor Sie sie zur Liste 'L
  1253. schen' hinzuf
  1254. gen."
  1255.         Case TOOL_STRING+40
  1256.             GetString =   Str(vData) & " ist z. Zt. Manager dieser Datenbank." 
  1257.         Case TOOL_STRING+41
  1258.             GetString = Str(vData) & " ist z. Zt. Designer dieser Datenbank. "
  1259.         Case TOOL_STRING+42
  1260.             GetString = "Sie sind nicht dazu berechtigt, die ACL-Einstellungen f
  1261. r diese Datenbank zu 
  1262. ndern. "
  1263.         Case TOOL_STRING+43
  1264.             GetString = "Zur Erinnerung, bitte deaktivieren Sie Ihren Abwesenheits-Agenten"
  1265.         Case TOOL_STRING+44            
  1266.             GetString = "Ihr Abwesenheits-Agent ist noch aktiviert."            
  1267.         Case TOOL_STRING+45
  1268.             GetString = "Wenden Sie sich an den Datenbankmanager bzw. -entwickler, und bitten Sie ihn, den Agenten zu deaktivieren."
  1269.         Case TOOL_STRING+46
  1270.             GetString = "Lotus Notes Abwesenheit"
  1271.         Case TOOL_STRING+47
  1272.             GetString = "Ihr Abwesenheits-Agent ist gegenw
  1273. rtig aktiv."
  1274.         Case TOOL_STRING+48
  1275.             GetString = "M
  1276. chten Sie ihn deaktivieren?"
  1277.         Case TOOL_STRING+49
  1278.             GetString = "Ihr Abwesenheits-Agent wurde deaktiviert."
  1279.         Case TOOL_STRING+50
  1280.             GetString = "Wenden Sie sich an den Datenbankmanager bzw. -entwickler, und bitten Sie ihn, den Agenten zu aktivieren."
  1281.         Case TOOL_STRING+51
  1282.             GetString = "In Ihrer aktuellen Arbeitsumgebung ist kein 'Mail-Server' angegeben."'
  1283.         Case TOOL_STRING+52
  1284.             GetString = "Bitte bearbeiten Sie Ihr aktuelles Dokument, und geben Sie Ihren Mail-Server an."
  1285.         Case TOOL_STRING+53
  1286.             GetString = "Der Abwesenheits-Agent ist jetzt zur Ausf
  1287. hrung auf folgendem Server aktiviert: "            
  1288.         Case TOOL_STRING+54
  1289.             GetString = "Wenn Sie Mail zwischen "
  1290.         Case TOOL_STRING+55
  1291.             GetString = " und " &  vData & " empfangen, wird er sie 
  1292. ber Ihre Abwesenheit informieren."
  1293.         Case TOOL_STRING+56
  1294.             GetString = "Der Abwesenheits-Agent wurde nicht aktiviert."
  1295.         Case TOOL_STRING+57
  1296.             GetString = "Sie m
  1297. ssen angeben, wann Sie weggehen und zur
  1298. ckkommen."
  1299.         Case TOOL_STRING+58
  1300.             GetString = "Ihr R
  1301. ckkehrdatum mu
  1302.  nach dem heutigen Datum liegen."
  1303.         Case TOOL_STRING+59
  1304.             GetString = "Das Datum Ihres R
  1305. ckkehrs kann nicht vor dem Startdatum liegen."
  1306.         Case TOOL_STRING+60
  1307.             GetString = "Das Datum Ihrer R
  1308. ckkehr mu
  1309.  nach dem Startdatum sein."
  1310.         Case TOOL_STRING+61
  1311.             GetString = "Vorgaben"
  1312.         Case TOOL_STRING+62
  1313.             GetString = "Absender in Adre
  1314. buch aufnehmen"
  1315.         Case TOOL_STRING+63
  1316.             GetString = "Ein Kontakt mit Ihrem Namen sollte Ihrem Adre
  1317. buch nicht hinzugef
  1318. gt werden."
  1319.         Case TOOL_STRING+64
  1320.             GetString = Cstr(vData) & " Konflikte"
  1321.         Case TOOL_STRING+65
  1322.             GetString = "M
  1323. chten Sie wirklich beenden, ohne Ihren Abwesenheits-Agenten zu aktivieren?"
  1324.         Case TOOL_STRING+66
  1325.             GetString = "M
  1326. chten Sie 'Belegt' f
  1327. r Ihren Kalendereintrag 'Abwesenheit' deaktivieren?"
  1328.         Case TOOL_STRING+67
  1329.             GetString = "F
  1330. r Ihren Kalendereintrag 'Abwesenheit' konnte 'Belegt' nicht deaktiviert werden." & Chr(13) & "Eintrag nicht gefunden."
  1331.         Case TOOL_STRING+68
  1332.             GetString = "Lediglich der Besitzer selbst oder ein Manager d
  1333. rfen den Wert f
  1334. r 'Besitzer' 
  1335. ndern."
  1336.         Case TOOL_STRING+69
  1337.             GetString = "Ihr Name wurde in der ACL nicht gefunden. Wenden Sie sich bitte an Ihren Administrator."
  1338.         Case TOOL_STRING+70
  1339.             GetString = "Ihre Rechte reichen nicht aus, um die Vorgaben f
  1340. r diese Datenbank zu bearbeiten."
  1341.         Case TOOL_STRING+71
  1342.             GetString = "Der 'Besitzer' einer Mail-Datei sollte im Format 'Hierarchisch' angegeben werden." & Chr(13) &  "z.B. Hans Huber/MeineDom
  1343. ne"            
  1344.         Case TOOL_STRING+72
  1345.             GetString = "Beim Erstellen der AdminP-Anforderung ist ein Fehler aufgetreten. Wenden Sie sich bitte an Ihren Administrator."            
  1346.         Case TOOL_STRING+73
  1347.             GetString = "Es wurden keine g
  1348. ltigen Dokumente ausgew
  1349. hlt, das Feld 'Von' ist erforderlich."            
  1350.         End Select
  1351.     End Function
  1352. End Class
  1353. Class MemoStringTable
  1354.     Function GetString(nIndex As Integer, vData As Variant) As String
  1355.         Select Case nIndex
  1356.         Case MEMO_STRING   ' task notification mail message
  1357.             GetString = "Benachrichtigt wurde "
  1358.         Case MEMO_STRING+1   ' name a stationery document
  1359.             GetString = "Wie soll diese Vorlage hei
  1360.         Case MEMO_STRING+2
  1361.             GetString = "Auf ein neues Dokument kann diese Aktion nicht ausgef
  1362. hrt werden. "
  1363.         Case MEMO_STRING+3
  1364.             GetString = "Bitte w
  1365. hlen Sie ein Dokument aus, bevor Sie diesen Befehl ausf
  1366. hren."
  1367.         Case MEMO_STRING+4   ' user trying to copy a document that has the prevent copy bit set
  1368.             GetString = "Dieses Dokument kann nicht kopiert werden. Der Text wird nicht in das neue Dokument kopiert."              
  1369.         Case MEMO_STRING+5
  1370.             GetString = "Das Profil des Mail-Planers wurde nicht gefunden. Sie m
  1371. ssen Ihr Profil definieren, bevor Sie ein Dokument neu planen k
  1372. nnen."
  1373.         Case MEMO_STRING+6
  1374.             GetString = "Ihr Mail-Planer-Agent ist z. Zt. deaktiviert. Der Agent mu
  1375.  aktiviert werden, bevor Sie ein Dokument neu planen k
  1376. nnen."
  1377.         Case MEMO_STRING+7
  1378.             GetString = "Das Profil Ihres Mail-Planers konnte nicht gefunden werden. Ein entsprechendes Profil mu
  1379.  in Ihrer Datenbank existieren, bevor Sie ein Dokument neu planen k
  1380. nnen."
  1381.         Case MEMO_STRING+8
  1382.             GetString = "Das Profil Ihres Mail-Planers ist nicht konfiguriert, um den Notes Mail-Planer auszuf
  1383. hren. Sie m
  1384. ssen den aktuellen Status auf 'aktiviert' setzen, um ein Dokument neu zu planen."
  1385.         Case MEMO_STRING+9
  1386.             GetString = Str(vData) & " Dokument(e) verarbeitet."
  1387.         Case MEMO_STRING+10
  1388.             GetString = "Auf das Dokument/die Dokumente kann 
  1389. ber die Ansicht 'Entw
  1390. rfe' zugegriffen werden."
  1391.         Case MEMO_STRING+11
  1392.             GetString = Str(vData) & " Dokument(e) zur
  1393. ckgestellt."
  1394.         Case MEMO_STRING+12
  1395.             GetString = Str(vData) & " Dokumente stehen an."
  1396.         Case MEMO_STRING+13
  1397.             GetString = Str(vData) & " Dokumente, auf die von dieser Ansicht aus nicht mehr zugegriffen werden k
  1398. nnen."
  1399.         Case MEMO_STRING+14
  1400.             GetString = "Kein Mail-Planer-Profil"
  1401.         Case MEMO_STRING+15
  1402.             GetString = "Sie m
  1403. ssen einen Namen bei 'Senden an' angeben, um ein Dokument neu zu planen."
  1404.         Case MEMO_STRING+16
  1405.             GetString = "Lotus Notes"
  1406.         Case MEMO_STRING+17
  1407.             GetString = "-Unbenannt-"            
  1408.         Case MEMO_STRING+18
  1409.             GetString = "Signatur einf
  1410.         Case MEMO_STRING+19
  1411.             GetString = "Bitte positionieren Sie den Cursor an die gew
  1412. nschte Einf
  1413. gestelle im Textfeld."
  1414.         Case MEMO_STRING+20
  1415.             GetString = "M
  1416. chten Sie das Dokument speichern?"
  1417.         Case MEMO_STRING+21
  1418.             GetString = "Empf
  1419. nger adressieren"
  1420.         Case MEMO_STRING+22
  1421.             GetString = "M
  1422. chten Sie diese neue Vorlage speichern?"
  1423.         Case MEMO_STRING+23
  1424.             GetString = "M
  1425. chten Sie diese neue Nachricht speichern?"
  1426.         End Select
  1427.     End Function
  1428. End Class
  1429. Class CopyFactory
  1430.     '**This is a method for creating new copy objects
  1431.     '** It ensures that all documents will be mapped to their correct
  1432.     '** copy object
  1433.     Function createFromExisting( note As NotesDocument) As BaseNoteCopy
  1434.         If Not note Is Nothing Then
  1435.             Select Case Lcase( note.GetItemValue( "Form")(0))
  1436.             Case "memo","reply"
  1437.                 Set createFromExisting = New MemoCopy( note)
  1438.             Case "appointment"
  1439.                 Set createFromExisting = New CalendarCopy( note)
  1440.             Case "task"
  1441.                 Set createFromExisting = New TaskCopy( note)
  1442.             Case "(groupcalendar)"
  1443.                 Set createFromExisting = New GroupCalendarCopy( note)
  1444.             Case Else
  1445.                 Set createFromExisting = New BaseNoteCopy( note)
  1446.             End Select
  1447.         Else
  1448.             Set createFromExisting = New BaseNoteCopy( Nothing)
  1449.         End If
  1450.     End Function
  1451.     Function createNew( nType As Integer) As BaseNoteCopy
  1452.         Select Case nType
  1453.         Case CREATE_MEMO
  1454.             Set createNew = New MemoCopy( Nothing)
  1455.         Case CREATE_CALENDAR
  1456.             Set createNew = New CalendarCopy( Nothing)
  1457.         Case CREATE_TASK
  1458.             Set createNew = New TaskCopy( Nothing)
  1459.         Case CREATE_GROUPCALENDAR
  1460.             Set createNew = New GroupCalendarCopy( Nothing)
  1461.         End Select
  1462.     End Function
  1463. End Class
  1464. Class BaseNoteCopy
  1465.     '**This class defines an interface for copying items from one document to another
  1466.     Private m_session As NotesSession
  1467.     Private m_db As NotesDatabase
  1468.     Private m_note As NotesDocument
  1469.     Public copyIntoAsLink As Integer
  1470.     Private m_maps List As Variant
  1471.     Sub new (note As NotesDocument)
  1472.         Set m_note = note
  1473.         If m_note Is Nothing Then
  1474.             Set m_session = New NotesSession
  1475.             Set m_db = m_session.currentDatabase
  1476.             Set m_note = m_db.createDocument
  1477.             Call setNewNoteInfo
  1478.         Else
  1479.             Set m_db = m_note.parentDatabase
  1480.             Set m_session = m_db.parent
  1481.         End If
  1482.         Dim tempMaps As Variant
  1483.         tempMaps = Evaluate( |@Explode("| & ItemMapsStr & |"; ";")| )
  1484.         Forall aMapStr In tempMaps
  1485.             Dim tempArray As Variant
  1486.             tempArray = Evaluate( |@Explode("| & aMapStr & |"; "||")| )
  1487.             Forall x In tempArray
  1488.                 m_maps( x) = tempArray
  1489.             End Forall
  1490.         End Forall
  1491.     End Sub
  1492.     Public Property Get document As NotesDocument
  1493.         Set document = m_note 
  1494.     End Property
  1495.     Private Sub setNewNoteInfo
  1496.         'This method is used to write information
  1497.         'to the document if it's new.
  1498.         'It is meant to be overridden and used to set items such as form
  1499.         m_note.replaceItemValue"Principal", CSGetMailFileOwner()
  1500.         Call m_note.replaceitemvalue("tmpNewDoc","1")
  1501.     End Sub
  1502.     Public Function getBodyItem As NotesRichTextItem
  1503.         'This will get the body item.  If the body item in not richtext
  1504.         'then it converts in into richtext
  1505.         Dim body As NotesItem
  1506.         Dim rtBody As NotesRichTextItem
  1507.         If m_note.hasItem( "Body") Then
  1508.             Set body = m_note.getFirstItem( "Body")
  1509.             If body.type = RICHTEXT Then
  1510.                 Set getBodyItem = body
  1511.             Else
  1512.                 Dim tempStr As String
  1513.                 tempStr = body.text
  1514.                 body.remove
  1515.                 Set rtBody = New NotesRichTextItem( m_note, "Body")
  1516.                 rtBody.appendText( tempStr)
  1517.                 Set getBodyItem = rtBody
  1518.             End If
  1519.         Else
  1520.             Set getBodyItem = New NotesRichTextItem( m_note, "Body")
  1521.         End If
  1522.     End Function
  1523.     Public Sub copyIntoBody( noteToCopy As BaseNoteCopy)
  1524.         Dim body As NotesRichTextItem
  1525.         Set body = Me.getBodyItem
  1526.         If copyIntoAsLink Then 
  1527.             If Not noteToCopy.document.isNewNote Then    Call body.AppendDocLink(noteToCopy.document,"")
  1528.         Elseif Not noteToCopy.document.getItemValue( "$KeepPrivate")(0) = "1" And noteToCopy.document.hasItem( "Body") Then        
  1529.             body.AddNewLine 2
  1530.             body.AppendText "__________________"
  1531.             body.AddNewLine 2
  1532.             body.appendRTItem noteToCopy.getBodyItem
  1533.         End If
  1534.     End Sub
  1535.     Function element0( x As Variant) As String
  1536.         element0= x(0)
  1537.     End Function
  1538.     Public Function copyIntoMe( ToCopy As BaseNoteCopy)
  1539.         Dim noteToCopy As NotesDocument
  1540.         Set noteToCopy = ToCopy.document
  1541.         copyIntoBody ToCopy        
  1542.         copyOtherStuff ToCopy
  1543.         Forall copyMap In ToCopy.m_maps 
  1544.             If Iselement( m_maps(Listtag(copyMap) )) Then
  1545.                 If noteToCopy.hasItem( Listtag(copyMap)) Then
  1546.                     copyItem noteToCopy.getFirstItem(Listtag(copyMap)), element0(m_maps(Listtag(copyMap)))
  1547.                 End If 
  1548.             End If
  1549.         End Forall
  1550.         postCopyProcessing ToCopy
  1551.     End Function
  1552.     Private Sub copyItem( item As NotesItem, itemName As String)        
  1553.         If Not item Is Nothing Then
  1554.             If m_note.hasItem( itemName ) Then
  1555.                 m_note.removeItem itemName
  1556.             End If
  1557.             m_note.copyItem item, itemName 
  1558.         End If
  1559.     End Sub
  1560.     Private Sub copyOtherStuff( toCopy As BaseNoteCopy)
  1561.         '**this is used to copy special case items.  meant to be overidden
  1562.     End Sub
  1563.     Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
  1564.         '**this is used to process the document after all the copying is done.  meant to be overidden
  1565.     End Sub
  1566.     Property Get ItemMapsStr As String
  1567.         ItemMapsStr = "Subject|Topic;SendTo|RequiredAttendees|AssignedTo;CopyTo|OptionalAttendees|OptionalAssignees;BlindCopyTo|FYIAttendees|FYIAssignees"
  1568.     End Property
  1569. End Class
  1570. Class MemoCopy As BaseNoteCopy
  1571.     Sub new (note As NotesDocument), BaseNoteCopy( note)
  1572.     End Sub
  1573.     Private Sub setNewNoteInfo
  1574.         BaseNoteCopy..setNewNoteInfo
  1575.         m_note.replaceItemValue "Form", "Memo"
  1576.         m_note.ReplaceItemValue "Logo", m_session.currentdatabase.getprofiledocument("CalendarProfile").GetItemValue("DefaultLogo")(0)
  1577.     End Sub    
  1578.     Property Get ItemMapsStr As String
  1579.         ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";AltSendTo;AltCopyTo;AltBlindCopyTo;iSendTo;iCopyTo;iBlindCopyTo;$StorageTo;$StorageCc;$StorageBcc;$NameLanguageTags"
  1580.     End Property    
  1581. End Class
  1582. Class CalendarCopy As BaseNoteCopy
  1583.     Private m_strOriginalPrincipal As String    
  1584.     Sub new (note As NotesDocument), BaseNoteCopy( note)
  1585.     End Sub
  1586.     Private Sub setNewNoteInfo
  1587.         BaseNoteCopy..setNewNoteInfo
  1588.         m_note.replaceItemValue "Form", "Appointment"        
  1589.     End Sub
  1590.     Public Function copyIntoMe( ToCopy As BaseNoteCopy)
  1591.         m_strOriginalPrincipal = ToCopy.m_note.GetItemValue("Principal")(0)        
  1592.         Call BaseNoteCopy..copyIntoMe( ToCopy )
  1593.     End Function
  1594.     Property Get ItemMapsStr As String
  1595.         ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;EndDate;EndDateTime" &_
  1596.         ";EndTime;Resources;RoomsToReserve;AppointmentType;CalendarDateTime;RoomToReserve;OrgConfidential;BookFreeTime;Categories;Location" &_
  1597.         ";Alarms;$Alarm;$AlarmDescription;$AlarmOffset;$AlarmSound;$AlarmUnit"
  1598.     End Property
  1599.     Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
  1600.         Dim strOwner As String
  1601.         Dim vModifiedSendTo As Variant
  1602.         strOwner = m_session.UserName
  1603.         vModifiedSendTo = Arrayappend(m_note.GetItemValue("SendTo"),m_strOriginalPrincipal)
  1604.         Call m_note.ReplaceItemValue("SendTo",RemoveItemFromArray(vModifiedSendTo,strOwner))
  1605.         Call m_note.ReplaceItemValue("CopyTo",RemoveItemFromArray(m_note.GetItemValue("CopyTo"),strOwner))
  1606.         Call m_note.ReplaceItemValue("BlindCopyTo",RemoveItemFromArray(m_note.GetItemValue("BlindCopyTo"),strOwner))
  1607.     End Sub
  1608.     Private Function RemoveItemFromArray(vArray As Variant,strItem As String) As Variant
  1609.         Dim nIndex As Integer
  1610.         nIndex = NAMEFindInList(strItem, vArray)    
  1611.         If (nIndex >= 0) Then
  1612.             vArray(nIndex) = ""
  1613.         End If                
  1614.         RemoveItemFromArray = vArray
  1615.     End Function
  1616. End Class
  1617. Class TaskCopy As BaseNoteCopy
  1618.     Sub new (note As NotesDocument), BaseNoteCopy( note)        
  1619.     End Sub
  1620.     Private Sub setNewNoteInfo
  1621.         BaseNoteCopy..setNewNoteInfo
  1622.         m_note.replaceItemValue "Form", "Task"
  1623.     End Sub
  1624.     Property Get ItemMapsStr As String
  1625.         ItemMapsStr = BaseNoteCopy..ItemMapsStr & ";StartDate;StartDateTime;StartTime;DueDate;DueDateTime"
  1626.     End Property
  1627.     Private Sub postCopyProcessing( toCopy As BaseNoteCopy)
  1628.         If Len( m_note.getItemValue( "SendTo")(0)) > 0 Then Call m_note.replaceItemValue( "TaskType", "2")
  1629.     End Sub
  1630. End Class
  1631. Class GroupCalendarCopy As BaseNoteCopy
  1632.     Sub new (note As NotesDocument), BaseNoteCopy( note)        
  1633.     End Sub
  1634.     Private Sub setNewNoteInfo 
  1635.         m_note.replaceItemValue "Form", "(GroupCalendar)"
  1636.     End Sub
  1637.     Property Get ItemMapsStr As String
  1638.         ItemMapsStr = "Members|SendTo;Subject"
  1639.     End Property
  1640.     Private Sub postCopyProcessing(toCopy As BaseNoteCopy)
  1641.         Dim NoteToCopy As NotesDocument
  1642.         Set noteToCopy = toCopy.m_note    
  1643.         m_note.replaceItemValue "Members", Arrayappend( Arrayappend( m_note.getItemValue( "Members"), noteToCopy.getItemValue( "CopyTo")), noteToCopy.getItemValue( "BlindCopyTo"))
  1644.         Evaluate |Field Members := @Unique( @Trim( Members));""|, m_note 
  1645.     End Sub
  1646.     Public Sub copyIntoBody( noteToCopy As BaseNoteCopy) 
  1647.         'Don't ever copy the body
  1648.     End Sub
  1649. End Class
  1650. '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8
  1651. Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String)
  1652.     Dim nameUser As NotesName
  1653.     Set nameUser = New NotesName(sUsername) 
  1654.     If Instr(sUserName,"@") Then
  1655.         sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@")
  1656.         sRetDomain = Strright(nameUser.abbreviated,"@")
  1657.     Else
  1658.         sRetAbbreviatedName = nameUser.abbreviated
  1659.         sRetDomain = ""
  1660.     End If
  1661. End Sub
  1662. '++LotusScript Development Environment:2:1:NAMECompare:1:8
  1663. Function NAMECompare(sName1 As String, sName2 As String) As Integer
  1664.     Returns true if two names are equal, False otherwise
  1665. %END REM
  1666.     Dim sCanName1 As String
  1667.     Dim sDomainName1 As String
  1668.     Dim sCanName2 As String
  1669.     Dim sDomainName2 As String
  1670.     Dim nLenName1 As Integer
  1671.     Dim nLenName2 As Integer
  1672.     Dim name1 As NotesName
  1673.     Dim name2 As NotesName
  1674.     Call NAMEGetComponents(sName1, sCanName1, sDomainName1)
  1675.     Call NAMEGetComponents(sName2, sCanName2, sDomainName2)
  1676.     Set name1 = New NotesName(sCanName1)
  1677.     Set name2 = New NotesName(sCanName2)
  1678.     ' Do a canonical comparison if both names are hierarchical
  1679.     If (name1.IsHierarchical) And (name2.IsHierarchical) Then    
  1680.         If (Strcompare(sCanName1, sCanName2, 1) = 0) Then
  1681.             NAMECompare = True
  1682.             Exit Function
  1683.         Else
  1684.             Exit Function        
  1685.         End If
  1686.     End If
  1687.      ' Compare the common names
  1688.     If (Strcompare(name1.common, name2.common, 1) = 0) Then
  1689.         NAMECompare = True
  1690.         Exit Function
  1691.     End If
  1692.     NAMECompare = False
  1693. End Function
  1694. '++LotusScript Development Environment:2:1:NAMEFindInList:1:8
  1695. Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer
  1696.     Given a name and a list of names return the index position if the user is found, -1 otherwise
  1697. %END REM 
  1698.     Dim x As Integer
  1699.     Dim iNames As Integer
  1700.     NAMEFindInList = -1
  1701.     If Isempty(vListOfNames) Then
  1702.         Exit Function
  1703.     End If
  1704.     If Isarray(vListOfNames) Then
  1705.         iNames = Ubound(vListOfNames)
  1706.         For x = 0 To iNames
  1707.             If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then
  1708.                 NAMEFindInList = x
  1709.                 Exit Function
  1710.             End If
  1711.         Next
  1712.     Else
  1713.         If (NAMECompare(sKeyName, Cstr(vListOfNames))) Then
  1714.             NameFindInList = 0
  1715.         End If        
  1716.     End If
  1717. End Function
  1718. '++LotusScript Development Environment:2:1:NAMECompareWildcards:1:8
  1719. Function NAMECompareWildcards(Byval sName As String,sWildcard As String) As Integer
  1720. allowable wildcard formats
  1721. */OU/O
  1722. */OU/OU/O
  1723. */OU/OU/OU/O
  1724. %END REM
  1725.     Dim name1 As NotesName
  1726.     Dim name2 As NotesName
  1727.     Dim nWIldcardUnits As Integer
  1728.     Dim nNameUnits As Integer
  1729.     Dim nPos As Integer
  1730.     NAMECompareWildcards = False
  1731.     If Left$(sWildcard,1) <> "*" Then
  1732.         Exit Function          
  1733.     End If
  1734.     Set name1 = New NotesName(sName)
  1735.     Set name2 = New NotesName(sWildcard)
  1736.      ' first, determine how many "/" are in the wildcard and in name
  1737.     nWildcardUnits = NAMEGetNumOrgUnits(sWildcard)
  1738.     nNameUnits = NAMEGetNumOrgUnits(sName)
  1739.      ' if there are more "/" in widlcard, the names can't possibly match     
  1740.     If (nWildcardUnits > nNameUnits) Then
  1741.         Exit Function          
  1742.     End If
  1743.      ' Now that we validated the # of arguments, assume the names will match
  1744.      ' We do it this way so that if any particular comparison fails, we set to false and exit
  1745.      ' In addition, if nWildcard units = 0, then the wildcard must be "*", so everything matches
  1746.     NAMECompareWildcards = True
  1747.     If (nWildcardUnits > 0) Then
  1748.       ' First, compare the Organization
  1749.         If Not(Strcompare(name1.organization, name2.organization,1) = 0) Then
  1750.             NAMECompareWildcards = False               
  1751.             Exit Function                    
  1752.         End If
  1753.     End If
  1754.     If (nWildcardUnits > 1) Then
  1755.       ' compare the OU1
  1756.         If Not(Strcompare(name1.Orgunit1, name2.orgunit1,1)=0) Then
  1757.             NAMECompareWildcards = False               
  1758.             Exit Function                    
  1759.         End If
  1760.     End If
  1761.     If (nWildcardUnits > 2) Then
  1762.       ' compare the OU2
  1763.         If Not(Strcompare(name1.Orgunit2, name2.orgunit2,1)=0) Then
  1764.             NAMECompareWildcards = False               
  1765.             Exit Function                    
  1766.         End If
  1767.     End If
  1768.     If (nWildcardUnits > 3) Then
  1769.       ' compare the OU3
  1770.         If Not(Strcompare(name1.Orgunit3, name2.orgunit3,1)=0) Then
  1771.             NAMECompareWildcards = False               
  1772.             Exit Function                    
  1773.         End If
  1774.     End If
  1775.     If (nWildcardUnits > 4) Then
  1776.       ' compare the OU4
  1777.         If Not(Strcompare(name1.Orgunit4, name2.orgunit4,1)=0) Then
  1778.             NAMECompareWildcards = False               
  1779.             Exit Function                    
  1780.         End If
  1781.     End If
  1782.    ' if we made it this far, the name matches the wildcard
  1783. End Function
  1784. '++LotusScript Development Environment:2:1:NAMEGetNumOrgUnits:1:8
  1785. Function NAMEGetNumOrgUnits(sName) As Integer
  1786.     Dim nPos As Integer
  1787.     Dim nUnits As Integer
  1788.     nPos = Instr(sName,"/")
  1789.     While (nPos > 0)
  1790.         nUnits = nUnits + 1
  1791.         sName = Right$(sName,Len(sName)-nPos)
  1792.         nPos = Instr(sName,"/")          
  1793.     Wend
  1794.     NAMEGetNumOrgUnits = nUnits
  1795. End Function
  1796. '++LotusScript Development Environment:2:2:TIMEGetFromItem:1:8
  1797. Sub TIMEGetFromItem(sItemName As String, note As NotesDocument, dt1 As NotesDateTime) 
  1798.     Dim item As NotesItem
  1799.     ' If the user passed in an existing allocated object, delete it
  1800.     If Not(dt1 Is Nothing) Then
  1801.         Delete dt1
  1802.     End If
  1803.     If Not(TIMEValidateArgs(sItemName, "", note)) Then
  1804.         Exit Sub
  1805.     End If
  1806.     Set item = note.GetFirstItem(sItemName)
  1807.     If (Len(item.text) = 0) Then 
  1808.         Exit Sub
  1809.     End If
  1810.     Set dt1 = New NotesDateTime("")
  1811.     Set dt1 = item.DateTimeValue
  1812. End Sub
  1813. '++LotusScript Development Environment:2:1:TIMECompareDates:1:8
  1814. Function TIMECompareDates(dt1 As NotesDateTime, dt2 As NotesDateTime) As Integer
  1815.     Dim dtMy1 As NotesDateTime
  1816.     Dim dtMy2 As NotesDateTime
  1817.     TIMECompareDates = 0
  1818.     If (dt1 Is Nothing) Or (dt2 Is Nothing) Then
  1819.         Exit Function
  1820.     End If
  1821.     Set dtMy1 = New NotesDateTime(dt1.DateOnly)
  1822.     Set dtMy2 = New NotesDateTime(dt2.DateOnly)
  1823.     TIMECompareDates = dtMy1.TimeDifference(dtMy2)/86400
  1824. End Function
  1825. '++LotusScript Development Environment:2:2:TIMEGetNotesFromLS:1:8
  1826. Sub TIMEGetNotesFromLS(vLS As Variant, dtNotes As NotesDateTime)
  1827.     Set dtNotes = New NotesDateTime("")
  1828.     If Isdate(vLS) Then dtNotes.LSLocalTime = vLS
  1829. End Sub
  1830. '++LotusScript Development Environment:2:1:TIMEValidateArgs:1:8
  1831. Function TIMEValidateArgs(sItemname1 As String, sItemName2 As String, note As NotesDocument) As Integer
  1832.     TIMEValidateArgs = False
  1833.     If (note Is Nothing) Then
  1834.         Exit Function
  1835.     End If
  1836.     If (Len(sItemname1) > 0) Then
  1837.         If Not(note.HasItem(sItemName1)) Then
  1838.             Exit Function
  1839.         End If
  1840.     End If
  1841.     If (Len(sItemname2) > 0) Then
  1842.         If Not(note.HasItem(sItemName2)) Then
  1843.             Exit Function
  1844.         End If
  1845.     End If
  1846.     TIMEValidateArgs = True
  1847. End Function
  1848. '++LotusScript Development Environment:2:1:CSGetMailFileOwner:1:8
  1849. Function CSGetMailFileOwner() As String
  1850.     Dim session As New notessession
  1851.     Dim profile As notesdocument
  1852.     Dim strOwner As String
  1853.     Set profile = session.currentdatabase.getprofiledocument("CalendarProfile")
  1854.     strOwner = profile.GetItemValue("Owner")(0)
  1855.     If Len(strOwner) Then
  1856.         CSGetMailFileOwner = strOwner
  1857.     Else
  1858.         CSGetMailFileOwner = session.UserName
  1859.     End If
  1860. End Function
  1861. '++LotusScript Development Environment:2:2:TIMEGetComponents:1:8
  1862. Sub TIMEGetComponents(sDateItem As String, sTimeItem As String, note As NotesDocument, dt1 As NotesDateTime)
  1863.     Dim itemST As NotesItem
  1864.     Dim itemSD As NotesItem
  1865.     ' If the user passed in an existing allocated object, delete it
  1866.     If Not(dt1 Is Nothing) Then
  1867.         Delete dt1
  1868.     End If
  1869.     If Not(TIMEValidateArgs(sDateItem, sTimeItem, note)) Then
  1870.         Exit Sub
  1871.     End If
  1872.     Set itemSD = note.GetFirstItem(sDateItem)
  1873.     Set itemST = note.GetFirstItem(sTimeItem)
  1874.     Set dt1 = New NotesDateTime(itemSD.DateTimeValue.DateOnly & " " & itemST.DateTimeValue.TimeOnly)    
  1875. End Sub
  1876. '++LotusScript Development Environment:2:1:NOTEUserIsCreator:1:8
  1877. Function NOTEUserIsCreator(note As NotesDocument) As Integer
  1878.     Dim strMailOwner As String
  1879.     Dim strFrom As String
  1880.     Dim session As New NotesSession
  1881.     NOTEUserIsCreator = True
  1882.     ' By default, all new documents are creators
  1883.     If (note Is Nothing) Then
  1884.         Exit Function
  1885.     End If
  1886.     If (note.IsNewNote) Then 
  1887.         Exit Function
  1888.     End If
  1889.     strMailOwner = CSGetMailFileOwner()
  1890.     If (note.HasItem("Chair")) Then
  1891.         strFrom = note.getitemvalue("Chair")(0)
  1892.     Elseif (note.HasItem("Principal")) Then
  1893.         strFrom = note.getitemvalue("Principal")(0)
  1894.     Elseif (note.hasItem("From")) Then
  1895.         strFrom = note.getitemvalue("From")(0)
  1896.     Else
  1897.         strFrom = session.UserName
  1898.     End If
  1899.     If Len(strFrom) = 0 Then strFrom = session.UserName
  1900.     NOTEUserIsCreator = NAMECompare(strMailOwner, strFrom)    
  1901. End Function
  1902. '++LotusScript Development Environment:2:1:NAMEExistsInList:1:8
  1903. Function NAMEExistsInList(sKeyName As String, vLIstOfNames As Variant) As Integer
  1904.     Given a name and a list of names return True if sKeyName exists in vListOfNames
  1905.         false if they are not
  1906. %END REM 
  1907.     NAMEExistsInList = False
  1908.     NAMEExistsInList = (NAMEFindInList(sKeyName, vListOfNames) >= 0)
  1909. End Function
  1910. '++LotusScript Development Environment:2:1:NOTECopyIntoNewDocument:1:8
  1911. Function NOTECopyIntoNewDocument(Byval iNewType As Integer, Byval iFlags As Integer, note As NotesDocument, strnewform As String) As NotesDocument
  1912.     Dim copyInto As BaseNoteCopy
  1913.     Dim copyFactory As New CopyFactory
  1914.     Set copyInto = copyFactory.createNew( iNewType)
  1915.     copyInto.copyIntoAsLink = iFlags
  1916.     copyInto.copyIntoMe copyFactory.createFromExisting( note)
  1917.     If Len( strNewForm) >0 Then
  1918.         copyInto.document.replaceItemValue "Form", strnewForm
  1919.     End If
  1920.     Set NOTECopyIntoNewDocument = copyInto.document
  1921. End Function
  1922. '++LotusScript Development Environment:2:1:YesNoPrompt:1:8
  1923. Function YesNoPrompt(sPrompt As String, sTitle As String) As Integer
  1924.     Dim nResult As Integer         
  1925.     nResult = Messagebox(sPrompt, MB_YESNO + MB_ICONQUESTION, sTitle)
  1926.     YesNoPrompt = (nResult = IDYES)
  1927. End Function
  1928. '++LotusScript Development Environment:2:1:YesNoCancelPrompt:1:8
  1929. Function YesNoCancelPrompt(sPrompt As String, sTitle As String) As Integer
  1930.     YesNoCancelPrompt = Messagebox(sPrompt, MB_YESNOCANCEL+MB_ICONQUESTION , sTitle)
  1931. End Function
  1932. '++LotusScript Development Environment:2:1:DisplayWarn:1:8
  1933. Function DisplayWarn(sError As String, nPrompt As Integer, sTitle As String) As Integer
  1934.     DisplayWarn = Messagebox (sError, nPrompt+MB_ICONEXCLAMATION, sTitle)
  1935. End Function
  1936. '++LotusScript Development Environment:2:2:TIMEAdjustByDifference:1:8
  1937. Sub TIMEAdjustByDifference(Byval lDifference As Long, dtAdjust As NotesDateTime)
  1938.     Dim iSeconds As Integer
  1939.     Dim iMinutes As Integer
  1940.     Dim iHours As Integer
  1941.     Dim iDays As Integer
  1942.     If (Abs(lDifference) >= 86400) Then
  1943.         iDays = lDifference / 86400
  1944.         lDifference = lDifference Mod 86400
  1945.     End If
  1946.     If (Abs(lDifference) >= 3600) Then
  1947.         iHours = lDifference / 3600
  1948.         lDifference = lDifference Mod 3600
  1949.     End If
  1950.     If (Abs(lDifference) >= 60) Then
  1951.         iMinutes = lDifference / 60
  1952.         lDifference = lDifference Mod 60
  1953.     End If
  1954.     iSeconds = lDifference
  1955.     If (iDays) Then Call dtAdjust.AdjustDay(iDays, True)
  1956.     If (iHours) Then Call dtAdjust.AdjustHour(iHours, True)    
  1957.     If (iMinutes) Then Call dtAdjust.AdjustMinute(iMinutes, True)
  1958.     If (iSeconds) Then Call dtAdjust.AdjustSecond(iSeconds, True)
  1959. End Sub
  1960. '++LotusScript Development Environment:2:1:CSEventDTItemsModified:1:8
  1961. Function CSEventDTItemsModified(vBEObject As Variant) As Integer
  1962.     Determines if either one of the date/time values of
  1963.     a cs object were modified
  1964. %ENDREM    
  1965.     If (vBEobject.OriginalEndDate.TimeDifference(vBEObject.CurrentEndDate) <> 0) Then
  1966.         CSEventDTItemsModified = True
  1967.         Exit Function
  1968.     End If
  1969.     If (vBEobject.OriginalStartDate.TimeDifference(vBEObject.CurrentStartDate) <> 0) Then
  1970.         CSEventDTItemsModified = True
  1971.         Exit Function
  1972.     End If
  1973.     CSEventDTItemsModified = False
  1974. End Function
  1975. '++LotusScript Development Environment:2:1:CSEventNeedsReschedule:1:8
  1976. Function CSEventNeedsReschedule(vBEObject As Variant) As Integer
  1977.     Dim dtCurrentEnd As NotesDateTime
  1978.     Dim dtCurrentStart As NotesDateTime
  1979.     CSEventNeedsReschedule = False
  1980.     ' if the document was never mailed, no need to reschedule it
  1981.     If Not(vBEobject.WasMailed) Then
  1982.         Exit Function
  1983.     End If
  1984.     Set dtCurrentEnd = vBEObject.CurrentEndDate
  1985.     If (vBEObject.OriginalEndDate.TimeDifference(dtCurrentEnd) <> 0) Then
  1986.         CSEventNeedsReschedule = True
  1987.         Exit Function
  1988.     End If
  1989.         ' If there are no invitees, we do not need to reschedule        
  1990.     If vBEObject.WasMailed Then
  1991.         Set dtCurrentStart = vBEObject.CurrentStartDate
  1992.         If (vBEObject.OriginalStartDate.TimeDifference(dtCurrentStart) <> 0) Then
  1993.             CSEventNeedsReschedule = True
  1994.         End If
  1995.     End If
  1996. End Function
  1997. '++LotusScript Development Environment:2:2:CSDocOpen:1:8
  1998. Sub CSDocOpen(vBEObject As Variant, note As NotesDocument, dtCalInstance As NotesDateTime, Byval dOptions As Long)
  1999.     Provides all backend processing for opening a cs document
  2000. %ENDREM    
  2001.     Dim dInitFlags As Long
  2002.     Dim bInitDates As Integer
  2003.     If Not(dtCalInstance Is Nothing) Then Set vBEObject.CalendarInstance = dtCalInstance
  2004.     ' If we do not have a note, bail now
  2005.     If (note Is Nothing) Then Exit Sub
  2006.     If (dOptions And CS_DOC_WEBUSER) = CS_DOC_WEBUSER Then 
  2007.         dInitFlags = 8
  2008.         If (dOptions And CS_DOC_FIRSTPASS) = 0 Then dInitFlags = dInitFlags Or 16
  2009.     End If
  2010.     On Error Resume Next    
  2011.     Call vBEobject.Init(note, dInitFlags)
  2012.     On Error Goto errorroutine
  2013.     ' See if this is a new document
  2014.     If (note.IsNewNote) Then
  2015.         If Not((note.getitemvalue("WebDateTimeInit")(0)="1")) Then
  2016.             Call note.replaceitemvalue("WebDateTimeInit", "1")
  2017.             bInitDates = True
  2018.         End If
  2019.         If (note.getitemvalue(vBEOBject.EndItemName)(0) = "") Then 
  2020.             bInitDates = True
  2021.         Else
  2022.             bInitDates = False
  2023.         End If
  2024.         If (bInitDates = True) Then Call vBEObject.InitDateTimeItems(vBEObject.CalendarInstance)    
  2025.         If (dOptions And CS_DOC_ALARMS) Then Call vBEObject.SetDefaultAlarm()
  2026.     End If
  2027.     Call note.removeitem("tmpOwnerHW")
  2028.     Call note.removeitem("tmpNoActionBar")
  2029.     If (vBEObject.WasMailed) Then
  2030.         Call note.ReplaceItemValue("tmpWasMailed", "1")
  2031.     End If
  2032.     Exit Sub
  2033. ErrorRoutine:
  2034.     Msgbox "Fehler beim 
  2035. ffnen des Kalender- und Planungsdokuments -> " & Error$
  2036.     Exit Sub
  2037. End Sub
  2038. '++LotusScript Development Environment:2:2:CSDocSave:1:8
  2039. Sub CSDocSave(vBEObject As Variant, vCallBackObject As Variant, Byval dAction As Long, Byval dOptions As Long, vContinue As Variant)
  2040.     Dim note As notesDocument
  2041.     Dim vDates As Variant
  2042.     Dim strAction As String, strCurrentType As String, strOriginalType As String
  2043.     Dim bOwner As Integer, bCreateRepeat As Integer, nChangeWhich As Integer
  2044.     Dim iType As Integer
  2045.     Set note = vBEObject.Document
  2046.     bOwner = ((dOptions And CS_DOC_FOROWNER) = CS_DOC_FOROWNER)
  2047.     If ((dOptions And CS_DOC_TASK) = CS_DOC_TASK) Then
  2048.         iType = 2
  2049.     Elseif ((dOptions And CS_DOC_RESOURCE) = CS_DOC_RESOURCE) Then
  2050.         iType = 3
  2051.     Else
  2052.         iType = 1
  2053.     End If
  2054.     strAction=note.getitemvalue("tmpaction")(0)
  2055.     If Len(strAction) Then dAction = (dAction Or Clng(strAction))
  2056.     ' Call the function that allows outside apps to do some pre-save stuff
  2057.     Call CSExtAppDocSave(note, dAction, iType, vContinue)
  2058.     ' If the ext app does not want to continue, bail
  2059.     If Not(vContinue) Then Exit Sub
  2060.     strCurrentType = vBEObject.CurrentType
  2061.     strOriginalType = vBEObject.OriginalType
  2062.     ' set the public access flag
  2063.     If (iType <> 3) Then
  2064.         If (note.GetItemValue("OrgConfidential")(0) = "1") Then
  2065.             Call note.removeitem("$PublicAccess")
  2066.         Else
  2067.             Call note.replaceitemvalue("$PublicAccess","1")
  2068.         End If
  2069.         If (dOptions And CS_DOC_ALARMS) Then
  2070.             If (note.HasItem("$Alarm") And Not(vbeobject.InAlarmFolder)) Then
  2071.                 If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
  2072.                 ' The user wants this entry to have an alarm by default                
  2073.                     Call vbeobject.AddDefaultAlarm()
  2074.                 End If
  2075.             End If
  2076.         End If
  2077.     End If
  2078.     ' If this is a repeating instance, store off the original start date
  2079.     If (vBEObject.Context = CTX_REPEAT_INST) Then Call note.ReplaceitemValue("OriginalStartDate", vBEObject.OriginalStartDate)
  2080.     If (bOwner Or iType = 3) Then
  2081.         If (dOptions And CS_DOC_ISCOUNTER) = 0 Then
  2082.             If ((dOptions And CS_DOC_WEBUSER) > 0) Or (iType = 3) Then Call vBEObject.UpdateDateTimeItems()
  2083.             ' Perform actions on calendar entries
  2084.             If (iType = 1) Then
  2085.                 Call CSDocSaveCalendarEntry(vBEObject, bOwner, strCurrentType)
  2086.             Elseif (iType = 2) Then
  2087.                 Call vBEObject.SetDueState
  2088.             End If
  2089.             ' If we are rescheduling, update the sequence num
  2090.             If (dAction And ACTION_RESCHEDULE) Then Call vBEObject.IncrementSequenceNum()
  2091.             Call vBEObject.SetCalendarDateTime()
  2092.             Call vBEObject.SetViewIcon()
  2093.             If (note.HasItem("OrgRepeat") And Not(note.IsResponse)) Then
  2094.                 If Not(note.HasItem("RepeatDates")) Then
  2095.                     On Error Goto GenerateRepeatError
  2096.                     vDates = vBEObject.GenerateRepeatDates()
  2097.                     Call note.ReplaceItemValue("RepeatDates", vDates)
  2098.                     bCreateRepeat = True
  2099.                     On Error Resume Next
  2100.                 End If
  2101.             End If
  2102.             Call vBEObject.UpdateBusyTimeInfo(note.GetItemValue("BookFreeTime")(0)  <> "1")
  2103.         ' Check to see if we need to mail this thing
  2104.             If (dAction And ACTION_SEND) Then Call CSDocSendPrimaryNotice(vBEObject, vCallBackObject, vContinue)
  2105.             If (vContinue = False) Then 
  2106.                 Call note.removeitem("RepeatDates")
  2107.                 Exit Sub
  2108.             End If            
  2109.             If (bCreateRepeat) Then Call vBEObject.CreateRepeatHierarchy()
  2110.         End If    
  2111.     End If
  2112.     Call vBEObject.MarkTempItems    
  2113.     Exit Sub
  2114. GenerateRepeatError:
  2115.     If (dOptions And CS_DOC_WEBUSER) = 0 Then
  2116.         Dim strtable As New BaseCSStringTable()
  2117.         ' warn the user that we cannot create this many instances
  2118.         Call DisplayWarn(strtable.getstring(ERR_CREATE_REPEAT, Null), 0, strtable.getstring(ERR_TITLE,Null))    
  2119.         vContinue = False
  2120.         Call note.removeitem("RepeatDates")        
  2121.     End If
  2122.     Exit Sub
  2123. End Sub    
  2124. '++LotusScript Development Environment:2:2:CSDocSaveCalendarEntry:1:8
  2125. Sub CSDocSaveCalendarEntry(vBEObject As Variant, bOwner As Integer, strCurrentType As String)
  2126.     Dim note As notesdocument
  2127.     Dim item As notesitem
  2128.     Dim nYearly As Integer
  2129.     Set note = vBEObject.Document
  2130.     If (strCurrentType = "1" And (note.IsNewNote = True)) Then
  2131.         ' See if this should automatically repeat
  2132.         If Not(note.hasitem("OrgRepeat")) And Not(note.hasitem("tmpDoNotRepeat")) Then
  2133.             nYearly = CSProfileGetAutoAnnivRepeat()
  2134.             If (nYearly > 0) Then
  2135.                 Set item = note.getfirstitem("StartDate")
  2136.                 Call item.copyitemtodocument(note, "RepeatStartDate")
  2137.                 Call note.replaceitemvalue("OrgRepeat","1")
  2138.                 Call note.replaceitemvalue("RepeatHow", "F")
  2139.                 Call note.replaceitemvalue("RepeatFor", nYearly)
  2140.                 Call note.replaceitemvalue("RepeatForUnit","Y")
  2141.                 Call note.replaceitemvalue("RepeatUnit","Y")
  2142.                 Call note.replaceitemvalue("RepeatInterval", "1")
  2143.                 Call note.replaceitemvalue("RepeatWeekends", "D")
  2144.             End If
  2145.         End If
  2146.     End If
  2147. End Sub
  2148. '++LotusScript Development Environment:2:2:CSDocSendPrimaryNotice:1:8
  2149. Sub CSDocSendPrimaryNotice(vBEObject As Variant, vCallBackObject As Variant, vContinue As Variant)
  2150.     Dim fSendOptions As Integer
  2151.     On Error Resume Next
  2152.     If Not(vBEObject.IsWorkflowEnabled) Then Exit Sub
  2153.     fSendOptions = vBEObject.PrimarySendOptions
  2154.     If (fSendOptions = 0) Then Exit Sub
  2155.     If ( (fSendOptions And 2) Or (fSendOptions And 4) ) Then Call vBEObject.InviteRooms()
  2156.     If (fSendOptions And 1) Then
  2157.         ' first, prepare the backend document for sending
  2158.         Err = 0
  2159.         Call vBEObject.PreSendPrimaryRequest()
  2160.         ' invoke the callback object
  2161.         Call vCallBackObject.SendPrimaryRequest()
  2162.         Call vBEObject.PostSendPrimaryRequest(Err <> 0)
  2163.     End If
  2164.     If (Err <> 0) Then vContinue = False
  2165. End Sub                
  2166. '++LotusScript Development Environment:2:2:CSDocUpdatePersonalCategories:1:8
  2167. Sub CSDocUpdatePersonalCategories(note As NotesDocument, profile As NotesDocument)
  2168.     Dim vCategories As Variant
  2169.     Dim vResult As Variant
  2170.     Dim nentries As Integer        
  2171.     Dim strSelectedCategory As String, strCoreCategories As String
  2172.     If (note Is Nothing) Or (profile Is Nothing) Then Exit Sub
  2173.     ' See if we need to update categories        
  2174.     strSelectedCategory = note.GetItemValue("Categories")(0)
  2175.     If Len(strSelectedCategory) = 0 Then Exit Sub
  2176.     strCoreCategories = "HVPNCTPC"
  2177.     If Len(strSelectedCategory) <= 2 Then
  2178.         If Instr(strCoreCategories,strSelectedCategory) Then Exit Sub
  2179.     End If
  2180.     vCategories = profile.GetItemValue("UserCategories")        
  2181.     On Error Resume Next
  2182.     vResult = Arraygetindex(vCategories, strSelectedCategory)
  2183.     If Isnull(vResult) = True Then
  2184.         nEntries = Ubound(vCategories) + 1
  2185.         Redim Preserve vCategories(nEntries)
  2186.         vCategories(nEntries) = strSelectedCategory
  2187.         Call profile.replaceitemvalue("UserCategories", vCategories)
  2188.         Call profile.save(True, False)
  2189.     End If
  2190. End Sub    
  2191. '++LotusScript Development Environment:2:2:CSExtAppDocSave:1:8
  2192. Sub CSExtAppDocSave(note As notesdocument, Byval daction As Long, bIsTask As Integer, vContinue As Variant)
  2193. End Sub
  2194. '++LotusScript Development Environment:2:2:wInstantiateObjectVariables:1:8
  2195. Sub wInstantiateObjectVariables
  2196.     Set session = New NotesSession
  2197.     Set db = session.CurrentDatabase
  2198.     Set note = session.DocumentContext
  2199.     Set agentlog = New noteslog("Agent log")
  2200.     Call agentlog.openagentlog
  2201. End Sub
  2202. '++LotusScript Development Environment:2:2:wMessagePageHeader:1:8
  2203. Sub wMessagePageHeader
  2204.      'Create the action bar
  2205.     Evaluate("@ReplaceSubstring(""" + PathAndName$ + """;"" "";""+"")")
  2206.     Print |<TABLE BORDER CELLSPACING=2 CELLPADDING=2>| 
  2207.     Print |<TR VALIGN=middle BGCOLOR="C0C0C0">| 
  2208.     Print |<TD><A HREF="| & PathAndName$ & |($InBox)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn110.gif"> In Box</A></TD>| 
  2209.     Print |<TD><A HREF="| & PathAndName$ & |($Calendar)?OpenView&Grid=| & profile.wCalGridType(0) & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn133.gif"> Calendar</A></TD>| 
  2210.     Print |<TD><A HREF="| & PathAndName$ & |($Meetings)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn126.gif"> Meetings</A></TD>| 
  2211.     Print |<TD><A HREF="| & PathAndName$ & |($ToDo)"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn127.gif"> To Do</A></TD>| 
  2212.     Print |<TD><A HREF="| & PathAndName$ & |"><IMG BORDER=0 WIDTH=21 HEIGHT=21 SRC="/icons/actn120.gif"> All Views</A></TD>| 
  2213.     Print |</TR></TABLE><HR>|
  2214. End Sub
  2215. '++LotusScript Development Environment:2:2:CopyProfileValues:1:8
  2216. Sub CopyProfileValues(noteSrc As NotesDocument, noteDest As NotesDocument)
  2217.     Dim x As Integer
  2218.     Dim item As NotesItem
  2219.     Dim item2 As NotesITem
  2220.     noteDest.Owner = noteSrc.Owner(0)
  2221.     Call agentlog.logaction("Besitzer ist "+notesrc.owner(0))
  2222.     noteDest.DefaultDuration = noteSrc.DefaultDuration(0)
  2223.     noteDest.AutoAnniversaryRepeat = noteSrc.AutoAnniversaryRepeat(0)
  2224.     If (noteSrc.HasItem("AutoRemoveFromInbox")) Then 
  2225.         noteDest.AutoRemoveFromInbox = noteSrc.AutoRemoveFromInbox(0)
  2226.     Else
  2227.         noteDest.AutoRemoveFromInbox = "0"
  2228.     End If
  2229.     If (noteSrc.hasitem("FormatReplies")) Then
  2230.         noteDest.FormatReplies=noteSrc.FormatReplies(0)
  2231.     End If
  2232.     If(noteSrc.hasitem("OffsetChar")) Then
  2233.         noteDest.OffSetchar=noteSrc.Offsetchar(0)
  2234.     End If
  2235.     If (noteSrc.HasItem("PreventAll")) Then 
  2236.         noteDest.PreventAll = noteSrc.PreventAll(0)
  2237.     End If
  2238.     If (noteSrc.HasItem("PreventSent")) Then
  2239.         noteDest.PreventSent=noteSrc.PreventSent(0)
  2240.     End If
  2241.     If (noteSrc.Hasitem("ConflictEvent")) Then
  2242.         noteDest.ConflictEvent = noteSrc.ConflictEvent(0)
  2243.     End If
  2244.     If (noteSrc.Hasitem("ConflictMeeting")) Then
  2245.         noteDest.ConflictMeeting = noteSrc.ConflictMeeting(0)
  2246.     End If
  2247.     If (noteSrc.Hasitem("ConflictAnniversary")) Then
  2248.         noteDest.ConflictAnniversary = noteSrc.ConflictAnniversary(0)
  2249.     End If
  2250.     If (noteSrc.Hasitem("TaskFollow")) Then
  2251.         noteDest.TaskFollow = noteSrc.TaskFollow(0)
  2252.     End If
  2253.     If (noteSrc.hasitem("AutoProcessType")) Then
  2254.         noteDest.AutoProcessType=noteSrc.AutoProcessType(0)
  2255.         If (noteSrc.getitemvalue("AutoProcessType")(0)="2") Then
  2256.             'pull autoprocessuserlist
  2257.             Set item = noteSrc.getfirstitem("AutoProcessUserList")
  2258.             Call noteDest.removeitem("AutoProcessUserList")
  2259.             Call item.copyitemtodocument(noteDest, "AutoProcessUserList")
  2260.         End If
  2261.         If (noteSrc.getitemvalue("AutoProcessType")(0)="1") Then
  2262.             'pull forward
  2263.             Set item = noteSrc.getfirstitem("AutoProcessForwardTo")
  2264.             Call noteDest.removeitem("AutoProcessForwardTo")
  2265.             Call item.copyitemtodocument(noteDest, "AutoProcessForwardTo")
  2266.         End If
  2267.     End If
  2268.     If (noteSrc.hasitem("PreventRepliesFromInbox")) Then
  2269.         noteDest.PreventRepliesFromInbox=noteSrc.PreventRepliesFromInbox(0)
  2270.     End If
  2271.     If (noteSrc.hasitem("AutoRemoveFromInbox")) Then
  2272.         noteDest.AutoRemoveFromInbox=noteSrc.AutoRemoveFromInbox(0)
  2273.     End If
  2274.     Set item = noteSrc.GetFirstItem("AllowBusyAccess")
  2275.     Call noteDest.RemoveItem("AllowBusyAccess")
  2276.     Set item2 = item.CopyItemToDocument(noteDest, "AllowBusyAccess")
  2277.     If Len(item2.text) Then 
  2278.         If Not(item2.Contains(noteSrc.GetItemValue("Owner")(0))) Then 
  2279.             Call item2.AppendToTextList(noteSrc.GetItemValue("Owner")(0))
  2280.         End If
  2281.     End If
  2282.     If(noteSrc.hasitem("ReadMail")) Then
  2283.         Set item = noteSrc.getfirstitem("ReadMail")
  2284.         Call noteDest.removeitem("ReadMail")
  2285.         Call item.copyitemtodocument(noteDest, "ReadMail")
  2286.     End If
  2287.     If (noteSrc.hasitem("WriteMail")) Then
  2288.         Set item = noteSrc.getfirstitem("WriteMail")
  2289.         Call noteDest.removeitem("WriteMail")
  2290.         Call item.copyitemtodocument(noteDest, "WriteMail")
  2291.     End If
  2292.     If (noteSrc.hasitem("EditMail")) Then
  2293.         Set item = noteSrc.getfirstitem("EditMail")
  2294.         Call noteDest.removeitem("EditMail")
  2295.         Call item.copyitemtodocument(noteDest, "EditMail")
  2296.     End If
  2297.     If (noteSrc.hasitem("DeleteMail")) Then
  2298.         Set item = noteSrc.getfirstitem("DeleteMail")
  2299.         Call noteDest.removeitem("DeleteMail")
  2300.         Call item.copyitemtodocument(noteDest, "DeleteMail")
  2301.     End If
  2302.     If (noteSrc.hasitem("PublicRead")) Then
  2303.         noteDest.PublicRead=noteSrc.PublicRead(0)
  2304.         Set item = noteSrc.getfirstitem("ReadCalendar")
  2305.         Call noteDest.removeitem("ReadCalendar")
  2306.         Call item.copyitemtodocument(noteDest, "ReadCalendar")
  2307.     End If
  2308.     If (noteSrc.hasitem("PublicWrite")) Then
  2309.         noteDest.PublicWrite=noteSrc.PublicWrite(0)
  2310.         Set item = noteSrc.getfirstitem("WriteCalendar")
  2311.         Call noteDest.removeitem("WriteCalendar")
  2312.         Call item.copyitemtodocument(noteDest, "WriteCalendar")
  2313.     End If
  2314.     noteDest.Sunday = noteSrc.sunday(0)
  2315.     noteDest.Monday = noteSrc.monday(0)
  2316.     noteDest.tuesday = noteSrc.Tuesday(0)
  2317.     noteDest.Wednesday = noteSrc.Wednesday(0)
  2318.     noteDest.Thursday = noteSrc.Thursday(0)
  2319.     noteDest.Friday = noteSrc.Friday(0)
  2320.     noteDest.Saturday = noteSrc.Saturday(0)
  2321.     For x = 1 To 7
  2322.         Set item = noteSrc.GetFirstItem("$Times" & x)
  2323.         If Not(item Is Nothing) Then 
  2324.             Call noteDest.RemoveItem(item.name)
  2325.             Call item.copyitemtodocument(noteDest,"")
  2326.         End If               
  2327.     Next
  2328.     Set item = noteSrc.GetFirstItem("$AvailableDays")
  2329.     Call noteDest.RemoveItem("$AvailableDays")    
  2330.     If Not(item Is Nothing) Then Call item.copyitemtodocument(noteDest, "")
  2331. End Sub
  2332. '++LotusScript Development Environment:2:1:wGetDBPath:1:8
  2333. Function wGetDBPath  As Variant
  2334.     Dim strtmp As String
  2335.     Dim npos As Integer
  2336.     Dim nposofspace As Integer
  2337.     On Error Goto errorroutine
  2338.     wGetDBPath=""
  2339.         'check to see if the database is in a directory
  2340.     If Instr(db.filepath,"\") Or  Instr(db.filepath, " ") Then
  2341.         If Instr(db.filepath, "\") Then
  2342.             strtmp = db.filepath
  2343.             npos = 1
  2344.             While Instr(npos, strtmp, "\")  > 0 
  2345.                'extract to the backslash
  2346.                 nposofspace = Instr(npos, strtmp, "\")
  2347.                'replace the slash with a double slash
  2348.                 strtmp = Left(strtmp, nposofspace -1 )+"/"+Right$(strtmp, (Len(strtmp)-nposofspace))
  2349.                 npos = nposofspace+1
  2350.             Wend
  2351.         End If
  2352.         If Instr(db.filepath, " ") Then
  2353.             npos = 1
  2354.             While Instr(npos, strtmp, " ") > 0 
  2355.                'extract to the space
  2356.                 nposofspace = Instr(npos, strtmp, " ")
  2357.                'replace the space with a + sign
  2358.                 strtmp = Left$(strtmp, nposofspace -1 )+"+"+Right$(strtmp, (Len(strtmp)-nposofspace))
  2359.                 npos = nposofspace+1
  2360.             Wend
  2361.         End If
  2362.     End If
  2363.     wgetdbpath = strtmp    
  2364.     If wgetdbpath="" Then wgetdbpath = db.filepath
  2365.     Exit Function
  2366. errorroutine:
  2367.     Msgbox "Fehler lautet:"+Cstr(Error)
  2368. End Function
  2369. '++LotusScript Development Environment:2:2:SetInternationalFormatHelpers:1:8
  2370. Sub SetInternationalFormatHelpers( note As NotesDocument)
  2371.     Const DayString = "TT"
  2372.     Const MonthString = "MM"
  2373.     Const YearString = "JJ"
  2374.     Const HourString = "HH"
  2375.     Const MinuteString = "MM"
  2376.     Dim s As New NotesSession
  2377.     Dim intl As NotesInternational
  2378.     Set intl = s.International
  2379.      ' do the date format helper
  2380.     Dim dHelp1 As String
  2381.     Dim dHelp2 As String
  2382.     Dim dHelp3 As String
  2383.     Dim tHelp1 As String
  2384.     Dim tHelp2 As String
  2385.     If intl.isDateDMY Then
  2386.         dHelp1 = DayString
  2387.         dHelp2 = MonthString
  2388.         dHelp3 = YearString
  2389.     Elseif intl.isDateMDY Then
  2390.         dHelp1 = MonthString
  2391.         dHelp2 = DayString
  2392.         dhelp3 =  YearString
  2393.     Else
  2394.         dHelp1 = YearString
  2395.         dHelp2 = MonthString
  2396.         dHelp3 = DayString
  2397.     End If
  2398.     note.DateFormatHelper = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
  2399.     note.DateFormatHelper2 = dHelp1 + intl.DateSep + dHelp2 + intl.DateSep + dhelp3
  2400.      ' do the time format helper
  2401.     tHelp1 = HourString + intl.TimeSep + MinuteString
  2402.     If Not intl.isTime24Hour Then
  2403.         tHelp2 = " " + intl.PMString           
  2404.     End If
  2405.     note.TimeFormatHelper = tHelp1 + tHelp2
  2406.     note.TimeFormatHelper2 = tHelp1 + tHelp2
  2407.     note.DurationFormatHelper = tHelp1
  2408.     note.DurationFormatHelper2 = tHelp1
  2409. End Sub
  2410. '++LotusScript Development Environment:2:2:wMarkTempFields:1:8
  2411. Sub wMarkTempFields(doc As NotesDocument)
  2412.     Dim itemlist As Variant
  2413. 'Mark all temporary and compute for display fields such that they will not be saved to disk     
  2414.     On Error Resume Next
  2415.     itemlist = doc.Items
  2416.     Forall n In itemlist
  2417.         If Lcase(Left(n.Name, 3)) = "tmp" Or Lcase(Left(n.Name, 4)) = "disp" Then n.SaveToDisk = False
  2418.     End Forall     
  2419.      'remove web CGI variable so that they will get updated on the next doc read
  2420.     Call doc.RemoveItem("Path_Info")
  2421.     Call doc.RemoveItem("Query_String")
  2422.      'if the mail option fields are all default values, remove them
  2423.     If (doc.Importance(0) = "2" And doc.DeliveryPriority(0) = "N" And doc.DeliveryReport(0) = "B" And _
  2424.     doc.Form(0) <> "Task") Then
  2425.         Call doc.RemoveItem("Importance")
  2426.         Call doc.RemoveItem("DeliveryPriority")
  2427.         Call doc.RemoveItem("DeliveryReport")
  2428.     End If
  2429. End Sub
  2430. '++LotusScript Development Environment:2:2:wCreateDefaultCalendarProfile:1:8
  2431. Sub wCreateDefaultCalendarProfile
  2432.  *This routine creates a calendar profile document
  2433.   containg default values for required fields
  2434. %END REM
  2435.     On Error Goto ErrorRoutine
  2436. 'the global variable "profile" is a profile document already
  2437. 'we need to add the fields to it
  2438.     profile.Form = "CalendarProfile"
  2439.     Call profile.ReplaceItemValue("Owner",session.effectiveusername)
  2440.     Call profile.ComputeWithForm(False, False)    
  2441.     profile.wDefaultMailOpt = "2"
  2442.     profile.wCalGridType = "3"    
  2443.     Call profile.Save(True,True,True)
  2444.     Exit Sub
  2445. ErrorRoutine:
  2446.     Messagebox(Cstr(Err)+":  "+Error+" wCreateDefaultCalendarProfile")
  2447. End Sub
  2448. '++LotusScript Development Environment:2:1:wGetCalendarProfile:1:8
  2449. Function wGetCalendarProfile As Integer
  2450.     On Error Goto ErrorRoutine
  2451.     wGetCalendarProfile=True
  2452.     Set profile = db.GetProfileDocument("CalendarProfile")
  2453.     If (profile.IsNewNote) Or  (Len(profile.getitemvalue("Owner")(0)) = 0) Then wCreateDefaultCalendarProfile    
  2454.     If profile.getitemvalue("Owner")(0) = "" Then wGetCalendarProfile=False
  2455.     Owner = profile.getitemvalue("Owner")(0)
  2456.     Exit Function
  2457. ErrorRoutine:
  2458.     Messagebox(Cstr(Err)+":  "+Error+" wGetCalendarProfile")
  2459. End Function
  2460. '++LotusScript Development Environment:2:2:CSDocSaveRepeatingEntry:1:8
  2461. Sub CSDocSaveRepeatingEntry(vBEobject As Variant)
  2462.     Dim nContext As Integer, nChangeWhich As Integer
  2463.     nContext = vBEobject.Context
  2464.     If (nContext = CTX_REPEAT_INST Or nContext = CTX_REPEAT_MSG) Then
  2465.         nChangeWhich = vBEObject.RepeatModify
  2466.         If nChangeWhich <> REPEAT_CANCEL Then Call vBEObject.ApplyRepeatChanges(nChangeWhich)
  2467.     End If
  2468. End Sub
  2469. '++LotusScript Development Environment:2:1:CSGetMainEventObject:1:8
  2470. Function CSGetMainEventObject(vBEObject As Variant) As Variant
  2471.     Select Case vBEObject.Context
  2472.     Case CTX_REPEAT_MSG
  2473.         Set CSGetMainEventObject = vbeobject.RepeatInstanceEvent
  2474.     Case CTX_REPEAT_NONE
  2475.         If (vBEObject.Document.IsResponse) Then
  2476.             Set CSGetMainEventObject = vbeobject.ParentEvent
  2477.         Else
  2478.             Set CSGetMainEventObject = vbeobject    
  2479.         End If
  2480.     Case Else
  2481.         Set CSGetMainEventObject = vBEObject        
  2482.     End Select
  2483. End Function
  2484. '++LotusScript Development Environment:2:2:Initialize:1:10
  2485. Sub Initialize
  2486. End Sub
  2487. '++LotusScript Development Environment:2:1:CSNoteGetType:1:8
  2488. Function CSNoteGetType(note As notesdocument) As Integer
  2489.     Dim strForm As String
  2490.     strForm = note.getitemvalue("Form")(0)
  2491.     If Instr(1, strForm, "task", 1) > 0 Then
  2492.         CSNoteGetType = 2
  2493.     Elseif Instr(1, strForm, "reservation", 1) > 0 Then
  2494.         CSNoteGetType = 3
  2495.     Else
  2496.         CSNoteGetType = 1
  2497.     End If
  2498. End Function
  2499. '++LotusScript Development Environment:2:1:CSProfileGetAutoAnnivRepeat:1:8
  2500. Function CSProfileGetAutoAnnivRepeat() As Integer
  2501.     Dim session As New notessession
  2502.     Dim profile As notesdocument
  2503.     Dim vValue As Variant
  2504.     Set profile = session.currentdatabase.getprofiledocument("CalendarProfile")
  2505.     vValue = profile.getitemvalue("AutoAnniversaryRepeat")(0)
  2506.     If Isnumeric(vValue) Then
  2507.         CSProfileGetAutoAnnivRepeat = vValue
  2508.     Else
  2509.         CSProfileGetAutoAnnivRepeat = 0
  2510.     End If
  2511. End Function
  2512. '++LotusScript Development Environment:2:1:CSEventPerformAction:1:8
  2513. Function CSEventPerformAction(vBEObject As Variant, Byval strAction As String, Byval bSendNow As Integer, vArgs As Variant) As Integer
  2514.     Dim note As notesdocument
  2515.     Dim bKeepPosted As Integer, fCancelFlags As Integer
  2516.     Set note = vBEObject.Document
  2517.     Select Case strAction
  2518.     Case ORS_MSGTYPE_ACCEPT    
  2519.         If (note.GetItemValue("tmpPencilIn")(0) = "1") Then strAction = ORS_MSGTYPE_PENCILIN
  2520.     Case ORS_MSGTYPE_CANCEL
  2521.               ' See if the user wants to delete the event; if they do, we must mark our owning document
  2522.               ' for deletion and let the backend remove the responses; otherwise, we end up removing the document
  2523.               ' from underneath ourselves
  2524.         fCancelFlags = Cint(vArgs)
  2525.         If (note.GetItemValue("tmpDeleteEntry")(0) = "1" And Not((fCancelFlags And REMOVE_DELETED) = REMOVE_DELETED)) Then
  2526.             fCancelFlags = fCancelFlags Or REMOVE_RESPONSES
  2527.             vArgs = Cint(fCancelFlags)
  2528.         End If
  2529.     Case ORS_MSGTYPE_DELEGATING, ORS_MSGTYPE_REJECT
  2530.         bKeepPosted = (note.GetItemValue("tmpKeepPosted")(0) = "1")
  2531.         vArgs = Cint(bKeepPosted)
  2532.     End Select
  2533.     CSEventPerformAction = CSEventPerformActionGuts(vBEObject, strAction, bSendNow, vArgs)
  2534. End Function
  2535. '++LotusScript Development Environment:2:1:CSEventPerformActionGuts:1:8
  2536. Function CSEventPerformActionGuts(vBEObject As Variant, strAction As String, bSendNow As Integer, vArgs As Variant) As Integer
  2537.     If Isarray(vArgs) = False Then
  2538.         If Datatype(vArgs) = 8 Then
  2539.             Call vbeobject.ActionHandler(strAction, Cint(bSendNow), Cstr(vArgs))
  2540.         Elseif Isnumeric(vArgs) Then
  2541.             Call vbeobject.ActionHandler(strAction, Cint(bSendNow), Cint(vArgs))
  2542.         End If
  2543.     Else
  2544.         Call vbeobject.ActionHandler(strAction, Cint(bSendNow), vArgs)
  2545.     End If
  2546. End Function
  2547. a\C\C@ 
  2548. X7X7p
  2549. Lotus Product
  2550. !d$H(    
  2551. %p-0%p-
  2552. *0,$*    
  2553. 3l4l4l4
  2554. :h;h;h;
  2555. ?p@p@p@
  2556. F|G|G
  2557.  J,Q(I
  2558. 8I8I`
  2559. |Wd\4Xd\
  2560. tYtYdYdY
  2561. |[|[X
  2562. 4\4\$\D\
  2563. HtaTe
  2564. g\g\g
  2565. g|g|g
  2566. LlLlp
  2567. $m$m4mTm
  2568. \s\s<s<s
  2569. lsls,s,s
  2570. ,sLs8
  2571. $t4tP
  2572. \x\x<x<x
  2573. ydyDyDy
  2574. {<z<z|z|z
  2575. zLzLz,z
  2576. *K %-
  2577. !\ %$
  2578. ]P1}L8
  2579. ]P1}t8
  2580. ]P1}\;
  2581. ]P10d.a
  2582. 3}p>0
  2583. ]L8},G
  2584. ]L8}\G
  2585. ]L8}4H
  2586. ]L8}dH
  2587. ]L80d.a
  2588. </\<~T
  2589. </\<~T
  2590. A}t]I
  2591. A} pI
  2592. ]PD}({
  2593. ]PD}D|
  2594. ]PD}D
  2595. ]PDIpD
  2596. ]PDIpD
  2597. ]PDIpD
  2598. ]PDIpD
  2599. ]PD}\
  2600. F* W]
  2601. ]\G* W
  2602. IK(I-
  2603. ]PKH(I
  2604. K(I,X
  2605. K(I,X
  2606. ^dMK(I,
  2607. ]TMJdM
  2608. MKdM-0
  2609. KdM,T
  2610. KH(I}
  2611. ]TMJtM
  2612. KH(I}
  2613. K,N- J#-
  2614. K,N- J#}
  2615. K,N- J#,
  2616. K,N- J#,
  2617. K<N,8
  2618. O- J#
  2619. OMHI5h
  2620. hHIx8.
  2621. #/LNyh
  2622. mHI##
  2623. ItP#8
  2624. K(I,x
  2625. ]dPItP#1
  2626. K(I,X
  2627. K(I,X
  2628. 0XI]$X#
  2629. K(I,X
  2630. \|WKtYL(I,
  2631. O]tY#
  2632. ^|[K(I,
  2633. K(I,X
  2634. [^|[^l[##1
  2635. K(I,X
  2636. [K(I,
  2637. #^l[##1
  2638. K(I,X
  2639. [K(I,
  2640. #^l[##1
  2641. h]D\]4\#
  2642. ]$\I4\
  2643. K(I,X
  2644. K(I,X
  2645. K(I,X
  2646. K(I,X
  2647. e]lg^
  2648. e]|g^
  2649. n]<l}
  2650. ^llKLl,
  2651. Kll-0
  2652. ]\lKll-d
  2653. jK$m-
  2654. jK4m-
  2655. JTm#~
  2656. n]dp]tp]
  2657. qKlq,
  2658. qKlq,
  2659. qKlq,
  2660. f^|q^
  2661. h]Tr]dr#
  2662. ^\sKls,
  2663. K\s_8II,s
  2664. OKls,
  2665. F]<s##1
  2666. K\s- J#,X
  2667. ]Ls#1
  2668. sK\s- J#
  2669. NLxP 
  2670. ^\xNLxP
  2671. NLxP 
  2672. ^lxNLxP
  2673. K$y,X
  2674. IDy~t
  2675. K$y,x
  2676. K$y,x
  2677. K$y,X
  2678. ILz~4
  2679. zKlz,
  2680. ]<zI<zJ
  2681. }^lzI<zb
  2682. Klz,x
  2683. Klz,X
  2684. ILz~t
  2685. Klz,X
  2686. #Klz-
  2687. Klz,X
  2688. ^|z#1
  2689. I<z~T
  2690. z],z]\z#
  2691. Klz,x
  2692. {,d.~
  2693. {,d.~
  2694. Klz,x
  2695. [0 +p
  2696. !K0 -l
  2697. !K0 -
  2698. Kd$,X
  2699. Members
  2700. Members
  2701.     1S2S3S5S7S
  2702.     0S0E
  2703. O=Lotus Notes
  2704. O=Lotus Notes
  2705. PURSAFO
  2706. |.:#U
  2707. O=Lotus Notes
  2708. CN=Lotus Notes Template Development/O=Lotus Notes
  2709. PURSAFO
  2710. $TITLE
  2711. $PublicAccess
  2712. $Language
  2713. $LastBuildTime
  2714. $BabelInfo
  2715. $ScriptLib
  2716. $ScriptLib_O
  2717. '++LotusScript Development Environment:2:5:(Options):0:74
  2718. Option Public
  2719. Option Declare
  2720. Option Compare Nocase
  2721. Use "Common"  
  2722. '++LotusScript Development Environment:2:5:(Forward):0:1
  2723. Declare Class UIMemoDocument
  2724. Declare Sub MEMOReplyToAll(note As notesdocument)
  2725. Declare Function IsDocAltNameCandidate(note As notesdocument) As Integer
  2726. Declare Function NameRemoveFromList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
  2727. Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
  2728. Declare Function ArrayRemoveItems(vLIst1, vList2) As Variant
  2729. Declare Function NameConstructVariations(strNAME As String, strOwnerDomain As String, strFromDomain As String) As Variant
  2730. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2731. 'CoreEmailClasses: 
  2732. Const MEMO_OWNER                    =            &h00000001&
  2733. Const MEMO_AUTOSIGNATURE        =             &h00000002&
  2734. Const MEMO_SPELLCHECK            =            &h00000004&
  2735. Const MEMO_SIGN                        =            &h00000008&
  2736. Const MEMO_EDITSTATIONERY     =             &h00000020&
  2737. Const MEMO_ISSTATIONERY        =             &h00000100&
  2738. Const MEMO_TOMGR                     =            &h00000200&
  2739. Const MEMO_SEND                         =            &h00000400&
  2740. Const MEMO_SAVE                         =            &h00000800&
  2741. Const MEMO_DRAFT                     =            &h00001000&
  2742. Const MEMO_ISNEWDOC                 =            &h00002000&
  2743. Const MEMO_READER                     =            &h00004000&
  2744. Const MEMO_ISDIRTY                     =            &h00008000&
  2745. Const MEMO_WASMAILED             =            &h00010000&
  2746. Const MEMO_REPLYTOALL            =            &h00020000&
  2747. Const MEMO_WASSAVED             =            &h00080000&
  2748. Const MEMO_SEND_FILE                 =            &h00200000&
  2749. Const MEMO_CANCEL                     =            &h00400000&
  2750. Const MEMO_STATPUTINFOLD         =            &h00800000&
  2751. Const MEMO_ACTION_NONE         =            &h01000000&
  2752. Const MEMO_NEWCOPY                =            &h04000000&
  2753. Const MEMO_ALWAYSSAVE            =            &h08000000&
  2754. Const MEMO_ALWAYSPROMPT        =            &h10000000&
  2755. Const MEMO_NEVERSAVE            =            &h20000000&
  2756. Const MEMO_DISCARD                    =            &h40000000&
  2757. Const MEMO_STATIONERYSAVE    =            &h00000010&
  2758. Const ITEM_NO_FORCE_ACTION    =             0
  2759. Const ITEM_FORCE_ACTION            =            1
  2760. Const ITEM_REMOVE                    =             2
  2761. 'editor option fields....
  2762. Const ITEM_MAILOPTION$        =            "MailOptions"
  2763. Const ITEM_SAVEOPTIONS$        =            "SaveOptions"
  2764. Const ITEM_AUTOSPELL$        =            "$AutoSpell"
  2765. Const ITEM_MAILSAVEOPTIONS        =            "MailSaveOptions"
  2766. Const ITEM_VERSIONOPTIONS        =            "$VersionOpt"
  2767. Const ITEM_ACTIONINPROGRESS        =        "ActionInProgress"
  2768. Const ITEM_MERGEFLAG            =    "MergeFlag"
  2769. Class UIMemoDocument
  2770.     'Objects
  2771.     Public  m_noteUIMemo As notesuidocument    
  2772.     Private m_uiws As notesuiworkspace 
  2773.     Private m_calprofile As notesdocument
  2774.     Private m_noteMemo As notesdocument
  2775.     Private m_noteCursorDoc As notesdocument    
  2776.     Private m_session As notessession
  2777.     Private m_objStringTable As MemoStringTable
  2778.     Private m_acl As notesacl
  2779.     Private m_aclentry As notesaclentry
  2780.     ' Properties
  2781.     Private m_vValidUsers As Variant
  2782.     Private m_vManager As Variant
  2783.     Private m_vFILTER As Variant                    
  2784.     Private m_nNameInValid As Integer            
  2785.     Private m_lngFlags As Long
  2786.     Private m_lngActionInProgress As Long    
  2787.     Private m_nSuccess As Integer
  2788.     Private m_nSignatureOption As Integer
  2789.     Private m_nWasSaved As Integer
  2790.     Private m_nSaveFlag As Integer                    
  2791.     Private m_strEditType As String
  2792.     Private m_strSignature As String
  2793.     Private m_strResponse As String                
  2794.     Private m_strFromname As String
  2795.     Private m_strNameArray() As String
  2796.     Private m_nNonServerNames As Integer
  2797.     Private m_nNonServerFound As Integer
  2798.     Private m_nTempSignatureOption As Integer
  2799.     Private m_nCallFolderOp    As Integer
  2800. '//Constructor//
  2801.     Sub New
  2802.         Set Me.m_session = New notessession
  2803.         Set Me.m_calprofile = Me.m_session.CurrentDatabase.GetProfileDocument("CalendarProfile")
  2804.         If Not Me.m_calprofile.HasItem("Owner") Then 'must create if never setup
  2805.             Call Me.m_calprofile.replaceitemvalue("Form","CalendarProfile")
  2806.             Call Me.m_calprofile.replaceitemvalue("Owner", Me.m_session.username)
  2807.             Call Me.m_calprofile.ComputeWithForm(True,False)
  2808.             Call Me.m_calprofile.RemoveItem("$CSVersion")
  2809.             Call Me.m_calprofile.save(True,False,True)
  2810.         End If
  2811.         If Isnumeric(Me.m_calprofile.GetItemValue("Spellcheck")(0)) Then
  2812.             Call SetFlag(MEMO_SPELLCHECK)
  2813.         End If
  2814.         If Isnumeric(Me.m_calprofile.GetItemValue("SignatureOption")(0)) Then
  2815.             Me.m_nSignatureOption = Cint(Me.m_calprofile.GetItemValue("SignatureOption")(0))
  2816.             Me.m_strSignature = Me.m_calprofile.GetItemValue("Signature")(0)
  2817.         End If
  2818.         If Isnumeric(Me.m_calprofile.GetItemValue("EnableSignature")(0)) Then
  2819.             Call SetFlag(MEMO_AUTOSIGNATURE)
  2820.         End If
  2821.         If Isnumeric(Me.m_calprofile.GetItemValue("SignMail")(0)) Then
  2822.             Call SetFlag(MEMO_SIGN)
  2823.         End If
  2824.     End Sub     
  2825.     Function Init(uidoc As notesuidocument, bIsNewDoc As Variant)
  2826.         If Isobject(uidoc) Then
  2827.             If Not uidoc.inpreviewpane Then            
  2828.                 Set Me.m_objStringTable = New MemoStringTable        
  2829.                 If Not bIsNewDoc Then
  2830.                     Set Me.m_noteMemo = uidoc.document
  2831.                     Call RemoveEnterItems()
  2832.                 Else
  2833.                     Call SetFlag(MEMO_OWNER)
  2834.                     Call SetFlag(MEMO_ISNEWDOC)
  2835.                 End If
  2836.                 Call SetActionInProgress(MEMO_ACTION_NONE)
  2837.                 Set Me.m_uiws = New notesuiworkspace            
  2838.                 Set Me.m_noteUIMemo = uidoc                    
  2839.                 Me.m_noteUIMemo.autoreload = False
  2840.             End If
  2841.         End If
  2842.     End Function
  2843.     Function PostOpen(uidoc As notesuidocument)
  2844.         Set Me.m_noteUIMemo = uidoc
  2845.         Set Me.m_noteMemo = uidoc.document
  2846.         If Not uidoc.inpreviewpane Then                    
  2847.             If Me.m_noteMemo.hasitem("PostedDate") Then
  2848.                 Call SetFlag(MEMO_WASMAILED)
  2849.                 Me.m_vValidUsers = Fulltrim(Arrayappend(Me.m_noteMemo.GetItemValue("from"),_
  2850.                 Me.m_noteMemo.GetItemValue("Principal")))
  2851.                 Me.m_nNameInValid = NAMEFindInList(Me.m_session.username, Me.m_vValidUsers)
  2852.                 If Me.m_nNameInValid < 0 Then
  2853.                     Call SetFlag(MEMO_READER)
  2854.                 Else
  2855.                     Call SetFlag(MEMO_OWNER)
  2856.                 End If
  2857.             End If
  2858.             Call GetMemoType(Me.m_noteMemo)        
  2859.             If IsFlagSet(MEMO_OWNER) Then
  2860.                 Call SetPreferenceFields()            
  2861.                 If IsFlagSet(MEMO_TOMGR) Then
  2862.                     Call ClearFlag(MEMO_TOMGR)
  2863.                     Me.m_vManager = Evaluate("@DbManager")   'this contains all managers, let's parse out server names
  2864.                     Call Me.m_noteMemo.replaceitemvalue("EnterSendTo",RemoveServersFromList(Me.m_vManager))
  2865.                     Call MarkDirty()
  2866.                 Elseif IsFlagSet(MEMO_REPLYTOALL) Then
  2867.                     Call MEMOReplyToAll(Me.m_noteMemo)
  2868.                     Call MarkDirty()
  2869.                 End If
  2870.             End If
  2871. 'Get the editor's default document disposition
  2872.             Select Case Me.m_noteMemo.GetItemValue("DefaultMailSaveOptions")(0)
  2873.             Case "0"
  2874.                 Call SetFlag(MEMO_NEVERSAVE)    
  2875.             Case "1"
  2876.                 Call SetFlag(MEMO_ALWAYSSAVE)
  2877.             Case "2"
  2878.                 Call SetFlag(MEMO_ALWAYSPROMPT)
  2879.             End Select
  2880.             Call ProcessStationery()                        
  2881.             If Not Me.m_noteMemo.IsNewNote Then
  2882.                 If Not IsFlagSet(MEMO_WASMAILED) Then
  2883.                     Me.m_noteUIMemo.editmode = True
  2884.                 End If
  2885.                 If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
  2886.                     Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  2887.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  2888.                 End If
  2889.             Else
  2890.                 If IsFlagSet(MEMO_AUTOSIGNATURE) Then
  2891.                     Call InsertSignature(True)
  2892.                 End If
  2893.                 If Me.m_noteUIMemo.EditMode Then
  2894.                     If IsFlagSet(MEMO_READER) Then
  2895.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2896.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  2897.                         Call SetOptionField(ITEM_MAILSAVEOPTIONS,ITEM_REMOVE)
  2898.                     Else
  2899.                         If Not IsFlagSet(MEMO_ISSTATIONERY) Then
  2900.                             Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  2901.                             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  2902.                         End If
  2903.                     End If
  2904.                 End If
  2905.             End If
  2906.             If IsFlagSet(MEMO_ISDIRTY) Then
  2907.                 Call reload()        
  2908.             End If                 
  2909.         End If
  2910.     End Function
  2911.     Function QueryModeChange(uidoc As notesuidocument) As Integer
  2912.         If uidoc.inpreviewpane Then            
  2913.             QueryModeChange = False    
  2914.         Else
  2915.             QueryModeChange = True
  2916.         End If
  2917.     End Function
  2918.     Function PostModeChange
  2919.         If Me.m_noteUIMemo.EditMode Then
  2920.             If IsFlagSet(MEMO_READER) Then
  2921.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2922.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  2923.                 Call SetOptionField(ITEM_MAILSAVEOPTIONS,ITEM_REMOVE)
  2924.             Else
  2925.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  2926.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  2927.             End If
  2928.         End If
  2929.     End Function
  2930.     Function QuerySave(continue As Variant)
  2931.         On Error Goto TRAP
  2932.         Dim nMailerError As Integer
  2933.         Call GetActionInProgressFromNoteItem()
  2934.         Call MergeFlagFromNoteItem()
  2935.         Select Case Me.m_lngActionInProgress
  2936.         Case MEMO_CANCEL
  2937.             Call SetOptionField(ITEM_AUTOSPELL,ITEM_NO_FORCE_ACTION)
  2938.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2939.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  2940.             Exit Function
  2941.         Case MEMO_DRAFT
  2942.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2943.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  2944.             Call SetViewFields()
  2945.             If IsFlagSet(MEMO_ISDIRTY) Then
  2946.                 Call reload()        
  2947.             End If                 
  2948.         Case MEMO_SAVE
  2949.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  2950.         Case MEMO_SEND
  2951.             If Me.m_lngFlags And MEMO_ALWAYSPROMPT Then
  2952.                 Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+23,""), MB_YESNOCANCEL ,_
  2953.                 Me.m_objStringTable.getstring(MEMO_STRING+16,""))
  2954.                 If Me.m_nSaveFlag = IDCANCEL Then
  2955.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  2956.                     Call SetActionInProgress(MEMO_ACTION_NONE)
  2957.                     continue = False
  2958.                     Exit Function
  2959.                 Else
  2960.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  2961.                     Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
  2962.                     Call Me.m_noteUIMemo.Send()
  2963.                     Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2964.                     If Me.m_nSaveFlag = IDYES Then
  2965.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  2966.                     Else
  2967.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  2968.                     End If
  2969.                 End If
  2970.             Else            
  2971.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  2972.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
  2973.                 Call Me.m_noteUIMemo.Send()
  2974.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2975.                 If Me.m_lngFlags And MEMO_ALWAYSSAVE Then
  2976.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  2977.                 End If
  2978.                 If Me.m_lngFlags And MEMO_NEVERSAVE Then
  2979.                     Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  2980.                 End If            
  2981.             End If        
  2982.         Case MEMO_SEND_FILE
  2983.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  2984.             Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
  2985.             Call Me.m_noteUIMemo.Send()
  2986.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  2987.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  2988.             Me.m_nCallFolderOp = True        
  2989.         Case Else
  2990.             If IsFlagSet(MEMO_ISSTATIONERY) Then
  2991.                 If IsFlagSet(MEMO_ISNEWDOC) Then
  2992.                     If Not (m_lngActionInProgress = MEMO_STATIONERYSAVE) Then        
  2993.                 'the user pressed esc key if the doc is dirty let's get their save disposition
  2994.                         Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+22,""), MB_YESNO , _
  2995.                         Me.m_objStringTable.getstring(MEMO_STRING+16,""))
  2996.                         If Me.m_nSaveFlag = IDNO Then
  2997.                             Call SetActionInProgress(MEMO_CANCEL)
  2998.                             Exit Function                            
  2999.                         End If                
  3000.                     End If
  3001.                 End If 
  3002.                 If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
  3003.                     Me.m_strResponse = Inputbox$(Me.m_objStringTable.getstring(MEMO_STRING+1,""),_
  3004.                     Me.m_objStringTable.getstring(MEMO_STRING+16,""),Me.m_objStringTable.getstring(MEMO_STRING+17,""))                
  3005.                     If Me.m_strResponse = "" Then
  3006.                         Continue = False                    
  3007.                     End If
  3008.                     Call Me.m_noteMemo.replaceitemvalue("MailStationeryName" , Me.m_strResponse)               
  3009.                     Call SetFlag(MEMO_STATPUTINFOLD)
  3010.                     With Me.m_noteMemo
  3011.                         Call .replaceitemvalue("Form", "Memo")
  3012.                         Call .replaceitemvalue("IsMailStationery" , 1)
  3013.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  3014.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  3015.                         Call .removeitem("PostedDate")
  3016.                         Call .removeitem("DeliveredDate")            
  3017.                     End With
  3018.                 Else
  3019.                     If Me.m_lngActionInProgress = MEMO_STATIONERYSAVE Then
  3020.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  3021.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  3022.                     Else
  3023.                         Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+20,""), MB_YESNOCANCEL , _
  3024.                         Me.m_objStringTable.getstring(MEMO_STRING+16,""))
  3025.                         Select Case Me.m_nSaveFlag
  3026.                         Case IDYES
  3027.                             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  3028.                         Case IDNO
  3029.                             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  3030.                         Case IDCANCEL
  3031.                             Continue = False
  3032.                             Exit Function
  3033.                         End Select
  3034.                     End If
  3035.                 End If
  3036.                 Call SetViewFields()
  3037.                 If IsFlagSet(MEMO_ISDIRTY) Then
  3038.                     Call reload()        
  3039.                 End If                 
  3040.             Else
  3041.                 If m_lngActionInProgress = MEMO_STATIONERYSAVE Then
  3042.                     Me.m_nCallFolderOp = True                    
  3043.                 End If
  3044.             End If                    
  3045.             If Me.m_noteMemo.HasItem(ITEM_VERSIONOPTIONS) Then 
  3046.                 Call Me.m_noteMemo.ReplaceItemValue(ITEM_VERSIONOPTIONS, "0")
  3047.             End If            
  3048.         End Select        
  3049.         Exit Function        
  3050. TRAP:
  3051.         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  3052.         Call SetActionInProgress(MEMO_ACTION_NONE)
  3053.         continue = False
  3054.         Exit Function
  3055.     End Function
  3056.     Function QueryClose(continue As Integer)
  3057.         If Me.m_nCallFolderOp Then
  3058.             Call Me.m_uiws.folder(,1)        
  3059.         End If
  3060.     End Function
  3061.     Private Function SetOptionField(Itemname As String, nFlag As Integer)
  3062.         With Me.m_noteMemo
  3063.             Select Case nFlag
  3064.             Case ITEM_NO_FORCE_ACTION
  3065.                 Call .replaceitemvalue(Itemname,"0")                                        
  3066.             Case ITEM_FORCE_ACTION
  3067.                 Call .replaceitemvalue(Itemname,"1")                                        
  3068.             Case ITEM_REMOVE
  3069.                 Call .removeitem(Itemname)                            
  3070.             End Select
  3071.         End With
  3072.     End Function
  3073.     Public Function GetActionInProgressFromNoteItem()
  3074.         If Me.m_noteMemo.HasItem(ITEM_ACTIONINPROGRESS) Then    
  3075.             Call SetActionInProgress(Val(Me.m_noteMemo.GetItemValue(ITEM_ACTIONINPROGRESS)(0)))
  3076.             Call SetOptionField(ITEM_ACTIONINPROGRESS,ITEM_REMOVE)
  3077.         End If
  3078.     End Function
  3079.     Public Function MergeFlagFromNoteItem()
  3080.         If Me.m_noteMemo.HasItem(ITEM_MERGEFLAG) Then
  3081.             Call SetFlag(Val(Me.m_noteMemo.GetItemValue(ITEM_MERGEFLAG)(0)))
  3082.             Call SetOptionField(ITEM_MERGEFLAG,ITEM_REMOVE)
  3083.         End If
  3084.     End Function
  3085.     Sub ReplyToAll
  3086.         Call MEMOReplyToAll(Me.m_noteMemo)
  3087.         Call Reload()
  3088.     End Sub
  3089.     Private Function RemoveEnterItems()
  3090.         With Me.m_noteMemo        
  3091.             If .HasItem("PostedDate") Then
  3092.                 Call .RemoveItem("EnterSendTo")
  3093.                 Call .RemoveItem("EnterCopyTo")
  3094.                 Call .RemoveItem("EnterBlindCopyTo")
  3095.             End If
  3096.         End With
  3097.     End Function
  3098.     Private Function RemoveServersFromList(arrayNames As Variant) As Variant    
  3099.         Set Me.m_acl = Me.m_session.currentdatabase.acl
  3100.         Me.m_nNonServerNames = 0
  3101.         Forall strNames In arrayNames
  3102.             Set Me.m_aclentry = Me.m_acl.getentry(strNames)
  3103.             If Not Me.m_aclentry.Isserver Then
  3104.                 Redim Preserve Me.m_strNameArray(Me.m_nNonServerNames)
  3105.                 Me.m_strNameArray(Me.m_nNonServerNames) = strNames        
  3106.                 Me.m_nNonServerFound = True
  3107.                 Me.m_nNonServerNames = Me.m_nNonServerNames + 1
  3108.             End If
  3109.         End Forall
  3110.         If Me.m_nNonServerFound Then
  3111.             RemoveServersFromList = Me.m_strNameArray
  3112.         Else
  3113.             RemoveServersFromList = arrayNames
  3114.         End If
  3115.     End Function
  3116.     Sub InsertSignature(FromMailPreference As Integer)
  3117.         Select Case Me.m_noteMemo.GetItemValue("Form")(0)
  3118.         Case "Bookmark", "Phone Message"
  3119.             Exit Sub            
  3120.         End Select
  3121.         If Not FromMailPreference Then
  3122.             If Not Me.m_noteUIMemo.CurrentField = "Body" Then
  3123.                 Messagebox(Me.m_objStringTable.getstring(MEMO_STRING+19,""))
  3124.                 Exit Sub
  3125.             End If
  3126.             Set Me.m_noteCursorDoc = Me.m_session.currentdatabase.CreateDocument
  3127.             Me.m_nSuccess = Me.m_uiws.dialogbox("(SignatureOption)", True,True,False,False,False,False,_
  3128.             Me.m_objStringTable.getstring(MEMO_STRING+18,""),Me.m_noteCursorDoc,True)
  3129.             If Me.m_nSuccess Then    
  3130.                 Me.m_nTempSignatureOption = Cint(Me.m_noteCursorDoc.GetItemValue("SignatureOption")(0))
  3131.                 If Me.m_nTempSignatureOption = 2 Then
  3132.                     Me.m_nSignatureOption = Me.m_nTempSignatureOption
  3133.                     Me.m_strSignature = Me.m_noteCursorDoc.GetItemValue("Signature")(0)
  3134.                 End If
  3135.             Else 
  3136.                 Exit Sub
  3137.             End If        
  3138.         End If    
  3139.         Select Case Me.m_nSignatureOption
  3140.         Case 1
  3141.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  3142.             Call Me.m_noteUIMemo.inserttext(Me.m_strSignature)
  3143.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  3144.         Case 2 
  3145.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  3146.             Me.m_vFILTER = Evaluate(|@RightBack("| & Me.m_strSignature & |";".")|)
  3147.             Select Case Ucase(Me.m_vFILTER(0))
  3148.             Case "TXT"
  3149.                 Me.m_vFILTER(0) = "ASCII"
  3150.             End Select
  3151.             Call Me.m_noteUIMemo.InsertText(Chr(10))
  3152.             Call Me.m_noteUIMemo.Import(Me.m_vFILTER(0),Me.m_strSignature)
  3153.             If FromMailPreference Then Call Me.m_noteUIMemo.GotoField("Body")
  3154.         End Select    
  3155.         If  FromMailPreference And Not Me.m_noteMemo.GetItemValue("Form")(0) = "Memo" Then 
  3156.             Call Me.m_noteUIMemo.GotoField("Body")                
  3157.         Elseif FromMailPreference Then
  3158.             Call Me.m_noteUIMemo.GotoField("EnterSendTo")                
  3159.         End If
  3160.     End Sub
  3161.     Sub Reload()
  3162.         ClearFlag(MEMO_ISDIRTY)
  3163.         If Me.m_noteUIMemo.editmode Then    
  3164.             Call Me.m_noteUIMemo.reload
  3165.         End If
  3166.         Call Me.m_noteUIMemo.RefreshHideFormulas
  3167.     End Sub
  3168.     Function PostSave()
  3169.         'clean up flags so they don't fire next round
  3170.         Select Case Me.m_lngActionInProgress
  3171.         Case MEMO_SEND_FILE,MEMO_SEND,MEMO_STATIONERYSAVE
  3172.             Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  3173.             Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
  3174.         End Select
  3175.         Call SetActionInProgress(MEMO_ACTION_NONE)
  3176.         If IsFlagSet(MEMO_STATPUTINFOLD) Then
  3177.             Call ClearFlag(MEMO_STATPUTINFOLD)
  3178.         End If
  3179.         If IsFlagSet(MEMO_ISNEWDOC) Then
  3180.             Call ClearFlag(MEMO_ISNEWDOC)
  3181.             Call SetFlag(MEMO_WASSAVED)
  3182.         End If
  3183.     End Function
  3184.     Function SetActionInProgress(lngAction As Long)
  3185.         Me.m_lngActionInProgress = lngAction
  3186.     End Function
  3187.     Function SetFlag(lngOption As Long)
  3188.         If Not (Me.m_lngFlags And lngOption) = lngOption Then    
  3189.             Me.m_lngFlags = Me.m_lngFlags Or lngOption        
  3190.         End If
  3191.     End Function
  3192.     Function ClearFlag(lngOption As Long)
  3193. '        Me.m_lngFlags = Me.m_lngFlags And Not(lngOption)
  3194.         If (Me.m_lngFlags And lngOption) = lngOption Then
  3195.             Me.m_lngFlags = Me.m_lngFlags Xor lngOption
  3196.         End If
  3197.     End Function
  3198.     Function IsFlagSet(lngOption As Long) As Integer
  3199.         If (Me.m_lngFlags And lngOption) = lngOption Then
  3200.             IsFlagSet = True
  3201.         End If
  3202.     End Function
  3203.     Property Get EditType(bRemove As Integer) As String
  3204.         Me.m_strEditType = Me.m_session.GetEnvironmentString("MailStEd")
  3205.         If Len(Me.m_strEditType) And (bRemove) Then
  3206.             Call Me.m_session.SetEnvironmentVar("MailStEd","")
  3207.             EditType = Me.m_strEditType
  3208.         Else
  3209.             EditType = Me.m_strEditType
  3210.         End If
  3211.     End Property
  3212.     Function GetMemoType(note As NotesDocument)
  3213.         Me.m_strEditType = EditType(True)        
  3214.         If (note.isnewnote) Then
  3215.             If (Len(Me.m_strEditType)) Then
  3216.                 If (Me.m_strEditType = "1") Then
  3217.                     Call SetFlag(MEMO_ISSTATIONERY)
  3218.                 Elseif (Me.m_strEditType = "5") Then
  3219.                     Call SetFlag(MEMO_NEWCOPY)
  3220.                 Elseif (Me.m_strEditType = "6") Then
  3221.                     Call SetFlag(MEMO_TOMGR)
  3222.                 Elseif (Me.m_strEditType = "9") Then
  3223.                     Call SetFlag(MEMO_REPLYTOALL)
  3224.                 End If
  3225.             End If
  3226.             Call SetFlag(MEMO_OWNER)
  3227.         Else
  3228.             If Me.m_strEditType = "2" Then    'User is editing a stationery
  3229.                 Call SetFlag(MEMO_ISSTATIONERY)
  3230.                 Call SetFlag(MEMO_EDITSTATIONERY)
  3231.                 Exit Function
  3232.             End If
  3233.             If note.HasItem("IsMailStationery") Then            
  3234.                 If Isnumeric(Me.m_noteMemo.GetItemValue("IsMailStationery")(0)) Then
  3235.                     If Cint(Me.m_noteMemo.GetItemValue("IsMailStationery")(0)) Then
  3236.                         Call SetFlag(MEMO_ISSTATIONERY)
  3237.                     End If
  3238.                 End If
  3239.             End If
  3240.             If note.HasItem("Principal") Then
  3241.                 Me.m_strFromname = note.GetItemvalue("Principal")(0)
  3242.                 If Len(Me.m_strFromname) = 0 Then
  3243.                     Me.m_strFromname = note.GetItemValue("From")(0)
  3244.                 End If
  3245.             Else
  3246.                 Me.m_strFromname = note.GetItemValue("From")(0)
  3247.             End If
  3248.             If NAMECompare(Me.m_strFromname, Me.m_session.username) Then
  3249.                 Call SetFlag(MEMO_OWNER)
  3250.             Else
  3251.                 Call SetFlag(MEMO_READER)
  3252.             End If
  3253.         End If
  3254.     End Function
  3255.     Sub SetPreferenceFields()
  3256.         If IsFlagSet(MEMO_SPELLCHECK) Then
  3257.             Call SetOptionField(ITEM_AUTOSPELL,ITEM_FORCE_ACTION)
  3258.             Call MarkDirty()
  3259.         End If 
  3260.     End Sub
  3261.     Sub ProcessStationery()
  3262.         If IsFlagSet(MEMO_ISSTATIONERY) Then
  3263.             If Not IsFlagSet(MEMO_ISNEWDOC) Then
  3264.                 If Not IsFlagSet(MEMO_EDITSTATIONERY) Then
  3265.                     With Me.m_noteMemo
  3266.                         Call .RemoveItem("IsMailStationery")
  3267.                         Call .RemoveItem("MailStationeryName")
  3268.                         Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)            
  3269.                         Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
  3270.                         Call .ReplaceItemValue(ITEM_VERSIONOPTIONS, "6")
  3271.                     End With
  3272.                     Call ClearFlag(MEMO_ISSTATIONERY)
  3273.                 Else
  3274.                 End If
  3275.             Else  'make sure a new note has the flags set so it prompts for stationery name
  3276.                 Call Me.m_noteMemo.replaceitemvalue("IsMailStationery",1)
  3277.                 Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
  3278.                 Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
  3279.                 Call MarkDirty()
  3280.             End If
  3281.         End If
  3282.     End Sub
  3283.     Sub SetViewFields()
  3284.     End Sub
  3285.     Sub MarkDirty()
  3286.         Call SetFlag(MEMO_ISDIRTY)
  3287.     End Sub
  3288. End Class
  3289. '++LotusScript Development Environment:2:2:MEMOReplyToAll:1:8
  3290. Sub MEMOReplyToAll(note As notesdocument)
  3291.     Dim vOtherName As Variant    
  3292.     Dim vInheritedSendTo As Variant
  3293.     Dim vRealInheritedSendTo As Variant
  3294.     Dim strOwnerDomain As Variant
  3295.     Dim strOwner As String    
  3296.     Dim strSenderDomain As String    
  3297.     Dim iSenderIndex As Integer
  3298.     Dim x As Integer
  3299.     Dim strInheritedDomain As String
  3300.     strOwner = CSGetMailFileOwner()
  3301.     strOwnerDomain = Evaluate(|@Domain|)
  3302.     If IsDocAltNameCandidate(note) Then
  3303.         vInheritedSendTo = note.GetItemValue("InheritedAltSendTo")
  3304.     Else
  3305.         vInheritedSendTo = note.GetItemValue("InheritedSendTo")
  3306.     End If
  3307.     strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
  3308.     ' Remove the sender from the list
  3309.     vInheritedSendTo = NameRemoveFromList(strOwner,strOwnerDomain(0),strInheritedDomain,_
  3310.     vInheritedSendTo)        
  3311.     If Isarray(vInheritedSendTo) = False Then Exit Sub
  3312.     vRealInheritedSendTo = Fulltrim(vInheritedSendTo)
  3313.     ' Master the mail domains 
  3314.     If Len(strInheritedDomain) Then
  3315.         For x = 0 To Ubound(vRealInheritedSendTo)
  3316.             If Not vRealInheritedSendTo(x) = "" Then
  3317.                 strSenderDomain = Strright(vRealInheritedSendTo(x),"@")
  3318.                 'Looks like an Internet address let's let it roll as Global domain                
  3319.                 If Instr(strSenderDomain,".") = 0 Then
  3320.                 'Find all addresses whose domain is the same as ours and skip it
  3321.                     If (Strcompare(strOwnerDomain(0),strSenderDomain,1) <> 0) Then
  3322.                     'Look for all addresses whose last domain is the same as the sender's domain and skip it
  3323.                         If (Strcompare(strInheritedDomain,strSenderDomain,1) <> 0) Then                
  3324.                             vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain
  3325.                         End If
  3326.                     End If
  3327.                 End If
  3328.             End If
  3329.         Next
  3330.     End If
  3331.     Call note.ReplaceItemValue("EnterCopyTo", vRealInheritedSendTo)
  3332. End Sub
  3333. '++LotusScript Development Environment:2:1:IsDocAltNameCandidate:1:8
  3334. Function IsDocAltNameCandidate(note As notesdocument) As Integer
  3335.     IsDocAltNameCandidate = False
  3336.     If note.GetItemValue("NamePreference")(0) = "1" Then  'user wants to view alt names
  3337.         If (note.IsNewNote) Or Not (note.HasItem("PostedDate"))Then  'this is a routed note, parse the language tags
  3338.             If note.HasItem("$NameLanguageTags") Then
  3339.                 Dim tmp_vNameLanguageTags As Variant
  3340.                 IsDocAltNameCandidate = True
  3341.                 tmp_vNameLanguageTags = note.GetItemValue("$NameLanguageTags")
  3342.                 Forall tmpLanguages In note.GetItemValue("LanguagePreference")
  3343.                     If Isnull(Arraygetindex(tmpLanguages,tmp_vNameLanguageTags)) Then
  3344.                         IsDocAltNameCandidate = False 'a language tag was encoutered that the user doesn't understand
  3345.                         Exit Function
  3346.                     End If
  3347.                 End Forall
  3348.             Else
  3349.                 IsDocAltNameCandidate = True 'new notes or drafts don't have language tags, so display by preference only
  3350.             End If
  3351.         End If
  3352.     End If
  3353. End Function
  3354. '++LotusScript Development Environment:2:1:NameRemoveFromList:1:8
  3355. Function NameRemoveFromList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
  3356.     On Error Goto ReturnArrayError
  3357.     If Isempty(vList) Then
  3358.         Exit Function
  3359.     Else
  3360.         Dim vUserIDs As Variant
  3361.         Dim vListOfNames As Variant
  3362.         Dim nRecipients As Integer
  3363.         Dim nEntry As Integer
  3364.         If Isarray(vList) Then
  3365.             vListOfNames = vList
  3366.         Else
  3367.             Redim vListOfNames(0) As String
  3368.             vListOfNames(0) = vList
  3369.         End If
  3370.         vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
  3371.         vListOfNames = ArrayRemoveItems(vListOfNames , vUserIDs)
  3372.     End If        
  3373. ReturnArray:
  3374.     NameRemoveFromList = vListOfNames
  3375.     Exit Function
  3376. ReturnArrayError:
  3377.     NameRemoveFromList = vList
  3378.     Exit Function
  3379. End Function
  3380. '++LotusScript Development Environment:2:1:NameConstructIDList:1:8
  3381. Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
  3382.     Dim vtmpCompute As Variant    
  3383.     Dim strPrimaryName As String
  3384.     Dim strAltName As String
  3385.     Dim strInternetName As String
  3386.     Dim vAllVariations As Variant    
  3387.     'setup the names list
  3388.     strPrimaryName = strName
  3389.     vtmpCompute = Evaluate(|@UserName(1)|)
  3390.     strAltName = vtmpCompute(0)    
  3391.     vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
  3392.     strInternetName = vtmpCompute(0)        
  3393.     vAllVariations = NameConstructVariations(strPrimaryName, strOwnerDomain, strFromDomain)
  3394.     If Strcompare(strPrimaryName,strAltName) Then
  3395.         vAllVariations = Arrayappend(vAllVariations,NameConstructVariations(strAltName, strOwnerDomain,strFromDomain))
  3396.     End If
  3397.     If Len(strInternetName) Then
  3398.         If Strcompare(strPrimaryName,strInternetName) Then        
  3399.             vAllVariations = Arrayappend(vAllVariations,NameConstructVariations(strInternetName,strOwnerDomain, strFromDomain))
  3400.         End If
  3401.     End If        
  3402.     NameConstructIDList = vAllVariations    
  3403. End Function
  3404. '++LotusScript Development Environment:2:1:ArrayRemoveItems:1:8
  3405. Function ArrayRemoveItems(vLIst1, vList2) As Variant
  3406.     Redim tempStorage(Ubound(vList1)) As String    
  3407.     Dim HashTable List As String
  3408.     Dim nIndex As Integer
  3409.     Forall vEntities In vList1
  3410.         HashTable(vEntities) = vEntities
  3411.     End Forall
  3412.     Forall vEntities In vList2
  3413.         If Iselement(HashTable(vEntities)) Then
  3414.             HashTable(vEntities) = ""
  3415.         End If
  3416.     End Forall
  3417.     Forall strings In HashTable
  3418.         If Len(strings) Then        
  3419.             tempStorage(nIndex) = strings
  3420.             nIndex = nIndex + 1
  3421.         End If
  3422.     End Forall
  3423.     ArrayRemoveItems = tempStorage
  3424. End Function
  3425. '++LotusScript Development Environment:2:1:NameConstructVariations:1:8
  3426. Function NameConstructVariations(strNAME As String, strOwnerDomain As String, strFromDomain As String) As Variant
  3427.     Dim nEntries As Integer, nIndex As Integer    
  3428.     If Len(strNAME) Then
  3429.         Dim namWorkingName As New notesname(strNAME)
  3430.         If namWorkingName.IsHierarchical Then
  3431.             nEntries = 8
  3432.         Else
  3433.             nEntries = 2
  3434.         End If
  3435.         nindex = nEntries+1
  3436.         If Len(namWorkingName.Addr821) Then nEntries = nEntries + 6
  3437.         If Len(namWorkingName.Addr822LocalPart) Then nEntries = nEntries + 3
  3438.         Redim arrayVariations(nEntries) As String        
  3439.         If namWorkingName.IsHierarchical Then
  3440.             arrayVariations(0) = namWorkingName.Abbreviated
  3441.             arrayVariations(1) = namWorkingName.Canonical
  3442.             arrayVariations(2) = namWorkingName.Common            
  3443.             arrayVariations(3) = namWorkingName.Abbreviated & "@" & strFromDomain
  3444.             arrayVariations(4) = namWorkingName.Canonical & "@" & strFromDomain
  3445.             arrayVariations(5) = namWorkingName.Common & "@" & strFromDomain            
  3446.             arrayVariations(6) = namWorkingName.Abbreviated & "@" & strOwnerDomain
  3447.             arrayVariations(7) = namWorkingName.Canonical & "@" & strOwnerDomain
  3448.             arrayVariations(8) = namWorkingName.Common & "@" & strOwnerDomain                        
  3449.         Else            
  3450.             arrayVariations(0) = strNAME
  3451.             arrayVariations(1) = strNAME & "@" & strFromDomain
  3452.             arrayVariations(2) = strNAME & "@" & strOwnerDomain
  3453.         End If
  3454.         If Len(namWorkingName.Addr821) Then
  3455.             arrayVariations(nIndex) = namWorkingName.Addr821
  3456.             nIndex = nIndex + 1
  3457.             arrayVariations(nIndex) = namWorkingName.Addr821 & "@" & strFromDomain
  3458.             nIndex = nIndex + 1
  3459.             arrayVariations(nIndex) = namWorkingName.Addr821 & "@" & strOwnerDomain
  3460.             nIndex = nIndex + 1
  3461.             arrayVariations(nIndex) = "<" & namWorkingName.Addr821 & ">" 
  3462.             nIndex = nIndex + 1
  3463.             arrayVariations(nIndex) =  "<" & namWorkingName.Addr821  & ">" & "@" & strFromDomain
  3464.             nIndex = nIndex + 1
  3465.             arrayVariations(nIndex) =  "<" & namWorkingName.Addr821 & ">" & "@" & strOwnerDomain
  3466.             nIndex = nIndex + 1
  3467.         End If
  3468.         If Len(namWorkingName.Addr822LocalPart) Then
  3469.             arrayVariations(nIndex) = namWorkingName.Addr822LocalPart
  3470.             nIndex = nIndex + 1
  3471.             arrayVariations(nIndex) = namWorkingName.Addr822LocalPart & "@" & strFromDomain
  3472.             nIndex = nIndex + 1
  3473.             arrayVariations(nIndex) = namWorkingName.Addr822LocalPart & "@" & strOwnerDomain
  3474.         End If
  3475.     End If
  3476.     NameConstructVariations = arrayVariations
  3477. End Function
  3478. Lotus Product
  3479. ) .d-d-
  3480. 'P*P*l'l'
  3481. (|.|.
  3482. $,$,$,
  3483. 4,4,4,
  3484. $/$/$/$/
  3485.  | | 
  3486.  L L 
  3487. L"L"l"l"
  3488. /l0l0
  3489. '#,8'}x
  3490. ,P)},
  3491. ,l'}<
  3492. ,P)}X
  3493. ,P)}h
  3494. -t*#8m
  3495. -t*#8\
  3496. ,l'}(
  3497. ,P)}(
  3498. K4,,l'}<
  3499. '#-D,#
  3500. ,x,Fh,
  3501. , -}0
  3502. ,d-}8
  3503. -t*#8
  3504. -P*#8
  3505. ,l'}h
  3506. ,P)}h
  3507. #1^$/
  3508.  )</#
  3509.  ]L #8
  3510. ^l KL ,P)}
  3511. ^l KL ,P)}
  3512.  KL ,P)}
  3513.  ^l #
  3514. ^| ^l 
  3515. ^| #1
  3516. !,P)}p
  3517. !-P*#K
  3518. !,l'}<
  3519. !,l'}
  3520. !,P)}
  3521. !,P)}
  3522. "]\"]l"]|"#
  3523. ")$$^
  3524. $) %^
  3525. $) %^
  3526. $) %^
  3527. &-40#
  3528. &-l0#
  3529. &-l0#}`
  3530. &-l0#}`
  3531. &-40#
  3532. &-40#
  3533. &-40#}`
  3534. &-40#}`
  3535.     0S0E
  3536.     0S0E
  3537. O=Lotus Notes
  3538. O=Lotus Notes
  3539. PURSAFO
  3540. |.:#U
  3541. O=Lotus Notes
  3542. CN=Lotus Notes Template Development/O=Lotus Notes
  3543. PURSAFO
  3544. SUpqP+
  3545. $TITLE
  3546. $PublicAccess
  3547. $Language
  3548. $LastBuildTime
  3549. $BabelInfo
  3550. $ScriptLib
  3551. $ScriptLib_O
  3552. '++LotusScript Development Environment:2:5:(Options):0:74
  3553. Option Public
  3554. Option Explicit
  3555. Use "Common"
  3556. '++LotusScript Development Environment:2:5:(Forward):0:1
  3557. Declare Class UIEventObject
  3558. Declare Sub Initialize
  3559. Declare Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
  3560. Declare Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime, nOptions As Integer) As Integer
  3561. Declare Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
  3562. Declare Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
  3563. Declare Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String, nNoCancelOp As Integer) As Integer
  3564. Declare Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
  3565. Declare Sub AutoAdjustWindowEntering( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
  3566. Declare Sub AutoAdjustWindowExiting( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
  3567. Declare Sub GetAutoAdjustDateTime(startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String, dt1 As notesdatetime, dt2 As notesdatetime)
  3568. '++LotusScript Development Environment:2:5:(Declarations):0:10
  3569. Dim autoAdjustNote As NotesDocument
  3570. Dim autoAdjustEndDateTime As NotesDateTime
  3571. Dim autoAdjustTimeWindow As Long
  3572. Class UIEventObject
  3573.     m_ws As NotesUIWorkspace
  3574.     m_noteStatus As NotesDocument
  3575.     m_beobject As Variant  
  3576.     m_strtable As Variant                        ' This is a reference to the backend objects StringTable
  3577.     m_lAction As Long                            ' These are OR'd together
  3578.     m_bSendComments As Integer
  3579.     m_nEventType As Integer
  3580.     m_bOwner As Integer
  3581.     Property Get ActionInProgress As Long
  3582.         ActionInProgress = m_lAction
  3583.     End Property
  3584.     Property Set ActionInProgress As Long
  3585.         ' If the caller passes ACTION_NONE, remove all existing actions set
  3586.         If (ActionInProgress = ACTION_NONE) Then
  3587.             m_lAction = ACTION_NONE
  3588.         Else
  3589.             m_lAction = (m_lAction Or ActionInProgress)
  3590.         End If
  3591.     End Property
  3592.     Property Get BEObject As Variant
  3593.         Set BEObject = m_beobject
  3594.     End Property
  3595.     Property Get SendComments As Integer
  3596.         SendComments = m_bSendComments
  3597.     End Property
  3598.     Property Get StringTable As Variant
  3599.         Set StringTable = m_strtable
  3600.     End Property
  3601.     Property Get Workspace As NotesUIWorkspace
  3602.         Set Workspace = m_ws
  3603.     End Property
  3604.     Property Get RepeatChange As Integer
  3605.         RepeatChange = m_beobject.RepeatModify
  3606.     End Property
  3607.     Property Get EventType As Integer
  3608.         EVentType = m_nEventType
  3609.     End Property
  3610.     Property Get IsOwner As Integer
  3611.         IsOwner = m_bOwner
  3612.     End Property
  3613.     Property Get NeedsReschedule As Integer
  3614.         NeedsREschedule = False
  3615.         ' if this is a new document, return false
  3616.         If Not(m_beobject.WasMailed) Then
  3617.             Exit Property
  3618.         End If
  3619.         NeedsReschedule = CSEventDTItemsModified(m_beObject)
  3620.     End Property
  3621.     Property Set SendComments As Integer
  3622.         m_bSendComments = SendComments
  3623.     End Property
  3624.     Property Get OkToReschedule As Integer        
  3625.         Dim nResult As Integer
  3626.         If (ActionInProgress And ACTION_RESCHEDULE) = ACTION_RESCHEDULE Then            
  3627.             OkToReschedule = True
  3628.             If m_beobject.Document.getItemValue( "tmpIncludeComments")(0) = "1" Then
  3629.                 m_bSendComments = True                
  3630.             End If            
  3631.         Else
  3632.             If (m_beobject.IsWorkflowEnabled) And (m_beobject.WasMailed) Then
  3633.                 nResult = YesNoCancelPrompt(m_strtable.GetString(RESC_UPD_MSG, Null),m_strtable.GetString(RESC_TITLE,Null))
  3634.                 If (nResult <> 2) Then
  3635.                     ActionInProgress = ACTION_RESCHEDULE
  3636.                     m_bSendComments = (nResult = 6)
  3637.                     OkToReschedule = True            
  3638.                 Else
  3639.                     Call RemoveActionInProgress(ACTION_RESCHEDULE)
  3640.                     m_bSendComments = False
  3641.                     OkToReschedule = False
  3642.                 End If
  3643.             Else
  3644.                 OkToReschedule = YesNoPrompt(m_strtable.GetString(ENTRY_DTMOD, Null), m_strtable.GetString(DTMOD_TITLE,Null))    
  3645.             End If
  3646.         End If
  3647.     End Property
  3648.     Function OkToAccept(Byval bIncludeComments As Integer) As Integer
  3649.         ' First, make sure the time is valid
  3650.         Dim note As NotesDocument
  3651.         Set note = m_beobject.Document
  3652.         If AllowDoubleBook() Then
  3653.             m_bSendComments = bIncludeComments
  3654.             OkToAccept = True
  3655.             ActionInProgress = ACTION_ACCEPT
  3656.         End If        
  3657.     End Function
  3658.     Sub New (nEventType As Integer, bOwner As Integer)
  3659.         m_nEVentType = nEventType
  3660.         m_bOwner = bOwner
  3661.         Set m_ws = New NotesUIWorkspace
  3662.         If (bOwner) Then
  3663.             Set m_beobject = New NotesCSEventOwnerDocument(nEventType)
  3664.             If (nEventType = 1) Then
  3665.                 Set m_strtable =  New MeetingOwnerStringTable()
  3666.             Else    
  3667.                 Set m_strtable =  New TaskOwnerStringTable()
  3668.             End If
  3669.         Else
  3670.             If (nEventType = 3) Then
  3671.                 Set m_beobject = New NotesCSReservationDocument()
  3672.             Else
  3673.                 Set m_beobject = New NotesCSEventParticipantDocument(nEventType)                
  3674.             End If
  3675.             If (nEventType = 1 Or nEventType = 3) Then
  3676.                 Set m_strtable =  New MeetingParticipantStringTable()
  3677.             Else    
  3678.                 Set m_strtable =  New TaskParticipantStringTable()
  3679.             End If
  3680.         End If
  3681.     End Sub
  3682.     Sub delete()
  3683.         If Not(m_beobject Is Nothing) Then Delete m_beobject
  3684.     End Sub
  3685.     Function IsActionInProgress(lAction As Long) As Integer
  3686.         IsActionInProgress =  ((m_lAction And lAction) = lAction)
  3687.     End Function
  3688.     Function RemoveActionInProgress(lAction As Long)
  3689.         If (m_lAction And lAction) Then m_lAction = (m_lAction Xor lAction)
  3690.     End Function
  3691.     Function AlarmDialog() As Integer
  3692.         Dim note As notesdocument
  3693.         Dim profile As NotesDocument
  3694.         Dim nresult As Integer
  3695.         On Error Resume Next
  3696.         If Not(Isempty(m_beobject)) Then
  3697.             ' Make sure the date/time items are up to date
  3698.             Call m_beobject.UPdateDateTimeItems
  3699.             Set note = m_beobject.document
  3700.             nresult = m_ws.DialogBox("AlarmOptions",True,True,,,,,m_strtable.GetString(ALARM_TITLE, Null),note, True)
  3701.             If nresult Then
  3702.                 If (note.GetItemValue("$AlarmDisabled")(0) = "1") Then
  3703.                     ' the user wants to disable the alarm for this event
  3704.                     Call m_beobject.RemoveAlarm()
  3705.                     Call note.replaceitemvalue("Alarms","")
  3706.                 Else
  3707.                     If Not(m_beobject.CalendarProfile.Alarmsenabled) Then
  3708.                         Set profile = m_beobject.CalendarProfile.Document
  3709.                         Call profile.ReplaceItemValue("EnableAlarms","1")
  3710.                         Call profile.save(False, False)
  3711.                         Call m_ws.EnableAlarms(True)
  3712.                     End If
  3713.                     Call note.removeitem("$AlarmDisable")                    
  3714.                     Call m_beobject.EnableAlarm()
  3715.                 End If
  3716.             End If
  3717.         End If
  3718.         AlarmDialog = nresult
  3719.     End Function
  3720.     Function AllowInPast(dtDate As NotesDateTime, bDateOnly As Integer) As Integer
  3721.     Return True if the event can be saved, false otherwise        
  3722. %END REM
  3723.         Dim dtNow As NotesDateTime        
  3724.         Set dtNow = New Notesdatetime("")
  3725.         Call dtNow.setnow
  3726.         ' Allow a 5 minute window
  3727.         AllowInPast = True
  3728.         If Len(dtDate.DateOnly) = 0 Then Exit Function
  3729.         If (bDateOnly) Then
  3730.             If (TIMECompareDates(dtDate, dtNow) < 0) Then
  3731.                 AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), m_strtable.getstring(PAST_TITLE,Null))
  3732.             End If
  3733.         Else
  3734.             If dtNow.TimeDifference(dtDate) > 300 Then
  3735.                 AllowInPast = YesNoPrompt(m_strtable.GetString(ENTRY_PAST, Null), m_strtable.getstring(PAST_TITLE, Null))
  3736.             End If
  3737.         End If
  3738.     End Function
  3739.     Function AllowDoubleBook() As Integer
  3740.         Dim vResult As Variant
  3741.         Dim note As NotesDocument
  3742.         Dim bCheck As Integer
  3743.         AllowDoubleBook = True
  3744.         If (m_nEventType = 3) Then
  3745.             bCheck = True
  3746.         Else
  3747.             bCheck = m_beobject.CheckDoubleBook()
  3748.         End If
  3749.         If bCheck Then
  3750.             vResult = m_beobject.IsValidTime()
  3751.             If Not(Isarray(vResult)) Then
  3752.                 Select Case vResult
  3753.                 Case 1
  3754.                     Exit Function
  3755.                 Case 2
  3756.                     If (m_nEventType <> 3) Then
  3757.                         AllowDoubleBook = YesNoPrompt(m_strtable.GetString(ENTRY_CONF, Null), m_strtable.getstring(DBLBOOK_TITLE, Null))
  3758.                     Else
  3759.                         AllowDoubleBook = False
  3760.                         Call DisplayWarn(m_strTable.GetString(RESOURCE_BOOKED_PROMPT, Null), 0,m_strtable.getstring(RESOURCE_BOOKED_TITLE, Null))                
  3761.                     End If
  3762.                 Case Else
  3763.                     If (m_nEventType <> 3) Then
  3764.                         AllowDoubleBook = YesNoPrompt(m_strtable.getstring(ERR_FREETIME, Null),m_strtable.getstring(DBLBOOK_TITLE, Null))
  3765.                     Else
  3766.                         AllowDoubleBook = False
  3767.                         Call DisplayWarn(m_strTable.GetString(RESOURCE_FREETIME_ERR_PROMPT, Null), 0, m_strtable.getstring(ERR_TITLE, Null))                
  3768.                     End If
  3769.                 End Select
  3770.             Else
  3771.                 If Len(vResult(0)) Then
  3772.                     Set note = m_beobject.document
  3773.                     Call note.replaceitemvalue("tmpPrompt", m_strtable.getstring(REPEAT_CONFLICT_PROMPT, Null))
  3774.                     Call note.replaceitemvalue("tmpListOfDates", vResult)                    
  3775.                     If (m_nEventType = 3) Then 
  3776.                         Call note.replaceitemvalue("tmpRepeatOptions","CR")        
  3777.                     Else
  3778.                         Call note.replaceitemvalue("tmpRepeatOptions","C")
  3779.                     End If
  3780.                     AllowDoubleBook = m_ws.DialogBox("(RepeatOpenList)", True, True, , , , , m_strtable.getstring(REPEAT_CONFLICT_TITLE, Null), , True)
  3781.                 End If
  3782.             End If
  3783.         End If
  3784.     End Function
  3785.     Sub EditNotice
  3786.         Dim note As NotesDocument, notice As NotesDocument
  3787.         Dim vBEObject As Variant
  3788.         Dim strSendTo As String, strCopyTo As String, strBCCTo As String
  3789.         Set vBEObject = m_beobject
  3790.         If (m_bOwner = True) And IsActionInProgress(ACTION_COUNTER_ACCEPT) Then
  3791.             If (m_beobject.context = CTX_REPEAT_MSG) Then 
  3792.                 Set vBEObject = m_beobject.RepeatInstanceEvent
  3793.             Else
  3794.                 Set vBEObject = m_beobject.ParentEvent
  3795.             End If
  3796.         End If
  3797.         Set notice = vbeobject.NoticeDocument
  3798.         If Not(notice Is Nothing) Then
  3799.             ' make sure we have an invitee list
  3800.             strSendTo = notice.GetItemValue("SendTo")(0)
  3801.             strCopyTo = notice.GetItemValue("CopyTo")(0)
  3802.             strBCCTo = notice.GetItemValue("BlindCopyTo")(0)
  3803.             If Len(strSendTo) = 0 And Len(strCopyTo) = 0 And Len(strBCCTo) = 0 Then
  3804.                 Msgbox m_strtable.getstring(NO_SEND_LIST, Null)
  3805.                 Exit Sub
  3806.             End If
  3807.             Call notice.ReplaceItemValue("FormToUse", notice.GetItemValue("Form")(0))
  3808.             Call notice.REplaceItemValue("Form", "(ReplyNotice)")
  3809.             Call notice.ReplaceItemValue("_ViewIcon2", 11)        
  3810.             Call m_ws.EditDocument(True,notice)
  3811.         End If
  3812.     End Sub
  3813.     Function ChangeRepeatDialog(nNoCancelOp As Integer) As Integer
  3814.         ChangeRepeatDialog = CSEventChangeRepeatDialog(m_beobject, m_strtable.getstring(RPTCHANGE_TITLE,Null),nNoCancelOp)
  3815.     End Function    
  3816.     Function OkToPerformAction(vData As Variant, Byval iTitle As Integer, Byval lAction As Long, strDialog As String, Byval nOptions As Integer) As Integer
  3817.         Dim note As NotesDocument
  3818.         Dim fHideCancel As Integer
  3819.         Set note = m_beobject.Document
  3820.         Select Case lAction
  3821.         Case ACTION_ACCEPT
  3822.             Call note.replaceitemvalue("tmpActionType","A")
  3823.         Case ACTION_DELEGATE
  3824.             Call note.replaceitemvalue("tmpActionType","D")            
  3825.         Case ACTION_COUNTER_PROPOSE
  3826.             Call note.replaceitemvalue("tmpActionType","T")
  3827.         Case ACTION_RESCHEDULE
  3828.             Call note.replaceitemvalue("tmpActionType","U")
  3829.         Case ACTION_CANCEL
  3830.             Call note.replaceitemvalue("tmpActionType","C")
  3831.         Case ACTION_CONFIRM
  3832.             Call note.replaceItemValue("tmpActionType","N")
  3833.         Case ACTION_COMPLETED
  3834.             Call note.replaceitemvalue("tmpActionType","F")
  3835.         Case ACTION_COUNTER_ACCEPT
  3836.             Call note.replaceitemvalue("tmpActionType","B")
  3837.             Call note.removeitem("StartDate")
  3838.         Case ACTION_COUNTER_REJECT
  3839.             Call note.replaceitemvalue("tmpActionType","J")
  3840.         Case ACTION_REFRESHINFO
  3841.             Call note.replaceitemvalue("tmpActionType","E")
  3842.         Case ACTION_REMOVE_PEOPLE
  3843.             Call note.replaceitemvalue("tmpActionType","5")
  3844.         Case Else
  3845.             Call note.RemoveItem("tmpActionType")
  3846.         End Select
  3847.         If (m_nEventType = 2) Then Call note.replaceitemvalue("tmpTask","1")
  3848.         If (nOptions And 1) = 0 Then 
  3849.             Call note.replaceitemvalue("tmpHideComments","1")
  3850.         Else
  3851.             Call note.removeitem("tmpHideComments")
  3852.         End If
  3853.         If (nOptions And 2) = 2 Then fHideCancel = True
  3854.         OkToPerformAction = m_ws.DialogBox(strDialog, True, True, fHideCancel , , , ,m_strtable.GetString(iTitle, vData), note, True)
  3855.         If (OkToPerformAction) Then
  3856.             Me.ActionInProgress = lAction
  3857.             If (nOptions And 1) = 1 Then m_bSendComments = (note.GetItemValue("tmpIncludeComments")(0) = "1")
  3858.         Else
  3859.             Call RemoveActionInProgress(lAction)
  3860.         End If
  3861.     End Function
  3862.     Function RepeatDialog() As Integer
  3863.         RepeatDialog = CSEventRepeatDialog(m_beobject, m_strtable.getstring(REPEAT_TITLE, Null))
  3864.         If (RepeatDialog = True) Then Call m_beobject.Document.ReplaceItemValue("OrgRepeat","1")
  3865.     End Function
  3866.     Sub PerformAction(strAction As String, vArgs As Variant)
  3867.         Call CSEventPerformAction(m_beobject, strAction, Not(m_bSendComments), vArgs)
  3868.     End Sub
  3869.     ' Owner type actions            
  3870.     Function Cancel(fCancelFlags As Integer) As Integer
  3871.         Call CSEventPerformAction(m_beobject, ORS_MSGTYPE_CANCEL, Not(m_bSendComments), Cint(fCancelFlags))        
  3872.     End Function
  3873.     Sub SortParticipantStatus(Byval nSortType As Integer)
  3874.         Dim LLStatus As NotesCSParticipantTable
  3875.         Dim LinkedList As NotesCSParticipantTable
  3876.         Set LinkedList = m_beobject.ParticipantTable
  3877.         If (LinkedList Is Nothing) Then Exit Sub
  3878.         Call m_beobject.GetParticipantStatus
  3879.         ' The current list is sorted via name; create a table sorted by status
  3880.         Set LLStatus = LinkedList.CreateAndCopy(nSortType)
  3881.         Call m_noteStatus.ReplaceItemValue("tmpSortType", Cstr(nSortType))
  3882.         Call CSTableAppendStatus(llStatus, m_noteStatus, True)        
  3883.         Delete LLStatus
  3884.     End Sub
  3885.     Sub ViewParticipantStatus()
  3886.         If (m_noteStatus Is Nothing) Then
  3887.             Set m_noteStatus = New NotesDocument(m_beobject.Document.PArentDatabase)
  3888.             Call SortParticipantStatus(4)
  3889.             If (m_BEObject.ParticipantTable Is Nothing) Then 
  3890.                 Call DisplayWarn(m_strtable.getstring(VIEWSTATUS_NOMEMBERS_PROMPT, Null), 0, m_strtable.getstring(STS_TITLE, Null))
  3891.                 Delete m_noteStatus                
  3892.                 Exit Sub
  3893.             End If
  3894.         End If
  3895.         Call m_ws.DialogBox("ParticipantTable",True,True,True,True,True,False,m_strtable.GetString(STS_TITLE,Null),m_noteStatus, True, True)
  3896.     End Sub
  3897.     Function RemoveParticipants() As Integer
  3898.         Dim vParticipantList As Variant
  3899.         Dim vRemovedList As Variant
  3900.         Dim vDisplayList As Variant
  3901.         Dim vNewRemovedList As Variant
  3902.         Dim note As NotesDocument
  3903.         ' First, get a list of all users who can be removed
  3904.         vParticipantList = m_beobject.GetParticipantNames()
  3905.         Set note = m_beobject.Document
  3906.         vRemovedList = note.GetItemValue("Uninvited")
  3907.         If Len(vRemovedList(0)) Then
  3908.             vDisplayList = Fulltrim(Arrayreplace(vParticipantList, vRemovedList,"")) 
  3909.         Else
  3910.             vDisplayList = vParticipantList
  3911.         End If
  3912.         vNewRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.GetString(REM_PART_TITLE,Null), m_strtable.getstring(REM_PART,Null), "", vDisplayList)
  3913.         If Isarray(vNewRemovedList) Then
  3914.             Call note.ReplaceItemValue("tmpRemoveNames", vNewRemovedList)
  3915.             RemoveParticipants = True
  3916.         End If
  3917.     End Function
  3918.     Sub CreateMemo(bUseOriginal As Integer)
  3919.         Dim noteMemo As NotesDocument
  3920.         Set noteMemo = m_beobject.CreateMemo()
  3921.         Call noteMemo.Replaceitemvalue("Subject", m_beobject.Document.getitemvalue("Subject")(0))
  3922.         Call m_ws.EditDocument(True, noteMemo)
  3923.     End Sub
  3924.     Function RemoveRoomsResources(Byval bIsResource As Integer) As Integer
  3925.         Dim note As notesdocument        
  3926.         Dim vList As Variant, vRemovedList As Variant
  3927.         Dim strItemName As String
  3928.         If (bIsResource) Then
  3929.             strItemName = "RequiredResources"
  3930.         Else
  3931.             strItemName = "Room"
  3932.         End If
  3933.         Set note = m_beobject.Document
  3934.         vList = note.GetItemValue(strItemName)
  3935.         vRemovedList = m_ws.Prompt(PROMPT_OKCANCELLISTMULT, m_strtable.getstring(REM_PART,Null), m_strtable.GetString(REM_PART_TITLE, Null), "", vList)
  3936.         If Isarray(vRemovedList) Then
  3937.             RemoveRoomsResources = True
  3938.             Set note = m_beobject.Document
  3939.             Call note.ReplaceItemValue("tmpRemoveNames", vRemovedList)
  3940.             If (bIsResource) Then
  3941.                 ActionInProgress = ACTION_REMOVE_RESOURCES
  3942.             Else
  3943.                 ActionInProgress = ACTION_REMOVE_ROOMS
  3944.             End If
  3945.         End If
  3946.     End Function
  3947.     ' Participant Type actions
  3948.     Sub Accept()
  3949.         Call CSEventPerformAction(m_beobject, ORS_MSGTYPE_ACCEPT, Not(m_bSendComments), 0)
  3950.     End Sub
  3951.     Sub Decline()
  3952.         Call CSEventPerformAction(m_beobject, ORS_MSGTYPE_REJECT, Not(m_bSendComments), 0)
  3953.     End Sub
  3954.     Sub Delegate(bError As Integer)
  3955.         Dim note As NotesDocument
  3956.         Dim sDelegeeName As String
  3957.         Dim bKeepPosted As Integer
  3958.         Set note = m_beobject.document
  3959.         ' The user selected a name; make sure it is not someone who is already invited
  3960.         sDelegeeName = note.GetItemValue("Delegee")(0)            
  3961.         ' This is a two step process
  3962.         ' First, create the outgoing delegation notice to the person we are delegating to and send it
  3963.         ' Second, create the notice to the chairperson and optionally send it
  3964.         On Error Goto SendDelegateError
  3965.         Call m_beobject.ActionHandler(ORS_MSGTYPE_DELEGATE, False, Null)
  3966.         On Error Resume Next
  3967.         Call CSEventPerformAction(m_beobject, ORS_MSGTYPE_DELEGATING, Not(m_bSendComments), 0)
  3968.         Exit Sub
  3969. SendDelegateError:
  3970.         Call DisplayWarn(m_strtable.getstring(ERR_SEND_DELE,Null), 0, m_strtable.getstring(ERR_TITLE,Null))
  3971.         bError = True
  3972.         Exit Sub
  3973.     End Sub
  3974.     Sub ScanForUpdates  
  3975.         Dim po As Variant ' The main meeting invitation document object
  3976.         Dim riNotice As NotesCSUpdateInstance
  3977.         Dim riConfirmation As NotesCSUpdateInstance
  3978.         Dim bReadingCurrent As Integer, fUpdateMain As Integer
  3979.         Dim noteInEditor As NotesDocument      ' the document currently in the editor
  3980.         Dim noteMain As NotesDocument     ' The main meeting invitation document
  3981.         Dim strCurrentType As String
  3982.         Set noteInEditor = m_beobject.Document
  3983.         ' If this is a main repeating document, we can leave now
  3984.         If (m_beobject.Context = CTX_REPEAT_MAIN) Then Exit Sub
  3985.         Set po = CSGetMainEventObject(m_beobject)
  3986.         strCurrentType = noteInEditor.GetItemValue("NoticeType")(0)
  3987.         ' If there is no primary object, bail
  3988.         If (po Is Nothing) Then 
  3989.             If (strCurrentType <> "I" And strCurrentType <> "L") Then
  3990.                 Call noteInEditor.replaceitemvalue("tmpDoNotProcess", "1") 
  3991.                 Exit Sub
  3992.             Else
  3993.                 Exit Sub
  3994.             End If
  3995.         Else
  3996.             Set noteMain = po.Document
  3997.         ' If there is no main document then bail
  3998.             If (noteMain Is Nothing) Then 
  3999.                 Call noteInEditor.replaceitemvalue("tmpDoNotProcess", "1") 
  4000.                 Exit Sub
  4001.             End If
  4002.         End If
  4003.         Call m_beobject.GetMostRecentEventNotices()
  4004.         Set riNotice = m_beobject.UpdateNotice
  4005.         Set riConfirmation = m_beobject.ConfirmNotice  
  4006.         If Not(riNotice Is Nothing) Then
  4007.             bReadingCurrent = (Lcase(noteInEditor.noteid) = Lcase(riNotice.noteid))   
  4008.             Select Case riNotice.NoticeType
  4009.             Case ORS_MSGTYPE_RESCHEDULE
  4010.                 If rinotice.sequencenum > po.Sequencenum Then
  4011.                     If Not(bReadingCurrent) Then
  4012.                          ' The user is not reading the most up-to-date notice; inform them of the change
  4013.                         If YesNoPrompt(m_strtable.GetString(RESC_MSG,Nothing),m_strtable.GetString(UPD_TITLE, Null)) Then
  4014.                             ActionInProgress = ACTION_OPENRESCHEDULE
  4015.                         Else
  4016.                             Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  4017.                         End If
  4018.                     End If
  4019.                 Else
  4020.                     If Strcompare(noteMain.noteid, noteInEditor.noteid, 1) <> 0 Then Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  4021.                 End If
  4022.             Case ORS_MSGTYPE_CANCEL
  4023.                 ' It doesn't matter if the user is reading the most up-to-date notice;     
  4024.                 If (noteMain.GetItemValue("NoticeType")(0) = ORS_MSGTYPE_ACCEPT) Then
  4025.                      ' The main invitation has been accepted; we need to cancel it
  4026.                     Messagebox m_strtable.GetString(CANCEL_UPD, Null),0, m_strtable.GetString(UPD_TITLE,Null)
  4027.                     Call po.DeCommitEvent(ORS_MSGTYPE_CANCEL)
  4028.                     fUpdateMain = True        
  4029.                 Else
  4030.                      ' The main invitation has not been accepted; however, if the user is not reading the most up-to-date notice, inform them this has been cancelled
  4031.                     If Not(bReadingCurrent) Then 
  4032.                         Messagebox m_strtable.GetString(CANCEL_NOACTN,Nothing), 0,m_strtable.GetString(UPD_TITLE,Null)
  4033.                     End If
  4034.                 End If
  4035.                 ' We always set this item for cancels; user's do not need to take any action on cancels    
  4036.                 Call noteInEditor.ReplaceItemValue("tmpDoNotProcess", "1")
  4037.             Case ORS_MSGTYPE_STATUSREQUIRED
  4038.                 If (noteMain.GetItemValue("NoticeType")(0) <> ORS_MSGTYPE_ACCEPT) Then
  4039.                     ' If they are not reading the most uptodate notice, inform them
  4040.                     Messagebox m_strtable.getstring(STATUS_REQUIRED, Null),0,m_strtable.getstring(STATUS_TITLE, Null)
  4041.                     ' accept the main invitation
  4042.                     Call po.ActionHandler(ORS_MSGTYPE_ACCEPT, False, 0)
  4043.                     fUpdateMain = True        
  4044.                 End If
  4045.                 Call noteInEditor.Replaceitemvalue("tmpDoNotProcess","1")
  4046.             Case ORS_MSGTYPE_STATUSREMOVED
  4047.                 If (noteMain.GetItemValue("NoticeType")(0) = ORS_MSGTYPE_ACCEPT) Then
  4048.                     ' If they are not reading the most uptodate notice, inform them
  4049.                     Messagebox m_strtable.getstring(STATUS_REMOVED, Null),0,m_strtable.getstring(STATUS_TITLE, Null)
  4050.                     ' accept the main invitation
  4051.                     Call po.DeCommitEvent(ORS_MSGTYPE_CANCEL)
  4052.                     fUpdateMain = True        
  4053.                 End If
  4054.                 Call noteInEditor.Replaceitemvalue("tmpDoNotProcess","1")
  4055.             Case ORS_MSGTYPE_COUNTERREJECT
  4056.             End Select
  4057.             If (fUpdateMain) Then
  4058.                 If (Me.CheckForRepeatChanges(False) = False) Then Exit Sub
  4059.                 Call CSDocSaveRepeatingEntry(m_BEObject)
  4060.                 Call noteMain.Save(True, True, True)    
  4061.             End If
  4062.         End If
  4063.     End Sub
  4064.     Function SendInvitations(bIncludeRooms As Integer) As Integer
  4065.         If (bIncludeRooms) Then
  4066.             SendInvitations = YesNoPrompt(m_strtable.getstring(SEND_INVRES_MSG,Null),m_strtable.getstring(SEND_INV_TITLE, Null))
  4067.         Else
  4068.             SendInvitations = YesNoPrompt(m_strtable.getstring(SEND_INV_MSG, Null), m_strtable.getstring(SEND_INV_TITLE, Null))
  4069.         End If
  4070.     End Function
  4071.     Function CSEventGetCalendarInstance(bDateRequired As Integer, note As notesdocument, bIgnoreSelected As Integer) As notesdatetime
  4072.         Dim vSelectedDT As Variant
  4073.         Dim ws As New notesuiworkspace
  4074.         Dim dtCalDate As notesdatetime
  4075.         Dim nOptions As Integer
  4076.         ' Get the selected date/time from the calendar
  4077.         If (bIgnoreSelected = False) Then
  4078.             vSelectedDT = ws.CurrentCalendarDateTime
  4079.             If Len(vSelectedDT) Then Call TIMEGetNotesFromLS(vSelectedDT, dtCalDate)
  4080.         Else
  4081.             nOptions = 2
  4082.         End If
  4083.         If (dtCalDate Is Nothing) Then
  4084.             If (note Is Nothing) Then Exit Function
  4085.             ' see if this is a v5 repeating instance
  4086.             If (note.HasItem("OrgRepeat") And note.HasItem("$CSVersion") And note.IsResponse) Then
  4087.                 If Not(CSOpenV5RepeatInstanceFromFlatView(m_beobject, note, dtCalDate, nOptions)) Then
  4088.                     bDateRequired = True
  4089.                     Exit Function
  4090.                 End If
  4091.             End If
  4092.         End If
  4093.         Set CSEventGetCalendarInstance = dtCalDate
  4094.     End Function                
  4095.     Function CheckForRepeatChanges(nNoCancelOp As Integer) As Integer
  4096.         CheckForRepeatChanges = True
  4097.         If (m_BEObject.Context = 0) Or (m_BEobject.Context = CTX_REPEAT_MAIN) Then Exit Function
  4098.         If (Me.ChangeRepeatDialog(nNoCancelOp) = REPEAT_CANCEL) Then CheckForRepeatChanges = False        
  4099.     End Function
  4100. End Class
  4101. '++LotusScript Development Environment:2:2:Initialize:1:10
  4102. Sub Initialize
  4103. End Sub
  4104. '++LotusScript Development Environment:2:2:CSTableAppendStatus:1:8
  4105. Sub CSTableAppendStatus(Table As NotesCSParticipantTable, note As NotesDocument, bUpdateOrig As Integer)
  4106.     Dim itemPeople As NotesItem
  4107.     Dim itemRole As NotesItem
  4108.     Dim itemStatus As NotesItem
  4109.     Dim itemOrigPeople As NotesItem
  4110.     Dim itemOrigRole As NotesItem
  4111.     Dim itemOrigStatus As NotesItem
  4112.     Dim itemDelegation As NotesItem
  4113.     Dim instance As NotesCSParticipantInstance
  4114.     Dim i As Integer
  4115.     Dim lnnode As NotesCSParticipantInstance
  4116.     Dim lnnode2 As NotesCSParticipantInstance
  4117.     Dim namePerson As NotesName
  4118.     Dim nameDelegee As NotesName
  4119.     Set itempeople = note.getfirstitem("tmpParticipantList")
  4120.     If Not(itempeople Is Nothing) Then
  4121.         Call itempeople.remove
  4122.     End If
  4123.     Set itemrole = note.getfirstitem("tmpRoleList")
  4124.     If Not(itemrole Is Nothing) Then
  4125.         Call itemrole.remove
  4126.     End If
  4127.     Set itemstatus = note.getfirstitem("tmpStatusList")
  4128.     If Not(itemstatus Is Nothing) Then
  4129.         Call itemstatus.remove
  4130.     End If    
  4131.     Set itemPeople = New NotesItem(note, "tmpParticipantList","")
  4132.     Set itemRole = New NotesItem(note, "tmpRoleList","")
  4133.     Set itemStatus = New NotesItem(note, "tmpStatusList","")
  4134.     If (bUpdateOrig) Then
  4135.         Set itemOrigPeople = New NotesItem(note, "tmpOriginalPeople","")
  4136.         Set itemOrigRole = New NotesItem(note, "tmpOriginalRole","")
  4137.         Set itemOrigStatus = New NotesItem(note, "tmpOriginalStatus","")
  4138.         Set itemDelegation = New NotesItem(note, "tmpDelegationHistory","")
  4139.     End If
  4140.         ' Now that we have the status, display it in the order 
  4141.     Set lnNode = Table.GetFirstInstance()
  4142.     While Not(lnnode Is Nothing)
  4143.         Set instance = lnnode
  4144.         Set namePerson = New NotesName(instance.replyto)   
  4145.         Call itemPeople.AppendToTextList(namePerson.Common)
  4146.         Call itemRole.AppendToTextList(instance.RoleName)
  4147.         Call itemStatus.AppendToTextList(instance.StatusName)
  4148.         If (bUpdateOrig) Then
  4149.             Call itemOrigPeople.AppendToTextList(namePerson.Common)
  4150.             Call itemOrigRole.AppendToTextList(Cstr(instance.Role))
  4151.             Call itemOrigStatus.AppendToTextList(Cstr(instance.Status))
  4152.             If (instance.Status = 15) Then
  4153.                 Set nameDelegee = New NotesName(instance.Delegee)
  4154.                 Call itemDelegation.AppendToTextList(namePerson.Common & " -> " & nameDelegee.Common)
  4155.             End If
  4156.         End If
  4157.         Set lnnode = Table.GetNextInstance()
  4158.     Wend
  4159. End Sub
  4160. '++LotusScript Development Environment:2:1:CSOpenV5RepeatInstanceFromFlatView:1:8
  4161. Function CSOpenV5RepeatInstanceFromFlatView(vBEObject As Variant, note As NotesDocument, dtCalDate As NotesDateTime, nOptions As Integer) As Integer
  4162.     ' Return TRUE if we should continue, FALSE otherwise
  4163.     Dim ws As New notesuiworkspace
  4164.     Dim dtToday As New NotesDateTime("")
  4165.     Dim vValues As Variant
  4166.     Dim nItems As Integer, i As Integer, fHideCancel As Integer
  4167.     Dim strTable As New BaseCSStringTable()
  4168.     vValues = note.GetItemValue(vBEObject.StartItemName)
  4169.     If Len(vValues(0)) = 0 Then Exit Function
  4170.     nItems = Ubound(vValues)
  4171.     If (nOptions And 2) Then fHideCancel = True
  4172.     If nItems > 0 Then
  4173.         ' Find the one closest to today
  4174.         Call dtToday.SetNow()
  4175.             Call TIMEGetNotesFromLS(vValues(i), dtCalDate)
  4176.             i = i + 1
  4177.         Loop While ((dtCalDate.TimeDifference(dtToday) < 0) And (i  =< nItems))
  4178.         Dim session As New NotesSession
  4179.         Dim dlgNote As NotesDocument
  4180.         Set dlgNote = session.currentDatabase.createDocument
  4181.         Call dlgNote.replaceitemvalue("tmpListOfDates", note.getitemvalue("StartDateTime"))
  4182.         Call dlgNote.replaceitemvalue("tmpPrompt",strtable.getstring(REPEAT_OPEN_PROMPT,Null))        
  4183.         Call dlgNote.replaceitemvalue("tmpDateList", dtCalDate.DateOnly & " " & dtCalDate.TimeOnly)
  4184.         If Not(ws.DialogBox("(RepeatOpenList)", True, True, fHideCancel, , , ,strtable.getstring(REPEAT_OPEN_TITLE,Null) , dlgNote, True)) Then Exit Function
  4185.         Call TIMEGetFromItem("tmpDateSelected", dlgNote, dtCalDate)
  4186.     Else
  4187.         Call TIMEGetFromItem(vBEObject.StartItemName, note, dtCalDate)
  4188.     End If
  4189.     CSOpenV5RepeatInstanceFromFlatView = True
  4190. End Function
  4191. '++LotusScript Development Environment:2:2:CSAutoEnableOutOfOffice:1:8
  4192. Sub CSAutoEnableOutOfOffice(vBEObject As Variant)
  4193.     Dim profileOffice As notesdocument
  4194.     Dim agentOffice As NotesAgent
  4195.     Dim note As notesdocument
  4196.     Dim db As NotesDatabase
  4197.     Dim ws As New notesuiworkspace
  4198.     Dim strTable As New BaseCSStringTable()
  4199.     Set note = vBEObject.Document
  4200.     Set db = note.ParentDatabase
  4201.     Set agentOffice = db.GetAgent("OutOfOffice")
  4202.     If agentOffice Is Nothing Then Exit Sub
  4203.     If agentOffice.IsEnabled Then Exit Sub
  4204.     ' Prompt the user to see if they want to enable the OutOfOffice agent
  4205.     If Not(YesNoPrompt(strtable.getstring(ENABLE_OUT_PROMPT,Null),strtable.getstring(ENABLE_OUT_TITLE,Null))) Then Exit Sub
  4206.     ' The user would like to go through the wizard
  4207.     Set profileOffice = db.GetprofileDocument("OutOfOfficeProfile")
  4208.     Call profileOffice.ReplaceItemValue("FirstDayOut", vBEObject.CurrentStartDate)
  4209.     Call profileOffice.ReplaceItemValue("FirstDayBack", vBEObject.CurrentEndDate)
  4210.     Call profileOffice.ReplaceItemValue("BookBusyTime", "1")
  4211.     Delete agentOffice
  4212.     Call ws.dialogbox("OutOfOfficeProfile",True,True,True,False,False,False,strtable.getstring(ENABLE_OUT_TITLE,Null),profileOffice,True,True)
  4213. End Sub
  4214. '++LotusScript Development Environment:2:1:CSEventRepeatDialog:1:8
  4215. Function CSEventRepeatDialog(vBEObject As Variant, strDialogTitle As String) As Integer
  4216.     Dim note As notesdocument, noteDialog As notesdocument
  4217.     Dim ws As New notesuiworkspace
  4218.     Dim nAutoRepeat As Integer
  4219.     Set note = vBEObject.Document
  4220.         ' Display the correct document in the correct dialog
  4221.     If (note.IsNewNote) Then
  4222.         Call vBEObject.UpdateDateTimeItems()
  4223.         Call ws.CurrentDocument.Reload()
  4224.         ' if this is an anniversary, see if it repeats automatically; if so, pre-fill in the repeatfor item
  4225.         If Strcompare(note.GetItemValue("Form")(0), "appointment", 1) = 0 Then
  4226.             If (vBEObject.CurrentType = "1") Then            
  4227.                 nAutoRepeat = CSProfileGetAutoAnnivRepeat()
  4228.                 If (nAutoRepeat >0 And Not(note.HasItem("OrgRepeat"))) Then Call note.replaceitemvalue("RepeatFor", nAutoRepeat)
  4229.             End If
  4230.         End If
  4231.         If (ws.DialogBox("(RepeatForm)",True,True,,,,,strDialogTitle,,True)) Then
  4232.             Call note.ReplaceItemValue("OrgRepeat","1")
  4233.             CSEventRepeatDialog = True
  4234.         Else
  4235.             CSEventRepeatDialog = False
  4236.         End If
  4237.     Else
  4238.         If (note.IsResponse) Then
  4239.             Set noteDialog = vBEObject.ParentEvent.Document
  4240.         Else
  4241.             Set noteDialog = note
  4242.         End If
  4243.         If (noteDialog.GetItemValue("RepeatUnit")(0) = "Y") Then Call noteDialog.ReplaceItemValue("RepeatUnit", "YD")
  4244.         Call ws.DialogBox("(RepeatForm)",True,True,,,,True,strDialogTitle,noteDialog,True)
  4245.         CSEventRepeatDialog = False
  4246.     End If
  4247. End Function
  4248. '++LotusScript Development Environment:2:1:CSEventChangeRepeatDialog:1:8
  4249. Function CSEventChangeRepeatDialog(vBEObject As Variant, strDialogTitle As String, nNoCancelOp As Integer) As Integer
  4250.     Dim ws As New notesuiworkspace
  4251.     Dim note As NotesDocument
  4252.     Dim nResult As Integer
  4253.     Set note = vBEObject.Document
  4254.     If (note.HasItem("RescheduleWhich")) Then 
  4255.         nResult = Cint(note.GetItemValue("RescheduleWhich")(0))
  4256.     Else
  4257.         If (ws.DialogBox("(ChangeRepeat)", True, True, nNoCancelOp, , , , strDialogTitle, note, True)) Then
  4258.             nResult = Cint(note.getitemvalue("tmpChangeWhich")(0))
  4259.         Else
  4260.             vBEObject.RepeatModify = REPEAT_CANCEL
  4261.             CSEventChangeRepeatDialog = REPEAT_CANCEL
  4262.             Exit Function
  4263.         End If
  4264.     End If
  4265.     vBEObject.RepeatModify = nResult
  4266.     CSEventChangeRepeatDialog = nResult
  4267. End Function    
  4268. '++LotusScript Development Environment:2:1:CSEventDisableWorkflow:1:8
  4269. Function CSEventDisableWorkflow(vUIObject As Variant, strWorkflow As String) As Integer
  4270.     ' Return -1 to bail, 0 to do nothing, 1 to cancel
  4271.     Dim vBEObject As Variant
  4272.     Dim strOriginalType As String, strCurrentType As String
  4273.     Set vBEObject = vUIobject.BEObject
  4274.     strOriginalType = vBEObject.OriginalType
  4275.     strCurrentType = vBEObject.CurrentType
  4276.     If (strOriginalType = strWorkflow) And (strCurrentType <> strWorkflow) Then
  4277.     ' Make sure we have participants before asking
  4278.         If (vBEObject.WasMailed) Then
  4279.             If (YesNoPrompt(vuiobject.StringTable.GetString(ENTRY_TYPE, Null),vuiobject.StringTable.GetString(MODTYPE_TITLE,Null))) Then
  4280.                 If (vuiobject.OkToPerformAction(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 1)) Then   
  4281.                     CSEventDisableWorkflow = 1
  4282.                 Else
  4283.                     CSEventDisableWorkflow = -1
  4284.                 End If
  4285.             Else
  4286.                 CSEventDisableWorkflow = -1
  4287.             End If
  4288.         End If                    
  4289.     End If
  4290. End Function    
  4291. '++LotusScript Development Environment:2:2:AutoAdjustWindowEntering:1:8
  4292. Sub AutoAdjustWindowEntering( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
  4293.     On Error Goto errHandle
  4294.     Dim startDateTime As NotesDateTime
  4295.     Set autoAdjustNote = uidoc.document
  4296.     Call GetAutoAdjustDateTime(startDateItemNameStr, startTimeItemNameStr, endDateItemNameStr, endTimeItemNameStr , startDateTime, autoAdjustEndDateTime)
  4297.     If (startDateTime Is Nothing Or autoAdjustEndDateTime Is Nothing) Then Exit Sub
  4298.     autoAdjustTimeWindow = autoAdjustEndDateTime.timeDifference( startDateTime)
  4299.     If autoAdjustTimeWindow < 0 Then
  4300.         autoAdjustTimeWindow = -1
  4301.     End If
  4302. exitProc:    
  4303.     Exit Sub    
  4304. errHandle:
  4305.     autoAdjustTimeWindow = -1
  4306.     Resume exitProc
  4307. End Sub
  4308. '++LotusScript Development Environment:2:2:AutoAdjustWindowExiting:1:8
  4309. Sub AutoAdjustWindowExiting( uidoc As notesuidocument, startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String)
  4310.     On Error Goto errHandle
  4311.     If autoAdjustTimeWindow <> -1 Then
  4312.         Dim startDateTime As NotesDateTime
  4313.         Call GetAutoAdjustDateTime(startDateItemNameStr, startTimeItemNameStr, endDateItemNameStr, endTimeItemNameStr, startDateTime, autoAdjustEndDateTime)
  4314.         If (startDateTime Is Nothing Or autoAdjustEndDateTime Is Nothing) Then Exit Sub
  4315.         If autoAdjustEndDateTime.timeDifference( startDateTime) <> autoAdjustTimeWindow Then
  4316.             TIMEAdjustByDifference autoAdjustTimeWindow, startDateTime
  4317.             autoAdjustNote.replaceItemValue endDateItemNameStr , startDateTime
  4318.             autoAdjustNote.replaceItemValue endTimeItemNameStr , startDateTime
  4319.             uidoc.reload
  4320.         End If
  4321.     End If
  4322. exitProc:
  4323.     Exit Sub
  4324. errHandle:
  4325.     Resume exitProc
  4326. End Sub
  4327. '++LotusScript Development Environment:2:2:GetAutoAdjustDateTime:1:8
  4328. Sub GetAutoAdjustDateTime(startDateItemNameStr As String, startTimeItemNameStr As String, endDateItemNameStr As String, endTimeItemNameStr As String, dt1 As notesdatetime, dt2 As notesdatetime)
  4329.     If  Len(startTimeItemNameStr) Then 
  4330.         TIMEGetComponents startDateItemNameStr, startTimeItemNameStr, autoAdjustNote, dt1
  4331.     Else
  4332.         Call TIMEGetFromItem(startDateItemNameStr, autoAdjustNote, dt1)
  4333.         Call dt1.SetAnyTime
  4334.     End If
  4335.     If Len(endTimeItemNameStr) Then 
  4336.         TIMEGetComponents endDateItemNameStr , endTimeItemNameStr , autoAdjustNote, dt2
  4337.     Else
  4338.         Call TIMEGetFromitem(endDateItemNameStr, autoAdjustNote, dt2)
  4339.         Call dt2.SetAnyTime
  4340.     End If
  4341. End Sub
  4342. U|E|E
  4343. 9XMX1
  4344. XH4VlN
  4345. V4K4K
  4346. POPO|@
  4347. U(A(A
  4348. X&X&D
  4349. Lotus Product
  4350. O<C<C
  4351. SPBPB
  4352. T|I|I
  4353. X&d68
  4354. !h!h!
  4355. #h#h#
  4356. (#x#X#X#H#H#
  4357. 8#x# 
  4358. x*8.0
  4359. 8*h*`
  4360. @,@,`,`,
  4361. .(.(.
  4362.  2 2P
  4363. 38383
  4364. 2(3|&    
  4365. QhQhQ
  4366. DQDQ"
  4367. 5T6T6
  4368. 9t9t9
  4369. <=L=,=,=
  4370. L=L=$
  4371. T>d>D>D>
  4372. d>d>$
  4373. \?l?L?L?|?|?
  4374. l?l?$
  4375. TD\E@
  4376. \E J 
  4377. 4K0ST
  4378. DN(TP#
  4379. U4V4,
  4380. OP@S\@}
  4381. @~4W&
  4382. A~LW&
  4383. ~@@#1
  4384. A~dW&
  4385. A~|W&
  4386. @~@B~
  4387. ,PB},
  4388. ,<C}X
  4389. @~DD~
  4390. @~dD~
  4391. @~DD~
  4392. @~dD~
  4393. D~$X&
  4394. @~lE~<X&
  4395. E~TX&
  4396. E~lX&
  4397. @~,F~
  4398. P\F~xF
  4399. !Kx!,PB}
  4400. !Kx!,PB}
  4401. !Kx!,PB}
  4402. Kx!,PB}
  4403. Kx#,<C}
  4404. Kx#,<C}x
  4405. Kx#,<C}d
  4406. @]8#](#&
  4407. Kx#,PB}
  4408. ]H##1
  4409. @~4H~,Y&
  4410. OP@TDH}
  4411. 'K(',
  4412. HIH&#
  4413. OP@U$I    
  4414. @~@I~DY&
  4415. @~`I~\Y&
  4416. @~`I~tY&
  4417. (,PB}
  4418. (^x(^
  4419. OP@S\@}
  4420. ^H*K8*,PBJh*#
  4421. ^X*#1
  4422. ^`,KP,,PB}(
  4423. ^(-)4K\
  4424. .,PB}
  4425. .N(-PP@
  4426. L#N(-P
  4427. @~(M~4Z&
  4428. .,PB}
  4429. @~hM~LZ&
  4430. @~(M~dZ&
  4431. N(-TxM}
  4432. @~(M~|Z&
  4433. .,PB}
  4434. .,PB}
  4435. @~4N~
  4436. N(-TxM}
  4437. O~$[&
  4438. N~<[&
  4439. /-$O#
  4440. P}\(#
  4441. 2,LP#
  4442. 2,LP#
  4443. 3,LP#
  4444. 2+ 2I
  4445. 2}\(}
  4446. 2+ 2I
  4447. 3+ 2I
  4448. 3+ 2I
  4449. ^(3+ 2I
  4450. ^83+ 2I
  4451. 2}$)}
  4452. ^H3+ 2I
  4453. 2}L)}
  4454. 1,xP#
  4455. 4+(4K
  4456. 3- Q##
  4457. 3-DQ##
  4458. 3-hQ#
  4459. 4+(4K
  4460. P#}L*
  4461. 5,PBN
  4462. 6,xC#
  4463. 5,tDJ
  4464. ^$7+d6$
  4465. ^47K$7-
  4466. R#,4R#
  4467. 5,PB}
  4468. KT6,lR~
  4469. R~T[##1
  4470. KT6,lR~
  4471. S~l[#J47
  4472. )0S}X,^47]
  4473. S},-#
  4474. 8,lR~
  4475. 8,lR~8T~
  4476. 8,HT}
  4477. B}L.N
  4478. 8,lR~8T~
  4479. 9,PB}
  4480. 9,PB}
  4481. :,PB}
  4482. :,PB}\0#
  4483. U~tG}P1
  4484. =],=]<=]L=^\=[|
  4485. ,tDJ\=#
  4486. >]4>]D>]T>]d>^t>[|
  4487. ,tDJt>#V
  4488. BIT>^t>#1
  4489. BId>^t>#1
  4490. V]<?]L?[
  4491. )0S]<?[
  4492. V]\?]l?[
  4493. )0S]\?[
  4494. O=Lotus Notes
  4495. O=Lotus Notes
  4496. PURSAFO
  4497. |.:#U
  4498. O=Lotus Notes
  4499. CN=Lotus Notes Template Development/O=Lotus Notes
  4500. PURSAFO
  4501. b$bV&M
  4502. $TITLE
  4503. $PublicAccess
  4504. $Language
  4505. $LastBuildTime
  4506. $BabelInfo
  4507. $ScriptLib
  4508. $ScriptLib_O
  4509. '++LotusScript Development Environment:2:5:(Options):0:74
  4510. Option Public
  4511. Option Explicit
  4512. Use "CSEventClass"
  4513. '++LotusScript Development Environment:2:5:(Forward):0:1
  4514. Declare Class UIEventDocument
  4515. Declare Sub Initialize
  4516. Declare Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
  4517. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4518. Const UI_FLAG_REPEAT    = &h00000001
  4519. Const UI_FLAG_ALARM     = &h00000002
  4520. Const UI_FLAG_WASSAVED  = &h00000004
  4521. Const UI_FLAG_DONOTCLOSE = &h00000008
  4522. Class UIEventDocument
  4523.     m_uidoc As NotesUIDocument
  4524.     m_uiobject As UIEventObject
  4525.     m_lFlags As Long
  4526.     m_EntryType As String    
  4527.  ' Properties
  4528.     Property Get UIObject As Variant
  4529.         Set UIObject = m_uiobject
  4530.     End Property
  4531.     Property Get UIDocument As NotesUIDocument
  4532.         Set UIDocument = m_uidoc
  4533.     End Property
  4534.     Property Get WasSaved As Integer
  4535.         WasSaved = ((m_lFlags And UI_FLAG_WASSAVED) = UI_FLAG_WASSAVED)
  4536.     End Property
  4537.     Property Set WasSaved As Integer
  4538.         If (WasSaved) Then
  4539.             m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
  4540.         Else
  4541.             If (m_lFlags And UI_FLAG_WASSAVED) Then m_lFlags = m_lFlags Xor UI_FLAG_WASSAVED
  4542.         End If
  4543.     End Property
  4544.     Property Get DoNotClose As Integer
  4545.         DoNotClose = ((m_lFlags And UI_FLAG_DoNotClose) = UI_FLAG_DoNotClose)
  4546.     End Property
  4547.     Property Set DoNotClose As Integer
  4548.         If (DoNotClose) Then
  4549.             m_lFlags = m_lFlags Or UI_FLAG_DONOTCLOSE
  4550.         Else
  4551.             If (m_lFlags And UI_FLAG_DONOTCLOSE) Then m_lFlags = m_lFlags Xor UI_FLAG_DONOTCLOSE
  4552.         End If
  4553.     End Property
  4554.     Sub New(source As NotesUIDocument, nType As Integer, bOwner As Integer)
  4555.         Set m_uidoc = source
  4556.         Set m_uiobject = New UIEventObject(nType, bOwner)
  4557.     End Sub
  4558.     Sub PerformActionAndClose(vData As Variant, Byval iTitle As Integer, Byval dAction As Long, strDlg As String, Byval dOptions As Long)
  4559.         If m_uiobject.OkToPerformAction(vData, iTitle,dAction,strDlg,dOptions) Then
  4560.             If Not m_uidoc.editmode Then m_uidoc.editmode = True
  4561.             Call m_uidoc.reload            
  4562.             On Error Goto errorroutine            
  4563.             Call m_uidoc.save
  4564.             Call m_uidoc.close
  4565.         End If
  4566.         Exit Sub
  4567. errorroutine:
  4568.         Exit Sub
  4569.     End Sub
  4570.     Sub QueryOpen(nMode As Integer, bIsNew As Variant, bContinue As Variant)
  4571.         Dim vBEObject As Variant, vSelectedDT As Variant
  4572.         Dim ws As New notesuiworkspace        
  4573.         Dim note As NotesDocument, notetmp As NotesDocument
  4574.         Dim item As NotesItem
  4575.         Dim dtCalDate As NotesDateTime
  4576.         Dim bNeedsDate As Integer
  4577.         m_uidoc.AutoReload = False
  4578.         Set note = m_uidoc.document
  4579.         Set vBEObject = m_uiobject.BEObject
  4580.         Set dtCalDate = m_uiobject.CSEventGetCalendarInstance(bNeedsDate, note, False)
  4581.         If (bNeedsDate And dtCalDate Is Nothing) Then
  4582.             bContinue = False
  4583.             Exit Sub
  4584.         End If
  4585.         Call CSDocOpen(vBEObject, note, dtCalDate, CS_DOC_ALARMS)
  4586.           ' If the Editor thinks this is a new document, we are done
  4587.         If (bIsNew) Then Exit Sub
  4588.         ' See if a new note was passed in to editdocument
  4589.         If (note.isnewnote) Then Exit Sub
  4590.         ' If we are a participant, scan for updates
  4591.         If Not(m_uiobject.IsOwner) Then Call m_uiobject.ScanForUpdates()
  4592.     End Sub
  4593.     Sub PostOpen()
  4594.         Dim vBEObject As Variant        
  4595.         Dim note As NotesDocument
  4596.         Dim ws As NotesUIWorkspace
  4597.         Dim session As New notessession
  4598.         Dim strType As String
  4599.         Set note = m_uidoc.document        
  4600.         Set vBEObject = m_uiobject.BEObject
  4601.           ' if we need to open the reschedule notice; do it now
  4602.         If (m_uiobject.IsActionInProgress(ACTION_OPENRESCHEDULE)) Then
  4603.             Set ws = New NotesUIWorkspace
  4604.             Set session = New notessession
  4605.             Set note = session.CurrentDatabase.GetDocumentByID(m_uiobject.beobject.UpdateNotice.NoteID)
  4606.             If Not(note Is Nothing) Then
  4607.                 Call m_uidoc.close
  4608.                 Call ws.editdocument(False,note)
  4609.                 Call m_uiobject.RemoveActionInprogress(ACTION_OPENRESCHEDULE)
  4610.                 Exit Sub
  4611.             End If
  4612.         End If
  4613.        ' If this is a new document, initialize our backend document          
  4614.         If(m_uidoc.IsNewDoc Or note.isnewnote) Then
  4615.             Call CSDocOpen(vBEObject, note, Nothing, Clng(CS_DOC_ALARMS))
  4616.             Call m_uidoc.Reload()
  4617.             Call m_uidoc.Refresh()
  4618.         Else
  4619.             If (note.GetItemValue("Repeats")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  4620.             If (note.GetItemValue("Alarms")(0) = "1") Then m_lFlags = m_lFlags Or UI_FLAG_ALARM
  4621.             If (m_uiobject.EventType <> 3) Then
  4622.                 If (m_uiobject.IsOwner And vbeobject.Context <> CTX_REPEAT_MAIN) And NAMECompare(note.getitemvalue("Principal")(0), vBEObject.CalendarProfile.OwnerName) Then m_uidoc.EditMode = True
  4623.             End If
  4624.             m_entrytype = vBEObject.CurrentType
  4625.         End If
  4626.     End Sub
  4627.     Sub PostRecalc()
  4628.         Dim note As NotesDocument
  4629.         Dim bRefreshHide As Integer
  4630.         Set note = m_uidoc.document
  4631.         If (note.GetItemValue("Repeats")(0) = "1") Then
  4632.             If Not((m_lFlags And UI_FLAG_REPEAT) = UI_FLAG_REPEAT) Then
  4633.                 If m_uiobject.RepeatDialog() Then
  4634.                     m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  4635.                     Call note.removeitem("tmpDoNotRepeat")                    
  4636.                 Else
  4637.                     Call note.replaceitemvalue("Repeats","")
  4638.                     Call note.removeitem("OrgRepeat")
  4639.                     Call note.removeitem("RepeatDates")
  4640.                     Call note.replaceitemvalue("tmpDoNotRepeat","1")
  4641.                     bRefreshHide = True
  4642.                 End If
  4643.             End If
  4644.         Elseif (m_lFlags And UI_FLAG_REPEAT) Then
  4645.             Call note.replaceitemvalue("Repeats","")
  4646.             Call note.removeitem("OrgRepeat")
  4647.             Call note.removeitem("RepeatDates")
  4648.             Call note.replaceitemvalue("tmpDoNotRepeat","1")
  4649.             m_lFlags = m_lFlags Xor UI_FLAG_REPEAT
  4650.             bRefreshHide = True
  4651.         Else
  4652.             If note.getitemvalue("AppointmentType")(0) = "1" And CSProfileGetAutoAnnivRepeat() > 0 Then
  4653.                 If Not(note.hasitem("tmpDoNotRepeat")) Then
  4654.                     Call note.replaceitemvalue("Repeats","1")
  4655.                     m_lFlags = m_lFlags Or UI_FLAG_REPEAT
  4656.                     bRefreshHide = True                    
  4657.                 End If
  4658.             End If
  4659.         End If
  4660.         If m_entryType <> m_uiobject.BEObject.CurrentType() Then
  4661.             m_lFlags = m_lFlags And Not(UI_FLAG_ALARM)
  4662.             m_entryType = m_uiobject.BEObject.CurrentType()
  4663.             If note.HasItem("$Alarm") And Not(note.HasItem("$AlarmOffset") Or note.HasItem("$AlarmTime")) Then 
  4664.                 Call note.RemoveItem("$Alarm")
  4665.             End If
  4666.             Call m_UIObject.BEObject.SetDefaultAlarm()
  4667.             If (note.HasItem("$Alarm")) Then
  4668.                 If Not(note.hasitem("$AlarmTime")) And Not(note.hasitem("$AlarmOffset")) Then
  4669.             ' If we have a $Alarm, but not Offset or Time, then this is the default alarm; enable settings
  4670.                     Call note.replaceitemvalue("Alarms","1")
  4671.                     m_lFlags = m_lFlags Or UI_FLAG_ALARM
  4672.                     bRefreshHide = True            
  4673.                 Else
  4674.                     m_lFlags = m_lFlags Or UI_FLAG_ALARM
  4675.                 End If                
  4676.             End If
  4677.         End If
  4678.         If (note.GetItemValue("Alarms")(0) = "1") Then
  4679.             ' The user clicked on the alarms checkbox to enable them
  4680.             If Not((m_lFlags And UI_FLAG_ALARM) = UI_FLAG_ALARM) Then
  4681.                 If m_uiobject.AlarmDialog() Then
  4682.                     Call note.replaceitemvalue("$Alarm",1)    
  4683.                     m_lFlags = m_lFlags Or UI_FLAG_ALARM
  4684.                 Else
  4685.                     Call Me.RemoveAlarmSettings(False)                
  4686.                     m_lFlags = m_lFlags And Not( UI_FLAG_ALARM)
  4687.                     bRefreshHide = True
  4688.                 End If
  4689.             End If
  4690.         Elseif (m_lFlags And UI_FLAG_ALARM) Then
  4691.             ' The user is removing the alarm
  4692.             Call Me.RemoveAlarmSettings(False)                    
  4693.             bRefreshHide = True
  4694.         End If
  4695.         If (bRefreshHide) Then
  4696.             Call m_uidoc.refreshhideformulas
  4697.             Call m_uidoc.reload
  4698.         End If    
  4699.     End Sub
  4700.     Sub QuerySave(bContinue As Variant)
  4701.         Dim vBEObject As Variant
  4702.         Dim note As NotesDocument
  4703.         Dim dtStart As NotesDateTime, dtEnd As notesDateTime
  4704.         Dim item As NotesItem
  4705.         Dim sCurrentType As String,  soriginalType As String, strCategory As String,  strWorkflow As String
  4706.         Dim strAction As String,  strNoticeType As String        
  4707.         Dim lCurrentAction As Long
  4708.         Dim dOptions As Long
  4709.         Dim fSendOptions As Integer, fCancelOptions As Integer
  4710.         Dim bIsCounter As Integer, bACtionErr As Integer
  4711.         Dim bDateOnly As Integer
  4712.         Dim bCancel As Integer
  4713.         On Error Goto ErrorRoutine        
  4714.         On Error 4412 Goto CancelSave 
  4715.         On Error 4411 Goto CancelSave
  4716.         On Error 4421 Goto CancelSave
  4717.         ' reset close flag
  4718.         Me.DoNotClose = False
  4719.         Call m_uidoc.refresh(True)
  4720.         Set vBEObject = m_uiobject.BEObject        
  4721.         Set note = vBEObject.Document
  4722.         If (m_uiobject.EventType = 3) Then
  4723.             dOptions = CS_DOC_RESOURCE
  4724.         Else
  4725.             dOptions = CS_DOC_ALARMS
  4726.         End If
  4727.         strNoticeType = note.getitemvalue("NoticeType")(0)
  4728.         If (strNoticeType = "T") Then dOptions = (dOptions Or CS_DOC_ISCOUNTER)
  4729.         If (m_uiobject.EventType = 2) Then dOptions = (dOptions Or CS_DOC_TASK)
  4730.         strAction = note.getitemvalue("tmpAction")(0)            
  4731.         If Len(strAction) Then m_uiobject.ActionInprogress = Clng(strAction)
  4732.     ' Build up the flags about the current document
  4733.         If (m_uiobject.IsOwner) Then 
  4734.             fCancelOptions = REMOVE_CALENDAR
  4735.             ' If this is not a counter propose notice, disallow save
  4736.             dOptions = (dOptions Or CS_DOC_FOROWNER)
  4737.             If (dOptions And CS_DOC_ISCOUNTER) = 0 Then 
  4738.                 If (NAMECompare(vBEObject.CalendarProfile.OwnerName, note.getitemvalue("Principal")(0)) = False) Then
  4739.                     Call note.replaceitemvalue("SaveOptions","0")
  4740.                     Exit Sub
  4741.                 End If
  4742.                 Call vBEObject.UpdateDateTimeItems()
  4743.             End If
  4744.         Elseif (m_uiobject.EventType = 3) Then
  4745.             Call vBEObject.UpdateDateTimeItems()
  4746.         End If
  4747.         sCurrentType = vBEObject.CurrentType
  4748.         sOriginalType = vBEObject.OriginalType
  4749.         Set dtStart = vBEObject.CurrentStartDate
  4750.         Set dtEnd = vBEObject.CurrentEndDate
  4751.         ' Query the user for several things to setup our context
  4752.         If (note.IsNewNote) Then
  4753.             ' Make sure this is not being created in the past
  4754.             If (m_uiobject.EventType = 1 Or m_uiobject.EventType = 3) Then
  4755.                 If (sCurrentType = "1" Or sCurrentType = "2") Then bDateOnly = True
  4756.             Else
  4757.                 bDateOnly = True
  4758.             End If
  4759.             If Not(m_uiobject.AllowInPast(dtStart, bDateOnly)) Then    Goto CancelSave
  4760.             ' Make sure we are not double booking
  4761.             If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
  4762.             ' See if out of office should be enabled
  4763.             If (m_uiobject.EventType <> 3) Then
  4764.                 strCategory = note.GetItemValue("Categories")(0)
  4765.                 If (strCategory = "V") Then Call CSAutoEnableOutOfOffice(vBEObject)
  4766.             End If
  4767.         Else
  4768.             If (m_uiobject.EventType = 3) Then 
  4769.                 If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
  4770.             End If
  4771.             ' If this is a repeating event, see if changes should be applied
  4772.             If Not(m_uiobject.CheckForRepeatChanges(False)) Then Goto CancelSave
  4773.             If (dOptions And CS_DOC_FOROWNER) And ((dOptions And CS_DOC_ISCOUNTER) = 0) Then
  4774.             ' See if we are going from a workflow enabled entry to a non-workflow enabled                                        
  4775.                 If (m_uiobject.EventType = 1) Then
  4776.                     strWorkflow = "3"                    
  4777.                 Else        
  4778.                     strWorkflow = "2"
  4779.                 End If                
  4780.                 Select Case CSEventDisableWorkflow(m_uiobject, strWorkflow)
  4781.                 Case -1
  4782.                     Goto CancelSave
  4783.                 Case 1
  4784.                     m_uiobject.ActionInProgress = ACTION_CANCEL
  4785.                     fCancelOptions = 0
  4786.                 End Select
  4787.             ' See if we should reschedule
  4788.                 If (m_uiobject.NeedsReschedule) Then
  4789.                     If Not(m_uiobject.OkToReschedule) Then Goto CancelSave
  4790.                     ' Make sure we are not double booking
  4791.                     If Not(m_uiobject.AllowDoubleBook()) Then Goto CancelSave
  4792.                 End If  
  4793.             End If
  4794.         End If                            
  4795.         If (dOptions And CS_DOC_FOROWNER) And ((dOptions And CS_DOC_ISCOUNTER) = 0) Then
  4796.             If (vBEObject.IsWorkflowEnabled()) Then
  4797.                 fSendOptions = vBEObject.PrimarySendOptions
  4798.                 If (fSendOptions > 0) Then
  4799.                 ' See if the user wants to send this
  4800.                     If Not(m_uiobject.IsActionInProgress(ACTION_SEND)) Then
  4801.                         If m_uiobject.SendInvitations((fSendOptions > 1)) Then
  4802.                             m_uiobject.ActionInProgress = ACTION_SEND
  4803.                         End If
  4804.                     End If
  4805.                 End If
  4806.             End If
  4807.         End If        
  4808.         lCurrentAction = m_uiobject.ActionInProgress
  4809.     ' call the shared document save routine
  4810.         Call CSDocSave(vBEObject, Me, lCurrentAction, dOptions, bContinue)
  4811.         If Not(bContinue) Then Goto CancelSave
  4812.         On Error Goto CancelSave
  4813.         If (dOptions And CS_DOC_FOROWNER) Then
  4814.             If (lCurrentACtion And ACTION_REMOVE_PEOPLE) Then
  4815.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_STATUSUPDATE, Cstr(ORS_STATUS_REMOVED))
  4816.             Elseif (lCurrentAction And ACTION_REMOVE_RESOURCES) Then
  4817.                 Call vBeobject.ActionHandler(ORS_MSGTYPE_REMOVERES, True, Cint(True))
  4818.             Elseif (lCurrentACtion And ACTION_REMOVE_ROOMS) Then
  4819.                 Call vBeobject.ActionHandler(ORS_MSGTYPE_REMOVERES, True, Cint(False))
  4820.             Elseif (lCurrentAction And ACTION_RESCHEDULE) Then
  4821.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_RESCHEDULE, 0)
  4822.             Elseif (lCurrentAction And ACTION_CANCEL) Then
  4823.                 Call m_uiobject.Cancel(fCancelOptions)
  4824.             Elseif (lCurrentAction And ACTION_COUNTER_ACCEPT) Then
  4825.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTERACCEPT, 0)
  4826.             Elseif (lCurrentAction And ACTION_COUNTER_REJECT) Then
  4827.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTERREJECT, 0)
  4828.             Elseif (lCurrentAction And ACTION_COMPLETED) Then
  4829.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
  4830.             End If
  4831.         Else
  4832.             If (lCurrentAction And ACTION_ACCEPT) Then
  4833.                 Call m_uiobject.Accept
  4834.             Elseif (lCurrentAction And ACTION_DECLINE) Then
  4835.                 Call m_uiobject.Decline
  4836.             Elseif (lCurrentAction And ACTION_DELEGATE) Then
  4837.                 Call m_uiobject.Delegate(bActionErr)
  4838.             Elseif (lCurrentAction And  ACTION_ADDTOCALENDAR) Then
  4839.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_ADDCALENDAR, 0)
  4840.             Elseif (lCurrentAction And ACTION_COUNTER_PROPOSE) Then
  4841.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COUNTER, 0)
  4842.             Elseif (lCurrentAction And ACTION_COMPLETED) Then
  4843.                 Call m_uiobject.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
  4844.             End If            
  4845.         End If
  4846.         If (bActionErr = True) Then Goto CancelSave
  4847.         ' We have to update the repeat instances after performing the action
  4848.         If (note.isnewnote = False) Then 
  4849.             If Not((m_uiobject.IsOwner = True) And (doptions And CS_DOC_ISCOUNTER) = CS_DOC_ISCOUNTER) Then
  4850.                 Call CSDocSaveRepeatingEntry(vBEObject)
  4851.             End If        
  4852.         End If
  4853.         Goto Done
  4854. ErrorRoutine:
  4855.         Msgbox "Fehler -> " & Error & "[" & Err & "]" & " (QuerySave)"
  4856. CancelSave:
  4857.         If (Me.WasSaved) Then Me.WasSaved = False
  4858.         bContinue = False
  4859.         Me.DoNotClose = True
  4860. Done:
  4861.         Call m_uidoc.reload()
  4862.         Exit Sub
  4863.     End Sub
  4864.     Sub PostSave()
  4865.         m_lFlags = m_lFlags Or UI_FLAG_WASSAVED
  4866.     End Sub
  4867.     Sub QueryClose(bContinue As Variant)
  4868.         Dim vbeobject As Variant
  4869.         Dim vDates As Variant
  4870.         Dim note As NotesDocument    
  4871.         Dim profile As NotesDocument        
  4872.         Dim ws As New notesuiworkspace
  4873.         If (Me.DoNotClose = True) Then
  4874.             Me.DoNotClose = False
  4875.             bcontinue = False
  4876.         End If
  4877.     ' See if the document needs to be placed into the alarm folder
  4878.         Set note = m_uidoc.document
  4879.         Set vbeobject = m_uiobject.beobject
  4880.         If (note.HasItem("$Alarm")) Then
  4881.             If Not(vbeobject.InAlarmFolder) Then             Call vbeobject.PutInAlarmsFolder()
  4882.             Call m_uiobject.Workspace.CheckAlarms()
  4883.         End If 
  4884.         ' Update categories 
  4885.         If (m_uiobject.EventType <> 3) Then
  4886.             Set profile = vBEObject.CalendarProfile.Document
  4887.             Call CSDocUpdatePersonalCategories(note, profile)
  4888.         End If
  4889.         If (m_uiobject.SendComments) Then Call m_uiobject.EditNotice
  4890.         Call ws.viewrefresh()
  4891.     End Sub
  4892.     Sub SendPrimaryRequest()
  4893.         ' callback routine from backend to send the primary notice
  4894.         Call m_uidoc.reload()
  4895.         Call m_uidoc.send()
  4896.     End Sub    
  4897.     Sub RemoveAlarmSettings(fDisable As Integer)
  4898.         Call m_uidoc.Document.replaceitemvalue("Alarms","")
  4899.         m_lFlags = m_lFlags Xor UI_FLAG_ALARM
  4900.         Call m_uiobject.BEObject.RemoveAlarm()        
  4901.         If (fDisable = True) Then Call m_uidoc.document.replaceitemvalue("tmpAlarmDisabled","1")
  4902.     End Sub
  4903. End Class
  4904. '++LotusScript Development Environment:2:2:Initialize:1:10
  4905. Sub Initialize
  4906. End Sub
  4907. '++LotusScript Development Environment:2:1:CSUIDocOpen:1:8
  4908. Function CSUIDocOpen(Byval iType As Integer, source As NotesUIDocument, mode As Integer, isnewdoc As Variant, continue As Variant) As UIEventDocument
  4909.     Dim note As NotesDocument
  4910.     Dim uidoc As UIEventDocument    
  4911.     Dim bOwner As Integer
  4912.     If (source.InPreviewPane) Then Exit Function
  4913.     Set note = source.document
  4914.     If (iType <> 3) Then bOwner = NOTEUserIsCreator(note)
  4915.     Set uidoc = New UIEventDocument(source, iType, bOwner)
  4916.     Call uidoc.QueryOpen(mode, Isnewdoc, continue)     
  4917.     Set CSUIDocopen = uidoc
  4918. End Function
  4919. ,h)0+8
  4920. Lotus Product
  4921. .D&D&
  4922. L"l"@    
  4923. ]h    Ix    I
  4924. O, U8 
  4925. ,X #8$
  4926. ,t!}h
  4927. #SD %
  4928. #SD %
  4929. ,t!}\
  4930. ,t!}p
  4931. ,t!}\
  4932. ,t!}p
  4933. O, U8 
  4934. -$'#8"
  4935. ,t!}\
  4936. O, P@"
  4937. -|.#8
  4938. #Tt/'
  4939. O=Lotus Notes
  4940. O=Lotus Notes
  4941. PURSAFO
  4942. |.:#U
  4943. O=Lotus Notes
  4944. CN=Lotus Notes Template Development/O=Lotus Notes
  4945. PURSAFO
  4946. $TITLE
  4947. $PublicAccess
  4948. $Language
  4949. $LastBuildTime
  4950. $BabelInfo
  4951. $ScriptLib
  4952. $ScriptLib_O
  4953. '++LotusScript Development Environment:2:5:(Options):0:74
  4954. Option Public
  4955. Option Explicit
  4956. Use "CSEventClass"
  4957. '++LotusScript Development Environment:2:5:(Forward):0:1
  4958. Declare Function InitEventObject(note As NotesDocument, bIgnoreSelected As Integer) As UIEventObject
  4959. Declare Sub ProcessViewCommand(lAction As Long)
  4960. Declare Function CheckForRepeatChanges(uievent As UIEventObject, nNoCancelOp As Integer) As Integer
  4961. Declare Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag  As Integer)
  4962. Declare Function CanProcessViewCommand(Byval lAction As Long, uievent As UIEventObject) As Integer
  4963. '++LotusScript Development Environment:2:5:(Declarations):0:10
  4964. 'CSUIViewClass: 
  4965. 'CSUIViewClass: 
  4966. Const ACTION_VIEWSTATUS = 123
  4967. Const ACTION_SENDMEMO = 125
  4968. '++LotusScript Development Environment:2:1:InitEventObject:1:8
  4969. Function InitEventObject(note As NotesDocument, bIgnoreSelected As Integer) As UIEventObject
  4970.     Dim vBEObject As Variant
  4971.     Dim dtCalendar As NotesDateTime
  4972.     Dim uievent As UIEventObject
  4973.     Dim ws As New notesUIWorkspace
  4974.     Dim bNeedsDate As Integer, bChair As Integer, nEventType As Integer
  4975.     bChair = NOTEUserIsCreator(note)
  4976.     nEventType = CSNoteGetType(note)    
  4977.     If (nEventType = 3) Then bChair = False
  4978.     Set uievent = New UIEventObject(nEventType, bChair)    
  4979.     Set vbeobject = uievent.BEObject
  4980.     Set dtCalendar = uievent.CSEventGetCalendarInstance(bNeedsDate, note, bIgnoreSelected)
  4981.     If (dtCalendar Is Nothing And bNeedsDate) Then Exit Function
  4982.     Call CSDocOpen(vBEObject, note, dtCalendar, 0)    
  4983.     Set InitEventObject = uievent
  4984. End Function
  4985. '++LotusScript Development Environment:2:2:ProcessViewCommand:1:8
  4986. Sub ProcessViewCommand(lAction As Long)
  4987.     Dim collection As NotesDocumentCollection
  4988.     Dim note As NotesDocument
  4989.     Dim session As New notessession
  4990.     Dim ws As New notesuiworkspace
  4991.     Dim uievent As UIEventObject
  4992.     Dim vBEobject, vContinue, strtable As Variant
  4993.     Dim dOptions As Long    
  4994.     Dim nChangeWhich As Integer, nResult As Integer
  4995.     Dim bSave As Integer, bError As Integer
  4996.     Set collection = session.currentdatabase.unprocesseddocuments
  4997.     If (collection.count = 0) Then Exit Sub
  4998.     Set note = collection.getfirstdocument()
  4999.     Set uievent = InitEventObject(note, False)
  5000.     If (uievent Is Nothing) Then Exit Sub
  5001.     Set strtable = uievent.StringTable        
  5002.     nResult = CanProcessViewCommand(lAction, uievent) 
  5003.     If Not (nResult) Then
  5004.         If (nResult = ERR_BROADCAST And lACtion = ACTION_ACCEPT) Then
  5005.             lAction = ACTION_ADDTOCALENDAR
  5006.         Else
  5007.             Call DisplayWarn(strtable.getstring(nResult, Null), 0, strtable.getstring(ERR_TITLE, Null))
  5008.             Exit Sub
  5009.         End If
  5010.     End If
  5011.     Set vBEObject = uievent.BEObject
  5012.     If note.HasItem("OrgRepeat") And Not note.IsResponse Then
  5013.         If Not note.GetItemValue("NoticeType")(0) = "I" Then
  5014.         ' This is not an invitation and we need to tell them to select an instance document            
  5015.             Call DisplayWarn(strtable.getstring(USER_INVALID_DOCUMENT , Null) ,MB_OK, strtable.getstring(ERR_TITLE, Null))
  5016.             Exit Sub
  5017.         End If
  5018.     End If
  5019.     If (uievent.IsOwner) Then
  5020.         Select Case lAction
  5021.         Case ACTION_RESCHEDULE
  5022.             If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
  5023.             If Not(uievent.OkToPerformAction(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)) Then Goto Done
  5024.         Case ACTION_CANCEL
  5025.             If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
  5026.             If Not(uievent.OkToPerformAction(Null, CANC_TITLE, lAction, "(OwnerDlg)",1)) Then Goto Done    
  5027.         Case ACTION_CONFIRM
  5028.             If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
  5029.             If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)",1) Then
  5030.                 Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  5031.             End If
  5032.             Goto Done
  5033.         Case ACTION_VIEWSTATUS
  5034.             If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
  5035.             Call uievent.ViewParticipantStatus()
  5036.             Goto Done
  5037.         Case ACTION_SENDMEMO
  5038.             If Not(vBEObject.IsWorkflowEnabled()) Then Goto Done
  5039.             Call uievent.CreateMemo(True)
  5040.             Goto Done
  5041.         Case ACTION_COMPLETED
  5042.         Case Else
  5043.             Msgbox uievent.stringtable.getstring(USER_ACTION_INVALID,  Null)
  5044.             Goto done
  5045.         End Select
  5046.     Else        
  5047.         Call uievent.ScanForUpdates
  5048.         If note.GetItemValue("tmpDoNotProcess")(0) = "1" Then
  5049.           ' if we need to open the reschedule notice; do it now
  5050.             If uievent.ActionInProgress = ACTION_OPENRESCHEDULE Then
  5051.                 Set ws = New NotesUIWorkspace
  5052.                 Set session = New notessession
  5053.                 Set note = session.CurrentDatabase.GetDocumentByID(vBEObject.UpdateNotice.NoteID)
  5054.                 If Not(note Is Nothing) Then
  5055.                     Call ws.editdocument(False,note)
  5056.                     Exit Sub
  5057.                 End If
  5058.             End If
  5059.         End If        
  5060.         Select Case lAction            
  5061.         Case ACTION_ACCEPT
  5062.             If Not(uievent.OkToPerformAction(Null, ACPT_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  5063.         Case ACTION_DECLINE
  5064.             If Not(uievent.OkToPerformAction(Null, DECL_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  5065.         Case ACTION_DELEGATE
  5066.             If Not(uievent.OkToPerformAction(Null, DELE_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  5067.         Case ACTION_COUNTER_PROPOSE
  5068.             If Not(uievent.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  5069.         Case ACTION_COMPLETED
  5070.             If Not(uievent.OkToPerformAction(Null, 0, lAction, "(InviteeReplyDlg)",1)) Then Goto Done
  5071.         Case ACTION_ADDTOCALENDAR
  5072.         Case Else
  5073.             Msgbox uievent.stringtable.getstring(USER_ACTION_INVALID,  Null)
  5074.             Goto done            
  5075.         End Select
  5076.     End If
  5077.     ' if we got here, then we want to perform the action
  5078.     ' check for repeating changes
  5079.     If Not(CheckForRepeatChanges(uievent,False)) Then Goto Done
  5080.     vContinue = True
  5081.     If (uievent.IsOwner) Then 
  5082.         dOptions = CS_DOC_FOROWNER
  5083.         Call vBEObject.UpdateDateTimeItems()
  5084.     End If
  5085.     If (uievent.EventType = 2) Then dOptions = dOptions Or CS_DOC_TASK    
  5086.     dOptions = dOptions Or CS_DOC_ALARMS
  5087.     Call CSDocSave(vBEObject, Null, lAction, dOptions, vContinue)
  5088.     If Not(vContinue) Then Goto Done
  5089.     Select Case lAction
  5090.     Case ACTION_RESCHEDULE
  5091.         Call uievent.PerformAction(ORS_MSGTYPE_RESCHEDULE, 0)
  5092.     Case ACTION_CANCEL
  5093.         Call uievent.Cancel(REMOVE_CALENDAR Or REMOVE_CURRENT)
  5094.     Case ACTION_COMPLETED
  5095.         Call uievent.PerformAction(ORS_MSGTYPE_COMPLETED, 0)
  5096.     Case ACTION_ACCEPT
  5097.         Call uievent.Accept()
  5098.     Case ACTION_DECLINE
  5099.         Call uievent.Decline()
  5100.     Case ACTION_DELEGATE
  5101.         Call uievent.Delegate(bError)
  5102.     Case ACTION_COUNTER_PROPOSE                
  5103.         Call uievent.PerformAction(ORS_MSGTYPE_COUNTER, 0)
  5104.     Case ACTION_ADDTOCALENDAR
  5105.         Call uievent.PerformAction(ORS_MSGTYPE_ADDCALENDAR, 0)        
  5106.     End Select
  5107.     If (bError) Goto Done
  5108.     ' We have to update the repeat instances after performing the action
  5109.     Call CSDocSaveRepeatingEntry(vBEObject)
  5110.     Call note.save(True, True, True)
  5111. Done:
  5112.     If (uievent.SendComments) Then Call uievent.EditNotice
  5113.     Delete uievent
  5114.     Delete note
  5115.     Call ws.ViewRefresh
  5116. End Sub    
  5117. '++LotusScript Development Environment:2:1:CheckForRepeatChanges:1:8
  5118. Function CheckForRepeatChanges(uievent As UIEventObject, nNoCancelOp As Integer) As Integer
  5119.     Dim vBEObject As Variant
  5120.     CheckForRepeatChanges = True
  5121.     Set vBEObject = uievent.BEObject
  5122.     If (vBEObject.Context <> CTX_REPEAT_INST) Then Exit Function
  5123.     If (uievent.ChangeRepeatDialog(nNoCancelOp) = REPEAT_CANCEL) Then CheckForRepeatChanges = False        
  5124. End Function
  5125. '++LotusScript Development Environment:2:2:ViewDragPasteHandler:1:8
  5126. Sub ViewDragPasteHandler(source As NotesUIView, Byval bDrag  As Integer)
  5127.     Dim ws As New notesuiworkspace
  5128.     Dim collection As NotesDocumentCollection
  5129.     Dim note As NotesDocument
  5130.     Dim dtCalDrop As NotesDateTime, dtCal As notesdatetime, dtStart As NotesDateTime, dtEnd As NotesDateTime
  5131.     Dim uiview As UIEVentObject
  5132.     Dim sharedTable As New BaseCSStringTable()    
  5133.     Dim vBEObject As Variant, strtable As Variant    
  5134.     Dim strAction As String, strOwner As String
  5135.     Dim dOptions As Long, lAction As Long, lDifference As Long
  5136.     Dim bRefresh As Integer, nChangeWhich As Integer, bSave As Integer, bContinue As Integer, iType As Integer, nResult As Integer
  5137.     Call TIMEGetNotesFromLS(source.calendardatetime, dtCalDrop)
  5138.     Set collection = source.documents
  5139.     Set note = collection.getfirstdocument
  5140.     bContinue = True
  5141.     ' if this is a paste operation, reset the $BusyName and Principal items, and various other items
  5142.     If (bDrag = False) Then
  5143.         iType = CSNoteGetType(note)
  5144.         If Not(NOTEUserIsCreator(note)) Then
  5145.             strOwner  = CSGetMailFileOwner()
  5146.             If (note.hasitem("$BusyName")) Then Call note.replaceitemvalue("$BusyName", strOwner)
  5147.             Call note.replaceitemvalue("Principal", strOwner)
  5148.             Call note.replaceitemvalue("Chair", strOwner)
  5149.         End If
  5150.         If (iType = 1) Then
  5151.             Call note.removeitem("RequiredAttendees")
  5152.             Call note.removeitem("OptionalAttendees")
  5153.             Call note.removeitem("FYIAttendees")
  5154.             Call note.removeitem("RequiredResources")
  5155.             Call note.removeitem("Room")
  5156.         Else
  5157.             Call note.removeitem("AssignedTo")        
  5158.             Call note.removeitem("OptionalAssignedTo")
  5159.             Call note.removeitem("FYIAssignedTo")
  5160.         End If
  5161.         Call note.removeitem("Uninvited")
  5162.         Call note.removeitem("$CSFlags")
  5163.         Call note.replaceitemvalue("ApptUNID", note.UniversalID)
  5164.         ' if this is a repeating entry, tell the user we are going to remove it 
  5165.         If (note.hasitem("OrgRepeat")) Then
  5166.             Call DisplayWarn(sharedTable.GetString(REPEAT_PASTE_PROMPT, Null), 0, sharedTable.getstring(REPEAT_PASTE_TITLE, Null))
  5167.             Call note.removeitem("OrgRepeat")
  5168.             Call note.removeitem("$REF")
  5169.         End If
  5170.     End If
  5171.     Set uiview = InitEventObject(note, False)
  5172.     If (uiview Is Nothing) Then Exit Sub
  5173.     If (uiview.EventType = 2) Then dOptions = dOptions Or CS_DOC_TASK        
  5174.     Set vBEObject = uiview.BEObject
  5175.     Set strtable = uiview.StringTable    
  5176.     Set dtStart = vBEObject.OriginalStartDate
  5177.     Set dtEnd = vBEObject.OriginalEndDate
  5178.     dOptions = CS_DOC_ALARMS
  5179.         ' set the new date/time values 
  5180.     Call TIMEGetNotesFromLS(source.CalendarDateTime, dtCal)
  5181.         ' If the document was dropped on a date but no time, use the existing time
  5182.     If (Hour(dtCalDrop.LSLocalTime) = 0) Then
  5183.         Set dtCal = New notesdatetime(dtCalDrop.DateOnly & " " & dtStart.TimeOnly)
  5184.     Else
  5185.         Call TIMEGetNotesFromLS(dtCalDrop.LSLocalTime, dtCal)
  5186.     End If
  5187.     If Len(dtStart.LocalTime) = 0 Then dtStart.LSLocalTime = dtCal.LSLocalTime
  5188.     If Len(dtEnd.LocalTime) = 0 Then dtEnd.LSLocalTime = dtCal.LSLocalTime
  5189.     lDifference = dtCal.TimeDifference(dtStart)
  5190.     Call TIMEAdjustByDifference(lDifference, dtStart)
  5191.     Call TIMEAdjustByDifference(lDifference, dtEnd)
  5192.     If (uiview.IsOwner) Then dOptions = dOptions Or CS_DOC_FOROWNER        
  5193.     If (bDrag = True) Then
  5194.         If uiview.IsOwner Then
  5195.             Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
  5196.             If (uiview.EventType = 1) Then
  5197.                 Call note.ReplaceItemValue("StartTime", dtStart.LSLocalTime)
  5198.                 Call note.ReplaceItemValue("EndDate", dtEnd.LSLocalTime)        
  5199.                 Call note.ReplaceItemValue("EndTime", dtEnd.LSLocalTime)
  5200.             Else
  5201.                 Call note.ReplaceItemValue("DueDate", dtEnd.LSLocalTime)        
  5202.             End If                
  5203.             If (vBEObject.WasMailed()) Then
  5204.                 strAction = ORS_MSGTYPE_RESCHEDULE            
  5205.                 lAction = ACTION_RESCHEDULE            
  5206.                 If uiview.OkToPerformAction(Null, RESC_TITLE, lAction, "(OwnerDlg)", 0) = False Then Exit Sub                
  5207.             Else
  5208.                 If YesNoPrompt(strtable.getstring(ENTRY_DTMOD, Null), strtable.getstring(DTMOD_TITLE, Null)) = False Then Exit Sub
  5209.             End If
  5210.         Else
  5211.             strAction = ORS_MSGTYPE_COUNTER        
  5212.             lAction = ACTION_COUNTER_PROPOSE
  5213.             ' Make sure we can process the command
  5214.             nResult = CanProcessViewCommand(lAction, uiview)
  5215.             If (nResult <> True) Then
  5216.                 Call DisplayWarn(uiview.StringTable.GetString(nResult, Null), 0, uiview.StringTable.GetString(ERR_TITLE, Null))
  5217.                 Exit Sub
  5218.             End If
  5219.             Call note.ReplaceItemValue("NewStartDate", dtStart.LSLocalTime)
  5220.             Call note.ReplaceItemValue("NewStartTime", dtStart.LSLocalTime)
  5221.             Call note.ReplaceItemValue("NewEndDate", dtEnd.LSLocalTime)        
  5222.             Call note.ReplaceItemValue("NewEndTime", dtEnd.LSLocalTime)
  5223.             If (uiview.OkToPerformAction(Null, CNTR_TITLE, lAction, "(InviteeReplyDlg)",0)) = False Then Exit Sub
  5224.         End If
  5225.         If (uiview.CheckForRepeatChanges(False) = False) Then Exit Sub
  5226.     Else
  5227.         Call note.ReplaceItemValue("StartDate", dtStart.LSLocalTime)
  5228.         If (uiview.EventType = 1) Then
  5229.             Call note.ReplaceItemValue("StartTime", dtStart.LSLocalTime)
  5230.             Call note.ReplaceItemValue("EndDate", dtEnd.LSLocalTime)        
  5231.             Call note.ReplaceItemValue("EndTime", dtEnd.LSLocalTime)
  5232.         Else
  5233.             Call note.ReplaceItemValue("DueDate", dtEnd.LSLocalTime)        
  5234.         End If                
  5235.     End If
  5236.     If (uiview.AllowDoubleBook() = False) Then Exit Sub
  5237.     Call vBEObject.UpdateDateTimeItems()    
  5238.     Call CSDocSave(vBEObject, Nothing, lAction, dOptions, bContinue)
  5239.     If (bContinue = False) Then Exit Sub
  5240.     Call vBEObject.MarkTempItems()
  5241.     If (lAction) Then    Call uiview.PerformAction(strAction, 0)
  5242.         ' We have to update the repeat instances after performing the action
  5243.     If (bDrag = True) Then
  5244.         Call CSDocSaveRepeatingEntry(vBEObject)
  5245.     End If
  5246.     Call note.save(True, True, True)
  5247.     If (uiview.SendComments) Then Call uiview.EditNotice
  5248.     Call ws.viewrefresh
  5249. End Sub
  5250. '++LotusScript Development Environment:2:1:CanProcessViewCommand:1:8
  5251. Function CanProcessViewCommand(Byval lAction As Long, uievent As UIEventObject) As Integer
  5252.     Dim vBEObject As Variant
  5253.     Dim note As notesdocument
  5254.     Set vBEObject = uievent.BEObject
  5255.     Set note = vBEObject.Document
  5256.     Select Case Lcase(note.GetItemValue("Form")(0))
  5257.     Case "memo","reply"
  5258.         CanProcessViewCommand = USER_MAILDOCUMENT_SELECTED
  5259.     Case Else
  5260.         If (uievent.IsOwner = True) Then
  5261.         ' see if we are processing a reply from a user
  5262.             If (note.hasitem("DeliveredDate")) Then 
  5263.                 CanProcessViewCommand = USER_INVALID_DOCUMENT
  5264.                 Exit Function
  5265.             End If
  5266.         Else
  5267.         ' if the note is a broadcast, then disallow most actions
  5268.             If (note.GetItemValue("Broadcast")(0) = "1") Then
  5269.                 Select Case lAction
  5270.                 Case ACTION_ACCEPT, ACTION_DECLINE,  ACTION_DELEGATE, ACTION_COUNTER_PROPOSE
  5271.                     CanProcessViewCommand = ERR_BROADCAST                
  5272.                     Exit Function
  5273.                 End Select
  5274.             Elseif (note.GetItemValue("PreventDelegate")(0) = "1" And lAction = ACTION_DELEGATE) Then 
  5275.                 CanProcessViewCommand = ERR_NO_DELEGATE            
  5276.                 Exit Function
  5277.             Elseif (note.GetItemValue("PreventCounter")(0) = "1" And lAction = ACTION_COUNTER_PROPOSE) Then
  5278.                 CanProcessViewCommand = ERR_NO_PROPOSE            
  5279.                 Exit Function
  5280.             Elseif note.HasItem("OrgRepeat") And Not note.IsResponse And lAction = ACTION_COUNTER_PROPOSE Then            
  5281.                 If Instr(1, note.getitemvalue("$CSFlags")(0), "c", 1) = 0 Then
  5282.                     CanProcessViewCommand = USER_MUST_ACCEPT
  5283.                 Else
  5284.                     CanProcessViewCommand = USER_INVALID_DOCUMENT
  5285.                 End If
  5286.                 Exit Function            
  5287.             End If
  5288.         End If
  5289.         CanProcessViewCommand = True
  5290.     End Select
  5291. End Function
  5292. Lotus Product
  5293. 0#0#<
  5294. !T!T!
  5295. 8    h    H    H    
  5296. ~`%~H
  5297. ^h    KH    -
  5298. ,H }4
  5299. ,H }\
  5300. ,H }$
  5301. ,H }D
  5302. ,H }\
  5303. -x ##1
  5304.  ~,!~
  5305. -x!#}
  5306. -T!#^
  5307. -T!#!
  5308. -T!#!
  5309. -T!##1
  5310. -T!##1
  5311. -T!##1
  5312. -T!##1
  5313. -T!##1
  5314. S|"%8:
  5315. "~8&&
  5316. #~P&&
  5317. -T!##1
  5318. -T!##1
  5319. -T!##1
  5320. -T!##1
  5321. -T!##1
  5322. -T!##1
  5323. -T!##1
  5324. -T!##1
  5325. -T!##1
  5326. O=Lotus Notes
  5327. O=Lotus Notes
  5328. PURSAFO
  5329. |.:#U
  5330. O=Lotus Notes
  5331. CN=Lotus Notes Template Development/O=Lotus Notes
  5332. PURSAFO
  5333. 5-_m%
  5334. $TITLE
  5335. $PublicAccess
  5336. $Language
  5337. $LastBuildTime
  5338. $BabelInfo
  5339. $ScriptLib
  5340. $ScriptLib_O
  5341. '++LotusScript Development Environment:2:5:(Options):0:74
  5342. Option Public
  5343. Option Explicit
  5344. Use "Common"
  5345. '++LotusScript Development Environment:2:5:(Forward):0:1
  5346. Declare Class CSWebOwnerObject
  5347. Declare Sub Initialize
  5348. Declare Sub WebQueryOpen(note As notesdocument, bCalledFromSave As Integer)
  5349. Declare Sub WebQuerySave()
  5350. Declare Function ParseURLForCalDate(strURL As String) As NotesDateTime
  5351. Declare Function ParseQueryStringForEntry(strQueryString As String, strKey As String) As String
  5352. Declare Sub WebViewParticipantStatus(note As NotesDocument)
  5353. Declare Sub WebDeleteRepeatInstanceCache(db As notesdatabase)
  5354. '++LotusScript Development Environment:2:5:(Declarations):0:10
  5355. 'CSWeb: 
  5356. 'CSWeb: 
  5357. 'CSWeb: 
  5358. 'CSWeb: 
  5359. 'CSWeb: 
  5360. Class CSWebOwnerObject
  5361.     m_note As NotesDocument
  5362.     Sub new(note As notesdocument)
  5363.         Set m_note = note
  5364.     End Sub
  5365.     Sub SendPrimaryRequest()
  5366.         If Not(m_note Is Nothing) Then Call m_note.send(False)
  5367.     End Sub
  5368. End Class
  5369. Dim vBEObject As Variant
  5370. Dim vCallBack As CSWebOwnerObject
  5371. Dim strQueryString As String
  5372. Dim fOptions As Long
  5373. Dim bOwner As Integer
  5374. '++LotusScript Development Environment:2:2:Initialize:1:10
  5375. Sub Initialize
  5376. End Sub
  5377. '++LotusScript Development Environment:2:2:WebQueryOpen:1:8
  5378. Sub WebQueryOpen(note As notesdocument, bCalledFromSave As Integer)
  5379.     Dim dtinit As New notesdatetime("")
  5380.     Dim dtCal As notesdatetime
  5381.     Dim nEventType As Integer
  5382.     Set session = New notessession
  5383.     Set note = session.documentcontext
  5384.     Set db = session.currentdatabase
  5385.     bOwner = NOTEUserIsCreator(note)
  5386.     nEventType = CSNoteGetType(note)
  5387.     If nEventType = 3 Then
  5388.         fOptions=CS_DOC_RESOURCE
  5389.     Elseif nEventType = 2 Then
  5390.         fOptions = CS_DOC_TASK
  5391.     End If
  5392.     If nEventType=3 Then
  5393.         Set vBEobject=New NotesCSReservationDocument()
  5394.     Elseif (bOwner) Then
  5395.         Set vBEobject = New NotesCSEventOwnerDocument(nEventType)
  5396.         fOptions = fOPtions Or CS_DOC_FOROWNER
  5397.     Else
  5398.         Set vBEobject = New NotesCSEventParticipantDocument(nEventType)
  5399.     End If
  5400.     fOptions = fOptions Or CS_DOC_WEBUSER
  5401.     If (bCalledFromSave = False) Then
  5402.      fOptions = fOptions Or CS_DOC_FIRSTPASS
  5403.     Call WebDeleteRepeatInstanceCache(db)
  5404.     End If
  5405.     strQueryString = note.GetItemValue("Query_String")(0)
  5406.     Set dtCal = ParseURLForCalDate(strQueryString)
  5407.     Call CSDocOpen(vBEObject, note, dtCal, fOptions)
  5408.     If nEventType<>3 Then
  5409.         Call note.replaceitemvalue("tmpOwner", vBEObject.CalendarProfile.OwnerName)
  5410.     End If    
  5411.     If (note.IsNewNote = True) And (bCalledFromSave = False) Then Call note.replaceitemvalue("ApptUNID","")
  5412.     If Not(dtCal Is Nothing) Then Call note.replaceitemvalue("tmpCalInstanceDate", dtCal)
  5413.     ' If this is a new document, set the type
  5414.     If (note.isnewnote) Then
  5415.         Dim strType As String
  5416.         strType = ParseQueryStringForEntry(strQueryString, "&Type=")
  5417.         If Len(strType) Then Call note.replaceitemvalue(vBEObject.TypeItemName, strType)
  5418.     End If
  5419.     'set the start and end times
  5420.     Call note.replaceitemvalue("tmpWebStartDateTime", vBEObject.currentstartdate)
  5421.     Call note.replaceitemvalue("tmpWebEndDateTime", vBEObject.currentenddate)
  5422. End Sub
  5423. '++LotusScript Development Environment:2:2:WebQuerySave:1:8
  5424. Sub WebQuerySave()
  5425.     Dim vContinue As Variant, vResult As Variant
  5426.     Dim strAction As String
  5427.     Dim dAction As Long
  5428.     Set session = New notessession
  5429.     Set db =session.currentdatabase
  5430.     Set note = session.documentcontext
  5431.     Dim strTable As New BaseCSStringTable()    
  5432.     Call WebQueryOpen(note, True)
  5433.     vContinue = True        
  5434.     If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = CTX_REPEAT_MSG) Then
  5435.         vBEObject.RepeatModify = Cint(note.getitemvalue("tmpChangeWhich")(0))
  5436.     End If
  5437.     If (bOwner) Then 
  5438.         If note.getitemvalue("NoticeType")(0)="T" Then foptions=foptions Or CS_DOC_ISCOUNTER    
  5439.         Set vCallBack = New CSWebOwnerObject(note)
  5440.     End If
  5441.     ' If this is a resource, then we need to do a freetime validation
  5442.     If (fOptions And CS_DOC_RESOURCE) > 0 Then
  5443.         vResult = vbeobject.IsValidTime()
  5444.         If Not(Isarray(vResult)) Then
  5445.             Select Case vResult
  5446.             Case 1                
  5447.             Case Else
  5448.                 Call note.replaceitemvalue("SaveOptions","0")
  5449.                 Print |<h4>| &strTable.GetString(RESOURCE_BOOKED_PROMPT, Null)  & | </h4><BR>   |
  5450.                 Print |<a href="/| & wgetdbpath &|/Main+Frameset?OpenFrameSet"> | & "Zur
  5451. ck zur Ansicht 'Reservierungen nach Datum'" & |</a>|                            
  5452.                 Exit Sub
  5453.             End Select
  5454.         Else
  5455.             Call note.replaceitemvalue("SaveOptions","0")
  5456.             Print |<h4>| &strTable.GetString(RESOURCE_BOOKED_PROMPT, Null)  & | </h4><BR>   |
  5457.             Print |<a href="/| & wgetdbpath &|/Main+Frameset?OpenFrameSet"> | & "Zur
  5458. ck zur Ansicht 'Reservierungen nach Datum'"  & |</a>|                            
  5459.         End If
  5460.     End If
  5461.     Call CSDocSave(vBEObject, vCallBack, 0, fOptions, vContinue)
  5462.     If Not(vContinue) Then
  5463.         Call note.replaceitemvalue("SaveOptions","0")
  5464.         Exit Sub
  5465.     End If
  5466.     strAction = note.getitemvalue("tmpAction")(0)
  5467.     If Len(strAction) Then
  5468.         dAction = Clng(strAction)
  5469.         If (bOwner) Then
  5470.             If (dAction And ACTION_RESCHEDULE) Then
  5471.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_RESCHEDULE, True, 0)
  5472.             Elseif (dAction And ACTION_CANCEL) Then
  5473.                 Call CSEventPerformAction(vBEObject, ORS_MSGTYPE_CANCEL, True, REMOVE_CALENDAR)
  5474.             Elseif (dAction And ACTION_CONFIRM) Then
  5475.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_CONFIRMATION, True, 0)
  5476.             Elseif (dAction And ACTION_COUNTER_ACCEPT) Then
  5477.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_COUNTERACCEPT, True, 0)
  5478.             Elseif (dAction And ACTION_COUNTER_REJECT) Then
  5479.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_COUNTERREJECT, True,0)
  5480.             Elseif (dAction And ACTION_COMPLETED) Then
  5481.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_COMPLETED,True, 0)
  5482.             End If
  5483.         Else 
  5484.             If (dAction And ACTION_ACCEPT) Then
  5485.                 Call CSEventPerformAction(vBEOBject, ORS_MSGTYPE_ACCEPT, True, 0)                
  5486.             Elseif (dAction And ACTION_DECLINE) Then
  5487.                 Call CSEventPerformAction(vBEOBject, ORS_MSGTYPE_REJECT, True, 0)                
  5488.             Elseif (dAction And ACTION_COUNTER_PROPOSE) Then
  5489.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_COUNTER, True, 0)
  5490.             Elseif (dAction And ACTION_DELEGATE) Then
  5491.                 On Error Resume Next                
  5492.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_DELEGATE, True, 1)
  5493.                 Call CSEventPerformAction(vBEObject, ORS_MSGTYPE_DELEGATING, True, 0)
  5494.             Elseif (dAction And ACTION_COMPLETED) Then
  5495.                 Call vBEObject.ActionHandler(ORS_MSGTYPE_COMPLETED,True, 0)
  5496.             End If                                
  5497.         End If
  5498.     End If
  5499.     ' Delete the repeat cache note
  5500.     If (vBEObject.Context = CTX_REPEAT_INST Or vBEObject.Context = CTX_REPEAT_MSG) Then
  5501.         ' We have to update the repeat instances after performing the action
  5502.         If Not((bOwner = True) And (foptions And CS_DOC_ISCOUNTER) = CS_DOC_ISCOUNTER) Then
  5503.             Call CSDocSaveRepeatingEntry(vBEObject)
  5504.         End If        
  5505.         Call WebDeleterepeatInstanceCache(db)
  5506.     End If
  5507.     If note.form(0)="Task" Then
  5508.         Print "[" & wgetdbpath &"/TodoFS?OpenFrameSet]"
  5509.     Elseif note.form(0)="Reservation" Then 
  5510.         Print "[" & wgetdbpath &"/Main+Frameset?OpenFrameSet]"
  5511.     Elseif note.form(0)="Notice" Then
  5512.         Print "[" & wgetdbpath &"/MailFS?OpenFrameSet]"
  5513.     Else
  5514.         Print "[" & wgetdbpath &"/CalendarFS?OpenFrameSet]"
  5515.     End If
  5516. End Sub
  5517. '++LotusScript Development Environment:2:1:ParseURLForCalDate:1:8
  5518. Function ParseURLForCalDate(strURL As String) As NotesDateTime
  5519.     ' this will return an empty date/time object is the URL does not contain the info we need
  5520.     Dim session As New notessession    
  5521.     Dim intl As NotesInternational
  5522.     Dim nPos As Integer
  5523.     Dim strDate As String
  5524.     Dim strYear As String
  5525.     Dim strMonth As String
  5526.     Dim strDay As String
  5527.     Dim strSep As String
  5528.     strDate = ParseQueryStringForEntry(strURL, "&Date=")
  5529.     If Len(strDate) = 0 Then Exit Function
  5530.     Set intl = session.International
  5531.     strSep = intl.DateSep
  5532.     strYear = Strleft(strDate, "-")
  5533.     strDate = Strright(strDate,"-")
  5534.     strMonth = Strleft(strDate,"-")
  5535.     strDay = Strright(strDate,"-")
  5536.     If (intl.IsDatedmy) Then
  5537.         Set ParseURLForCalDate = New notesdatetime(strDay & strSep & strMonth & strSep & strYear)
  5538.     Elseif (intl.Isdatemdy) Then
  5539.         Set ParseURLForCalDate = New notesdatetime(strMonth & strSep & strDay & strSep & strYear)
  5540.     Elseif (intl.isdateymd) Then    
  5541.         Set ParseURLForCalDate = New notesdatetime(strYear & strSep & strMonth & strSep & strDay)
  5542.     End If
  5543. End Function
  5544. '++LotusScript Development Environment:2:1:ParseQueryStringForEntry:1:8
  5545. Function ParseQueryStringForEntry(strQueryString As String, strKey As String) As String
  5546.     Dim nPos As Integer, nTotalLength As Integer, nKeyLength As Integer, nNextPos As Integer
  5547.     nTotalLength = Len(strQueryString)
  5548.     nKeyLength = Len(strKey)
  5549.     If nTotalLength = 0 Or nKeyLength = 0 Then Exit Function
  5550.     'find the first occurence of the variable
  5551.     nPos = Instr(strQueryString, strKey)
  5552.     If (nPos = 0) Then Exit Function
  5553.     ' See if the is a parameter after this one
  5554.     nNextPos = Instr(nPos+1, strQueryString, "&")
  5555.     If (nNextPos = 0) Then
  5556.         ParseQueryStringForEntry = Mid$(strQueryString, nPos+nKeyLength, nTotalLength - nPos)
  5557.     Else
  5558.         ParseQueryStringForEntry = Mid$(strQueryString, nPos+nKeyLength, nNextPos - nKeyLength - nPos)
  5559.     End If
  5560. End Function
  5561. '++LotusScript Development Environment:2:2:WebViewParticipantStatus:1:8
  5562. Sub WebViewParticipantStatus(note As NotesDocument)
  5563.     Dim vBEObject As Variant
  5564.     Dim dtInstance As NotesDatetime    
  5565.     Dim llName As NotesCSParticipantTable, LLStatus As NotesCSParticipantTable
  5566.     Dim lnnode As NotesCSParticipantInstance
  5567.     Dim namePerson As NotesName
  5568.     Dim nameDelegee As NotesName
  5569.     Dim strtable As New baseeventownerstringtable()    
  5570.     Dim strForm As String
  5571.     ' get the form name
  5572.     strForm = note.getitemvalue("Form")(0)
  5573.     If Lcase(strform) = "task" Then
  5574.         Set vBEObject = New NotesCSEventOwnerDocument(2)
  5575.     Else
  5576.         Set vBEObject = New NotesCSEventOwnerDocument(1)
  5577.     End If
  5578.     Msgbox note.getitemvalue("tmpCalInstanceDate")(0)
  5579.     Call TIMEGetNotesFromLS(note.getitemvalue("tmpCalInstanceDate")(0), dtInstance)
  5580.     Call CSDocOpen(vBEObject, note, dtInstance, CS_DOC_WEBUSER)
  5581.     Call vBEobject.GetParticipantStatus
  5582.     ' The current list is sorted via name; create a table sorted by status
  5583.     Set llName = vBEObject.ParticipantTable
  5584.     If (llName Is Nothing) Then 
  5585.         Exit Sub
  5586.     End If
  5587.     Set LLStatus = vBEObject.ParticipantTable.CreateAndCopy(4)
  5588.             ' Now that we have the status, display it in the order 
  5589.     Print |<SCRIPT LANGUAGE="JavaScript"><!--|
  5590.     Print |function getBack() {|
  5591.     Print |if (window.name ==  "" )|
  5592.     Print |history.back()|
  5593.     Print | else window.close();|
  5594.     Print |}|
  5595.     Print |// -->|
  5596.     Print |</SCRIPT>|
  5597.     Print |<TABLE>|
  5598.     Print |<TR> <TH WIDTH="200" ALIGN="left">| & strTable.GetString(WEB_TABLE_NAME,Null) & |</TH><TH WIDTH="75" ALIGN="left">| & strTable.GetString(WEB_TABLE_ROLE,Null) & |</TH><TH WIDTH="75" ALIGN="left">| & strTable.GetString(WEB_TABLE_STATUS,Null) & |</TH>|
  5599.     Set lnNode = LLStatus.GetFirstInstance()
  5600.     While Not(lnnode Is Nothing)
  5601.         Set namePerson = New NotesName(lnNode.replyto)   
  5602.         Print "<TR><TD>" & namePerson.Common & "</TD><TD>" & lnNode.RoleName & "</TD><TD>" & lnNode.StatusName & "<BR>"
  5603.         If (lnNode.Status = 15) Then
  5604.             Set nameDelegee = New NotesName(lnNode.Delegee)
  5605.         End If
  5606.         Set lnnode = llStatus.GetNextInstance()
  5607.     Wend
  5608.     Print |</TABLE>|
  5609.     Print |<BR><a href="javascript: onClick=getBack()">Zur
  5610. ck</a>|
  5611. End Sub
  5612. '++LotusScript Development Environment:2:2:WebDeleteRepeatInstanceCache:1:8
  5613. Sub WebDeleteRepeatInstanceCache(db As notesdatabase)
  5614.         Dim profRepeatCache As notesdocument
  5615.         Set profRepeatCache = note.parentdatabase.getprofiledocument("RepeatCache")
  5616.         If Not(profRepeatCache Is Nothing) Then Call profRepeatCache.remove(True)
  5617. End Sub
  5618. Lotus Product
  5619. 8 8 "
  5620. O=Lotus Notes
  5621. O=Lotus Notes
  5622. PURSAFO
  5623. |.:#U
  5624. O=Lotus Notes
  5625. CN=Lotus Notes Template Development/O=Lotus Notes
  5626. PURSAFO
  5627. $TITLE
  5628. $PublicAccess
  5629. $Language
  5630. $LastBuildTime
  5631. $BabelInfo
  5632. $ScriptLib
  5633. $ScriptLib_O
  5634. GroupCalendarCtlCalendarView
  5635. (GroupCalendar)|(GroupCalendar)X
  5636. CalendarView
  5637. GroupCalendarIntro
  5638. O=Lotus Notes
  5639. O=Lotus Notes
  5640. PURSAFO
  5641. |.:#U
  5642. O=Lotus Notes
  5643. CN=Lotus Notes Template Development/O=Lotus Notes
  5644. PURSAFO
  5645. >t#8%
  5646. $TITLE
  5647. $PublicAccess
  5648. $FrameSet
  5649. $Language
  5650. $LastBuildTime
  5651. $BabelInfo
  5652. Calendar Title
  5653. NotesNavigatorNotesViewX
  5654. Calendar PickerX
  5655. Switcher
  5656. Calendar SwitcherX
  5657. NotesViewNotesPreviewX
  5658. ($Calendar)|Calendar
  5659. NotesPreview
  5660. O=Lotus Notes
  5661. O=Lotus Notes
  5662. PURSAFO
  5663. |.:#U
  5664. O=Lotus Notes
  5665. CN=Lotus Notes Template Development/O=Lotus Notes
  5666. PURSAFO
  5667. $TITLE
  5668. $PublicAccess
  5669. $FrameSet
  5670. $Language
  5671. $LastBuildTime
  5672. $BabelInfo
  5673. $ViewX
  5674. Mail Title
  5675. NotesNavigatorNotesViewX
  5676. Mail PickerX
  5677. Switcher
  5678. Mail SwitcherX
  5679. NotesViewNotesPreviewX
  5680. ($Inbox)
  5681. NotesPreview
  5682. O=Lotus Notes
  5683. O=Lotus Notes
  5684. PURSAFO
  5685. |.:#U
  5686. O=Lotus Notes
  5687. CN=Lotus Notes Template Development/O=Lotus Notes
  5688. PURSAFO
  5689. $TITLE
  5690. $PublicAccess
  5691. $FrameSet
  5692. $Language
  5693. $LastBuildTime
  5694. $BabelInfo
  5695. To Do Title?
  5696. NotesNavigatorNotesView?
  5697. To Do Picker
  5698. Switcher
  5699. To Do Switcher
  5700. NotesViewNotesPreview?
  5701. ($ToDo)|Tasks?
  5702. NotesPreview
  5703. O=Lotus Notes
  5704. O=Lotus Notes
  5705. PURSAFO
  5706. |.:#U
  5707. O=Lotus Notes
  5708. CN=Lotus Notes Template Development/O=Lotus Notes
  5709. PURSAFO
  5710. $Language
  5711. $LastBuildTime
  5712. $BabelInfo
  5713. $TITLE
  5714. $Comment
  5715. $PublicAccess
  5716. $FrameSet
  5717. Calendar Title
  5718. NotesNavigatorNotesViewX
  5719. Calendar PickerX
  5720. Switcher
  5721. Calendar SwitcherX
  5722. NotesViewX
  5723. ($Calendar)|Calendar
  5724. O=Lotus Notes
  5725. O=Lotus Notes
  5726. PURSAFO
  5727. |.:#U
  5728. O=Lotus Notes
  5729. CN=Lotus Notes Template Development/O=Lotus Notes
  5730. PURSAFO
  5731. _    ET!
  5732. $TITLE
  5733. $PublicAccess
  5734. $FrameSet
  5735. $Language
  5736. $LastBuildTime
  5737. $BabelInfo
  5738. To Do TitleX
  5739. NotesNavigatorNotesViewX
  5740. To Do Picker
  5741. Switcher
  5742. To Do Switcher
  5743. NotesViewX
  5744. ($ToDo)|TasksX
  5745. O=Lotus Notes
  5746. O=Lotus Notes
  5747. PURSAFO
  5748. |.:#U
  5749. O=Lotus Notes
  5750. CN=Lotus Notes Template Development/O=Lotus Notes
  5751. PURSAFO
  5752. $TITLE
  5753. $PublicAccess
  5754. $FrameSet
  5755. $Language
  5756. $LastBuildTime
  5757. $BabelInfo
  5758. $ViewX
  5759. Mail Title
  5760. NotesNavigatorNotesViewX
  5761. Mail PickerX
  5762. Switcher
  5763. Mail SwitcherX
  5764. NotesViewX
  5765. ($Inbox)
  5766. O=Lotus Notes
  5767. O=Lotus Notes
  5768. PURSAFO
  5769. |.:#U
  5770. O=Lotus Notes
  5771. CN=Lotus Notes Template Development/O=Lotus Notes
  5772. PURSAFO
  5773. ?<l]Q
  5774. $TITLE
  5775. $PublicAccess
  5776. $FrameSet
  5777. $Language
  5778. $LastBuildTime
  5779. $BabelInfo
  5780. Lotus Product
  5781. Calendar Picker'++LotusScript Development Environment:2:5:(Options):0:66
  5782. '++LotusScript Development Environment:2:5:(Forward):0:1
  5783. Declare Sub Postopen(Source As Notesuidocument)
  5784. '++LotusScript Development Environment:2:5:(Declarations):0:2
  5785. '++LotusScript Development Environment:2:2:BindEvents:1:129
  5786. Private Sub BindEvents(Byval Objectname_ As String)
  5787.     Static Source As NOTESUIDOCUMENT
  5788.     Set Source = Bind(Objectname_)
  5789.     On Event Postopen From Source Call Postopen
  5790. End Sub
  5791. '++LotusScript Development Environment:2:2:Postopen:1:12
  5792. Sub Postopen(Source As Notesuidocument)
  5793.     Dim dtNow As New NotesDateTime(Now())
  5794.     Call Source.document.ReplaceItemValue("$DatePickerMonth",1)
  5795. FIELD zh := $DatePickerMonth;
  5796. @SetField("$DatePickerMonth";1)' -> set to current month
  5797. %END REM
  5798. End Sub
  5799. CalendarOutline
  5800. CalendarOutlineNotesView
  5801. vspacer.GIFX
  5802. out_Month
  5803. $DatePickerMonthV
  5804.     1S2S
  5805. out_rMonth
  5806. $DatePickerMonthV
  5807.     1S2S
  5808. Lotus Product
  5809. O=Lotus Notes
  5810. O=Lotus Notes
  5811. PURSAFO
  5812. |.:#U
  5813. O=Lotus Notes
  5814. CN=Lotus Notes Template Development/O=Lotus Notes
  5815. PURSAFO
  5816. $Info
  5817. $$Script_O
  5818. $$ScriptName
  5819. $PublicAccess
  5820. $$FormScript
  5821. $Body
  5822. $$$FormScript_O
  5823. $Language
  5824. $LastBuildTime
  5825. $BabelInfo
  5826. "Small Fonts
  5827. Lotus Product
  5828. Calendar Switcher
  5829. GIF89a
  5830. Yyx7`^8a_
  5831. ```OOO///
  5832. r@    jT
  5833. &4jtQN=
  5834. lo3gU
  5835. .,+Ve
  5836. ToDoFrameset_1TARGET="_top"
  5837. ToDoFS
  5838. Aufgaben 
  5839. ffnen
  5840. MailFrameset_1TARGET="_top"
  5841. MailFS
  5842. Mail 
  5843. ffnen
  5844. O=Lotus Notes
  5845. O=Lotus Notes
  5846. PURSAFO
  5847. |.:#U
  5848. O=Lotus Notes
  5849. CN=Lotus Notes Template Development/O=Lotus Notes
  5850. PURSAFO
  5851. $Language
  5852. $LastBuildTime
  5853. $BabelInfo
  5854. $Info
  5855. $$Script_O
  5856. $$ScriptName
  5857. $Body
  5858. $PublicAccess
  5859. Lotus Product
  5860. Calendar Title
  5861. Kalender
  5862. O=Lotus Notes
  5863. O=Lotus Notes
  5864. PURSAFO
  5865. |.:#U
  5866. O=Lotus Notes
  5867. CN=Lotus Notes Template Development/O=Lotus Notes
  5868. PURSAFO
  5869. $Info
  5870. $$Script_O
  5871. $$ScriptName
  5872. $PublicAccess
  5873. $Body
  5874. $Language
  5875. $LastBuildTime
  5876. $BabelInfo
  5877. Untitled
  5878. Gruppenkalender
  5879. sidebar.gifX
  5880. Willkommen beim Notes Gruppenkalender, der Ihnen eine 
  5881. bersicht 
  5882. ber den Terminplan einer Gruppe bietet. Dar
  5883. ber hinaus k
  5884. nnen Sie die pers
  5885. nlichen Kalender der einzelnen Gruppenmitglieder anzeigen.
  5886. Klicken Sie auf einen Namen, um den zugeh
  5887. rigen Kalender anzuzeigen.
  5888. Um Informationen zu einem belegten Zeitraum anzuzeigen, klicken Sie einfach darauf.X
  5889. nftige Zeitpl
  5890. ne anzuzeigen, bl
  5891. ttern Sie mit Hilfe der Bildlaufleiste durch die Zeitanzeige, oder blenden Sie die kommenden Wochen ein, indem Sie auf die Schaltfl
  5892. chen klicken, die sich links neben der Kopfzeile befinden.X
  5893. Hinweis: Nur Informationen zu aktuellen und k
  5894. nftigen freien und belegten Zeiten werden verwaltet. Folglich zeigt der Gruppenkalender f
  5895. r Termine in der Vergangenheit stets 'Keine Informationen' an.  
  5896. O=Lotus Notes
  5897. O=Lotus Notes
  5898. PURSAFO
  5899. |.:#U
  5900. O=Lotus Notes
  5901. CN=Lotus Notes Template Development/O=Lotus Notes
  5902. PURSAFO
  5903. $Info
  5904. $$ScriptName
  5905. $PublicAccess
  5906. $WINDOWTITLE
  5907. $Body
  5908. $Language
  5909. $LastBuildTime
  5910. $BabelInfo
  5911. Mail Picker
  5912. out_STAMPS|out_STAMPSX
  5913. MailOutline
  5914. MailOutlineNotesView
  5915. O=Lotus Notes
  5916. O=Lotus Notes
  5917. PURSAFO
  5918. |.:#U
  5919. O=Lotus Notes
  5920. CN=Lotus Notes Template Development/O=Lotus Notes
  5921. PURSAFO
  5922. $Info
  5923. $$ScriptName
  5924. $PublicAccess
  5925. $Background
  5926. $Body
  5927. $Language
  5928. $LastBuildTime
  5929. $BabelInfo
  5930. "Small Fonts
  5931. Mail Switcher
  5932. GIF89a
  5933. 7`^8a_bb
  5934. ___OOO///
  5935. !e!x,uTa
  5936. OpenCalendar_1TARGET="_top"
  5937. CalendarFS
  5938. Kalender 
  5939. ffnen
  5940. OpenToDo_1TARGET="_top"
  5941. ToDoFS
  5942. Aufgaben 
  5943. ffnen
  5944. O=Lotus Notes
  5945. O=Lotus Notes
  5946. PURSAFO
  5947. |.:#U
  5948. O=Lotus Notes
  5949. CN=Lotus Notes Template Development/O=Lotus Notes
  5950. PURSAFO
  5951. $Language
  5952. $LastBuildTime
  5953. $BabelInfo
  5954. $Info
  5955. $$ScriptName
  5956. $Body
  5957. $PublicAccess
  5958. Lotus Product
  5959. Mail Title
  5960. O=Lotus Notes
  5961. O=Lotus Notes
  5962. PURSAFO
  5963. |.:#U
  5964. O=Lotus Notes
  5965. CN=Lotus Notes Template Development/O=Lotus Notes
  5966. PURSAFO
  5967. $Info
  5968. $$Script_O
  5969. $$ScriptName
  5970. $PublicAccess
  5971. $Body
  5972. $Language
  5973. $LastBuildTime
  5974. $BabelInfo
  5975. Lotus Product
  5976. To Do Picker
  5977. out_TODO|out_TODOX
  5978. To Do Outline
  5979. TodoOutlineNotesView
  5980. O=Lotus Notes
  5981. O=Lotus Notes
  5982. PURSAFO
  5983. |.:#U
  5984. O=Lotus Notes
  5985. CN=Lotus Notes Template Development/O=Lotus Notes
  5986. PURSAFO
  5987. gyV+@L4
  5988. $Info
  5989. $$Script_O
  5990. $$ScriptName
  5991. $PublicAccess
  5992. $Background
  5993. $Body
  5994. $Language
  5995. $LastBuildTime
  5996. $BabelInfo
  5997. "Small Fonts
  5998. Lotus Product
  5999. To Do Switcher
  6000. GIF89a
  6001. Pts7`^8a_
  6002. ___OOO...
  6003. uH1`f)xBg?
  6004. 4j<` 
  6005. MailFramesetTARGET="_top"
  6006. MailFS
  6007. Mail 
  6008. ffnen
  6009. CalendarFramesetTARGET="_top"
  6010. CalendarFS
  6011. Kalender 
  6012. ffnen
  6013. O=Lotus Notes
  6014. O=Lotus Notes
  6015. PURSAFO
  6016. |.:#U
  6017. O=Lotus Notes
  6018. CN=Lotus Notes Template Development/O=Lotus Notes
  6019. PURSAFO
  6020. GoeH~
  6021. $Language
  6022. $LastBuildTime
  6023. $BabelInfo
  6024. $Info
  6025. $$Script_O
  6026. $$ScriptName
  6027. $Body
  6028. $PublicAccess
  6029. Lotus Product
  6030. V0.0e
  6031. To Do Title
  6032. AufgabeX
  6033. O=Lotus Notes
  6034. O=Lotus Notes
  6035. PURSAFO
  6036. |.:#U
  6037. O=Lotus Notes
  6038. CN=Lotus Notes Template Development/O=Lotus Notes
  6039. PURSAFO
  6040. ZKBbsXL{
  6041. $Info
  6042. $$Script_O
  6043. $$ScriptName
  6044. $PublicAccess
  6045. $Body
  6046. $Language
  6047. $LastBuildTime
  6048. $BabelInfo
  6049. 5Courier New
  6050. Times New Roman
  6051. Untitled
  6052.     <a name="Top">
  6053. MailFS
  6054.     0S0E
  6055.     Wechseln zum Posteingang
  6056. CalendarFS
  6057.     0S0E
  6058.     Wechseln zum Kalender    
  6059. ToDoFS
  6060.     0S0E
  6061.     Wechseln zur Aufgabe
  6062.     Willkommen bei Lotus Domino WebMail R5. Mit Lotus Domino WebMail k
  6063. nnen Sie einfach von Ihrem Web-Browser aus auf Ihre Mail, Ihren Kalender und Ihre Aufgabenliste zugreifen. Die am h
  6064. ufigsten benutzten Funktionen werden in der folgenden 
  6065. bersicht vorgestellt. Klicken Sie auf die Verkn
  6066. pfungen, um mehr dar
  6067. ber zu erfahren.X
  6068. <a href="#GettingAround">X
  6069. So bedienen Sie Domino WebMail
  6070. <BR></a><a href="#Using">
  6071. So verwenden Sie MailX
  6072. </a><a href="#Making">
  6073. So setzen Sie Ihren Kalender optimal ein
  6074. <BR></a><a href="#Managing"
  6075. So verwalten Sie Ihre AufgabenlisteX
  6076. <BR></a><a href="#Setting">X
  6077. So stellen Sie Ihre Vorgaben ein
  6078. </a><a href="#How">X
  6079. So erfahren Sie jederzeit mehr...X
  6080.     <a name="GettingAround">
  6081.     So bedienen Sie Domino WebMail
  6082.     </a>
  6083.     Mit Lotus Domino WebMail R5 ist es einfach, zwischen Ihrer Mail, Ihrem Kalender und Ihrer Aufgabenliste zu wechseln. Beim Anzeigen eines dieser drei Bereiche sehen Sie einige Symbole im linken unteren Fensterbereich. Indem Sie auf eines dieser Symbole klicken, k
  6084. nnen Sie schnell und einfach zwischen Mail, Kalender und Aufgabenliste wechseln.  X
  6085. ber hinaus stellt Ihnen Domino WebMail R5 eine gr
  6086. ne 'Aktionsleiste' oberhalb Ihrer Ansichten und Dokumente zur Verf
  6087. gung, die Ihnen einen schnellen, kontextbezogenen Zugriff auf die Aktionen erm
  6088. glicht, die Sie h
  6089. ufig ben
  6090. tigen. 
  6091.     Beim Erstellen und Lesen von Dokumenten werden Sie die Option 'Gehe zu..." in der Aktionsleiste 
  6092. fters sehen. Sie bietet Ihnen die M
  6093. glichkeit, zu Ihrem Posteingang, Kalender oder Ihrer Aufgabenliste schnell mit einem Mausklick zu gelangen, ohne den Linkspfeil Ihres Browsers zu verwenden, um zur gew
  6094. nschten Seite zur
  6095. ckzukehren.
  6096.     <a name="Using">
  6097.     So verwenden Sie MailX
  6098.     </a>
  6099.     Mail lesen
  6100.     Mit Domino WebMail R5 k
  6101. nnen Sie bequem Ihre Mail lesen oder in Ordnern gespeicherte Nachrichten anzeigen. Klicken Sie auf 'Eingang', um neue Mail-Nachrichten anzuzeigen. Die neuesten eingegangenen Mail-Nachrichten werden am Ende der Liste angezeigt. Nachdem Sie Ihre Mail gelesen haben, k
  6102. nnen Sie eine Antwortoption aus der Aktionsleiste ausw
  6103. hlen, oder die Mail-Nachricht an eine andere Person weiterleiten, l
  6104. schen oder sie in einen Ordner verschieben. Es wird empfohlen, Ihre wichtigen Nachrichten in Ordnern abzulegen, damit Sie sie sp
  6105. ter schneller finden k
  6106. nnen. X
  6107.     Sie erstellen einen neuen Ordner, indem Sie auf die Schaltfl
  6108. che 'Ordner...' in der Aktionsleiste klicken und anschlie
  6109. end 'Ordner erstellen' w
  6110. hlen. In dem eingeblendeten Dialogfeld k
  6111. nnen Sie neue Ordner erstellen - sogar innerhalb von anderen Ordnern. Sind Ihre Ordner erstellt worden, k
  6112. nnen Sie jederzeit Nachrichten in sie verschieben, indem Sie auf 'Ordner' in der Aktionsleiste klicken und anschlie
  6113. end 'In Ordner verschieben...' w
  6114. hlen.X
  6115.     Sie k
  6116. nnen jede Nachricht direkt in einen Kalendereintrag oder in ein Element einer Aufgabenliste kopieren. W
  6117. hlen Sie eine Nachricht aus, und klicken Sie in der Aktionsleiste auf 'Kopieren in...'. W
  6118. hlen Sie das Ziel, und Domino ruft die entsprechende Seite mit den bereits kopierten Informationen automatisch auf. Vervollst
  6119. ndigen Sie die Maske, und speichern Sie das Dokument f
  6120. r die sp
  6121. tere Verwendung in Ihrem Kalender oder Ihrer Aufgabenliste.X
  6122.     So erstellen Sie eine Mail-Nachricht
  6123.     Es gibt vier einfache M
  6124. glichkeiten, eine neue Mail-Nachricht in Domino WebMail zu erstellen:X
  6125.     Memo X
  6126.     - Verwenden Sie diese Maske, um eine neue Nachricht zu erstellen.X
  6127.     Antwort 
  6128.     - Verwenden Sie diese Maske, um auf eine bei Ihnen eingegangene Nachricht zu antworten. Diese Maske funktioniert nur dann, wenn Sie das Dokument, auf das Sie antworten m
  6129. chten, ausgew
  6130. hlt haben.
  6131.     Antwort mit Protokoll 
  6132.     - Dies 
  6133. hnelt einer Antwort, allerdings enth
  6134. lt die neue Nachricht eine Kopie der Nachricht, auf die geantwortet wird.
  6135.     Weiterleiten X
  6136.     - Verwenden Sie diese Option, um die Nachricht an einen neuen Empf
  6137. nger zu senden.
  6138.     Bevor Sie eine Nachricht senden, m
  6139. ssen Sie Angaben in den folgenden Feldern machen:
  6140.     An:X
  6141.      - Die prim
  6142. ren Empf
  6143. nger der Nachricht. Der Inhalt der Nachricht ist an diese Empf
  6144. nger gerichtet, bzw. X
  6145.     diese Empf
  6146. nger 
  6147. ssen auf die Nachricht reagieren.X
  6148.     Kopie:
  6149.      - Empf
  6150. nger, die eine Kopie der Nachricht enthalten und f
  6151. r die kein Handlungsbedarf besteht.
  6152.     Blindkopie:X
  6153.      - Empf
  6154. nger, die eine Blindkopie der Nachricht erhalten.  Andere, in den Feldern 'An:' und 'Kopie:' aufgef
  6155. hrte Empf
  6156. nger, sehen die in diesem Feld eingetragenen Namen nicht.X
  6157.     Domino WebMail R5 stellt Ihnen ein Rich-Text-Java-Applet zur Verf
  6158. gung, in dem Sie den Text Ihrer Nachricht verfassen k
  6159. nnen. Nachdem Sie die Nachricht adressiert haben, positionieren Sie den Cursor in das Applet, und geben Sie Ihren Text ein. 
  6160. ber die Schaltfl
  6161. chen im oberen Teil des Applets k
  6162. nnen Sie die g
  6163. ngigen Textformatierungsoptionen w
  6164. hlen: fett, kursiv, unterstrichen sowie Einr
  6165. ckungs-, Listenpunkt- und Ausrichtungsoptionen (links, zentriert und rechts). Sie k
  6166. nnen dar
  6167. ber hinaus verschiedene Textfarben, Schriftgr
  6168. en und Schriftarten aus der von Ihrem Browser unterst
  6169. tzten Liste ausw
  6170. hlen. Sie k
  6171. nnen beliebigen Text innerhalb Ihrer Nachricht markieren, auf die Schaltfl
  6172. che 'Verkn
  6173. pfung erstellen' klicken und eine beliebige Internet-URL eingeben. Der markierte Text wird dadurch zur aktiven Verkn
  6174. pfung, auf die der Empf
  6175. nger klicken kann, um direkt zu der Web-Site zu gelangen (vorausgesetzt, die entsprechende M
  6176. glichkeit besteht).X
  6177.     Zum Senden einer Nachricht klicken Sie auf die Schaltfl
  6178. che 'Senden' in der Aktionsleiste, und w
  6179. hlen Sie anschlie
  6180. end  'Senden', 'Senden und speichern' oder 'Als Entwurf speichern'.
  6181.     Senden X
  6182.     - Die Nachricht wird umgehend gesendet, ohne da
  6183.  eine Kopie gespeichert wird.X
  6184.     Senden und speichern X
  6185.     - Sendet die Nachricht und speichert eine Kopie in der Ansicht 'Gesendet'.
  6186.     Als Entwurf speichernX
  6187.      - Mit dieser Option k
  6188. nnen Sie nicht fertiggestellte Nachrichten speichern, damit Sie sie zu einem sp
  6189. teren Zeitpunkt fertigstellen und senden k
  6190. nnen.X
  6191.     <a name="Making">X
  6192.     So setzen Sie Ihren Kalender optimal ein
  6193.     </a>
  6194.     Kalender und Planung
  6195.     Mit Hilfe von Domino WebMail k
  6196. nnen Sie Ihre Zeit organisieren sowie Besprechungen und Veranstaltungen planen. Sie k
  6197. nnen auf Ihren Kalender jederzeit zugreifen, indem Sie auf das Kalendersymbol im unteren Fensterbereich klicken. Im linken Fenster wird eine Liste anderer kalenderbezogenen Ansichten zur Auswahl eingeblendet. Wenn Sie neue Eintr
  6198. ge erstellen, wird Ihre Kalenderansicht erweitert, um die relevanten Informationen f
  6199. r jeden Eintrag anzuzeigen. Klicken Sie auf einen Eintrag, um weitere Details anzuzeigen.
  6200.     Besprechungen planen
  6201.     Domino WebMail V5 gl
  6202. nzt mit leistungsstarken Planungsfunktionen zum Planen von Besprechungen mit Kollegen und Mitarbeitern. Durch Anklicken von 'Besprechung planen' in der Aktionsleiste k
  6203. nnen Sie jederzeit Besprechungen erstellen. Sie gelangen damit zu einer Seite mit drei Registern, in der Sie Angaben zu der geplanten Besprechung machen. Im Register 'Allgemein' werden die Besprechungszeiten, das Thema, der Ort und eine detaillierte Beschreibung festgehalten. Im Register 'Besprechungseinladungen und Reservierungen' w
  6204. hlen Sie die Personen aus, die an der Besprechung teilnehmen sollen. Nachdem Sie eine Liste von m
  6205. glichen Teilnehmern zusammengestellt haben, k
  6206. nnen Sie 
  6207. berpr
  6208. fen, ob sie zu der vorgesehenen Zeit verf
  6209. gbar sind, indem Sie in der Aktionsleiste auf 'Planer' und anschlie
  6210. end auf 'Zeitpl
  6211. ne pr
  6212. fen' klicken. Ein Dialogfeld wird eingeblendet, in dem die Verf
  6213. gbarkeit der anderen Domino Empf
  6214. nger sowie Alternativen f
  6215. r den Fall, da
  6216.  nicht alle gew
  6217. nschten Teilnehmer frei sind, aufgef
  6218. hrt werden.X
  6219.     Weitere Arten von Veranstaltungen erstellenX
  6220. er Besprechungen k
  6221. nnen Sie auch Eintr
  6222. r pers
  6223. nliche Termine, ganzt
  6224. gige Veranstaltungen, Erinnerungen und Jahrestage erstellen. Sie k
  6225. nnen diese Eintr
  6226. ge von der Aktionsleiste aus direkt erstellen, oder Sie w
  6227. hlen den Eintragstyp. 
  6228.     <a name="Managing">X
  6229.     So verwalten Sie Ihre AufgabenlisteX
  6230.     </a>
  6231.     Klicken Sie auf das Kontrollk
  6232. stchensymbol im unteren Fensterbereich, um zur Aufgabenliste zu wechseln. Diese Funktion k
  6233. nnen Sie daf
  6234. r verwenden, um sich an eine zu erledigende Aufgabe zu erinnern ('Pers
  6235. nliche Aufgabe'), oder Sie k
  6236. nnen andere Personen anweisen, eine Aufgabe f
  6237. r Sie zu erledigen ('Gruppenaufgabe'). Wenn Sie eine Aufgabe an andere Mail-Benutzer senden, k
  6238. nnen diese Sie entsprechend benachrichtigen, wenn sie die Aufgabe erledigt haben. Sie k
  6239. nnen Ihre Aufgabenliste nach F
  6240. lligkeitsdatum, Status oder nach von Ihnen zugewiesener Kategorie anzeigen.X
  6241.     <a name="Setting">
  6242.     So stellen Sie Ihre Vorgaben ein
  6243.     </a>
  6244.     Ihre Mail- und Kalendervorgaben sind bereits voreingestellt. Um sie zu 
  6245. ndern, klicken Sie auf die Schaltfl
  6246. che 'Werkzeuge', und w
  6247. hlen Sie 'Vorgaben'. Die Seite 'Vorgaben' ist in Abschnitten unterteilt. Klicken Sie auf die Verkn
  6248. pfungen links, und stellen Sie Ihre Vorgaben rechts auf der Seite ein.  
  6249.     Mail / Allgemein -
  6250.      Geben Sie den Besitzer der Mail-Datei und das Markierzeichen f
  6251. r formatierte Antworten an. In der Regel ist der Besitzer der Mail-Datei bereits eingetragen, und der Eintrag m
  6252. te nie ge
  6253. ndert werden. Er sollte mit dem Namen, den Ihnen der Domino Serveradministrator zugewiesen hat, identisch sein. Der Name erscheint im hierarchischen Format, z. B. 'Hans Huber/Firmenname'. Das Markierzeichen bestimmt das Aussehen Ihres Textes f
  6254. r den Empf
  6255. nger und dient au
  6256. erdem dazu, Ihren Text innerhalb des Haupttextes hervorzuheben.X
  6257.     Kalender / Freie Zeit 
  6258.     - Auf dieser Seite k
  6259. nnen Sie angeben, wie die verf
  6260. gbare freie Zeit in Ihrem Kalender anderen Personen pr
  6261. sentiert wird. Sie k
  6262. nnen Anpassungen entsprechend Ihrem Arbeitsplan und den festen Zeiten, zu denen Sie f
  6263. r Besprechungseinladungen nicht zur Verf
  6264. gung stehen, vornehmen. Standardm
  6265. nnen alle Benutzer Ihres Domino Mail-Systems Ihre freie Zeit anzeigen... Wenn Sie den Personenkreis, der diese Zeiten sehen darf, auf einige ausgew
  6266. hlte Benutzer beschr
  6267. nken m
  6268. chten, tragen Sie deren Namen in das entsprechende Feld ein.X
  6269.     Kalender / Eintr
  6270. ge -X
  6271.      Hier k
  6272. nnen Sie eine vorgegebene Dauer f
  6273. r Besprechungen/Termine sowie einen Vorgabezeitraum f
  6274. r sich wiederholende Jahrestage eingeben. Au
  6275. erdem k
  6276. nnen Sie angeben, wie Kalendereintr
  6277. ge in Ihrer Mail-Datei erscheinen sollen. In der Regel k
  6278. nnen Sie Ihre Kalendereintr
  6279. ge in der Ansicht 'Alle Dokumente' anzeigen, da Ihnen diese Ansicht eine schnelle M
  6280. glichkeit bietet, alle Dokumente in Ihrer Mail-Datei zu finden. Wenn Sie es vorziehen, k
  6281. nnen Sie festlegen, da
  6282.  Einladungen nicht in der Ansicht 'Gesendet' erscheinen sollen.X
  6283.     Kalender / Automatisch verarbeiten - X
  6284.     Wenn Sie m
  6285. chten, k
  6286. nnen Sie veranlassen, da
  6287.  Ihr Domino Server Besprechungseinladungen automatisch verarbeitet. Sie k
  6288. nnen ausw
  6289. hlen, ob alle Einladungen automatisch angenommen oder nur X
  6290.     Einladungen 
  6291.     von ausgew
  6292. hlten Benutzern verarbeitet werden, oder Sie k
  6293. nnen bestimmen, da
  6294.  Besprechungs
  6295.     einladungen 
  6296.     automatisch an eine andere Person weitergeleitet werden. Standardm
  6297. ig werden 
  6298.     Einladungen 
  6299.     nicht automatisch verarbeitet.
  6300.     Durch Klicken auf das entsprechende Kontrollk
  6301. stchen k
  6302. nnen Sie verarbeitete Besprechungseinladungen und Antworten auf Ihre Einladungen aus Ihrem Posteingang heraushalten.X
  6303.     Delegierung / Mail - X
  6304.     Benutzen Sie diese Delegierungsoptionen, um anderen Personen Zugriff auf Ihre Mail-Datei zu gew
  6305. hren. Zur Mail-Delegierung stehen Ihnen vier Optionen zur Verf
  6306. gung:
  6307.     Option
  6308. ^+]6P
  6309.     Beschreibung
  6310.     Meine Mail und meinen Kalender lesen
  6311. ^+]6P
  6312.     Die in diesem Feld eingetragenen Personen erhalten Leserzugriff auf Ihre Mail-Datenbank, damit sie Ihre Mail lesen d
  6313. rfen. Domino erteilt diesen Personen au
  6314. erdem das Zugriffsrecht '
  6315. ffentliche Dokumente lesen', damit sie Ihren Kalender lesen k
  6316. nnen.
  6317.     Mail in meinem Namen lesen und senden und meinen Kalender lesenX
  6318. ^+]6P
  6319.     Die in diesem Feld eingetragenen Personen erhalten Autorenzugriff und das Zugriffsrecht 'Dokumente erstellen' in Ihrer Mail-Datenbank, damit sie Mail-Nachrichten in Ihrem Namen senden d
  6320. rfen. Domino erteilt diesen Personen au
  6321. erdem das Zugriffsrecht '
  6322. ffentliche Dokumente lesen', damit sie Ihren Kalender lesen k
  6323. nnen.X
  6324.     Beliebige Dokumente in meiner Mail-Datei lesen, senden und bearbeitenX
  6325. ^+]6P
  6326.     Die in diesem Feld eingetragenen Personen erhalten Editorzugriff und das Zugriffsrecht 'Dokumente erstellen' in Ihrer Mail-Datenbank, damit sie Ihre Mail bearbeiten d
  6327. rfen. Domino erteilt ihnen au
  6328. erdem die X
  6329.     Zugriffsrechte X
  6330. ffentliche Dokumente lesen' und '
  6331. ffentliche Dokumente schreiben', damit sie Ihren Kalender lesen 
  6332.     undX
  6333.      neue Kalendereintr
  6334. ge erstellen k
  6335. nnen.
  6336.     Mail und Kalendereintr
  6337. schenX
  6338. ^+]6P
  6339.     Die in diesem Feld eingetragenen Personen erhalten das X
  6340.     Zugriffsrecht 
  6341.     'Dokumente l
  6342. schen' in Ihrer Mail-Datenbank, damit sie f
  6343. r Sie Mail l
  6344. schen d
  6345. rfen. Ihre Namen X
  6346.      in einem der Felder 'Mail in meinem Namen lesen und senden und meinen Kalender lesen' oder 'Beliebige Dokumente in meiner Mail-Datei lesen, senden und bearbeiten' aufgef
  6347. hrt werden. Im ersten Fall k
  6348. nnen diese Personen nur diejenigen Nachrichten l
  6349. schen, die sie selbst erstellen; andernfalls k
  6350. nnen sie jede Nachricht in der Datenbank l
  6351. schen.X
  6352.     Delegierung / Kalender - X
  6353.     Mancher Benutzer m
  6354. chte anderen Personen Einsicht in seinen Kalender gew
  6355. hren, ohne da
  6356.  diese den Rest seiner Mail-Datei anzeigen d
  6357. rfen. Hier k
  6358. nnen Sie dies definieren. Sie k
  6359. nnen angeben, da
  6360.  alle oder nur ausgew
  6361. hlte Benutzer Ihren Kalender lesen d
  6362. rfen. Ebenso k
  6363. nnen Sie allen oder ausgew
  6364. hlten Personen erlauben, Ihren Kalender zu verwalten (Erstellen, Bearbeiten).
  6365.     <a name="How">
  6366.     So k
  6367. nnen Sie jederzeit mehr erfahrenX
  6368.     </a>
  6369. berall stehen Hilfeverkn
  6370. pfungen zur Verf
  6371. gung, um Ihnen weitere Informationen zu bestimmten Funktionen bereitzustellen. Wenn Sie beispielsweise im Adre
  6372. dialogfeld nicht wissen, wie Sie einen Namen im Adre
  6373. buch nachschlagen, k
  6374. nnen Sie auf die Zeichenfolge 'Beginnt mit:' klicken, um ein entsprechendes Dialogfeld mit weiteren Informationen aufzurufen.X
  6375. <a href="#Top">X
  6376. ck zum AnfangX
  6377.     </a>
  6378. O=Lotus Notes
  6379. O=Lotus Notes
  6380. PURSAFO
  6381. |.:#U
  6382. O=Lotus Notes
  6383. CN=Lotus Notes Template Development/O=Lotus Notes
  6384. PURSAFO
  6385. 2$x~)dZ
  6386. $Info
  6387. $$ScriptName
  6388. $Body
  6389. $Language
  6390. $LastBuildTime
  6391. $BabelInfo
  6392.  Delivery Report
  6393. *** Nachricht erfolgreich zugestellt ***
  6394. (Help)
  6395. MAIL_F_DELIVERY-REPORT
  6396.     0S0E
  6397. _KategorisierenX
  6398. Schlie
  6399.     0S0E
  6400. Dokument _bearbeiten
  6401. Dokument _senden
  6402. _WeiterleitenX
  6403. In Ordner _verschieben...X
  6404. Aus Ordner _entfernen...
  6405. EingangX
  6406.     1S2S
  6407. path"
  6408. /MailFS?OpenFrameset"
  6409.     0R3S4S5S6S
  6410. schenX
  6411.     1S10S14S16S23S
  6412.     0R5S
  6413. path"
  6414. /wDelete?OpenAgent&
  6415. UNID"
  6416. VorX 
  6417.     0S0E
  6418. _KategorisierenX
  6419. Schlie
  6420.     0S0E
  6421. Dokument _bearbeiten
  6422. Dokument _senden
  6423. _WeiterleitenX
  6424. In Ordner _verschieben...X
  6425. Aus Ordner _entfernen...
  6426. EingangX
  6427.     1S2S
  6428. path"
  6429. /MailFS?OpenFrameset"
  6430.     0R3S4S5S6S
  6431. act_NEWMAIL.GIF|act_NEWMAILX
  6432. schenX
  6433.     1S10S14S16S23S
  6434.     0R5S
  6435. path"
  6436. /wDelete?OpenAgent&
  6437. UNID"
  6438. act_DELETE.GIF|act_DELETEX
  6439. VorX 
  6440.     0S0E
  6441. Zustellungsbest
  6442. tigung
  6443.     Ihr Dokument:X
  6444. Subject
  6445. SubjectX
  6446.     wurde zugestellt an:
  6447. IntendedRecipient
  6448. IntendedRecipientX
  6449.     am:X
  6450. DeliveryDate
  6451. BodyMemotext.X
  6452. O=Lotus Notes
  6453. O=Lotus Notes
  6454. PURSAFO
  6455. |.:#U
  6456. O=Lotus Notes
  6457. CN=Lotus Notes Template Development/O=Lotus Notes
  6458. PURSAFO
  6459. z%1$P
  6460. $Info
  6461. $$ScriptName
  6462. DeliveryDate
  6463. $WINDOWTITLE
  6464. $AppHelpFormula
  6465. $ACTIONS
  6466. $V5ACTIONS
  6467. $Body
  6468. $Language
  6469. $LastBuildTime
  6470. $BabelInfo
  6471. uwr|7
  6472. de-DE
  6473. 00000182
  6474. MemoMemo
  6475. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
  6476. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
  6477. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes######################
  6478. 255D2116B7BDFECF1769F57E5917AA29Lotus NotesCD
  6479. CategoriesSubjectArchiveTrailerBodyArchiveDateLogTotalLogCount$MessageType
  6480. CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6481. (Archive Log)Archive LogArchiveProfileArchive ProfileArchiveLogde-DE
  6482. 00000192########################################################
  6483. de-DE
  6484. 00000186
  6485. AntwortwReplyReply
  6486. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF 
  6487. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendToInetBlindCopyToAltCopyToInetSendToInetCopyTo$StorageBcc$StorageTo$StorageCc$AltNameLanguageTags
  6488. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####
  6489. de-DEz
  6490. 000001A2(GroupHelper)CD
  6491. SelectedGroupMembersDescriptionGroupTypeGroupName
  6492. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes########################################
  6493. de-DE*
  6494. 0000018A
  6495. Antwort mit ProtokollReply With HistoryReply
  6496. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF 
  6497. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendToInetBlindCopyToAltCopyToInetSendToInetCopyTo$StorageBcc$StorageTo$StorageCc$AltNameLanguageTags
  6498. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##################################
  6499. de-DE`
  6500. 0000018E
  6501. AufgabeTaskF
  6502. BodyCategoriesAlarmsOrgConfidentialBlindCopyToCopyToSendToRepeatsTaskTypeDueDateImportanceStartDateSubjecttmpNoActionBartmpOwnerHW$ExpandGroups$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm1
  6503. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###########
  6504. GroupCalendarFSGroupCalendarCtl
  6505. tmpHiddenStartTimeDurationDurationSelExcludeFromViewSaveOptions1
  6506. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6507. (GroupCalendar)(GroupCalendar)de-DE2
  6508. 0000019E#################
  6509. DeliveryDateSubject
  6510. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6511. (Return Receipt)Return Receiptde-DEn
  6512. 000001C2################################################
  6513. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6514. (ReturnNonReceipt)ReturnNonReceiptde-DE\    O
  6515. 000001C6#############################
  6516. de-DE
  6517. 00000196
  6518. (Calendar Profile)CalendarProfileFF
  6519. $CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailTaskFollowPreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeCalendarTimeSlotDurationCalendarTimeSlotEndCalendarTimeSlotStartAlarmSoundTaskLeadSetAlarmTaskAnniversaryLeadSetAlarmAnniversaryEventLeadSetAlarmEventReminderLeadSetAlarmReminderAppointmentLeadSetAlarmAppointmentEnableAlarmsAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayUserCategoriesExcludeFromSentExcludeFromAllConflictAnniversaryConflictEventConflictMeetingAutoAnniversaryRepeatDefaultDurationCalEntryTypeSignatureSignature_1Signature_2SignatureOptionEnableSignatureDefaultLogoOffSetCharFormatRepliesSpellCheckOwnertmpAlarmSounds1
  6520. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes######################################
  6521. de-DE
  6522. 000001A6(NameHelper)CD
  6523. IncludeX509tmpDomaintmpEmailAddresstmpEmailTypetmpSuffixtmpLastNametmpMiddleNametmpFirstNametmpTitletmpConflictAction$AlertGraphic
  6524. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##
  6525. BodySubjectCopyToSendToIntendedRecipient
  6526. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6527. (NonDelivery Report)DeliveryReportNonDelivery Reportde-DEK$O
  6528. 000001AA################
  6529. ?^pP\
  6530. de-DE
  6531. 000001AE
  6532. (Notice)NoticeF
  6533. StatusUpdateBodytmpNoActionBarForm1
  6534. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##############
  6535. de-DE
  6536. 000001B2
  6537. (Out Of Office Profile)OutOfOfficeProfile
  6538. dateFirstDayBackdateFirstDayOutIgnoreSubjectPhraseIgnoreSendIgnoreFromListExcludeInternetEmailSpecialMessageSpecialSubjectSpecialPeopleGeneralMessageDaysOutGeneralSubjectBookBusyTimeFirstDayBackFirstDayOutCurrentStatusDialogStatusTab_ViewIconExcludeFromViewSubjectFromSenderNotified
  6539. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#############################
  6540. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Irisde-DE
  6541. 000001BA
  6542. (Personal Stationery)Personal Stationery
  6543. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsw
  6544. FooterBodyHEADERSubjectEnterBlindCopyToEnterCopyToEnterSendTo$KeepPrivateBGTableColorLogoEncryptSignDefaultMailSaveOptionsAltFromFrom
  6545. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#################
  6546. StatusUpdateBlindCopyToCopyToSendToSaveOptionsMailOptionsForm1
  6547. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6548. (ReplyNotice)(ReplyNotice)de-DE9hO
  6549. 000001BE################
  6550. DeliveryDateSubject
  6551. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  6552. (Trace Report)Trace Reportde-DE
  6553. 000001D2#######################
  6554. de-DE
  6555. 000001CA
  6556. (RulesDlg)MailruleCDw
  6557. OrderNumActionListDisplayimportancecondfolderactionConditionListDisplaydomainlistimportancestringLogicconditionOperatorTypeEnableFormExcludeFromViewtokActionListActionListtokExceptionListExceptionListtokConditionListConditionList$FilterFormula
  6558. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##################################################
  6559. de-DE
  6560. 000001CE
  6561. (TaskNotice)TaskNoticeCF
  6562. StatusUpdateBodytmpNoActionBartmpOwnerHWForm1
  6563. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  6564. de-DE0
  6565. 0000072A
  6566. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##
  6567. $HideMailHeader
  6568. BGTableColor
  6569. HeaderRegion
  6570. BodyRegion
  6571. Neues Memo
  6572. Subject
  6573. Subject
  6574. Subject
  6575.     4S6S12S13S14S15S17S21S23S25S26S28S
  6576. wMemo
  6577. returnreceipt
  6578. wMemoOpen
  6579. Query_string
  6580. forward
  6581. wMemoOpen
  6582.     13R24S
  6583. (Help)
  6584. MAIL_F_MEMO
  6585.     0S0E
  6586. &Arial
  6587. FComic Sans MS
  6588. '++LotusScript Development Environment:2:5:(Options):0:74
  6589. Option Public
  6590. Option Explicit
  6591. Use "CoreEmailClasses"
  6592. '++LotusScript Development Environment:2:5:(Forward):0:1
  6593. '++LotusScript Development Environment:2:5:(Declarations):0:10
  6594. Dim cMemoObject As Variant
  6595. Lotus Product
  6596.  Memo'++LotusScript Development Environment:2:5:(Options):0:66
  6597. '++LotusScript Development Environment:2:5:(Forward):0:1
  6598. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6599. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  6600. Declare Sub Postmodechange(Source As Notesuidocument)
  6601. Declare Sub Postopen(Source As Notesuidocument)
  6602. Declare Sub Postsave(Source As Notesuidocument)
  6603. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6604. Declare Sub Postrecalc(Source As Notesuidocument)
  6605. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  6606. Declare Sub Click(Source As Button)
  6607. '++LotusScript Development Environment:2:5:(Declarations):0:2
  6608. '++LotusScript Development Environment:2:2:BindEvents:1:129
  6609. Private Sub BindEvents(Byval Objectname_ As String)
  6610.     Static Source As NOTESUIDOCUMENT
  6611.     Set Source = Bind(Objectname_)
  6612.     On Event Queryopen From Source Call Queryopen
  6613.     On Event Querysave From Source Call Querysave
  6614.     On Event Postmodechange From Source Call Postmodechange
  6615.     On Event Postopen From Source Call Postopen
  6616.     On Event Postsave From Source Call Postsave
  6617.     On Event Queryclose From Source Call Queryclose
  6618.     On Event Postrecalc From Source Call Postrecalc
  6619.     On Event Querymodechange From Source Call Querymodechange
  6620. End Sub
  6621. '++LotusScript Development Environment:2:2:Queryopen:1:12
  6622. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  6623.     Set cMemoObject = New UIMemoDocument         
  6624.     Call cMemoObject.Init(Source,Isnewdoc)  
  6625. End Sub
  6626. '++LotusScript Development Environment:2:2:Querysave:1:12
  6627. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  6628.     Call cMemoObject.QuerySave(Continue)
  6629. End Sub
  6630. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  6631. Sub Postmodechange(Source As Notesuidocument)
  6632.     Call cMemoObject.PostModeChange()    
  6633. End Sub
  6634. '++LotusScript Development Environment:2:2:Postopen:1:12
  6635. Sub Postopen(Source As Notesuidocument)
  6636.     Call cMemoObject.PostOpen(Source)    
  6637. End Sub
  6638. '++LotusScript Development Environment:2:2:Postsave:1:12
  6639. Sub Postsave(Source As Notesuidocument)
  6640.     Call cMemoObject.PostSave()
  6641. End Sub
  6642. '++LotusScript Development Environment:2:2:Queryclose:1:12
  6643. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  6644.     Call cMemoObject.QueryClose(Continue)
  6645. End Sub
  6646. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  6647. Sub Postrecalc(Source As Notesuidocument)
  6648. End Sub
  6649. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  6650. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  6651.     Continue = cMemoObject.QueryModeChange(Source)
  6652. End Sub
  6653. '++LotusScript Development Environment:2:2:Click:1:8
  6654. Sub Click(Source As Button)
  6655.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  6656.     Call cMemoObject.noteUIMemo.save()
  6657.     Call cMemoObject.noteUIMemo.close()
  6658. End Sub
  6659. Lotus Product
  6660.     Always hidden: 
  6661.     0S0E
  6662. NamePreferencez
  6663. NamePreference
  6664.     0S0E
  6665. LanguagePreference
  6666. Principal
  6667. CalendarProfile
  6668. Owner
  6669.     1S2S3S7S
  6670. FromPerson memo is from.z
  6671. tmpNewDoc
  6672. AltFrom
  6673.     1RT2RT3S4S9RTT10RTTT11RTTT15S18RTTTT23RTTT27RTTT29RT30RT
  6674. AltFrom
  6675. CalendarProfile
  6676. DefaultLogo
  6677. stdNotesLtr0
  6678. CalendarProfile
  6679. DefaultLogo
  6680. StdNotesLtrGateway
  6681.     4S13S24R25S29S32S34S
  6682. Logoz
  6683. BG_IMAGE_PREFIX
  6684.     0S0E
  6685. StdNotesLtr0
  6686.     0RR1RT2RT3S4S6RTT13RT14RT
  6687. Image
  6688. StdNotesLtr
  6689. Image
  6690. Gateway
  6691. BG_IMAGE_PREFIX
  6692. Image
  6693. Image
  6694.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  6695. Image
  6696. BG_IMAGE_PREFIX
  6697. Image
  6698. BG_IMAGE_PREFIX
  6699. Image
  6700. BG_IMAGE_PREFIX
  6701. Image
  6702. BG_IMAGE_PREFIX
  6703. Image
  6704. BG_IMAGE_PREFIX
  6705. BG_IMAGE_PREFIX
  6706.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  6707. Principal
  6708. Principal
  6709. Principal
  6710. NamePreference
  6711. AltFrom
  6712. $LangFrom
  6713. LanguagePreferencet
  6714. AltFrom
  6715.     1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
  6716.     0RR1S2S8S
  6717.     0R1S2S5S6S8S14S18S
  6718.     0R1S2S5S6S8S14S18S
  6719. SentBy
  6720. X400FreeForm^
  6721.     0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  6722. SentBy
  6723. FromDomain
  6724. FromDomain
  6725. FromDomain
  6726. FromDomain
  6727.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  6728. FromName
  6729. Principal
  6730. Principal
  6731. Principal
  6732.     0RR1S2S10S11S16S18S
  6733. FromStops
  6734. Principal
  6735. Principal
  6736. Principal
  6737.     0RR1S2S10S11S16S18S21S
  6738. FromName
  6739. FromStops
  6740. FromStops
  6741. FromStops
  6742.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  6743. tmpDisplayFrom_Preview
  6744.     0S0E
  6745. Signz
  6746.     0S0E
  6747. Encrypt
  6748. Encrypt
  6749. $KeepPrivate
  6750. $KeepPrivate
  6751. $KeepPrivate
  6752.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  6753.     0S0E
  6754. DefaultMailSaveOptionsz
  6755. DefaultMailSaveOptions
  6756. .,$,  , :
  6757. Path_Info_DEcoded
  6758. Path_Info
  6759. .,$,  , :
  6760. Query_String_Decoded
  6761. Query_String
  6762. (WebSpecificFields)
  6763.     0S0E
  6764.     Von:
  6765. tmpDisplayFrom_Preview
  6766. tmpDisplayFrom_NoLogo
  6767. tmpDisplayFrom_NoLogo
  6768. NamesList
  6769. NamePreference
  6770. AltSendTo
  6771. $NameLanguageTags
  6772. LanguagePreferencet
  6773. AltSendTo
  6774. SendTo
  6775.     11S12S15S16S20S
  6776. ImplodedNamesList
  6777. NamesList
  6778. ImplodedNamesList
  6779. ImplodedNamesList
  6780. ImplodedNamesList
  6781. tmpDisplaySendTo
  6782.     Thema:
  6783. Subject
  6784. Subject
  6785. Subject
  6786.     0S0E
  6787. TmpDisplaySubject_1
  6788.     Kopie:
  6789. CC_Content
  6790. NamePreference
  6791. AltCopyTo
  6792. $NameLanguageTags
  6793. LanguagePreferencet
  6794. AltCopyTo
  6795. CopyTo
  6796.     7S8S9S11S12S16S
  6797. BCC_Content
  6798. DeliveredDate
  6799. BlindCopyTo
  6800.  (Blindkopie: 
  6801. BlindCopyTo
  6802.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  6803. NamesList
  6804. CC_Content
  6805. BCC_Content
  6806.     0R9S10S
  6807. ImplodedNamesList
  6808. NamesList
  6809. ImplodedNamesList
  6810. ImplodedNamesList
  6811. ImplodedNamesList
  6812. tmpDisplayCC
  6813. V5DOTBL=true
  6814. SendToz
  6815. SIZE=80
  6816.     Kopie:
  6817. CopyToz
  6818. SIZE=80
  6819.     Blindkopie:
  6820. BlindCopyTo
  6821. SIZE=80
  6822.     Thema:
  6823. Subject
  6824. WebSubjectz
  6825. SIZE=80
  6826. tmpDisplayFrom_Preview
  6827. DisplayFrom_Preview
  6828. DisplayFrom_Preview_1
  6829. $HideMailHeader
  6830. Principal
  6831. Principal
  6832. Principal
  6833. Principal
  6834. Principal
  6835.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
  6836.     Gesendet von: 
  6837. FromDomain
  6838. FromDomain
  6839. FromDomain
  6840. FromDomain
  6841.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  6842. FromName
  6843.     0RR1S2S6S
  6844. FromStops
  6845.     0R1S2S6S
  6846. FromName
  6847. FromStops
  6848. FromStops
  6849. FromStops
  6850.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  6851. tmpDisplaySentBy_1
  6852. PostedDateh
  6853. PostedDate
  6854.     4S5S10S12S
  6855. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  6856. tmpDisplayDate_Preview_1
  6857. ReplyDate
  6858. ReplyTo
  6859. $HideMailHeader
  6860.     2S3S4S5S6S7S9S10S14S15R
  6861. Bitte antworten
  6862. ReplyTo
  6863. ReplyTo
  6864. ReplyDate
  6865.  bis 
  6866. ReplyDate
  6867.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  6868. tmpDisplayReplyInfo_1
  6869. javascript:alert('Klicken Sie auf Durchsuchen, um Dateien auszuw
  6870. hlen, die an diese Nachricht angeh
  6871. ngt werden sollen. Sie k
  6872. nnen zwei Dateien pro Nachricht anh
  6873. ngen.')
  6874. javascript:alert('Klicken Sie auf Durchsuchen, um Dateien auszuw
  6875. hlen, die an diese Nachricht angeh
  6876. ngt werden sollen. Sie k
  6877. nnen zwei Dateien pro Nachricht anh
  6878. ngen.')
  6879.     <font size=-1>
  6880.     </font>
  6881. V5DOTBL=true
  6882. $HideMailHeader
  6883.     0S0E
  6884. tmpDisplayFrom_Preview
  6885. DisplayFrom
  6886. DisplayFrom_Pre
  6887. $HideMailHeader
  6888. Principal
  6889. Principal
  6890. Principal
  6891. Principal
  6892. Principal
  6893.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  6894.     Gesendet von: 
  6895. FromDomain
  6896. FromDomain
  6897. FromDomain
  6898. FromDomain
  6899.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  6900. FromName
  6901.     0RR1S2S6S
  6902. FromStops
  6903.     0R1S2S6S
  6904. FromName
  6905. FromStops
  6906. FromStops
  6907. FromStops
  6908.     0RR1S2S3S4S10S13S17S20SDisplaySent
  6909. tmpDisplaySent
  6910. PostedDateh
  6911. PostedDate
  6912.     4S5S10S12S
  6913. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  6914. tmpDisplayDate_Pre
  6915. Bitte antworten
  6916. ReplyTo
  6917. ReplyTo
  6918. ReplyDate
  6919.  bis 
  6920. ReplyDate
  6921.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  6922. tmpDisplayReply
  6923. $HideMailHeader
  6924. IsMailStationery
  6925.     4S5S
  6926.     Name der Vorlage:
  6927. MAILSTATIONERYNAME
  6928. -Unbenannt-
  6929. MAILSTATIONERYNAME
  6930.     0S0E
  6931. StatNamez
  6932. Statio
  6933. $HideMailHeader
  6934. StdNotesLtr16
  6935.     7S9S10S11S13S15S
  6936.         An:    
  6937. tmpNewDoc
  6938. NamePreference
  6939. AltSendTo
  6940. AltSendTo
  6941. SendTo
  6942. NamePreference
  6943. AltSendTo
  6944. $NameLanguageTags
  6945. LanguagePreferencet
  6946. AltSendTo
  6947. SendTo
  6948.     1RT2RT7RTT8RTTT9RTTT12S13S14S15S17RTTTT19RTTT20RTTT22RT23RTT24RTT27S28S31S32S36S39RTTT41RTT42RTT43RT
  6949. tmpNewDoc
  6950.     0R1S
  6951. EnterSendTo
  6952.     0S0E
  6953. EnterSendToListe der Personen, an die das Memo (Original) gesendet werden soll
  6954.         Kopie:    
  6955. NamePreference
  6956. AltCopyTo
  6957. $NameLanguageTags
  6958. LanguagePreferencet
  6959. AltCopyTo
  6960. CopyTo
  6961.     5S6S7S9S10S14S
  6962. EnterCopyTo
  6963.     0S0E
  6964. EnterCopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  6965.         Kopie:    
  6966. CC_Content
  6967. NamePreference
  6968. AltCopyTo
  6969. $NameLanguageTags
  6970. LanguagePreferencet
  6971. AltCopyTo
  6972. CopyTo
  6973.     11S12S13S15S16S20S
  6974. BCC_Content
  6975. DeliveredDate
  6976. BlindCopyTo
  6977.  (Blindkopie: 
  6978. BlindCopyTo
  6979.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  6980. CC_Content
  6981. BCC_Content
  6982.     0R3S4S
  6983. tmpEnterCopyTo
  6984.         Blindkopie:    
  6985. NamePreference
  6986. AltBlindCopyTo
  6987. $NameLanguageTags
  6988. LanguagePreferencet
  6989. AltBlindCopyTo
  6990. BlindCopyTo
  6991.     5S6S7S9S10S14S
  6992. EnterBlindCopyTo}
  6993.     0S0E
  6994. EnterBlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.
  6995. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  6996.         Thema:    
  6997. SIZE=50
  6998. SubjectThema des Memos.
  6999. ISMAILSTATIONERYh
  7000.     0S0E
  7001. ReplyDate
  7002. ReplyDate
  7003. ReplyDate
  7004. Importanceh
  7005. Importance
  7006. Importance
  7007. Importance(
  7008. DeliveryReporth
  7009. DeliveryReport
  7010. DeliveryReport
  7011. DeliveryReport(
  7012. DeliveryPriorityh
  7013. DeliveryPriority
  7014. DeliveryPriority
  7015. DeliveryPriority(
  7016. UpdateProfileNote
  7017. UpdateProfileNote
  7018. UpdateProfileNote
  7019. ReturnReceipt
  7020. ReturnReceipt
  7021. ReturnReceipt
  7022. $KeepPrivateh
  7023. $KeepPrivate
  7024. $KeepPrivate(
  7025. ExpireDateh
  7026. ExpireDate
  7027. ExpireDate(
  7028. ReplyTo
  7029. ReplyTo
  7030. ReplyTo
  7031. MimeFormath
  7032. MimeFormat
  7033. MimeFormat
  7034. MimeFormat(
  7035. SMTPEncodingh
  7036. SMTPEncoding
  7037. SMTPEncoding
  7038. SMTPEncoding(
  7039. MIMEMailCharset
  7040. MIMEMailCharset
  7041. MIMEMailCharset
  7042. MIMEMailCharset
  7043. $AutoSpellh
  7044. $AutoSpell
  7045. $AutoSpell(
  7046. WebSubjecth
  7047. WebSubject(
  7048. tmpSenderTagh
  7049. tmpSenderTag
  7050. tmpSenderTag
  7051. tmpSenderTag(
  7052.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
  7053. $HideMailHeader
  7054. Moods
  7055. PostedDate
  7056. SenderTag
  7057. Moods
  7058.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  7059. BodyText der Nachrichtz
  7060. nderungen verwerfen
  7061. MEMO_CANCEL
  7062. 4194304
  7063.     0S0E
  7064. ActionInProgress
  7065. MEMO_CANCEL
  7066.     0R1S
  7067. IsMailStationery
  7068.     1S2S3S
  7069. Speichern und schlie
  7070. MEMO_DRAFT
  7071.     0S0E
  7072. ActionInProgress
  7073. MEMO_DRAFT
  7074.     0R1S
  7075. PostedDateh
  7076. IsMailStationery
  7077.     7S8S9S10S13S14S15S16S
  7078. act_save.GIF|act_CSSAVE?
  7079. Speichern und ablegen
  7080. MEMO_DRAFT_FILE
  7081.     0S0E
  7082. ActionInProgress
  7083. MEMO_DRAFT_FILE
  7084.     0R1S
  7085. PostedDateh
  7086. IsMailStationery
  7087.     7S8S9S10S13S14S15S16S
  7088. act_FOLDER.GIF|act_FOLDER?
  7089. Schlie
  7090. MEMO_CANCEL
  7091. 4194304
  7092.     0S0E
  7093. ActionInProgress
  7094. MEMO_CANCEL
  7095.     0R1S
  7096. IsMailStationery
  7097.     0S1S2S
  7098. Neues Memo(
  7099.     0S0E
  7100. act_NEWMEMO.GIF|act_NEWMEMO?
  7101. Antwort\Antwort
  7102. Reply
  7103.     0S0E
  7104. act_REPLY.GIF|act_REPLY?
  7105. Antwort\Antwort mit Protokolls
  7106. Antwort mit Protokoll
  7107. Dieses Dokument ist nicht vollst
  7108. ndig.
  7109.     4S8S10S13S
  7110. Reply with history
  7111. act_REPLY.GIF|act_REPLY?
  7112. Antwort\Allen antworten*X
  7113. MailStEd
  7114.     0S0E
  7115. Reply
  7116. act_REPLY.GIF|act_REPLY?
  7117. Antwort\Allen antworten (mit Protokoll)
  7118. MailStEd
  7119.     0S0E
  7120. Antwort mit Protokoll
  7121. Dieses Dokument ist nicht vollst
  7122. ndig.
  7123.     0R4S8S10S13S
  7124. Reply with history
  7125. act_REPLY.GIF|act_REPLY?
  7126. _Kategorisieren
  7127. Dokument _bearbeiten
  7128. Dokument _senden
  7129. Weiterleiten 
  7130.     0S0E
  7131. ISMAILSTATIONERY
  7132.     1S2S
  7133. act_FORWARD.GIF|act_FORWARD?
  7134. _Weiterleiten
  7135. schen
  7136.     0S0E
  7137. act_DELETE.GIF|act_DELETE?
  7138. Ordner\Ordner erstellen
  7139.     0S0E
  7140. act_FOLDER.GIF|act_FOLDER?
  7141. Ordner\In Ordner verschieben...
  7142.     0S0E
  7143. act_FOLDER.GIF|act_FOLDER?
  7144. Ordner\Aus Ordner entfernen
  7145.     0S0E
  7146. act_FOLDER.GIF|act_FOLDER?
  7147. In Ordner _verschieben...
  7148. Aus Ordner _entfernen
  7149. Senden
  7150. MEMO_SEND
  7151.     0S0E
  7152. ActionInProgress
  7153. MEMO_SEND
  7154.     0R1S
  7155. PostedDateh
  7156. IsMailStationery
  7157.     5S6S7S8S10S11S12S13S
  7158. act_SEND.GIF|act_SEND?
  7159. Senden und ablegen
  7160. MEMO_SEND_FILE
  7161.     0S0E
  7162. ActionInProgress
  7163. MEMO_SEND_FILE
  7164.     0R1S
  7165. PostedDateh
  7166. IsMailStationery
  7167.     5S6S7S8S12S13S
  7168. act_SENDFILE|act_SENDFILE?
  7169. Speichern
  7170. MEMO_STATIONERYSAVE
  7171.     0S0E
  7172. ActionInProgress
  7173. MEMO_STATIONERYSAVE
  7174.     0R1S
  7175. IsMailStationery
  7176.     2S3S
  7177. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  7178. Als Entwurf speichern
  7179. MEMO_DRAFT
  7180.     0S0E
  7181. ActionInProgress
  7182. MEMO_DRAFT
  7183.     0R1S
  7184. PostedDateh
  7185. IsMailStationery
  7186.     5S6S7S8S10S11S12S13S
  7187. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  7188. Vorlage umbenennen...
  7189. xxERROR
  7190. Es ist kein Dokument ausgew
  7191.     0S0E
  7192. xxTitle
  7193. Vorlage umbenennen
  7194. xxPrompt
  7195. Bitte geben Sie den neuen Namen f
  7196. r die Vorlage ein.
  7197. xxERROR
  7198. MailStationeryName
  7199. xxTitle
  7200. xxPrompt
  7201. MailStationeryName
  7202.     0RR1S
  7203.     0RS>
  7204. IsMailStationery
  7205.     2S3S4S5S
  7206. act_RENAME.GIF|act_RENAME?
  7207. Adresse...T
  7208. EnterSendTo
  7209. EnterCopyTo
  7210. EnterBlindCopyTo
  7211.     0S0E
  7212. PostedDateh
  7213. IsMailStationery
  7214.     5S6S7S8S10S11S12S13S
  7215. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  7216. Zustelloptionen...
  7217. $KeepPrivate
  7218. $KeepPrivate
  7219. $KeepPrivate
  7220. $KeepPrivate
  7221. DeliveryOptions
  7222. Zustelloptionen
  7223.     0R4S10S
  7224. PostedDateh
  7225.     5S6S7S8S
  7226. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  7227. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  7228. Use "CommonUI"
  7229. '++LotusScript Development Environment:2:5:(Forward):0:1
  7230. Declare Sub Click(Source As Button)
  7231. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7232. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7233. Private Sub BindEvents(Byval Objectname_ As String)
  7234. Static Source As BUTTON
  7235. Set Source = Bind(Objectname_)
  7236. On Event Click From Source Call Click
  7237. End Sub
  7238. '++LotusScript Development Environment:2:2:Click:1:12
  7239. Sub Click(Source As Button)
  7240.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  7241. End Sub
  7242. act_COPYINTO.GIF|act_COPYINTO?
  7243. Kopieren in\Neuen Kalendereintrag
  7244. '++LotusScript Development Environment:2:5:(Options):0:74
  7245. Use "CommonUI"
  7246. '++LotusScript Development Environment:2:5:(Forward):0:1
  7247. Declare Sub Click(Source As Button)
  7248. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7249. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7250. Private Sub BindEvents(Byval Objectname_ As String)
  7251. Static Source As BUTTON
  7252. Set Source = Bind(Objectname_)
  7253. On Event Click From Source Call Click
  7254. End Sub
  7255. '++LotusScript Development Environment:2:2:Click:1:12
  7256. Sub Click(Source As Button)
  7257.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  7258. End Sub
  7259. act_COPYINTO.GIF|act_COPYINTO?
  7260. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  7261. Use "CommonUI"
  7262. '++LotusScript Development Environment:2:5:(Forward):0:1
  7263. Declare Sub Click(Source As Button)
  7264. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7265. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7266. Private Sub BindEvents(Byval Objectname_ As String)
  7267.     Static Source As BUTTON
  7268.     Set Source = Bind(Objectname_)
  7269.     On Event Click From Source Call Click
  7270. End Sub
  7271. '++LotusScript Development Environment:2:2:Click:1:12
  7272. Sub Click(Source As Button)
  7273.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  7274. End Sub
  7275. act_COPYINTO.GIF|act_COPYINTO?
  7276. Werkzeuge\Vorgaben...
  7277. DialogMode
  7278. (Preferences)
  7279. act_TOOLS.GIF|act_TOOLS?
  7280. Werkzeuge\Zustellinformationen...
  7281. xxTitle
  7282. Zustellinformationen
  7283.     0S0E
  7284. DeliveryInfo
  7285. xxTitle
  7286.     0RR4S5S6S7S8S9S10S11S12S14S
  7287. act_TOOLS.GIF|act_TOOLS?
  7288. Werkzeuge\Abwesenheit...8
  7289. (EditOfficeProfile)
  7290.     0S0E
  7291. act_TOOLS.GIF|act_TOOLS?
  7292. Werkzeuge\Absender in Adre
  7293. buch aufnehmenu<
  7294. (AddSenderToAddressBook)
  7295.     0S0E
  7296. act_TOOLS.GIF|act_TOOLS?
  7297. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  7298. '++LotusScript Development Environment:2:5:(Forward):0:1
  7299. Declare Sub Click(Source As Button)
  7300. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7301. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7302. Private Sub BindEvents(Byval Objectname_ As String)
  7303.     Static Source As BUTTON
  7304.     Set Source = Bind(Objectname_)
  7305.     On Event Click From Source Call Click
  7306. End Sub
  7307. '++LotusScript Development Environment:2:2:Click:1:12
  7308. Sub Click(Source As Button)
  7309.     Dim session As New notessession
  7310.     Dim uiws As New notesuiworkspace
  7311.     Dim collection As notesdocumentcollection
  7312.     Dim noteUIEditDocument As notesuidocument
  7313.     Dim database As NotesDatabase
  7314.     Set noteCursorDoc = session.currentdatabase.createdocument
  7315.     Set database = session.currentdatabase
  7316.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  7317. hlen", "W
  7318. hlen Sie bitte eine Vorlage f
  7319. r das neue Memo.")
  7320.     Set noteCursorDoc = collection.getfirstdocument
  7321.     If Not noteCursorDoc Is Nothing Then
  7322.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  7323.     End If
  7324. End Sub
  7325. act_TOOLS.GIF|act_TOOLS?
  7326. Werkzeuge\Signatur einf
  7327. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  7328. '++LotusScript Development Environment:2:5:(Forward):0:1
  7329. Declare Sub Click(Source As Button)
  7330. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7331. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7332. Private Sub BindEvents(Byval Objectname_ As String)
  7333.     Static Source As BUTTON
  7334.     Set Source = Bind(Objectname_)
  7335.     On Event Click From Source Call Click
  7336. End Sub
  7337. '++LotusScript Development Environment:2:2:Click:1:12
  7338. Sub Click(Source As Button)
  7339.     Call cMemoObject.InsertSignature(False)
  7340. End Sub
  7341. PostedDateh
  7342.     5S6S7S8S
  7343. act_TOOLS.GIF|act_TOOLS?
  7344. Werkzeuge\Als Vorlage speichern...
  7345. MEMO_ISSTATIONERY
  7346.     0S0E
  7347. MEMO_STATIONERYSAVE
  7348. ActionInProgress
  7349. MEMO_STATIONERYSAVE
  7350.     0R1S
  7351. MergeFlag
  7352. MEMO_ISSTATIONERY
  7353.     0R1S
  7354. PostedDateh
  7355. IsMailStationery
  7356.     5S6S7S8S10S11S12S13S
  7357. act_TOOLS.GIF|act_TOOLS?
  7358. Neues Memo
  7359. qstring
  7360. Query_String
  7361. Query_String
  7362. Query_String
  7363.     1S2S8S11S15S18S
  7364. pathinfo
  7365. Path_Info
  7366. &ClickG
  7367. Path_Info
  7368. &Click_
  7369. Path_Info
  7370.     0R1S2S8S11S15S18S
  7371.     0R1S10S14S16S23S
  7372. qstring
  7373. OpenDocument
  7374. path"
  7375. /Memo?OpenForm&docurl="
  7376. pathinfo"
  7377. path"
  7378. /Memo?OpenForm"
  7379.     0R1S3S13S14S17S
  7380. act_NEW.GIF|act_NEW?
  7381. Weiterleiten
  7382. Format
  7383. CalendarProfile
  7384. FormatReplies
  7385. FormatChar
  7386. CalendarProfile
  7387. OffsetChar
  7388.     0R1S10S14S16S23S
  7389. Format
  7390. path"
  7391. /wForward?OpenForm&ParentUNID="
  7392. Forward
  7393. path"
  7394. /wForward?OpenForm&ParentUNID="
  7395. Forward&Format=
  7396. FormatChar"
  7397.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  7398. act_FORWARD.GIF|act_FORWARD?
  7399. Senden\Senden
  7400. tmpSendOptions
  7401. act_SEND.GIF|act_SEND?
  7402. Senden\Senden und speichernd`
  7403. tmpSendOptions
  7404. act_SEND.GIF|act_SEND?
  7405. Senden\Als Entwurf speichern`
  7406. tmpSendOptions
  7407. act_SEND.GIF|act_SEND?
  7408. Antwort\Antwort
  7409. wReply
  7410.     0S0E
  7411. act_REPLY.GIF|act_REPLY?
  7412. Antwort\Allen antworten
  7413.     0R1S10S14S16S23S
  7414. path"
  7415. /wReply?OpenForm&xxxxxxUNID="
  7416. &All"
  7417.     0R3S4S5S6S7S8S15S17S18S
  7418. Antwort\Antwort mit Protokoll
  7419.     1S10S14S16S23S
  7420. Format
  7421. CalendarProfile
  7422. FormatReplies
  7423.     0R6S
  7424. FormatChar
  7425. CalendarProfile
  7426. OffsetChar
  7427. Format
  7428. path"
  7429. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  7430. &Format="
  7431. Formatchar"
  7432. Reply With History
  7433.     0R9S10S11S12S13S14S21S23S24S
  7434. act_REPLY.GIF|act_REPLY?
  7435. Antwort\Allen antworten (mit Protokoll)A
  7436.     1S10S14S16S23S
  7437. Format
  7438. CalendarProfile
  7439. FormatReplies
  7440.     0R6S
  7441. FormatChar
  7442. CalendarProfile
  7443. OffsetChar
  7444. Format
  7445. path"
  7446. /Reply+With+History?OpenForm&ParentUNID="
  7447. &Format="
  7448. FormatChar"
  7449. &All"
  7450. path"
  7451. /Reply+With+History?OpenForm&ParentUNID="
  7452. &All"
  7453.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  7454. Adresse...
  7455. Appointment
  7456. AppointmentType
  7457. TaskType
  7458. tmpOwner
  7459. Chair
  7460.     20S21S22S
  7461. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  7462. var pathname = (window.location.pathname);
  7463. if (navigator.appVersion.indexOf('X11') != -1)  
  7464.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  7465.     } else 
  7466.     if (navigator.appName =='Netscape') 
  7467.             if (navigator.appVersion.indexOf("Win") != -1)
  7468.                 {
  7469.                 window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  7470.                 } else
  7471.                 {
  7472.                  window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  7473.                 }
  7474.             } else    
  7475.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=750,height=540');
  7476. Zustelloptionen...
  7477. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  7478. var pathname = (window.location.pathname);
  7479. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
  7480. Bearbeiten 
  7481.     0S0E
  7482. act_EDIT.GIF|act_EDIT?
  7483. schens
  7484.     1S10S14S16S23S
  7485.     0R5S
  7486. path"
  7487. /wDelete?OpenAgent&
  7488. UNID"
  7489. &From="
  7490. view"
  7491. tmpWasMailed
  7492.     1S2S
  7493. act_DELETE.GIF|act_DELETE?
  7494. Gehe zu\Eingang
  7495.     1S2S
  7496. path"
  7497. /MailFS?OpenFrameset"
  7498.     0R3S4S5S6S
  7499. act_goto.gif|act_goto?
  7500. Gehe zu\Kalender
  7501.     1S2S
  7502. path"
  7503. /CalendarFS?OpenFrameset"
  7504.     0R3S4S5S6S
  7505. act_goto.gif|act_goto?
  7506. Gehe zu\Aufgabe
  7507.     1S2S
  7508. path"
  7509. /ToDoFS?OpenFrameset"
  7510.     0R3S4S5S6S
  7511. act_goto.gif|act_goto?
  7512. Gehe zu\Vor
  7513.     0S0E
  7514. act_goto.gif|act_goto?
  7515. Gehe zu\Zur
  7516.     0S0E
  7517. act_goto.gif|act_goto?
  7518. Kopieren in\Neue Aufgabe
  7519.     1S10S14S16S23S
  7520. path"
  7521. /Task?OpenForm&UNID="
  7522. &CopyInto
  7523.     0R3S4S5S6S7S8S15S17S18S
  7524. act_COPYINTO.GIF|act_COPYINTO?
  7525. Kopieren in\Neuen Kalendereintrag
  7526.     1S10S14S16S23S
  7527. path"
  7528. /Appointment?OpenForm&UNID=
  7529. &CopyInto
  7530.     0R3S4S5S6S7S8S15S17S18S
  7531. act_COPYINTO.GIF|act_COPYINTO?
  7532. nderungen verwerfen
  7533. MEMO_CANCEL
  7534. 4194304
  7535.     0S0E
  7536. ActionInProgress
  7537. MEMO_CANCEL
  7538.     0R1S
  7539. IsMailStationery
  7540.     1S2S3S
  7541. Speichern und schlie
  7542. MEMO_DRAFT
  7543.     0S0E
  7544. ActionInProgress
  7545. MEMO_DRAFT
  7546.     0R1S
  7547. PostedDateh
  7548. IsMailStationery
  7549.     7S8S9S10S13S14S15S16S
  7550. Speichern und ablegen0
  7551. MEMO_DRAFT_FILE
  7552.     0S0E
  7553. ActionInProgress
  7554. MEMO_DRAFT_FILE
  7555.     0R1S
  7556. PostedDateh
  7557. IsMailStationery
  7558.     7S8S9S10S13S14S15S16S
  7559. Schlie
  7560. MEMO_CANCEL
  7561. 4194304
  7562.     0S0E
  7563. ActionInProgress
  7564. MEMO_CANCEL
  7565.     0R1S
  7566. IsMailStationery
  7567.     0S1S2S
  7568. Neues Memo(
  7569.     0S0E
  7570. Antwort\Antwort 0
  7571. Reply
  7572.     0S0E
  7573. Antwort\Antwort mit Protokoll\
  7574. Antwort mit Protokoll
  7575. Dieses Dokument ist nicht vollst
  7576. ndig.
  7577.     4S8S10S13S
  7578. Reply with history
  7579. Antwort\Allen antworten0X
  7580. MailStEd
  7581.     0S0E
  7582. Reply
  7583. Antwort\Allen antworten (mit Protokoll)
  7584. MailStEd
  7585.     0S0E
  7586. Antwort mit Protokoll
  7587. Dieses Dokument ist nicht vollst
  7588. ndig.
  7589.     0R4S8S10S13S
  7590. Reply with history
  7591. _Kategorisierena
  7592. Dokument _bearbeiten
  7593. Dokument _senden
  7594. Weiterleiten 
  7595.     0S0E
  7596. ISMAILSTATIONERY
  7597.     1S2S
  7598. _Weiterleiten
  7599. schenk 
  7600.     0S0E
  7601. Ordner\Ordner erstellen1 
  7602.     0S0E
  7603. Ordner\In Ordner verschieben...
  7604.     0S0E
  7605. Ordner\Aus Ordner entferneno 
  7606.     0S0E
  7607. In Ordner _verschieben...d
  7608. Aus Ordner _entfernen
  7609. Senden
  7610. MEMO_SEND
  7611.     0S0E
  7612. ActionInProgress
  7613. MEMO_SEND
  7614.     0R1S
  7615. PostedDateh
  7616. IsMailStationery
  7617.     5S6S7S8S10S11S12S13S
  7618. Senden und ablegen
  7619. MEMO_SEND_FILE
  7620.     0S0E
  7621. ActionInProgress
  7622. MEMO_SEND_FILE
  7623.     0R1S
  7624. PostedDateh
  7625. IsMailStationery
  7626.     5S6S7S8S12S13S
  7627. Speicherns
  7628. MEMO_STATIONERYSAVE
  7629.     0S0E
  7630. ActionInProgress
  7631. MEMO_STATIONERYSAVE
  7632.     0R1S
  7633. IsMailStationery
  7634.     2S3S
  7635. Als Entwurf speichern
  7636. MEMO_DRAFT
  7637.     0S0E
  7638. ActionInProgress
  7639. MEMO_DRAFT
  7640.     0R1S
  7641. PostedDateh
  7642. IsMailStationery
  7643.     5S6S7S8S10S11S12S13S
  7644. Vorlage umbenennen...
  7645. xxERROR
  7646. Es ist kein Dokument ausgew
  7647.     0S0E
  7648. xxTitle
  7649. Vorlage umbenennen
  7650. xxPrompt
  7651. Bitte geben Sie den neuen Namen f
  7652. r die Vorlage ein.
  7653. xxERROR
  7654. MailStationeryName
  7655. xxTitle
  7656. xxPrompt
  7657. MailStationeryName
  7658.     0RR1S
  7659.     0RS>
  7660. IsMailStationery
  7661.     2S3S4S5S
  7662. Adresse...T
  7663. EnterSendTo
  7664. EnterCopyTo
  7665. EnterBlindCopyTo
  7666.     0S0E
  7667. PostedDateh
  7668. IsMailStationery
  7669.     5S6S7S8S10S11S12S13S
  7670. Zustelloptionen...
  7671. $KeepPrivate
  7672. $KeepPrivate
  7673. $KeepPrivate
  7674. $KeepPrivate
  7675. DeliveryOptions
  7676. Zustelloptionen
  7677.     0R4S10S
  7678. PostedDateh
  7679.     5S6S7S8S
  7680. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  7681. Use "CommonUI"
  7682. '++LotusScript Development Environment:2:5:(Forward):0:1
  7683. Declare Sub Click(Source As Button)
  7684. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7685. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7686. Private Sub BindEvents(Byval Objectname_ As String)
  7687. Static Source As BUTTON
  7688. Set Source = Bind(Objectname_)
  7689. On Event Click From Source Call Click
  7690. End Sub
  7691. '++LotusScript Development Environment:2:2:Click:1:12
  7692. Sub Click(Source As Button)
  7693.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  7694. End Sub
  7695. Kopieren in\Neuen Kalendereintrag
  7696. '++LotusScript Development Environment:2:5:(Options):0:74
  7697. Use "CommonUI"
  7698. '++LotusScript Development Environment:2:5:(Forward):0:1
  7699. Declare Sub Click(Source As Button)
  7700. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7701. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7702. Private Sub BindEvents(Byval Objectname_ As String)
  7703. Static Source As BUTTON
  7704. Set Source = Bind(Objectname_)
  7705. On Event Click From Source Call Click
  7706. End Sub
  7707. '++LotusScript Development Environment:2:2:Click:1:12
  7708. Sub Click(Source As Button)
  7709.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  7710. End Sub
  7711. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  7712. Use "CommonUI"
  7713. '++LotusScript Development Environment:2:5:(Forward):0:1
  7714. Declare Sub Click(Source As Button)
  7715. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7716. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7717. Private Sub BindEvents(Byval Objectname_ As String)
  7718.     Static Source As BUTTON
  7719.     Set Source = Bind(Objectname_)
  7720.     On Event Click From Source Call Click
  7721. End Sub
  7722. '++LotusScript Development Environment:2:2:Click:1:12
  7723. Sub Click(Source As Button)
  7724.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  7725. End Sub
  7726. Werkzeuge\Vorgaben...
  7727. DialogMode
  7728. (Preferences)
  7729. Werkzeuge\Zustellinformationen...)
  7730. xxTitle
  7731. Zustellinformationen
  7732.     0S0E
  7733. DeliveryInfo
  7734. xxTitle
  7735.     0RR4S5S6S7S8S9S10S11S12S14S
  7736. Werkzeuge\Abwesenheit...8
  7737. (EditOfficeProfile)
  7738.     0S0E
  7739. Werkzeuge\Absender in Adre
  7740. buch aufnehmen <
  7741. (AddSenderToAddressBook)
  7742.     0S0E
  7743. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  7744. '++LotusScript Development Environment:2:5:(Forward):0:1
  7745. Declare Sub Click(Source As Button)
  7746. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7747. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7748. Private Sub BindEvents(Byval Objectname_ As String)
  7749.     Static Source As BUTTON
  7750.     Set Source = Bind(Objectname_)
  7751.     On Event Click From Source Call Click
  7752. End Sub
  7753. '++LotusScript Development Environment:2:2:Click:1:12
  7754. Sub Click(Source As Button)
  7755.     Dim session As New notessession
  7756.     Dim uiws As New notesuiworkspace
  7757.     Dim collection As notesdocumentcollection
  7758.     Dim noteUIEditDocument As notesuidocument
  7759.     Dim database As NotesDatabase
  7760.     Set noteCursorDoc = session.currentdatabase.createdocument
  7761.     Set database = session.currentdatabase
  7762.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  7763. hlen", "W
  7764. hlen Sie bitte eine Vorlage f
  7765. r das neue Memo.")
  7766.     Set noteCursorDoc = collection.getfirstdocument
  7767.     If Not noteCursorDoc Is Nothing Then
  7768.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  7769.     End If
  7770. End Sub
  7771. Werkzeuge\Signatur einf
  7772. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  7773. '++LotusScript Development Environment:2:5:(Forward):0:1
  7774. Declare Sub Click(Source As Button)
  7775. '++LotusScript Development Environment:2:5:(Declarations):0:2
  7776. '++LotusScript Development Environment:2:2:BindEvents:1:129
  7777. Private Sub BindEvents(Byval Objectname_ As String)
  7778.     Static Source As BUTTON
  7779.     Set Source = Bind(Objectname_)
  7780.     On Event Click From Source Call Click
  7781. End Sub
  7782. '++LotusScript Development Environment:2:2:Click:1:12
  7783. Sub Click(Source As Button)
  7784.     Call cMemoObject.InsertSignature(False)
  7785. End Sub
  7786. PostedDateh
  7787.     5S6S7S8S
  7788. Werkzeuge\Als Vorlage speichern...
  7789. MEMO_ISSTATIONERY
  7790.     0S0E
  7791. MEMO_STATIONERYSAVE
  7792. ActionInProgress
  7793. MEMO_STATIONERYSAVE
  7794.     0R1S
  7795. MergeFlag
  7796. MEMO_ISSTATIONERY
  7797.     0R1S
  7798. PostedDateh
  7799. IsMailStationery
  7800.     5S6S7S8S10S11S12S13S
  7801. Neues Memo
  7802. qstring
  7803. Query_String
  7804. Query_String
  7805. Query_String
  7806.     1S2S8S11S15S18S
  7807. pathinfo
  7808. Path_Info
  7809. &ClickG
  7810. Path_Info
  7811. &Click_
  7812. Path_Info
  7813.     0R1S2S8S11S15S18S
  7814.     0R1S10S14S16S23S
  7815. qstring
  7816. OpenDocument
  7817. path"
  7818. /Memo?OpenForm&docurl="
  7819. pathinfo"
  7820. path"
  7821. /Memo?OpenForm"
  7822.     0R1S3S13S14S17S
  7823. Weiterleiten
  7824. Format
  7825. CalendarProfile
  7826. FormatReplies
  7827. FormatChar
  7828. CalendarProfile
  7829. OffsetChar
  7830.     0R1S10S14S16S23S
  7831. Format
  7832. path"
  7833. /wForward?OpenForm&ParentUNID="
  7834. Forward
  7835. path"
  7836. /wForward?OpenForm&ParentUNID="
  7837. Forward&Format=
  7838. FormatChar"
  7839.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  7840. Senden\Sendeno`
  7841. tmpSendOptions
  7842. Senden\Senden und speicherne`
  7843. tmpSendOptions
  7844. Senden\Als Entwurf speichern`
  7845. tmpSendOptions
  7846. Antwort\Antwort
  7847. wReply
  7848.     0S0E
  7849. Antwort\Allen antwortene
  7850.     0R1S10S14S16S23S
  7851. path"
  7852. /wReply?OpenForm&xxxxxxUNID="
  7853. &All"
  7854.     0R3S4S5S6S7S8S15S17S18S
  7855. Antwort\Antwort mit Protokoll
  7856.     1S10S14S16S23S
  7857. Format
  7858. CalendarProfile
  7859. FormatReplies
  7860.     0R6S
  7861. FormatChar
  7862. CalendarProfile
  7863. OffsetChar
  7864. Format
  7865. path"
  7866. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  7867. &Format="
  7868. Formatchar"
  7869. Reply With History
  7870.     0R9S10S11S12S13S14S21S23S24S
  7871. Antwort\Allen antworten (mit Protokoll)
  7872.     1S10S14S16S23S
  7873. Format
  7874. CalendarProfile
  7875. FormatReplies
  7876.     0R6S
  7877. FormatChar
  7878. CalendarProfile
  7879. OffsetChar
  7880. Format
  7881. path"
  7882. /Reply+With+History?OpenForm&ParentUNID="
  7883. &Format="
  7884. FormatChar"
  7885. &All"
  7886. path"
  7887. /Reply+With+History?OpenForm&ParentUNID="
  7888. &All"
  7889.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  7890. Bearbeiten 
  7891.     0S0E
  7892. schen1
  7893.     1S10S14S16S23S
  7894.     0R5S
  7895. path"
  7896. /wDelete?OpenAgent&
  7897. UNID"
  7898. &From="
  7899. view"
  7900. tmpWasMailed
  7901.     1S2S
  7902. Gehe zu\Eingange
  7903.     1S2S
  7904. path"
  7905. /MailFS?OpenFrameset"
  7906.     0R3S4S5S6S
  7907. Gehe zu\Kalender
  7908.     1S2S
  7909. path"
  7910. /CalendarFS?OpenFrameset"
  7911.     0R3S4S5S6S
  7912. Gehe zu\AufgabeD
  7913.     1S2S
  7914. path"
  7915. /ToDoFS?OpenFrameset"
  7916.     0R3S4S5S6S
  7917. Gehe zu\Vor
  7918.     0S0E
  7919. Gehe zu\Zur
  7920.     0S0E
  7921. Kopieren in\Neue Aufgabe
  7922.     1S10S14S16S23S
  7923. path"
  7924. /Task?OpenForm&UNID="
  7925. &CopyInto
  7926.     0R3S4S5S6S7S8S15S17S18S
  7927. Kopieren in\Neuen Kalendereintrag
  7928.     1S10S14S16S23S
  7929. path"
  7930. /Appointment?OpenForm&UNID=
  7931. &CopyInto
  7932.     0R3S4S5S6S7S8S15S17S18S
  7933. Lotus Product
  7934. OBJECT
  7935. Lotus Product
  7936. OBJECT
  7937. Lotus Product
  7938. OBJECT
  7939. Lotus Product
  7940. OBJECT
  7941. O=Lotus Notes
  7942. O=Lotus Notes
  7943. PURSAFO
  7944. |.:#U
  7945. O=Lotus Notes
  7946. CN=Lotus Notes Template Development/O=Lotus Notes
  7947. PURSAFO
  7948. *(,fB
  7949. $Language
  7950. $LastBuildTime
  7951. $BabelInfo
  7952. $BackgroundR5
  7953. $HeaderArea
  7954. $RegionFrameset
  7955. $Info
  7956. $SubForms
  7957. $WINDOWTITLE
  7958. $WEBQuerySave
  7959. $WEBQueryOpen
  7960. $AppHelpFormula
  7961. $WebFlags
  7962. $Script
  7963. $$Script_O
  7964. $$ScriptName
  7965. $$FormScript
  7966. $$$FormScript_O
  7967. $Body
  7968. $V5ACTIONS
  7969. $ACTIONS
  7970. $SCRIPTOBJ_27
  7971. $SCRIPTOBJ_28
  7972. $SCRIPTOBJ_29
  7973. $SCRIPTOBJ_34
  7974. Times New Roman
  7975.  ArchiveLog
  7976. Archivprotokoll
  7977. _KategorisierenX
  7978. Dokument _bearbeiten
  7979. Dokument _senden
  7980. _WeiterleitenX
  7981. In Ordner _verschieben...X
  7982. Aus Ordner _entfernenX
  7983. AbbrechenX8
  7984. Notes only
  7985. _KategorisierenX
  7986. Dokument _bearbeiten
  7987. Dokument _senden
  7988. _WeiterleitenX
  7989. In Ordner _verschieben...X
  7990. Aus Ordner _entfernenX
  7991. AbbrechenX8
  7992. Notes only
  7993. AbbrechenX
  7994. history.back()
  7995. $MessageType
  7996. ArchLog.gif|ArchLog.gifX
  7997. ArchiveProfile
  7998. Archive Profile
  7999.     1S2S3S4S
  8000. Archivprotokoll 
  8001. LogCount
  8002.  von X
  8003. LogTotal
  8004. ArchiveDateX
  8005. Um auf die Archivierungsfunktion zuzugreifen, w
  8006. hlen Sie jetzt
  8007. 'Datei - Datenbank - Eigenschaften',  und klicken Sie auf 'Archivierungseinstellungen'.
  8008. Bestehende Archivierungseinstellungen werden aktualisiert, wenn Sie dieses Dialogfeld zum erstenmal aufrufen.
  8009.     1S2S3S4S5S6S7S8S9S10S11S12S2E
  8010. Diese Funktion befindet sich jetzt im Dialogfeld 'Eigenschaften: Datenbank'.
  8011. Der Zugriff auf dieses Dialogfeld kann nur vom Notes Client aus erfolgen.
  8012.     0R1S2E2S3S4S5S6S
  8013. ArchiveProfile
  8014. Archive Profile
  8015. Notes
  8016. Nmsg"
  8017. ArchiveProfile
  8018. Archive Profile
  8019. Notes
  8020. Wmsg"
  8021.     0R4S5S6S7S8S9S11S12S13S14S16R17S18S20RT22S23S24S25S26S27S29S30S31S32S34RTT35S36S38RT
  8022. ArchiveProfile
  8023. Archive Profile
  8024.     1S2S3S4S
  8025. ArchiveTrailer
  8026. ArchiveTrailer
  8027.     Hidden:  X
  8028. Archivprotokoll f
  8029. ArchiveDate
  8030.     1S2S
  8031. SubjectX
  8032. (Archive)
  8033. Categories
  8034. O=Lotus Notes
  8035. O=Lotus Notes
  8036. PURSAFO
  8037. |.:#U
  8038. O=Lotus Notes
  8039. CN=Lotus Notes Template Development/O=Lotus Notes
  8040. PURSAFO
  8041. ~2A`z
  8042. DocLife
  8043. $ManualArchivers_O
  8044. ObsoleteLife
  8045. DocumentLife
  8046. $Info
  8047. $$ScriptName
  8048. ArchiveDate
  8049. $WINDOWTITLE
  8050. $ACTIONS
  8051. $V5ACTIONS
  8052. $Body
  8053. $Language
  8054. $LastBuildTime
  8055. $BabelInfo
  8056. $HideMailHeader
  8057. BGTableColor
  8058. HeaderRegion
  8059. BodyRegion
  8060. Neues Memo
  8061. Subject
  8062. Subject
  8063. Subject
  8064.     1RT4RTT6RT7RTT12S13S14S15S17RTTT18RTTTT21RTTTTT23RTTTTS24RTTT25RTTT26S28RTT32RTT33RT
  8065. wMemo
  8066. returnreceipt
  8067. wMemoOpen
  8068. Query_string
  8069. forward
  8070. wMemoOpen
  8071. Query_string
  8072. wMemoOpen
  8073.     13R24S
  8074. (Help)
  8075. MAIL_F_MEMO
  8076.     0S0E
  8077. &Arial
  8078. FComic Sans MS
  8079. '++LotusScript Development Environment:2:5:(Options):0:74
  8080. Option Public
  8081. Option Explicit
  8082. Use "CoreEmailClasses"
  8083. '++LotusScript Development Environment:2:5:(Forward):0:1
  8084. '++LotusScript Development Environment:2:5:(Declarations):0:10
  8085. Dim cMemoObject As Variant
  8086. Lotus Product
  8087.  Reply'++LotusScript Development Environment:2:5:(Options):0:66
  8088. '++LotusScript Development Environment:2:5:(Forward):0:1
  8089. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  8090. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  8091. Declare Sub Postmodechange(Source As Notesuidocument)
  8092. Declare Sub Postopen(Source As Notesuidocument)
  8093. Declare Sub Postsave(Source As Notesuidocument)
  8094. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8095. Declare Sub Postrecalc(Source As Notesuidocument)
  8096. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  8097. Declare Sub Click(Source As Button)
  8098. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8099. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8100. Private Sub BindEvents(Byval Objectname_ As String)
  8101.     Static Source As NOTESUIDOCUMENT
  8102.     Set Source = Bind(Objectname_)
  8103.     On Event Queryopen From Source Call Queryopen
  8104.     On Event Querysave From Source Call Querysave
  8105.     On Event Postmodechange From Source Call Postmodechange
  8106.     On Event Postopen From Source Call Postopen
  8107.     On Event Postsave From Source Call Postsave
  8108.     On Event Queryclose From Source Call Queryclose
  8109.     On Event Postrecalc From Source Call Postrecalc
  8110.     On Event Querymodechange From Source Call Querymodechange
  8111. End Sub
  8112. '++LotusScript Development Environment:2:2:Queryopen:1:12
  8113. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  8114.     Set cMemoObject = New UIMemoDocument         
  8115.     Call cMemoObject.Init(Source,Isnewdoc)  
  8116. End Sub
  8117. '++LotusScript Development Environment:2:2:Querysave:1:12
  8118. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  8119.     Call cMemoObject.QuerySave(Continue)
  8120. End Sub
  8121. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  8122. Sub Postmodechange(Source As Notesuidocument)
  8123.     Call cMemoObject.PostModeChange()    
  8124. End Sub
  8125. '++LotusScript Development Environment:2:2:Postopen:1:12
  8126. Sub Postopen(Source As Notesuidocument)
  8127.     Call cMemoObject.PostOpen(Source)    
  8128. End Sub
  8129. '++LotusScript Development Environment:2:2:Postsave:1:12
  8130. Sub Postsave(Source As Notesuidocument)
  8131.     Call cMemoObject.PostSave()
  8132. End Sub
  8133. '++LotusScript Development Environment:2:2:Queryclose:1:12
  8134. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  8135.     Call cMemoObject.QueryClose(Continue)
  8136. End Sub
  8137. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  8138. Sub Postrecalc(Source As Notesuidocument)
  8139. End Sub
  8140. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  8141. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  8142.     Continue = cMemoObject.QueryModeChange(Source)
  8143. End Sub
  8144. '++LotusScript Development Environment:2:2:Click:1:8
  8145. Sub Click(Source As Button)
  8146.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  8147.     Call cMemoObject.noteUIMemo.save()
  8148.     Call cMemoObject.noteUIMemo.close()
  8149. End Sub
  8150. Lotus Product
  8151.     Always hidden:
  8152. $AltNameLanguageTags
  8153. $AltNameLanguageTags
  8154. $StorageTo
  8155. $StorageCc
  8156.     1S2S
  8157. $StorageCc
  8158. NoteHasNativeMime
  8159.     1RT2RT7RTT9RT10RT$StorageTo
  8160. $StorageBcc
  8161. $StorageBcc
  8162. InetSendTo
  8163. InetCopyTo
  8164.     1S2S
  8165. InetCopyTo
  8166. InetFrom
  8167. InetSendTo
  8168. AltSendTo
  8169. AltCopyTo
  8170.     1S2S
  8171. AltCopyTo
  8172. InetBlindCopyTo
  8173. InetBlindCopyTo
  8174.     0S0E
  8175. NamePreferencez
  8176. NamePreference
  8177.     0S0E
  8178. LanguagePreference
  8179. Notes
  8180. PostedDateh
  8181. SendTo
  8182. CopyTo
  8183. InheritedSendTo
  8184. SendTo
  8185. CopyTo
  8186.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
  8187. InheritedSendTo
  8188. InheritedSendTo
  8189. Notes
  8190. PostedDateh
  8191. NamePreference
  8192. AltSendTo
  8193. AltSendTo
  8194. AltCopyTo
  8195. SendTo
  8196. CopyTo
  8197. InheritedAltSendTo
  8198. SendTo
  8199. CopyTo
  8200.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53RInheritedAltSendToz
  8201. InheritedSendTo_1
  8202. Notes
  8203. PostedDateh
  8204. ReplyTo
  8205. ReplyTo
  8206.     1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
  8207. InheritedReplyToz
  8208. InheritedReplyTo
  8209. Principal
  8210. Principal
  8211. Principal
  8212. Fromh
  8213.     1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
  8214. FromDomainh
  8215. FromDomain"
  8216.     0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
  8217. InheritedFrom
  8218. AltPrincipalh
  8219. AltPrincipal
  8220. AltPrincipal
  8221. AltFrom
  8222. AltFrom
  8223.     1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
  8224. FromDomainh
  8225. FromDomain"
  8226.     0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
  8227. InheritedFrom_1
  8228. Notes
  8229. PostedDateh
  8230. FromDomain
  8231. InheritedFromDomain
  8232. FromDomain
  8233.     9S10S12S13SInheritedFromDomain
  8234. InheritedFromDomain
  8235. Principal
  8236. CalendarProfile
  8237. Owner
  8238.     1S2S3S7S
  8239. FromPerson memo is from.z
  8240. AltFrom
  8241.     10SAltFrom
  8242. CalendarProfile
  8243. DefaultLogo
  8244. stdNotesLtr0
  8245. CalendarProfile
  8246. DefaultLogo
  8247. StdNotesLtrGateway
  8248.     4S13S24R25S29S32S34S
  8249. Logoz
  8250. BG_IMAGE_PREFIX
  8251.     0S0E
  8252. StdNotesLtr0
  8253.     0RR1RT2RT3S4S6RTT13RT14RT
  8254. Image
  8255. StdNotesLtr
  8256. Image
  8257. Gateway
  8258. BG_IMAGE_PREFIX
  8259. Image
  8260. Image
  8261.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  8262. Image
  8263. BG_IMAGE_PREFIX
  8264. Image
  8265. BG_IMAGE_PREFIX
  8266. Image
  8267. BG_IMAGE_PREFIX
  8268. Image
  8269. BG_IMAGE_PREFIX
  8270. Image
  8271. BG_IMAGE_PREFIX
  8272. BG_IMAGE_PREFIX
  8273.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  8274. Principal
  8275. Principal
  8276. Principal
  8277. NamePreference
  8278. AltFrom
  8279. $LangFrom
  8280. LanguagePreferencet
  8281. AltFrom
  8282.     1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
  8283.     0RR1S2S8S
  8284.     0R1S2S5S6S8S14S18S
  8285.     0R1S2S5S6S8S14S18S
  8286. SentBy
  8287. X400FreeForm^
  8288.     0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  8289. SentBy
  8290. FromDomain
  8291. FromDomain
  8292. FromDomain
  8293. FromDomain
  8294.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  8295. FromName
  8296. Principal
  8297. Principal
  8298. Principal
  8299.     0RR1S2S10S11S16S18S
  8300. FromStops
  8301. Principal
  8302. Principal
  8303. Principal
  8304.     0RR1S2S10S11S16S18S21S
  8305. FromName
  8306. FromStops
  8307. FromStops
  8308. FromStops
  8309.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  8310. tmpDisplayFrom_Preview
  8311.     0S0E
  8312. Signz
  8313.     0S0E
  8314. Encrypt
  8315. Encrypt
  8316. $KeepPrivate
  8317. $KeepPrivate
  8318. $KeepPrivate
  8319.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  8320.     0S0E
  8321. DefaultMailSaveOptionsz
  8322. DefaultMailSaveOptions
  8323. .,$,  , :
  8324. Path_Info_DEcoded
  8325. Path_Info
  8326. .,$,  , :
  8327. Query_String_Decoded
  8328. Query_String
  8329. (WebSpecificFields)
  8330.     0S0E
  8331.     Von:
  8332. tmpDisplayFrom_Preview
  8333. tmpDisplayFrom_NoLogo
  8334. tmpDisplayFrom_NoLogo
  8335. NamesList
  8336. NamePreference
  8337. AltSendTo
  8338. $NameLanguageTags
  8339. LanguagePreferencet
  8340. AltSendTo
  8341. SendTo
  8342.     11S12S15S16S20S
  8343. ImplodedNamesList
  8344. NamesList
  8345. ImplodedNamesList
  8346. ImplodedNamesList
  8347. ImplodedNamesList
  8348. tmpDisplaySendTo
  8349.     Thema:
  8350. Subject
  8351. Subject
  8352. Subject
  8353.     0S0E
  8354. TmpDisplaySubject_1
  8355.     Kopie:
  8356. CC_Content
  8357. NamePreference
  8358. AltCopyTo
  8359. $NameLanguageTags
  8360. LanguagePreferencet
  8361. AltCopyTo
  8362. CopyTo
  8363.     7S8S9S11S12S16S
  8364. BCC_Content
  8365. DeliveredDate
  8366. BlindCopyTo
  8367.  (Blindkopie: 
  8368. BlindCopyTo
  8369.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  8370. NamesList
  8371. CC_Content
  8372. BCC_Content
  8373.     0R9S10S
  8374. ImplodedNamesList
  8375. NamesList
  8376. ImplodedNamesList
  8377. ImplodedNamesList
  8378. ImplodedNamesList
  8379. tmpDisplayCC
  8380. V5DOTBL=true
  8381. MailAddress
  8382. InheritedReplyTo
  8383. InheritedReplyTo
  8384. InheritedFrom
  8385. NamePreference
  8386. AltSendTo
  8387. AltSendTo
  8388. SendTo
  8389.     1S2S22S2E23S24S25S
  8390. MailAddress
  8391. SendToz
  8392. SIZE=80
  8393.     Kopie:
  8394. CopyTo
  8395. InheritedSendTo
  8396.     1RT2RT5RTT7RT8RTT9RTT10S11S13RTTT15RTT16RTT17RTCopyToz
  8397. SIZE=80
  8398.     Blindkopie:
  8399. BlindCopyTo
  8400.     0S0E
  8401. BlindCopyTo
  8402. SIZE=80
  8403.     Thema:
  8404. Subject
  8405. Topic
  8406. Subject
  8407.     1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
  8408. ANTWORT
  8409. Antwort: 
  8410. Subj"
  8411.     0R1RT10S12S16S17S19RTT21RT22S23S24RT
  8412. WebSubjectz
  8413. SIZE=80
  8414. tmpDisplayFrom_Preview
  8415. DisplayFrom_Preview
  8416. DisplayFrom_Preview_1
  8417. $HideMailHeader
  8418. Principal
  8419. Principal
  8420. Principal
  8421. Principal
  8422. Principal
  8423.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
  8424.     Gesendet von: 
  8425. FromDomain
  8426. FromDomain
  8427. FromDomain
  8428. FromDomain
  8429.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  8430. FromName
  8431.     0RR1S2S6S
  8432. FromStops
  8433.     0R1S2S6S
  8434. FromName
  8435. FromStops
  8436. FromStops
  8437. FromStops
  8438.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  8439. tmpDisplaySentBy_1
  8440. PostedDateh
  8441. PostedDate
  8442.     4S5S10S12S
  8443. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  8444. tmpDisplayDate_Preview_1
  8445. ReplyDate
  8446. ReplyTo
  8447. $HideMailHeader
  8448.     2S3S4S5S6S7S9S10S14S15R
  8449. Bitte antworten
  8450. ReplyTo
  8451. ReplyTo
  8452. ReplyDate
  8453.  bis 
  8454. ReplyDate
  8455.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  8456. tmpDisplayReplyInfo_1
  8457.     <font size=-1>
  8458.     </font>
  8459. V5DOTBL=true
  8460. $HideMailHeader
  8461.     0S0E
  8462. tmpDisplayFrom_Preview
  8463. DisplayFrom
  8464. DisplayFrom_Pre
  8465. $HideMailHeader
  8466. Principal
  8467. Principal
  8468. Principal
  8469. Principal
  8470. Principal
  8471.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  8472.     Gesendet von: 
  8473. FromDomain
  8474. FromDomain
  8475. FromDomain
  8476. FromDomain
  8477.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  8478. FromName
  8479.     0RR1S2S6S
  8480. FromStops
  8481.     0R1S2S6S
  8482. FromName
  8483. FromStops
  8484. FromStops
  8485. FromStops
  8486.     0RR1S2S3S4S10S13S17S20SDisplaySent
  8487. tmpDisplaySent
  8488. PostedDateh
  8489. PostedDate
  8490.     4S5S10S12S
  8491. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  8492. tmpDisplayDate_Pre
  8493. Bitte antworten
  8494. ReplyTo
  8495. ReplyTo
  8496. ReplyDate
  8497.  bis 
  8498. ReplyDate
  8499.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  8500. tmpDisplayReply
  8501. $HideMailHeader
  8502. StdNotesLtr16
  8503.     7S9S10S11S13S15S
  8504.         An:    
  8505. MailAddress
  8506. InheritedReplyTo
  8507. InheritedReplyTo
  8508. NamePreference
  8509. InheritedAltFrom
  8510. InheritedAltFrom
  8511. InheritedFrom
  8512. NamePreference
  8513. AltSendTo
  8514. $NameLanguageTags
  8515. LanguagePreferencet
  8516. AltSendTo
  8517. SendTo
  8518.     1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
  8519. MailAddress
  8520. EnterSendTo
  8521.     0S0E
  8522. EnterSendToListe der Personen, an die das Memo (Original) gesendet werden soll
  8523.         Kopie:    
  8524. NamePreference
  8525. AltCopyTo
  8526. $NameLanguageTags
  8527. LanguagePreferencet
  8528. AltCopyTo
  8529. CopyTo
  8530.     1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
  8531. EnterCopyTo
  8532.     0S0E
  8533. EnterCopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  8534.         Kopie:    
  8535. CC_Content
  8536. NamePreference
  8537. AltCopyTo
  8538. $NameLanguageTags
  8539. LanguagePreferencet
  8540. AltCopyTo
  8541. CopyTo
  8542.     2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
  8543. BCC_Content
  8544. DeliveredDate
  8545. BlindCopyTo
  8546.  (Blindkopie: 
  8547. BlindCopyTo
  8548.     0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
  8549. CC_Content
  8550. BCC_Content
  8551.     0RR3S4StmpEnterCopyTo
  8552.         Blindkopie:    
  8553. NamePreference
  8554. AltBlindCopyTo
  8555. $NameLanguageTags
  8556. LanguagePreferencet
  8557. AltBlindCopyTo
  8558. BlindCopyTo
  8559.     1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
  8560. EnterBlindCopyTo}
  8561.     0S0E
  8562. EnterBlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.
  8563. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  8564.         Thema:    
  8565. SIZE=50
  8566. Subject
  8567. Topic
  8568. Subject
  8569.     1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
  8570. ANTWORT
  8571. Antwort: 
  8572. Subj"
  8573.     0R1RT10S12S16S17S19RTT21RT22S23S24RT
  8574. SubjectThema des Memos.
  8575.         Thema:    
  8576. Subject
  8577. tmpDisplaySubject
  8578. $HideMailHeader
  8579. tmpDisplayLink
  8580. ISMAILSTATIONERYh
  8581.     0S0E
  8582. ReplyDate
  8583. ReplyDate
  8584. ReplyDate
  8585. Importanceh
  8586. Importance
  8587. Importance
  8588. Importance(
  8589. DeliveryReporth
  8590. DeliveryReport
  8591. DeliveryReport
  8592. DeliveryReport(
  8593. DeliveryPriorityh
  8594. DeliveryPriority
  8595. DeliveryPriority
  8596. DeliveryPriority(
  8597. UpdateProfileNote
  8598. UpdateProfileNote
  8599. UpdateProfileNote
  8600. ReturnReceipt
  8601. ReturnReceipt
  8602. ReturnReceipt
  8603. $KeepPrivateh
  8604. $KeepPrivate
  8605. $KeepPrivate(
  8606. ExpireDateh
  8607. ExpireDate
  8608. ExpireDate(
  8609. ReplyTo
  8610. ReplyTo
  8611. ReplyTo
  8612. MimeFormath
  8613. MimeFormat
  8614. MimeFormat
  8615. MimeFormat(
  8616. SMTPEncodingh
  8617. SMTPEncoding
  8618. SMTPEncoding
  8619. SMTPEncoding(
  8620. MIMEMailCharset
  8621. MIMEMailCharset
  8622. MIMEMailCharset
  8623. MIMEMailCharset
  8624. $AutoSpellh
  8625. $AutoSpell
  8626. $AutoSpell(
  8627. WebSubjecth
  8628. WebSubject(
  8629. tmpSenderTagh
  8630. tmpSenderTag
  8631. tmpSenderTag
  8632. tmpSenderTag(
  8633.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
  8634. $HideMailHeader
  8635. Moods
  8636. PostedDate
  8637. SenderTag
  8638. Moods
  8639.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  8640. BodyText der Nachrichtz
  8641. nderungen verwerfen
  8642. MEMO_CANCEL
  8643. 4194304
  8644.     0S0E
  8645. ActionInProgress
  8646. MEMO_CANCEL
  8647.     0R1S
  8648. IsMailStationery
  8649.     1S2S3S
  8650. Speichern und schlie
  8651. MEMO_DRAFT
  8652.     0S0E
  8653. ActionInProgress
  8654. MEMO_DRAFT
  8655.     0R1S
  8656. PostedDateh
  8657. IsMailStationery
  8658.     7S8S9S10S13S14S15S16S
  8659. act_save.GIF|act_CSSAVE?
  8660. Speichern und ablegen
  8661. MEMO_DRAFT_FILE
  8662.     0S0E
  8663. ActionInProgress
  8664. MEMO_DRAFT_FILE
  8665.     0R1S
  8666. PostedDateh
  8667. IsMailStationery
  8668.     7S8S9S10S13S14S15S16S
  8669. act_FOLDER.GIF|act_FOLDER?
  8670. Schlie
  8671. MEMO_CANCEL
  8672. 4194304
  8673.     0S0E
  8674. ActionInProgress
  8675. MEMO_CANCEL
  8676.     0R1S
  8677. IsMailStationery
  8678.     0S1S2S
  8679. Neues Memo(
  8680.     0S0E
  8681. act_NEWMEMO.GIF|act_NEWMEMO?
  8682. Antwort\Antwort
  8683. Reply
  8684.     0S0E
  8685. act_REPLY.GIF|act_REPLY?
  8686. Antwort\Antwort mit Protokoll
  8687. Antwort mit Protokoll
  8688. Dieses Dokument ist nicht vollst
  8689. ndig.
  8690.     4S8S10S13S
  8691. Reply with history
  8692. act_REPLY.GIF|act_REPLY?
  8693. Antwort\Allen antworten
  8694. MailStEd
  8695.     0S0E
  8696. Reply
  8697. act_REPLY.GIF|act_REPLY?
  8698. Antwort\Allen antworten (mit Protokoll)
  8699. MailStEd
  8700.     0S0E
  8701. Antwort mit Protokoll
  8702. Dieses Dokument ist nicht vollst
  8703. ndig.
  8704.     0R4S8S10S13S
  8705. Reply with history
  8706. act_REPLY.GIF|act_REPLY?
  8707. _Kategorisieren
  8708. Dokument _bearbeiten
  8709. Dokument _senden
  8710. Weiterleiten 
  8711.     0S0E
  8712. ISMAILSTATIONERY
  8713.     1S2S
  8714. act_FORWARD.GIF|act_FORWARD?
  8715. _Weiterleiten
  8716. schen
  8717.     0S0E
  8718. act_DELETE.GIF|act_DELETE?
  8719. Ordner\Ordner erstellen
  8720.     0S0E
  8721. act_FOLDER.GIF|act_FOLDER?
  8722. Ordner\In Ordner verschieben...
  8723.     0S0E
  8724. act_FOLDER.GIF|act_FOLDER?
  8725. Ordner\Aus Ordner entfernen
  8726.     0S0E
  8727. act_FOLDER.GIF|act_FOLDER?
  8728. In Ordner _verschieben...5
  8729. Aus Ordner _entfernen
  8730. Senden
  8731. MEMO_SEND
  8732.     0S0E
  8733. ActionInProgress
  8734. MEMO_SEND
  8735.     0R1S
  8736. PostedDateh
  8737. IsMailStationery
  8738.     5S6S7S8S10S11S12S13S
  8739. act_SEND.GIF|act_SEND?
  8740. Senden\Senden und speichern\'++LotusScript Development Environment:2:5:(Options):0:66
  8741. '++LotusScript Development Environment:2:5:(Forward):0:1
  8742. Declare Sub Click(Source As Button)
  8743. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8744. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8745. Private Sub BindEvents(Byval Objectname_ As String)
  8746.     Static Source As BUTTON
  8747.     Set Source = Bind(Objectname_)
  8748.     On Event Click From Source Call Click
  8749. End Sub
  8750. '++LotusScript Development Environment:2:2:Click:1:12
  8751. Sub Click(Source As Button)
  8752.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  8753.     Call cMemoObject.noteUIMemo.save()
  8754.     Call cMemoObject.noteUIMemo.close()    
  8755. End Sub
  8756. PostedDateh
  8757. IsMailStationery
  8758.     5S6S7S8S12S13S
  8759. Senden und ablegen
  8760. MEMO_SEND_FILE
  8761.     0S0E
  8762. ActionInProgress
  8763. MEMO_SEND_FILE
  8764.     0R1S
  8765. PostedDateh
  8766. IsMailStationery
  8767.     5S6S7S8S12S13S
  8768. act_SENDFILE|act_SENDFILE?
  8769. Speichernl
  8770. MEMO_STATIONERYSAVE
  8771.     0S0E
  8772. ActionInProgress
  8773. MEMO_STATIONERYSAVE
  8774.     0R1S
  8775. IsMailStationery
  8776.     2S3S
  8777. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  8778. Als Entwurf speichernr
  8779. MEMO_DRAFT
  8780.     0S0E
  8781. ActionInProgress
  8782. MEMO_DRAFT
  8783.     0R1S
  8784. PostedDateh
  8785. IsMailStationery
  8786.     5S6S7S8S10S11S12S13S
  8787. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  8788. Allen antworten
  8789. '++LotusScript Development Environment:2:5:(Options):0:66
  8790. '++LotusScript Development Environment:2:5:(Forward):0:1
  8791. Declare Sub Click(Source As Button)
  8792. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8793. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8794. Private Sub BindEvents(Byval Objectname_ As String)
  8795.     Static Source As BUTTON
  8796.     Set Source = Bind(Objectname_)
  8797.     On Event Click From Source Call Click
  8798. End Sub
  8799. '++LotusScript Development Environment:2:2:Click:1:12
  8800. Sub Click(Source As Button)
  8801.     Call cMemoObject.ReplyToAll()
  8802. End Sub
  8803. PostedDateh
  8804. IsMailStationery
  8805.     5S6S7S8S10S11S12S13S
  8806. act_REPLY.GIF|act_REPLY?
  8807. Vorlage umbenennen...
  8808. xxERROR
  8809. Es ist kein Dokument ausgew
  8810.     0S0E
  8811. xxTitle
  8812. Vorlage umbenennen
  8813. xxPrompt
  8814. Bitte geben Sie den neuen Namen f
  8815. r die Vorlage ein.
  8816. xxERROR
  8817. MailStationeryName
  8818. xxTitle
  8819. xxPrompt
  8820. MailStationeryName
  8821.     0RR1S
  8822.     0RS>
  8823. IsMailStationery
  8824.     2S3S4S5S
  8825. act_RENAME.GIF|act_RENAME?
  8826. Adresse...T
  8827. EnterSendTo
  8828. EnterCopyTo
  8829. EnterBlindCopyTo
  8830.     0S0E
  8831. PostedDateh
  8832. IsMailStationery
  8833.     5S6S7S8S10S11S12S13S
  8834. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  8835. Zustelloptionen...
  8836. $KeepPrivate
  8837. $KeepPrivate
  8838. $KeepPrivate
  8839. $KeepPrivate
  8840. DeliveryOptions
  8841. Zustelloptionen
  8842.     0R4S10S
  8843. PostedDateh
  8844.     5S6S7S8S
  8845. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  8846. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  8847. Use "CommonUI"
  8848. '++LotusScript Development Environment:2:5:(Forward):0:1
  8849. Declare Sub Click(Source As Button)
  8850. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8851. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8852. Private Sub BindEvents(Byval Objectname_ As String)
  8853. Static Source As BUTTON
  8854. Set Source = Bind(Objectname_)
  8855. On Event Click From Source Call Click
  8856. End Sub
  8857. '++LotusScript Development Environment:2:2:Click:1:12
  8858. Sub Click(Source As Button)
  8859.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  8860. End Sub
  8861. act_COPYINTO.GIF|act_COPYINTO?
  8862. Kopieren in\Neuen Kalendereintrag
  8863. '++LotusScript Development Environment:2:5:(Options):0:74
  8864. Use "CommonUI"
  8865. '++LotusScript Development Environment:2:5:(Forward):0:1
  8866. Declare Sub Click(Source As Button)
  8867. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8868. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8869. Private Sub BindEvents(Byval Objectname_ As String)
  8870. Static Source As BUTTON
  8871. Set Source = Bind(Objectname_)
  8872. On Event Click From Source Call Click
  8873. End Sub
  8874. '++LotusScript Development Environment:2:2:Click:1:12
  8875. Sub Click(Source As Button)
  8876.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  8877. End Sub
  8878. act_COPYINTO.GIF|act_COPYINTO?
  8879. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  8880. Use "CommonUI"
  8881. '++LotusScript Development Environment:2:5:(Forward):0:1
  8882. Declare Sub Click(Source As Button)
  8883. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8884. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8885. Private Sub BindEvents(Byval Objectname_ As String)
  8886.     Static Source As BUTTON
  8887.     Set Source = Bind(Objectname_)
  8888.     On Event Click From Source Call Click
  8889. End Sub
  8890. '++LotusScript Development Environment:2:2:Click:1:12
  8891. Sub Click(Source As Button)
  8892.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  8893. End Sub
  8894. act_COPYINTO.GIF|act_COPYINTO?
  8895. Werkzeuge\Vorgaben...rR
  8896. DialogMode
  8897. (Preferences)
  8898. act_TOOLS.GIF|act_TOOLS?
  8899. Werkzeuge\Zustellinformationen...
  8900. xxTitle
  8901. Zustellinformationen
  8902.     0S0E
  8903. DeliveryInfo
  8904. xxTitle
  8905.     0RR4S5S6S7S8S9S10S11S12S14S
  8906. act_TOOLS.GIF|act_TOOLS?
  8907. Werkzeuge\Abwesenheit...8
  8908. (EditOfficeProfile)
  8909.     0S0E
  8910. act_TOOLS.GIF|act_TOOLS?
  8911. Werkzeuge\Absender in Adre
  8912. buch aufnehmen0<
  8913. (AddSenderToAddressBook)
  8914.     0S0E
  8915. act_TOOLS.GIF|act_TOOLS?
  8916. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  8917. '++LotusScript Development Environment:2:5:(Forward):0:1
  8918. Declare Sub Click(Source As Button)
  8919. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8920. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8921. Private Sub BindEvents(Byval Objectname_ As String)
  8922.     Static Source As BUTTON
  8923.     Set Source = Bind(Objectname_)
  8924.     On Event Click From Source Call Click
  8925. End Sub
  8926. '++LotusScript Development Environment:2:2:Click:1:12
  8927. Sub Click(Source As Button)
  8928.     Dim session As New notessession
  8929.     Dim uiws As New notesuiworkspace
  8930.     Dim collection As notesdocumentcollection
  8931.     Dim noteUIEditDocument As notesuidocument
  8932.     Dim database As NotesDatabase
  8933.     Set noteCursorDoc = session.currentdatabase.createdocument
  8934.     Set database = session.currentdatabase
  8935.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  8936. hlen", "W
  8937. hlen Sie bitte eine Vorlage f
  8938. r das neue Memo.")
  8939.     Set noteCursorDoc = collection.getfirstdocument
  8940.     If Not noteCursorDoc Is Nothing Then
  8941.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  8942.     End If
  8943. End Sub
  8944. act_TOOLS.GIF|act_TOOLS?
  8945. Werkzeuge\Signatur einf
  8946. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  8947. '++LotusScript Development Environment:2:5:(Forward):0:1
  8948. Declare Sub Click(Source As Button)
  8949. '++LotusScript Development Environment:2:5:(Declarations):0:2
  8950. '++LotusScript Development Environment:2:2:BindEvents:1:129
  8951. Private Sub BindEvents(Byval Objectname_ As String)
  8952.     Static Source As BUTTON
  8953.     Set Source = Bind(Objectname_)
  8954.     On Event Click From Source Call Click
  8955. End Sub
  8956. '++LotusScript Development Environment:2:2:Click:1:12
  8957. Sub Click(Source As Button)
  8958.     Call cMemoObject.InsertSignature(False)
  8959. End Sub
  8960. PostedDateh
  8961.     5S6S7S8S
  8962. act_TOOLS.GIF|act_TOOLS?
  8963. Werkzeuge\Als Vorlage speichern...
  8964. MEMO_ISSTATIONERY
  8965.     0S0E
  8966. MEMO_STATIONERYSAVE
  8967. ActionInProgress
  8968. MEMO_STATIONERYSAVE
  8969.     0R1S
  8970. MergeFlag
  8971. MEMO_ISSTATIONERY
  8972.     0R1S
  8973. PostedDateh
  8974. IsMailStationery
  8975.     5S6S7S8S10S11S12S13S
  8976. act_TOOLS.GIF|act_TOOLS?
  8977. Neues Memo
  8978. qstring
  8979. Query_String
  8980. Query_String
  8981. Query_String
  8982.     1S2S8S11S15S18S
  8983. pathinfo
  8984. Path_Info
  8985. &ClickG
  8986. Path_Info
  8987. &Click_
  8988. Path_Info
  8989.     0R1S2S8S11S15S18S
  8990.     0R1S10S14S16S23S
  8991. qstring
  8992. OpenDocument
  8993. path"
  8994. /Memo?OpenForm&docurl="
  8995. pathinfo"
  8996. path"
  8997. /Memo?OpenForm"
  8998.     0R1S3S13S14S17S
  8999. act_NEW.GIF|act_NEW?
  9000. Weiterleiten
  9001. Format
  9002. CalendarProfile
  9003. FormatReplies
  9004. FormatChar
  9005. CalendarProfile
  9006. OffsetChar
  9007.     0R1S10S14S16S23S
  9008. Format
  9009. path"
  9010. /wForward?OpenForm&ParentUNID="
  9011. Forward
  9012. path"
  9013. /wForward?OpenForm&ParentUNID="
  9014. Forward&Format=
  9015. FormatChar"
  9016.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  9017. act_FORWARD.GIF|act_FORWARD?
  9018. Senden\Senden@`
  9019. tmpSendOptions
  9020. act_SEND.GIF|act_SEND?
  9021. Senden\Senden und speichern
  9022. tmpSendOptions
  9023. act_SEND.GIF|act_SEND?
  9024. Senden\Als Entwurf speichern`
  9025. tmpSendOptions
  9026. act_SEND.GIF|act_SEND?
  9027. Antwort\Antwort
  9028. wReply
  9029.     0S0E
  9030. act_REPLY.GIF|act_REPLY?
  9031. Antwort\Antwort mit Protokoll
  9032.     1S10S14S16S23S
  9033. Format
  9034. CalendarProfile
  9035. FormatReplies
  9036.     0R6S
  9037. FormatChar
  9038. CalendarProfile
  9039. OffsetChar
  9040. Format
  9041. path"
  9042. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  9043. &Format="
  9044. Formatchar"
  9045. Reply With History
  9046.     0R9S10S11S12S13S14S21S23S24S
  9047. act_REPLY.GIF|act_REPLY?
  9048. Antwort\Allen antworten
  9049.     0R1S10S14S16S23S
  9050. path"
  9051. /wReply?OpenForm&xxxxxxUNID="
  9052. &All"
  9053.     0R3S4S5S6S7S8S15S17S18S
  9054. Antwort\Allen antworten (mit Protokoll)1
  9055.     1S10S14S16S23S
  9056. Format
  9057. CalendarProfile
  9058. FormatReplies
  9059.     0R6S
  9060. FormatChar
  9061. CalendarProfile
  9062. OffsetChar
  9063. Format
  9064. path"
  9065. /Reply+With+History?OpenForm&ParentUNID="
  9066. &Format="
  9067. FormatChar"
  9068. &All"
  9069. path"
  9070. /Reply+With+History?OpenForm&ParentUNID="
  9071. &All"
  9072.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  9073. Adresse...
  9074. Appointment
  9075. AppointmentType
  9076. TaskType
  9077. tmpOwner
  9078. Chair
  9079.     20S21S22S
  9080. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  9081. var pathname = (window.location.pathname);
  9082. if (navigator.appVersion.indexOf('X11') != -1)  
  9083.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  9084.     } else 
  9085.     if (navigator.appName =='Netscape') 
  9086.             if (navigator.appVersion.indexOf("Win") != -1)
  9087.                 {
  9088.                 window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  9089.                 } else
  9090.                 {
  9091.                  window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  9092.                 }
  9093.             } else    
  9094.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=750,height=540');
  9095. Zustelloptionen...
  9096. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  9097. var pathname = (window.location.pathname);
  9098. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
  9099. Bearbeiten 
  9100.     0S0E
  9101. act_EDIT.GIF|act_EDIT?
  9102. schen
  9103.     1S10S14S16S23S
  9104.     0R5S
  9105. path"
  9106. /wDelete?OpenAgent&
  9107. UNID"
  9108. &From="
  9109. view"
  9110. tmpWasMailed
  9111.     1S2S
  9112. act_DELETE.GIF|act_DELETE?
  9113. Gehe zu\Eingang 
  9114.     1S2S
  9115. path"
  9116. /MailFS?OpenFrameset"
  9117.     0R3S4S5S6S
  9118. act_goto.gif|act_goto?
  9119. Gehe zu\Kalender
  9120.     1S2S
  9121. path"
  9122. /CalendarFS?OpenFrameset"
  9123.     0R3S4S5S6S
  9124. act_goto.gif|act_goto?
  9125. Gehe zu\Aufgabe
  9126.     1S2S
  9127. path"
  9128. /ToDoFS?OpenFrameset"
  9129.     0R3S4S5S6S
  9130. act_goto.gif|act_goto?
  9131. Gehe zu\Vor
  9132.     0S0E
  9133. act_goto.gif|act_goto?
  9134. Gehe zu\Zur
  9135.     0S0E
  9136. act_goto.gif|act_goto?
  9137. Kopieren in\Neue Aufgabe
  9138.     1S10S14S16S23S
  9139. path"
  9140. /Task?OpenForm&UNID="
  9141. &CopyInto
  9142.     0R3S4S5S6S7S8S15S17S18S
  9143. act_COPYINTO.GIF|act_COPYINTO?
  9144. Kopieren in\Neuen Kalendereintrag
  9145.     1S10S14S16S23S
  9146. path"
  9147. /Appointment?OpenForm&UNID=
  9148. &CopyInto
  9149.     0R3S4S5S6S7S8S15S17S18S
  9150. act_COPYINTO.GIF|act_COPYINTO?
  9151. nderungen verwerfen
  9152. MEMO_CANCEL
  9153. 4194304
  9154.     0S0E
  9155. ActionInProgress
  9156. MEMO_CANCEL
  9157.     0R1S
  9158. IsMailStationery
  9159.     1S2S3S
  9160. Speichern und schlie
  9161. MEMO_DRAFT
  9162.     0S0E
  9163. ActionInProgress
  9164. MEMO_DRAFT
  9165.     0R1S
  9166. PostedDateh
  9167. IsMailStationery
  9168.     7S8S9S10S13S14S15S16S
  9169. Speichern und ablegen0
  9170. MEMO_DRAFT_FILE
  9171.     0S0E
  9172. ActionInProgress
  9173. MEMO_DRAFT_FILE
  9174.     0R1S
  9175. PostedDateh
  9176. IsMailStationery
  9177.     7S8S9S10S13S14S15S16S
  9178. Schlie
  9179. MEMO_CANCEL
  9180. 4194304
  9181.     0S0E
  9182. ActionInProgress
  9183. MEMO_CANCEL
  9184.     0R1S
  9185. IsMailStationery
  9186.     0S1S2S
  9187. Neues Memo(
  9188.     0S0E
  9189. Antwort\Antwort
  9190. Reply
  9191.     0S0E
  9192. Antwort\Antwort mit Protokoll
  9193. Antwort mit Protokoll
  9194. Dieses Dokument ist nicht vollst
  9195. ndig.
  9196.     4S8S10S13S
  9197. Reply with history
  9198. Antwort\Allen antworten
  9199. MailStEd
  9200.     0S0E
  9201. Reply
  9202. Antwort\Allen antworten (mit Protokoll)i
  9203. MailStEd
  9204.     0S0E
  9205. Antwort mit Protokoll
  9206. Dieses Dokument ist nicht vollst
  9207. ndig.
  9208.     0R4S8S10S13S
  9209. Reply with history
  9210. _Kategorisierenr
  9211. Dokument _bearbeiten
  9212. Dokument _senden
  9213. Weiterleiten 
  9214.     0S0E
  9215. ISMAILSTATIONERY
  9216.     1S2S
  9217. _Weiterleiten
  9218. schenk 
  9219.     0S0E
  9220. Ordner\Ordner erstellen
  9221.     0S0E
  9222. Ordner\In Ordner verschieben...
  9223.     0S0E
  9224. Ordner\Aus Ordner entfernenr 
  9225.     0S0E
  9226. In Ordner _verschieben...
  9227. Aus Ordner _entfernen
  9228. Senden
  9229. MEMO_SEND
  9230.     0S0E
  9231. ActionInProgress
  9232. MEMO_SEND
  9233.     0R1S
  9234. PostedDateh
  9235. IsMailStationery
  9236.     5S6S7S8S10S11S12S13S
  9237. Senden\Senden und speichern '++LotusScript Development Environment:2:5:(Options):0:66
  9238. '++LotusScript Development Environment:2:5:(Forward):0:1
  9239. Declare Sub Click(Source As Button)
  9240. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9241. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9242. Private Sub BindEvents(Byval Objectname_ As String)
  9243.     Static Source As BUTTON
  9244.     Set Source = Bind(Objectname_)
  9245.     On Event Click From Source Call Click
  9246. End Sub
  9247. '++LotusScript Development Environment:2:2:Click:1:12
  9248. Sub Click(Source As Button)
  9249.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  9250.     Call cMemoObject.noteUIMemo.save()
  9251.     Call cMemoObject.noteUIMemo.close()    
  9252. End Sub
  9253. PostedDateh
  9254. IsMailStationery
  9255.     5S6S7S8S12S13S
  9256. Senden und ablegen
  9257. MEMO_SEND_FILE
  9258.     0S0E
  9259. ActionInProgress
  9260. MEMO_SEND_FILE
  9261.     0R1S
  9262. PostedDateh
  9263. IsMailStationery
  9264.     5S6S7S8S12S13S
  9265. Speichernc
  9266. MEMO_STATIONERYSAVE
  9267.     0S0E
  9268. ActionInProgress
  9269. MEMO_STATIONERYSAVE
  9270.     0R1S
  9271. IsMailStationery
  9272.     2S3S
  9273. Als Entwurf speichernm
  9274. MEMO_DRAFT
  9275.     0S0E
  9276. ActionInProgress
  9277. MEMO_DRAFT
  9278.     0R1S
  9279. PostedDateh
  9280. IsMailStationery
  9281.     5S6S7S8S10S11S12S13S
  9282. Allen antworten@'++LotusScript Development Environment:2:5:(Options):0:66
  9283. '++LotusScript Development Environment:2:5:(Forward):0:1
  9284. Declare Sub Click(Source As Button)
  9285. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9286. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9287. Private Sub BindEvents(Byval Objectname_ As String)
  9288.     Static Source As BUTTON
  9289.     Set Source = Bind(Objectname_)
  9290.     On Event Click From Source Call Click
  9291. End Sub
  9292. '++LotusScript Development Environment:2:2:Click:1:12
  9293. Sub Click(Source As Button)
  9294.     Call cMemoObject.ReplyToAll()
  9295. End Sub
  9296. PostedDateh
  9297. IsMailStationery
  9298.     5S6S7S8S10S11S12S13S
  9299. Vorlage umbenennen...wx
  9300. xxERROR
  9301. Es ist kein Dokument ausgew
  9302.     0S0E
  9303. xxTitle
  9304. Vorlage umbenennen
  9305. xxPrompt
  9306. Bitte geben Sie den neuen Namen f
  9307. r die Vorlage ein.
  9308. xxERROR
  9309. MailStationeryName
  9310. xxTitle
  9311. xxPrompt
  9312. MailStationeryName
  9313.     0RR1S
  9314.     0RS>
  9315. IsMailStationery
  9316.     2S3S4S5S
  9317. Adresse...T
  9318. EnterSendTo
  9319. EnterCopyTo
  9320. EnterBlindCopyTo
  9321.     0S0E
  9322. PostedDateh
  9323. IsMailStationery
  9324.     5S6S7S8S10S11S12S13S
  9325. Zustelloptionen...
  9326. $KeepPrivate
  9327. $KeepPrivate
  9328. $KeepPrivate
  9329. $KeepPrivate
  9330. DeliveryOptions
  9331. Zustelloptionen
  9332.     0R4S10S
  9333. PostedDateh
  9334.     5S6S7S8S
  9335. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  9336. Use "CommonUI"
  9337. '++LotusScript Development Environment:2:5:(Forward):0:1
  9338. Declare Sub Click(Source As Button)
  9339. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9340. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9341. Private Sub BindEvents(Byval Objectname_ As String)
  9342. Static Source As BUTTON
  9343. Set Source = Bind(Objectname_)
  9344. On Event Click From Source Call Click
  9345. End Sub
  9346. '++LotusScript Development Environment:2:2:Click:1:12
  9347. Sub Click(Source As Button)
  9348.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  9349. End Sub
  9350. Kopieren in\Neuen Kalendereintrag
  9351. '++LotusScript Development Environment:2:5:(Options):0:74
  9352. Use "CommonUI"
  9353. '++LotusScript Development Environment:2:5:(Forward):0:1
  9354. Declare Sub Click(Source As Button)
  9355. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9356. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9357. Private Sub BindEvents(Byval Objectname_ As String)
  9358. Static Source As BUTTON
  9359. Set Source = Bind(Objectname_)
  9360. On Event Click From Source Call Click
  9361. End Sub
  9362. '++LotusScript Development Environment:2:2:Click:1:12
  9363. Sub Click(Source As Button)
  9364.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  9365. End Sub
  9366. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  9367. Use "CommonUI"
  9368. '++LotusScript Development Environment:2:5:(Forward):0:1
  9369. Declare Sub Click(Source As Button)
  9370. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9371. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9372. Private Sub BindEvents(Byval Objectname_ As String)
  9373.     Static Source As BUTTON
  9374.     Set Source = Bind(Objectname_)
  9375.     On Event Click From Source Call Click
  9376. End Sub
  9377. '++LotusScript Development Environment:2:2:Click:1:12
  9378. Sub Click(Source As Button)
  9379.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  9380. End Sub
  9381. Werkzeuge\Vorgaben...ER
  9382. DialogMode
  9383. (Preferences)
  9384. Werkzeuge\Zustellinformationen...i
  9385. xxTitle
  9386. Zustellinformationen
  9387.     0S0E
  9388. DeliveryInfo
  9389. xxTitle
  9390.     0RR4S5S6S7S8S9S10S11S12S14S
  9391. Werkzeuge\Abwesenheit...8
  9392. (EditOfficeProfile)
  9393.     0S0E
  9394. Werkzeuge\Absender in Adre
  9395. buch aufnehmen
  9396. (AddSenderToAddressBook)
  9397.     0S0E
  9398. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  9399. '++LotusScript Development Environment:2:5:(Forward):0:1
  9400. Declare Sub Click(Source As Button)
  9401. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9402. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9403. Private Sub BindEvents(Byval Objectname_ As String)
  9404.     Static Source As BUTTON
  9405.     Set Source = Bind(Objectname_)
  9406.     On Event Click From Source Call Click
  9407. End Sub
  9408. '++LotusScript Development Environment:2:2:Click:1:12
  9409. Sub Click(Source As Button)
  9410.     Dim session As New notessession
  9411.     Dim uiws As New notesuiworkspace
  9412.     Dim collection As notesdocumentcollection
  9413.     Dim noteUIEditDocument As notesuidocument
  9414.     Dim database As NotesDatabase
  9415.     Set noteCursorDoc = session.currentdatabase.createdocument
  9416.     Set database = session.currentdatabase
  9417.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  9418. hlen", "W
  9419. hlen Sie bitte eine Vorlage f
  9420. r das neue Memo.")
  9421.     Set noteCursorDoc = collection.getfirstdocument
  9422.     If Not noteCursorDoc Is Nothing Then
  9423.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  9424.     End If
  9425. End Sub
  9426. Werkzeuge\Signatur einf
  9427. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  9428. '++LotusScript Development Environment:2:5:(Forward):0:1
  9429. Declare Sub Click(Source As Button)
  9430. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9431. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9432. Private Sub BindEvents(Byval Objectname_ As String)
  9433.     Static Source As BUTTON
  9434.     Set Source = Bind(Objectname_)
  9435.     On Event Click From Source Call Click
  9436. End Sub
  9437. '++LotusScript Development Environment:2:2:Click:1:12
  9438. Sub Click(Source As Button)
  9439.     Call cMemoObject.InsertSignature(False)
  9440. End Sub
  9441. PostedDateh
  9442.     5S6S7S8S
  9443. Werkzeuge\Als Vorlage speichern...
  9444. MEMO_ISSTATIONERY
  9445.     0S0E
  9446. MEMO_STATIONERYSAVE
  9447. ActionInProgress
  9448. MEMO_STATIONERYSAVE
  9449.     0R1S
  9450. MergeFlag
  9451. MEMO_ISSTATIONERY
  9452.     0R1S
  9453. PostedDateh
  9454. IsMailStationery
  9455.     5S6S7S8S10S11S12S13S
  9456. Neues Memo
  9457. qstring
  9458. Query_String
  9459. Query_String
  9460. Query_String
  9461.     1S2S8S11S15S18S
  9462. pathinfo
  9463. Path_Info
  9464. &ClickG
  9465. Path_Info
  9466. &Click_
  9467. Path_Info
  9468.     0R1S2S8S11S15S18S
  9469.     0R1S10S14S16S23S
  9470. qstring
  9471. OpenDocument
  9472. path"
  9473. /Memo?OpenForm&docurl="
  9474. pathinfo"
  9475. path"
  9476. /Memo?OpenForm"
  9477.     0R1S3S13S14S17S
  9478. Weiterleiten
  9479. Format
  9480. CalendarProfile
  9481. FormatReplies
  9482. FormatChar
  9483. CalendarProfile
  9484. OffsetChar
  9485.     0R1S10S14S16S23S
  9486. Format
  9487. path"
  9488. /wForward?OpenForm&ParentUNID="
  9489. Forward
  9490. path"
  9491. /wForward?OpenForm&ParentUNID="
  9492. Forward&Format=
  9493. FormatChar"
  9494.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  9495. Senden\Sendenv`
  9496. tmpSendOptions
  9497. Senden\Senden und speichern `
  9498. tmpSendOptions
  9499. Senden\Als Entwurf speichern`
  9500. tmpSendOptions
  9501. Antwort\Antworti*
  9502. wReply
  9503.     0S0E
  9504. Antwort\Antwort mit Protokoll
  9505.     1S10S14S16S23S
  9506. Format
  9507. CalendarProfile
  9508. FormatReplies
  9509.     0R6S
  9510. FormatChar
  9511. CalendarProfile
  9512. OffsetChar
  9513. Format
  9514. path"
  9515. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  9516. &Format="
  9517. Formatchar"
  9518. Reply With History
  9519.     0R9S10S11S12S13S14S21S23S24S
  9520. Antwort\Allen antwortenA
  9521.     0R1S10S14S16S23S
  9522. path"
  9523. /wReply?OpenForm&xxxxxxUNID="
  9524. &All"
  9525.     0R3S4S5S6S7S8S15S17S18S
  9526. Antwort\Allen antworten (mit Protokoll)
  9527.     1S10S14S16S23S
  9528. Format
  9529. CalendarProfile
  9530. FormatReplies
  9531.     0R6S
  9532. FormatChar
  9533. CalendarProfile
  9534. OffsetChar
  9535. Format
  9536. path"
  9537. /Reply+With+History?OpenForm&ParentUNID="
  9538. &Format="
  9539. FormatChar"
  9540. &All"
  9541. path"
  9542. /Reply+With+History?OpenForm&ParentUNID="
  9543. &All"
  9544.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  9545. Bearbeiten 
  9546.     0S0E
  9547. schenw
  9548.     1S10S14S16S23S
  9549.     0R5S
  9550. path"
  9551. /wDelete?OpenAgent&
  9552. UNID"
  9553. &From="
  9554. view"
  9555. tmpWasMailed
  9556.     1S2S
  9557. Gehe zu\Eingang
  9558.     1S2S
  9559. path"
  9560. /MailFS?OpenFrameset"
  9561.     0R3S4S5S6S
  9562. Gehe zu\Kalender
  9563.     1S2S
  9564. path"
  9565. /CalendarFS?OpenFrameset"
  9566.     0R3S4S5S6S
  9567. Gehe zu\Aufgabee
  9568.     1S2S
  9569. path"
  9570. /ToDoFS?OpenFrameset"
  9571.     0R3S4S5S6S
  9572. Gehe zu\Vor
  9573.     0S0E
  9574. Gehe zu\Zur
  9575.     0S0E
  9576. Kopieren in\Neue Aufgabe
  9577.     1S10S14S16S23S
  9578. path"
  9579. /Task?OpenForm&UNID="
  9580. &CopyInto
  9581.     0R3S4S5S6S7S8S15S17S18S
  9582. Kopieren in\Neuen Kalendereintrag
  9583.     1S10S14S16S23S
  9584. path"
  9585. /Appointment?OpenForm&UNID=
  9586. &CopyInto
  9587.     0R3S4S5S6S7S8S15S17S18S
  9588. Lotus Product
  9589. Lotus Product
  9590. OBJECT
  9591. Lotus Product
  9592. OBJECT
  9593. Lotus Product
  9594. OBJECT
  9595. Lotus Product
  9596. OBJECT
  9597. O=Lotus Notes
  9598. O=Lotus Notes
  9599. PURSAFO
  9600. |.:#U
  9601. O=Lotus Notes
  9602. CN=Lotus Notes Template Development/O=Lotus Notes
  9603. PURSAFO
  9604. $Language
  9605. $LastBuildTime
  9606. $BabelInfo
  9607. $BackgroundR5
  9608. $HeaderArea
  9609. $RegionFrameset
  9610. $Info
  9611. $SubForms
  9612. $WINDOWTITLE
  9613. $WEBQuerySave
  9614. $WEBQueryOpen
  9615. $AppHelpFormula
  9616. $WebFlags
  9617. $Script
  9618. $$Script_O
  9619. $$ScriptName
  9620. $$FormScript
  9621. $$$FormScript_O
  9622. $Body
  9623. $V5ACTIONS
  9624. $ACTIONS
  9625. $SCRIPTOBJ_21
  9626. $SCRIPTOBJ_29
  9627. $SCRIPTOBJ_30
  9628. $SCRIPTOBJ_31
  9629. $SCRIPTOBJ_36
  9630. &Arial
  9631. '++LotusScript Development Environment:2:5:(Options):0:74
  9632. '++LotusScript Development Environment:2:5:(Forward):0:1
  9633. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9634. Lotus Product
  9635. (GroupHelper)
  9636.     Gruppenname:
  9637. -Unbenannt-
  9638. GroupNameName der Gruppe, wie er in Ihrem Adre
  9639. buch erscheinen soll
  9640.     Gruppentyp:
  9641. GroupTypeW
  9642. hlen Sie den passenden Gruppentyp.  
  9643. Mehrere Zwecke|0Nur Zugriffskontrolliste|2Nur Mail|1
  9644.     Beschreibung:
  9645. DescriptionBeschreibung oder Zweck der Gruppe.
  9646.     Mitglieder:
  9647. AllAddresses
  9648.     0S0E
  9649. SelectedGroupMembersW
  9650. hlen Sie die Benutzer, die Sie in diese Gruppe aufnehmen m
  9651. chten
  9652. AllAddresses
  9653. AllAddresses"
  9654.     6S8S9S
  9655. O=Lotus Notes
  9656. O=Lotus Notes
  9657. PURSAFO
  9658. |.:#U
  9659. O=Lotus Notes
  9660. CN=Lotus Notes Template Development/O=Lotus Notes
  9661. PURSAFO
  9662.     Y3][!
  9663. $Language
  9664. $LastBuildTime
  9665. $BabelInfo
  9666. $Info
  9667. $Script
  9668. $$Script_O
  9669. $$ScriptName
  9670. $Body
  9671. $HideMailHeader
  9672. BGTableColor
  9673. function setFormattedReplyText(offsetchar) {
  9674. var form = document.forms[0];
  9675. var offset;
  9676. var newtext = new String("");
  9677. var replytext = new String(document.applets.lnaBody.getText("text//html"));
  9678. //Start parsing the string for P and BR
  9679. var regexp = /<P>/g
  9680. newtext = replytext.replace(regexp,'<P>'+offsetchar);
  9681. regexp = /<BR>/g
  9682. newtext = newtext.replace(regexp,'<BR>'+offsetchar)
  9683. document.applets.lnaBody.setText('TEXT/HTML',newtext);
  9684. if ((window.location.href.indexOf('Format'))!=-1)  {
  9685. formatchar=window.location.href.charAt(window.location.href.indexOf('Format')+7);
  9686. if (formatchar=='4')  {
  9687.  offsetchar='>>';
  9688. } else {
  9689. offsetchar='>'
  9690.  setFormattedReplyText(offsetchar);
  9691. HeaderRegion
  9692. BodyRegion
  9693. Neues Memo
  9694. Subject
  9695. Subject
  9696. Subject
  9697.     4S6S12S13S14S15S17S21S23S25S26S28S
  9698. wMemo
  9699. returnreceipt
  9700. wMemoOpen
  9701. Query_string
  9702. forward
  9703. wMemoOpen
  9704. Query_string
  9705. wMemoOpen
  9706. Query_string
  9707. FormatG
  9708. wMemoOpen
  9709.     13R24S52SD
  9710. (Help)
  9711. MAIL_F_MEMO
  9712.     0S0E
  9713. &Arial
  9714. FComic Sans MS
  9715. '++LotusScript Development Environment:2:5:(Options):0:74
  9716. Option Public
  9717. Option Explicit
  9718. Use "CoreEmailClasses"
  9719. '++LotusScript Development Environment:2:5:(Forward):0:1
  9720. '++LotusScript Development Environment:2:5:(Declarations):0:10
  9721. Dim cMemoObject As Variant 
  9722. Lotus Product
  9723.  Reply'++LotusScript Development Environment:2:5:(Options):0:66
  9724. '++LotusScript Development Environment:2:5:(Forward):0:1
  9725. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  9726. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9727. Declare Sub Postmodechange(Source As Notesuidocument)
  9728. Declare Sub Postopen(Source As Notesuidocument)
  9729. Declare Sub Postsave(Source As Notesuidocument)
  9730. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9731. Declare Sub Postrecalc(Source As Notesuidocument)
  9732. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  9733. Declare Sub Click(Source As Button)
  9734. '++LotusScript Development Environment:2:5:(Declarations):0:2
  9735. '++LotusScript Development Environment:2:2:BindEvents:1:129
  9736. Private Sub BindEvents(Byval Objectname_ As String)
  9737.     Static Source As NOTESUIDOCUMENT
  9738.     Set Source = Bind(Objectname_)
  9739.     On Event Queryopen From Source Call Queryopen
  9740.     On Event Querysave From Source Call Querysave
  9741.     On Event Postmodechange From Source Call Postmodechange
  9742.     On Event Postopen From Source Call Postopen
  9743.     On Event Postsave From Source Call Postsave
  9744.     On Event Queryclose From Source Call Queryclose
  9745.     On Event Postrecalc From Source Call Postrecalc
  9746.     On Event Querymodechange From Source Call Querymodechange
  9747. End Sub
  9748. '++LotusScript Development Environment:2:2:Queryopen:1:12
  9749. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  9750.     Set cMemoObject = New UIMemoDocument         
  9751.     Call cMemoObject.Init(Source,Isnewdoc)  
  9752. End Sub
  9753. '++LotusScript Development Environment:2:2:Querysave:1:12
  9754. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  9755.     Call cMemoObject.QuerySave(Continue)
  9756. End Sub
  9757. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  9758. Sub Postmodechange(Source As Notesuidocument)
  9759.     Call cMemoObject.PostModeChange()    
  9760. End Sub
  9761. '++LotusScript Development Environment:2:2:Postopen:1:12
  9762. Sub Postopen(Source As Notesuidocument)
  9763.     Call cMemoObject.PostOpen(Source)    
  9764. End Sub
  9765. '++LotusScript Development Environment:2:2:Postsave:1:12
  9766. Sub Postsave(Source As Notesuidocument)
  9767.     Call cMemoObject.PostSave()
  9768. End Sub
  9769. '++LotusScript Development Environment:2:2:Queryclose:1:12
  9770. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  9771.     Call cMemoObject.QueryClose(Continue)
  9772. End Sub
  9773. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  9774. Sub Postrecalc(Source As Notesuidocument)
  9775. End Sub
  9776. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  9777. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  9778.     Continue = cMemoObject.QueryModeChange(Source)
  9779. End Sub
  9780. '++LotusScript Development Environment:2:2:Click:1:8
  9781. Sub Click(Source As Button)
  9782.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  9783.     Call cMemoObject.noteUIMemo.save()
  9784.     Call cMemoObject.noteUIMemo.close()
  9785. End Sub
  9786. Lotus Product
  9787.     Always hidden:
  9788. $AltNameLanguageTags
  9789. $AltNameLanguageTags
  9790. $StorageTo
  9791. $StorageCc
  9792.     1S2S
  9793. $StorageCc
  9794. NoteHasNativeMime
  9795.     1RT2RT7RTT9RT10RT$StorageTo
  9796. $StorageBcc
  9797. $StorageBcc
  9798. InetSendTo
  9799. InetCopyTo
  9800.     1S2S
  9801. InetCopyTo
  9802. InetFrom
  9803. InetSendTo
  9804. AltSendTo
  9805. AltCopyTo
  9806.     1S2S
  9807. AltCopyTo
  9808. InetBlindCopyTo
  9809. InetBlindCopyTo
  9810.     0S0E
  9811. NamePreferencez
  9812. NamePreference
  9813.     0S0E
  9814. LanguagePreference
  9815. Notes
  9816. PostedDateh
  9817. SendTo
  9818. CopyTo
  9819. InheritedSendTo
  9820. SendTo
  9821. CopyTo
  9822.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
  9823. InheritedSendTo
  9824. InheritedSendTo
  9825. Notes
  9826. PostedDateh
  9827. NamePreference
  9828. AltSendTo
  9829. AltSendTo
  9830. AltCopyTo
  9831. SendTo
  9832. CopyTo
  9833. InheritedAltSendTo
  9834. SendTo
  9835. CopyTo
  9836.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53RInheritedAltSendToz
  9837. InheritedSendTo_1
  9838. Notes
  9839. PostedDateh
  9840. ReplyTo
  9841. ReplyTo
  9842.     1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
  9843. InheritedReplyToz
  9844. InheritedReplyTo
  9845. Principal
  9846. Principal
  9847. Principal
  9848. Fromh
  9849.     1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
  9850. FromDomainh
  9851. FromDomain"
  9852.     0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
  9853. InheritedFrom
  9854. AltPrincipalh
  9855. AltPrincipal
  9856. AltPrincipal
  9857. AltFrom
  9858. AltFrom
  9859.     1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
  9860. FromDomainh
  9861. FromDomain"
  9862.     0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
  9863. InheritedFrom_1
  9864. Notes
  9865. PostedDateh
  9866. FromDomain
  9867. InheritedFromDomain
  9868. FromDomain
  9869.     9S10S12S13SInheritedFromDomain
  9870. InheritedFromDomain
  9871. Principal
  9872. CalendarProfile
  9873. Owner
  9874.     1S2S3S7S
  9875. FromPerson memo is from.z
  9876. AltFrom
  9877.     10SAltFrom
  9878. CalendarProfile
  9879. DefaultLogo
  9880. stdNotesLtr0
  9881. CalendarProfile
  9882. DefaultLogo
  9883. StdNotesLtrGateway
  9884.     4S13S24R25S29S32S34S
  9885. Logoz
  9886. BG_IMAGE_PREFIX
  9887.     0S0E
  9888. StdNotesLtr0
  9889.     0RR1RT2RT3S4S6RTT13RT14RT
  9890. Image
  9891. StdNotesLtr
  9892. Image
  9893. Gateway
  9894. BG_IMAGE_PREFIX
  9895. Image
  9896. Image
  9897.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  9898. Image
  9899. BG_IMAGE_PREFIX
  9900. Image
  9901. BG_IMAGE_PREFIX
  9902. Image
  9903. BG_IMAGE_PREFIX
  9904. Image
  9905. BG_IMAGE_PREFIX
  9906. Image
  9907. BG_IMAGE_PREFIX
  9908. BG_IMAGE_PREFIX
  9909.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  9910. Principal
  9911. Principal
  9912. Principal
  9913. NamePreference
  9914. AltFrom
  9915. $LangFrom
  9916. LanguagePreferencet
  9917. AltFrom
  9918.     1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
  9919.     0RR1S2S8S
  9920.     0R1S2S5S6S8S14S18S
  9921.     0R1S2S5S6S8S14S18S
  9922. SentBy
  9923. X400FreeForm^
  9924.     0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  9925. SentBy
  9926. FromDomain
  9927. FromDomain
  9928. FromDomain
  9929. FromDomain
  9930.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  9931. FromName
  9932. Principal
  9933. Principal
  9934. Principal
  9935.     0RR1S2S10S11S16S18S
  9936. FromStops
  9937. Principal
  9938. Principal
  9939. Principal
  9940.     0RR1S2S10S11S16S18S21S
  9941. FromName
  9942. FromStops
  9943. FromStops
  9944. FromStops
  9945.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  9946. tmpDisplayFrom_Preview
  9947.     0S0E
  9948. Signz
  9949.     0S0E
  9950. Encrypt
  9951. Encrypt
  9952. $KeepPrivate
  9953. $KeepPrivate
  9954. $KeepPrivate
  9955.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  9956.     0S0E
  9957. DefaultMailSaveOptionsz
  9958. DefaultMailSaveOptions
  9959. .,$,  , :
  9960. Path_Info_DEcoded
  9961. Path_Info
  9962. .,$,  , :
  9963. Query_String_Decoded
  9964. Query_String
  9965. (WebSpecificFields)
  9966.     0S0E
  9967.     Von:
  9968. tmpDisplayFrom_Preview
  9969. tmpDisplayFrom_NoLogo
  9970. tmpDisplayFrom_NoLogo
  9971. NamesList
  9972. NamePreference
  9973. AltSendTo
  9974. $NameLanguageTags
  9975. LanguagePreferencet
  9976. AltSendTo
  9977. SendTo
  9978.     11S12S15S16S20S
  9979. ImplodedNamesList
  9980. NamesList
  9981. ImplodedNamesList
  9982. ImplodedNamesList
  9983. ImplodedNamesList
  9984. tmpDisplaySendTo
  9985.     Thema:
  9986. Subject
  9987. Subject
  9988. Subject
  9989.     0S0E
  9990. TmpDisplaySubject_1
  9991.     Kopie:
  9992. CC_Content
  9993. NamePreference
  9994. AltCopyTo
  9995. $NameLanguageTags
  9996. LanguagePreferencet
  9997. AltCopyTo
  9998. CopyTo
  9999.     7S8S9S11S12S16S
  10000. BCC_Content
  10001. DeliveredDate
  10002. BlindCopyTo
  10003.  (Blindkopie: 
  10004. BlindCopyTo
  10005.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  10006. NamesList
  10007. CC_Content
  10008. BCC_Content
  10009.     0R9S10S
  10010. ImplodedNamesList
  10011. NamesList
  10012. ImplodedNamesList
  10013. ImplodedNamesList
  10014. ImplodedNamesList
  10015. tmpDisplayCC
  10016. V5DOTBL=true
  10017. MailAddress
  10018. InheritedReplyTo
  10019. InheritedReplyTo
  10020. InheritedFrom
  10021. NamePreference
  10022. AltSendTo
  10023. AltSendTo
  10024. SendTo
  10025.     1S2S22S2E23S24S25S
  10026. MailAddress
  10027. SendToz
  10028. SIZE=80
  10029.     Kopie:
  10030. CopyTo
  10031. InheritedSendTo
  10032.     1RT2RT5RTT7RT8RTT9RTT10S11S13RTTT15RTT16RTT17RTCopyToz
  10033. SIZE=80
  10034.     Blindkopie:
  10035. BlindCopyTo
  10036.     0S0E
  10037. BlindCopyTo
  10038. SIZE=80
  10039.     Thema:
  10040. Subject
  10041. Topic
  10042. Subject
  10043.     1S2S3RTTTT5S6S8RTTTTT10RTTTT11RTTTT
  10044. ANTWORT
  10045. Antwort: 
  10046. Subj"
  10047.     0R1RT10S12S16S17S19RTT21RT22S23S24RT
  10048. WebSubjectz
  10049. SIZE=80
  10050. tmpDisplayFrom_Preview
  10051. DisplayFrom_Preview
  10052. DisplayFrom_Preview_1
  10053. $HideMailHeader
  10054. Principal
  10055. Principal
  10056. Principal
  10057. Principal
  10058. Principal
  10059.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
  10060.     Gesendet von: 
  10061. FromDomain
  10062. FromDomain
  10063. FromDomain
  10064. FromDomain
  10065.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  10066. FromName
  10067.     0RR1S2S6S
  10068. FromStops
  10069.     0R1S2S6S
  10070. FromName
  10071. FromStops
  10072. FromStops
  10073. FromStops
  10074.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  10075. tmpDisplaySentBy_1
  10076. PostedDateh
  10077. PostedDate
  10078.     4S5S10S12S
  10079. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  10080. tmpDisplayDate_Preview_1
  10081. ReplyDate
  10082. ReplyTo
  10083. $HideMailHeader
  10084.     2S3S4S5S6S7S9S10S14S15R
  10085. Bitte antworten
  10086. ReplyTo
  10087. ReplyTo
  10088. ReplyDate
  10089.  bis 
  10090. ReplyDate
  10091.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  10092. tmpDisplayReplyInfo_1
  10093.     <font size=-1>
  10094.     </font>
  10095. V5DOTBL=true
  10096. $HideMailHeader
  10097.     0S0E
  10098. tmpDisplayFrom_Preview
  10099. DisplayFrom
  10100. DisplayFrom_Pre
  10101. $HideMailHeader
  10102. Principal
  10103. Principal
  10104. Principal
  10105. Principal
  10106. Principal
  10107.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  10108.     Gesendet von: 
  10109. FromDomain
  10110. FromDomain
  10111. FromDomain
  10112. FromDomain
  10113.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  10114. FromName
  10115.     0RR1S2S6S
  10116. FromStops
  10117.     0R1S2S6S
  10118. FromName
  10119. FromStops
  10120. FromStops
  10121. FromStops
  10122.     0RR1S2S3S4S10S13S17S20SDisplaySent
  10123. tmpDisplaySent
  10124. PostedDateh
  10125. PostedDate
  10126.     4S5S10S12S
  10127. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  10128. tmpDisplayDate_Pre
  10129. Bitte antworten
  10130. ReplyTo
  10131. ReplyTo
  10132. ReplyDate
  10133.  bis 
  10134. ReplyDate
  10135.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  10136. tmpDisplayReply
  10137. $HideMailHeader
  10138. StdNotesLtr16
  10139.     7S9S10S11S13S15S
  10140.         An:    
  10141. MailAddress
  10142. InheritedReplyTo
  10143. InheritedReplyTo
  10144. NamePreference
  10145. InheritedAltFrom
  10146. InheritedAltFrom
  10147. InheritedFrom
  10148. NamePreference
  10149. AltSendTo
  10150. $NameLanguageTags
  10151. LanguagePreferencet
  10152. AltSendTo
  10153. SendTo
  10154.     1S2RT3RTT6RTTT7RTTTT12RTTTTT14RTTT15RTTTT19S20S21S22S24RTTTTT26RTTTT27RTTTT28RTT30RT31RTT35S2E36S37S38S39S40S44S47RTTT49RT50RT51R
  10155. MailAddress
  10156. EnterSendTo
  10157.     0S0E
  10158. EnterSendToListe der Personen, an die das Memo (Original) gesendet werden soll
  10159.         Kopie:    
  10160. NamePreference
  10161. AltCopyTo
  10162. $NameLanguageTags
  10163. LanguagePreferencet
  10164. AltCopyTo
  10165. CopyTo
  10166.     1RT5RTT10S11S12S14S15S19S22RTTT24RTT25RTT27RT28RT&
  10167. EnterCopyTo
  10168.     0S0E
  10169. EnterCopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  10170.         Kopie:    
  10171. CC_Content
  10172. NamePreference
  10173. AltCopyTo
  10174. $NameLanguageTags
  10175. LanguagePreferencet
  10176. AltCopyTo
  10177. CopyTo
  10178.     2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
  10179. BCC_Content
  10180. DeliveredDate
  10181. BlindCopyTo
  10182.  (Blindkopie: 
  10183. BlindCopyTo
  10184.     0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
  10185. CC_Content
  10186. BCC_Content
  10187.     0RR3S4StmpEnterCopyTo
  10188.         Blindkopie:    
  10189. NamePreference
  10190. AltBlindCopyTo
  10191. $NameLanguageTags
  10192. LanguagePreferencet
  10193. AltBlindCopyTo
  10194. BlindCopyTo
  10195.     1RT5RTT6RTTT10S11S12S14S15S19S22RTTTT24RTTT27RT28RT*
  10196. EnterBlindCopyTo}
  10197.     0S0E
  10198. EnterBlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.
  10199. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  10200.         Thema:    
  10201. SIZE=50
  10202. Subject
  10203. Topic
  10204. Subject
  10205.     1S2S5S6S8S10S
  10206. ANTWORT
  10207. Antwort: 
  10208. Subj"
  10209.     0R10S12S16S17S19S21S22S23S
  10210. SubjectThema des Memos.
  10211.         Thema:    
  10212. Subject
  10213. tmpDisplaySubject
  10214. $HideMailHeader
  10215. tmpDisplayLink
  10216. ISMAILSTATIONERYh
  10217.     0S0E
  10218. ReplyDate
  10219. ReplyDate
  10220. ReplyDate
  10221. Importanceh
  10222. Importance
  10223. Importance
  10224. Importance(
  10225. DeliveryReporth
  10226. DeliveryReport
  10227. DeliveryReport
  10228. DeliveryReport(
  10229. DeliveryPriorityh
  10230. DeliveryPriority
  10231. DeliveryPriority
  10232. DeliveryPriority(
  10233. UpdateProfileNote
  10234. UpdateProfileNote
  10235. UpdateProfileNote
  10236. ReturnReceipt
  10237. ReturnReceipt
  10238. ReturnReceipt
  10239. $KeepPrivateh
  10240. $KeepPrivate
  10241. $KeepPrivate(
  10242. ExpireDateh
  10243. ExpireDate
  10244. ExpireDate(
  10245. ReplyTo
  10246. ReplyTo
  10247. ReplyTo
  10248. MimeFormath
  10249. MimeFormat
  10250. MimeFormat
  10251. MimeFormat(
  10252. SMTPEncodingh
  10253. SMTPEncoding
  10254. SMTPEncoding
  10255. SMTPEncoding(
  10256. MIMEMailCharset
  10257. MIMEMailCharset
  10258. MIMEMailCharset
  10259. MIMEMailCharset
  10260. $AutoSpellh
  10261. $AutoSpell
  10262. $AutoSpell(
  10263. WebSubjecth
  10264. WebSubject(
  10265. tmpSenderTagh
  10266. tmpSenderTag
  10267. tmpSenderTag
  10268. tmpSenderTag(
  10269.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
  10270. $HideMailHeader
  10271. Moods
  10272. PostedDate
  10273. SenderTag
  10274. Moods
  10275.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  10276. BodyText der Nachrichtz
  10277. nderungen verwerfen
  10278. MEMO_CANCEL
  10279. 4194304
  10280.     0S0E
  10281. ActionInProgress
  10282. MEMO_CANCEL
  10283.     0R1S
  10284. IsMailStationery
  10285.     1S2S3S
  10286. Speichern und schlie
  10287. MEMO_DRAFT
  10288.     0S0E
  10289. ActionInProgress
  10290. MEMO_DRAFT
  10291.     0R1S
  10292. PostedDateh
  10293. IsMailStationery
  10294.     7S8S9S10S13S14S15S16S
  10295. act_save.GIF|act_CSSAVE?
  10296. Speichern und ablegen
  10297. MEMO_DRAFT_FILE
  10298.     0S0E
  10299. ActionInProgress
  10300. MEMO_DRAFT_FILE
  10301.     0R1S
  10302. PostedDateh
  10303. IsMailStationery
  10304.     7S8S9S10S13S14S15S16S
  10305. act_FOLDER.GIF|act_FOLDER?
  10306. Schlie
  10307. MEMO_CANCEL
  10308. 4194304
  10309.     0S0E
  10310. ActionInProgress
  10311. MEMO_CANCEL
  10312.     0R1S
  10313. IsMailStationery
  10314.     0S1S2S
  10315. Neues Memo(
  10316.     0S0E
  10317. act_NEWMEMO.GIF|act_NEWMEMO?
  10318. Antwort\Antwort
  10319. Reply
  10320.     0S0E
  10321. act_REPLY.GIF|act_REPLY?
  10322. Antwort\Antwort mit Protokoll
  10323. Antwort mit Protokoll
  10324. Dieses Dokument ist nicht vollst
  10325. ndig.
  10326.     4S8S10S13S
  10327. Reply with history
  10328. act_REPLY.GIF|act_REPLY?
  10329. Antwort\Allen antworten
  10330. MailStEd
  10331.     0S0E
  10332. Reply
  10333. act_REPLY.GIF|act_REPLY?
  10334. Antwort\Allen antworten (mit Protokoll)i
  10335. MailStEd
  10336.     0S0E
  10337. Antwort mit Protokoll
  10338. Dieses Dokument ist nicht vollst
  10339. ndig.
  10340.     0R4S8S10S13S
  10341. Reply with history
  10342. act_REPLY.GIF|act_REPLY?
  10343. _Kategorisierent
  10344. Dokument _bearbeiten
  10345. Dokument _senden
  10346. Weiterleiten 
  10347.     0S0E
  10348. ISMAILSTATIONERY
  10349.     1S2S
  10350. act_FORWARD.GIF|act_FORWARD?
  10351. _Weiterleiten
  10352. schen
  10353.     0S0E
  10354. act_DELETE.GIF|act_DELETE?
  10355. Ordner\Ordner erstellenn 
  10356.     0S0E
  10357. act_FOLDER.GIF|act_FOLDER?
  10358. Ordner\In Ordner verschieben...
  10359.     0S0E
  10360. act_FOLDER.GIF|act_FOLDER?
  10361. Ordner\Aus Ordner entfernen
  10362.     0S0E
  10363. act_FOLDER.GIF|act_FOLDER?
  10364. In Ordner _verschieben...
  10365. Aus Ordner _entfernena
  10366. Senden
  10367. MEMO_SEND
  10368.     0S0E
  10369. ActionInProgress
  10370. MEMO_SEND
  10371.     0R1S
  10372. PostedDateh
  10373. IsMailStationery
  10374.     5S6S7S8S10S11S12S13S
  10375. act_SEND.GIF|act_SEND?
  10376. Senden\Senden und speichern
  10377. '++LotusScript Development Environment:2:5:(Options):0:66
  10378. '++LotusScript Development Environment:2:5:(Forward):0:1
  10379. Declare Sub Click(Source As Button)
  10380. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10381. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10382. Private Sub BindEvents(Byval Objectname_ As String)
  10383.     Static Source As BUTTON
  10384.     Set Source = Bind(Objectname_)
  10385.     On Event Click From Source Call Click
  10386. End Sub
  10387. '++LotusScript Development Environment:2:2:Click:1:12
  10388. Sub Click(Source As Button)
  10389.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  10390.     Call cMemoObject.noteUIMemo.save()
  10391.     Call cMemoObject.noteUIMemo.close()    
  10392. End Sub
  10393. PostedDateh
  10394. IsMailStationery
  10395.     5S6S7S8S12S13S
  10396. Senden und ablegen
  10397. MEMO_SEND_FILE
  10398.     0S0E
  10399. ActionInProgress
  10400. MEMO_SEND_FILE
  10401.     0R1S
  10402. PostedDateh
  10403. IsMailStationery
  10404.     5S6S7S8S12S13S
  10405. act_SENDFILE|act_SENDFILE?
  10406. Speichern
  10407. MEMO_STATIONERYSAVE
  10408.     0S0E
  10409. ActionInProgress
  10410. MEMO_STATIONERYSAVE
  10411.     0R1S
  10412. IsMailStationery
  10413.     2S3S
  10414. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  10415. Als Entwurf speichern
  10416. MEMO_DRAFT
  10417.     0S0E
  10418. ActionInProgress
  10419. MEMO_DRAFT
  10420.     0R1S
  10421. PostedDateh
  10422. IsMailStationery
  10423.     5S6S7S8S10S11S12S13S
  10424. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  10425. Allen antworten
  10426. '++LotusScript Development Environment:2:5:(Options):0:66
  10427. '++LotusScript Development Environment:2:5:(Forward):0:1
  10428. Declare Sub Click(Source As Button)
  10429. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10430. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10431. Private Sub BindEvents(Byval Objectname_ As String)
  10432.     Static Source As BUTTON
  10433.     Set Source = Bind(Objectname_)
  10434.     On Event Click From Source Call Click
  10435. End Sub
  10436. '++LotusScript Development Environment:2:2:Click:1:12
  10437. Sub Click(Source As Button)
  10438.     Call cMemoObject.ReplyToAll()
  10439. End Sub
  10440. PostedDateh
  10441. IsMailStationery
  10442.     5S6S7S8S10S11S12S13S
  10443. act_REPLY.GIF|act_REPLY?
  10444. Vorlage umbenennen...
  10445. xxERROR
  10446. Es ist kein Dokument ausgew
  10447.     0S0E
  10448. xxTitle
  10449. Vorlage umbenennen
  10450. xxPrompt
  10451. Bitte geben Sie den neuen Namen f
  10452. r die Vorlage ein.
  10453. xxERROR
  10454. MailStationeryName
  10455. xxTitle
  10456. xxPrompt
  10457. MailStationeryName
  10458.     0RR1S
  10459.     0RS>
  10460. IsMailStationery
  10461.     2S3S4S5S
  10462. act_RENAME.GIF|act_RENAME?
  10463. Adresse...T
  10464. EnterSendTo
  10465. EnterCopyTo
  10466. EnterBlindCopyTo
  10467.     0S0E
  10468. PostedDateh
  10469. IsMailStationery
  10470.     5S6S7S8S10S11S12S13S
  10471. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  10472. Zustelloptionen...
  10473. $KeepPrivate
  10474. $KeepPrivate
  10475. $KeepPrivate
  10476. $KeepPrivate
  10477. DeliveryOptions
  10478. Zustelloptionen
  10479.     0R4S10S
  10480. PostedDateh
  10481.     5S6S7S8S
  10482. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  10483. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  10484. Use "CommonUI"
  10485. '++LotusScript Development Environment:2:5:(Forward):0:1
  10486. Declare Sub Click(Source As Button)
  10487. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10488. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10489. Private Sub BindEvents(Byval Objectname_ As String)
  10490. Static Source As BUTTON
  10491. Set Source = Bind(Objectname_)
  10492. On Event Click From Source Call Click
  10493. End Sub
  10494. '++LotusScript Development Environment:2:2:Click:1:12
  10495. Sub Click(Source As Button)
  10496.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  10497. End Sub
  10498. act_COPYINTO.GIF|act_COPYINTO?
  10499. Kopieren in\Neuen Kalendereintrag0'++LotusScript Development Environment:2:5:(Options):0:74
  10500. Use "CommonUI"
  10501. '++LotusScript Development Environment:2:5:(Forward):0:1
  10502. Declare Sub Click(Source As Button)
  10503. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10504. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10505. Private Sub BindEvents(Byval Objectname_ As String)
  10506. Static Source As BUTTON
  10507. Set Source = Bind(Objectname_)
  10508. On Event Click From Source Call Click
  10509. End Sub
  10510. '++LotusScript Development Environment:2:2:Click:1:12
  10511. Sub Click(Source As Button)
  10512.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  10513. End Sub
  10514. act_COPYINTO.GIF|act_COPYINTO?
  10515. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  10516. Use "CommonUI"
  10517. '++LotusScript Development Environment:2:5:(Forward):0:1
  10518. Declare Sub Click(Source As Button)
  10519. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10520. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10521. Private Sub BindEvents(Byval Objectname_ As String)
  10522.     Static Source As BUTTON
  10523.     Set Source = Bind(Objectname_)
  10524.     On Event Click From Source Call Click
  10525. End Sub
  10526. '++LotusScript Development Environment:2:2:Click:1:12
  10527. Sub Click(Source As Button)
  10528.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  10529. End Sub
  10530. act_COPYINTO.GIF|act_COPYINTO?
  10531. Werkzeuge\Vorgaben...
  10532. DialogMode
  10533. (Preferences)
  10534. act_TOOLS.GIF|act_TOOLS?
  10535. Werkzeuge\Zustellinformationen... 
  10536. xxTitle
  10537. Zustellinformationen
  10538.     0S0E
  10539. DeliveryInfo
  10540. xxTitle
  10541.     0RR4S5S6S7S8S9S10S11S12S14S
  10542. act_TOOLS.GIF|act_TOOLS?
  10543. Werkzeuge\Abwesenheit...8
  10544. (EditOfficeProfile)
  10545.     0S0E
  10546. act_TOOLS.GIF|act_TOOLS?
  10547. Werkzeuge\Absender in Adre
  10548. buch aufnehmen
  10549. (AddSenderToAddressBook)
  10550.     0S0E
  10551. act_TOOLS.GIF|act_TOOLS?
  10552. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  10553. '++LotusScript Development Environment:2:5:(Forward):0:1
  10554. Declare Sub Click(Source As Button)
  10555. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10556. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10557. Private Sub BindEvents(Byval Objectname_ As String)
  10558.     Static Source As BUTTON
  10559.     Set Source = Bind(Objectname_)
  10560.     On Event Click From Source Call Click
  10561. End Sub
  10562. '++LotusScript Development Environment:2:2:Click:1:12
  10563. Sub Click(Source As Button)
  10564.     Dim session As New notessession
  10565.     Dim uiws As New notesuiworkspace
  10566.     Dim collection As notesdocumentcollection
  10567.     Dim noteUIEditDocument As notesuidocument
  10568.     Dim database As NotesDatabase
  10569.     Set noteCursorDoc = session.currentdatabase.createdocument
  10570.     Set database = session.currentdatabase
  10571.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  10572. hlen", "W
  10573. hlen Sie bitte eine Vorlage f
  10574. r das neue Memo.")
  10575.     Set noteCursorDoc = collection.getfirstdocument
  10576.     If Not noteCursorDoc Is Nothing Then
  10577.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  10578.     End If
  10579. End Sub
  10580. act_TOOLS.GIF|act_TOOLS?
  10581. Werkzeuge\Signatur einf
  10582. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  10583. '++LotusScript Development Environment:2:5:(Forward):0:1
  10584. Declare Sub Click(Source As Button)
  10585. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10586. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10587. Private Sub BindEvents(Byval Objectname_ As String)
  10588.     Static Source As BUTTON
  10589.     Set Source = Bind(Objectname_)
  10590.     On Event Click From Source Call Click
  10591. End Sub
  10592. '++LotusScript Development Environment:2:2:Click:1:12
  10593. Sub Click(Source As Button)
  10594.     Call cMemoObject.InsertSignature(False)
  10595. End Sub
  10596. PostedDateh
  10597.     5S6S7S8S
  10598. act_TOOLS.GIF|act_TOOLS?
  10599. Werkzeuge\Als Vorlage speichern...
  10600. MEMO_ISSTATIONERY
  10601.     0S0E
  10602. MEMO_STATIONERYSAVE
  10603. ActionInProgress
  10604. MEMO_STATIONERYSAVE
  10605.     0R1S
  10606. MergeFlag
  10607. MEMO_ISSTATIONERY
  10608.     0R1S
  10609. PostedDateh
  10610. IsMailStationery
  10611.     5S6S7S8S10S11S12S13S
  10612. act_TOOLS.GIF|act_TOOLS?
  10613. Neues Memo
  10614. qstring
  10615. Query_String
  10616. Query_String
  10617. Query_String
  10618.     1S2S8S11S15S18S
  10619. pathinfo
  10620. Path_Info
  10621. &ClickG
  10622. Path_Info
  10623. &Click_
  10624. Path_Info
  10625.     0R1S2S8S11S15S18S
  10626.     0R1S10S14S16S23S
  10627. qstring
  10628. OpenDocument
  10629. path"
  10630. /Memo?OpenForm&docurl="
  10631. pathinfo"
  10632. path"
  10633. /Memo?OpenForm"
  10634.     0R1S3S13S14S17S
  10635. act_NEW.GIF|act_NEW?
  10636. Weiterleiten
  10637. Format
  10638. CalendarProfile
  10639. FormatReplies
  10640. FormatChar
  10641. CalendarProfile
  10642. OffsetChar
  10643.     0R1S10S14S16S23S
  10644. Format
  10645. path"
  10646. /wForward?OpenForm&ParentUNID="
  10647. Forward
  10648. path"
  10649. /wForward?OpenForm&ParentUNID="
  10650. Forward&Format=
  10651. FormatChar"
  10652.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  10653. act_FORWARD.GIF|act_FORWARD?
  10654. Senden\Senden
  10655. tmpSendOptions
  10656. act_SEND.GIF|act_SEND?
  10657. Senden\Senden und speichern2`
  10658. tmpSendOptions
  10659. act_SEND.GIF|act_SEND?
  10660. Senden\Als Entwurf speichern`
  10661. tmpSendOptions
  10662. act_SEND.GIF|act_SEND?
  10663. Antwort\Antwortu*
  10664. wReply
  10665.     0S0E
  10666. act_REPLY.GIF|act_REPLY?
  10667. Antwort\Antwort mit Protokoll
  10668.     1S10S14S16S23S
  10669. Format
  10670. CalendarProfile
  10671. FormatReplies
  10672.     0R6S
  10673. FormatChar
  10674. CalendarProfile
  10675. OffsetChar
  10676. Format
  10677. path"
  10678. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  10679. &Format="
  10680. Formatchar"
  10681. Reply With History
  10682.     0R9S10S11S12S13S14S21S23S24S
  10683. act_REPLY.GIF|act_REPLY?
  10684. Antwort\Allen antwortent
  10685.     0R1S10S14S16S23S
  10686. path"
  10687. /wReply?OpenForm&xxxxxxUNID="
  10688. &All"
  10689.     0R3S4S5S6S7S8S15S17S18S
  10690. Antwort\Allen antworten (mit Protokoll)c
  10691.     1S10S14S16S23S
  10692. Format
  10693. CalendarProfile
  10694. FormatReplies
  10695.     0R6S
  10696. FormatChar
  10697. CalendarProfile
  10698. OffsetChar
  10699. Format
  10700. path"
  10701. /Reply+With+History?OpenForm&ParentUNID="
  10702. &Format="
  10703. FormatChar"
  10704. &All"
  10705. path"
  10706. /Reply+With+History?OpenForm&ParentUNID="
  10707. &All"
  10708.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  10709. Adresse...
  10710. Appointment
  10711. AppointmentType
  10712. TaskType
  10713. tmpOwner
  10714. Chair
  10715.     20S21S22S
  10716. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  10717. var pathname = (window.location.pathname);
  10718. if (navigator.appVersion.indexOf('X11') != -1)  
  10719.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  10720.     } else 
  10721.     if (navigator.appName =='Netscape') 
  10722.             if (navigator.appVersion.indexOf("Win") != -1)
  10723.                 {
  10724.                 window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  10725.                 } else
  10726.                 {
  10727.                  window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  10728.                 }
  10729.             } else    
  10730.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=750,height=540');
  10731. Zustelloptionen...
  10732. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  10733. var pathname = (window.location.pathname);
  10734. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
  10735. Bearbeiten 
  10736.     0S0E
  10737. act_EDIT.GIF|act_EDIT?
  10738. schen
  10739.     1S10S14S16S23S
  10740.     0R5S
  10741. path"
  10742. /wDelete?OpenAgent&
  10743. UNID"
  10744. &From="
  10745. view"
  10746. tmpWasMailed
  10747.     1S2S
  10748. act_DELETE.GIF|act_DELETE?
  10749. Gehe zu\Eingang 
  10750.     1S2S
  10751. path"
  10752. /MailFS?OpenFrameset"
  10753.     0R3S4S5S6S
  10754. act_goto.gif|act_goto?
  10755. Gehe zu\Kalender
  10756.     1S2S
  10757. path"
  10758. /CalendarFS?OpenFrameset"
  10759.     0R3S4S5S6S
  10760. act_goto.gif|act_goto?
  10761. Gehe zu\Aufgabe
  10762.     1S2S
  10763. path"
  10764. /ToDoFS?OpenFrameset"
  10765.     0R3S4S5S6S
  10766. act_goto.gif|act_goto?
  10767. Gehe zu\Vor
  10768.     0S0E
  10769. act_goto.gif|act_goto?
  10770. Gehe zu\Zur
  10771.     0S0E
  10772. act_goto.gif|act_goto?
  10773. Kopieren in\Neue Aufgabe
  10774.     1S10S14S16S23S
  10775. path"
  10776. /Task?OpenForm&UNID="
  10777. &CopyInto
  10778.     0R3S4S5S6S7S8S15S17S18S
  10779. act_COPYINTO.GIF|act_COPYINTO?
  10780. Kopieren in\Neuen Kalendereintrag
  10781.     1S10S14S16S23S
  10782. path"
  10783. /Appointment?OpenForm&UNID=
  10784. &CopyInto
  10785.     0R3S4S5S6S7S8S15S17S18S
  10786. act_COPYINTO.GIF|act_COPYINTO?
  10787. nderungen verwerfen
  10788. MEMO_CANCEL
  10789. 4194304
  10790.     0S0E
  10791. ActionInProgress
  10792. MEMO_CANCEL
  10793.     0R1S
  10794. IsMailStationery
  10795.     1S2S3S
  10796. Speichern und schlie
  10797. MEMO_DRAFT
  10798.     0S0E
  10799. ActionInProgress
  10800. MEMO_DRAFT
  10801.     0R1S
  10802. PostedDateh
  10803. IsMailStationery
  10804.     7S8S9S10S13S14S15S16S
  10805. Speichern und ablegen0
  10806. MEMO_DRAFT_FILE
  10807.     0S0E
  10808. ActionInProgress
  10809. MEMO_DRAFT_FILE
  10810.     0R1S
  10811. PostedDateh
  10812. IsMailStationery
  10813.     7S8S9S10S13S14S15S16S
  10814. Schlie
  10815. MEMO_CANCEL
  10816. 4194304
  10817.     0S0E
  10818. ActionInProgress
  10819. MEMO_CANCEL
  10820.     0R1S
  10821. IsMailStationery
  10822.     0S1S2S
  10823. Neues Memo(
  10824.     0S0E
  10825. Antwort\Antwort
  10826. Reply
  10827.     0S0E
  10828. Antwort\Antwort mit Protokoll
  10829. Antwort mit Protokoll
  10830. Dieses Dokument ist nicht vollst
  10831. ndig.
  10832.     4S8S10S13S
  10833. Reply with history
  10834. Antwort\Allen antworten0X
  10835. MailStEd
  10836.     0S0E
  10837. Reply
  10838. Antwort\Allen antworten (mit Protokoll)4
  10839. MailStEd
  10840.     0S0E
  10841. Antwort mit Protokoll
  10842. Dieses Dokument ist nicht vollst
  10843. ndig.
  10844.     0R4S8S10S13S
  10845. Reply with history
  10846. _Kategorisieren
  10847. Dokument _bearbeiten
  10848. Dokument _senden
  10849. Weiterleiten 
  10850.     0S0E
  10851. ISMAILSTATIONERY
  10852.     1S2S
  10853. _Weiterleitenn
  10854. schenk 
  10855.     0S0E
  10856. Ordner\Ordner erstellen1 
  10857.     0S0E
  10858. Ordner\In Ordner verschieben...
  10859.     0S0E
  10860. Ordner\Aus Ordner entfernen
  10861.     0S0E
  10862. In Ordner _verschieben...
  10863. Aus Ordner _entfernenE
  10864. Senden
  10865. MEMO_SEND
  10866.     0S0E
  10867. ActionInProgress
  10868. MEMO_SEND
  10869.     0R1S
  10870. PostedDateh
  10871. IsMailStationery
  10872.     5S6S7S8S10S11S12S13S
  10873. Senden\Senden und speichernT'++LotusScript Development Environment:2:5:(Options):0:66
  10874. '++LotusScript Development Environment:2:5:(Forward):0:1
  10875. Declare Sub Click(Source As Button)
  10876. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10877. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10878. Private Sub BindEvents(Byval Objectname_ As String)
  10879.     Static Source As BUTTON
  10880.     Set Source = Bind(Objectname_)
  10881.     On Event Click From Source Call Click
  10882. End Sub
  10883. '++LotusScript Development Environment:2:2:Click:1:12
  10884. Sub Click(Source As Button)
  10885.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  10886.     Call cMemoObject.noteUIMemo.save()
  10887.     Call cMemoObject.noteUIMemo.close()    
  10888. End Sub
  10889. PostedDateh
  10890. IsMailStationery
  10891.     5S6S7S8S12S13S
  10892. Senden und ablegen
  10893. MEMO_SEND_FILE
  10894.     0S0E
  10895. ActionInProgress
  10896. MEMO_SEND_FILE
  10897.     0R1S
  10898. PostedDateh
  10899. IsMailStationery
  10900.     5S6S7S8S12S13S
  10901. Speichernc
  10902. MEMO_STATIONERYSAVE
  10903.     0S0E
  10904. ActionInProgress
  10905. MEMO_STATIONERYSAVE
  10906.     0R1S
  10907. IsMailStationery
  10908.     2S3S
  10909. Als Entwurf speichernm
  10910. MEMO_DRAFT
  10911.     0S0E
  10912. ActionInProgress
  10913. MEMO_DRAFT
  10914.     0R1S
  10915. PostedDateh
  10916. IsMailStationery
  10917.     5S6S7S8S10S11S12S13S
  10918. Allen antworten@'++LotusScript Development Environment:2:5:(Options):0:66
  10919. '++LotusScript Development Environment:2:5:(Forward):0:1
  10920. Declare Sub Click(Source As Button)
  10921. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10922. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10923. Private Sub BindEvents(Byval Objectname_ As String)
  10924.     Static Source As BUTTON
  10925.     Set Source = Bind(Objectname_)
  10926.     On Event Click From Source Call Click
  10927. End Sub
  10928. '++LotusScript Development Environment:2:2:Click:1:12
  10929. Sub Click(Source As Button)
  10930.     Call cMemoObject.ReplyToAll()
  10931. End Sub
  10932. PostedDateh
  10933. IsMailStationery
  10934.     5S6S7S8S10S11S12S13S
  10935. Vorlage umbenennen...wx
  10936. xxERROR
  10937. Es ist kein Dokument ausgew
  10938.     0S0E
  10939. xxTitle
  10940. Vorlage umbenennen
  10941. xxPrompt
  10942. Bitte geben Sie den neuen Namen f
  10943. r die Vorlage ein.
  10944. xxERROR
  10945. MailStationeryName
  10946. xxTitle
  10947. xxPrompt
  10948. MailStationeryName
  10949.     0RR1S
  10950.     0RS>
  10951. IsMailStationery
  10952.     2S3S4S5S
  10953. Adresse...T
  10954. EnterSendTo
  10955. EnterCopyTo
  10956. EnterBlindCopyTo
  10957.     0S0E
  10958. PostedDateh
  10959. IsMailStationery
  10960.     5S6S7S8S10S11S12S13S
  10961. Zustelloptionen...
  10962. $KeepPrivate
  10963. $KeepPrivate
  10964. $KeepPrivate
  10965. $KeepPrivate
  10966. DeliveryOptions
  10967. Zustelloptionen
  10968.     0R4S10S
  10969. PostedDateh
  10970.     5S6S7S8S
  10971. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  10972. Use "CommonUI"
  10973. '++LotusScript Development Environment:2:5:(Forward):0:1
  10974. Declare Sub Click(Source As Button)
  10975. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10976. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10977. Private Sub BindEvents(Byval Objectname_ As String)
  10978. Static Source As BUTTON
  10979. Set Source = Bind(Objectname_)
  10980. On Event Click From Source Call Click
  10981. End Sub
  10982. '++LotusScript Development Environment:2:2:Click:1:12
  10983. Sub Click(Source As Button)
  10984.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  10985. End Sub
  10986. Kopieren in\Neuen Kalendereintrag
  10987. '++LotusScript Development Environment:2:5:(Options):0:74
  10988. Use "CommonUI"
  10989. '++LotusScript Development Environment:2:5:(Forward):0:1
  10990. Declare Sub Click(Source As Button)
  10991. '++LotusScript Development Environment:2:5:(Declarations):0:2
  10992. '++LotusScript Development Environment:2:2:BindEvents:1:129
  10993. Private Sub BindEvents(Byval Objectname_ As String)
  10994. Static Source As BUTTON
  10995. Set Source = Bind(Objectname_)
  10996. On Event Click From Source Call Click
  10997. End Sub
  10998. '++LotusScript Development Environment:2:2:Click:1:12
  10999. Sub Click(Source As Button)
  11000.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  11001. End Sub
  11002. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  11003. Use "CommonUI"
  11004. '++LotusScript Development Environment:2:5:(Forward):0:1
  11005. Declare Sub Click(Source As Button)
  11006. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11007. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11008. Private Sub BindEvents(Byval Objectname_ As String)
  11009.     Static Source As BUTTON
  11010.     Set Source = Bind(Objectname_)
  11011.     On Event Click From Source Call Click
  11012. End Sub
  11013. '++LotusScript Development Environment:2:2:Click:1:12
  11014. Sub Click(Source As Button)
  11015.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  11016. End Sub
  11017. Werkzeuge\Vorgaben...ER
  11018. DialogMode
  11019. (Preferences)
  11020. Werkzeuge\Zustellinformationen...
  11021. xxTitle
  11022. Zustellinformationen
  11023.     0S0E
  11024. DeliveryInfo
  11025. xxTitle
  11026.     0RR4S5S6S7S8S9S10S11S12S14S
  11027. Werkzeuge\Abwesenheit...8
  11028. (EditOfficeProfile)
  11029.     0S0E
  11030. Werkzeuge\Absender in Adre
  11031. buch aufnehmen
  11032. (AddSenderToAddressBook)
  11033.     0S0E
  11034. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  11035. '++LotusScript Development Environment:2:5:(Forward):0:1
  11036. Declare Sub Click(Source As Button)
  11037. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11038. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11039. Private Sub BindEvents(Byval Objectname_ As String)
  11040.     Static Source As BUTTON
  11041.     Set Source = Bind(Objectname_)
  11042.     On Event Click From Source Call Click
  11043. End Sub
  11044. '++LotusScript Development Environment:2:2:Click:1:12
  11045. Sub Click(Source As Button)
  11046.     Dim session As New notessession
  11047.     Dim uiws As New notesuiworkspace
  11048.     Dim collection As notesdocumentcollection
  11049.     Dim noteUIEditDocument As notesuidocument
  11050.     Dim database As NotesDatabase
  11051.     Set noteCursorDoc = session.currentdatabase.createdocument
  11052.     Set database = session.currentdatabase
  11053.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  11054. hlen", "W
  11055. hlen Sie bitte eine Vorlage f
  11056. r das neue Memo.")
  11057.     Set noteCursorDoc = collection.getfirstdocument
  11058.     If Not noteCursorDoc Is Nothing Then
  11059.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  11060.     End If
  11061. End Sub
  11062. Werkzeuge\Signatur einf
  11063. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  11064. '++LotusScript Development Environment:2:5:(Forward):0:1
  11065. Declare Sub Click(Source As Button)
  11066. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11067. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11068. Private Sub BindEvents(Byval Objectname_ As String)
  11069.     Static Source As BUTTON
  11070.     Set Source = Bind(Objectname_)
  11071.     On Event Click From Source Call Click
  11072. End Sub
  11073. '++LotusScript Development Environment:2:2:Click:1:12
  11074. Sub Click(Source As Button)
  11075.     Call cMemoObject.InsertSignature(False)
  11076. End Sub
  11077. PostedDateh
  11078.     5S6S7S8S
  11079. Werkzeuge\Als Vorlage speichern...
  11080. MEMO_ISSTATIONERY
  11081.     0S0E
  11082. MEMO_STATIONERYSAVE
  11083. ActionInProgress
  11084. MEMO_STATIONERYSAVE
  11085.     0R1S
  11086. MergeFlag
  11087. MEMO_ISSTATIONERY
  11088.     0R1S
  11089. PostedDateh
  11090. IsMailStationery
  11091.     5S6S7S8S10S11S12S13S
  11092. Neues Memo
  11093. qstring
  11094. Query_String
  11095. Query_String
  11096. Query_String
  11097.     1S2S8S11S15S18S
  11098. pathinfo
  11099. Path_Info
  11100. &ClickG
  11101. Path_Info
  11102. &Click_
  11103. Path_Info
  11104.     0R1S2S8S11S15S18S
  11105.     0R1S10S14S16S23S
  11106. qstring
  11107. OpenDocument
  11108. path"
  11109. /Memo?OpenForm&docurl="
  11110. pathinfo"
  11111. path"
  11112. /Memo?OpenForm"
  11113.     0R1S3S13S14S17S
  11114. Weiterleiten
  11115. Format
  11116. CalendarProfile
  11117. FormatReplies
  11118. FormatChar
  11119. CalendarProfile
  11120. OffsetChar
  11121.     0R1S10S14S16S23S
  11122. Format
  11123. path"
  11124. /wForward?OpenForm&ParentUNID="
  11125. Forward
  11126. path"
  11127. /wForward?OpenForm&ParentUNID="
  11128. Forward&Format=
  11129. FormatChar"
  11130.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  11131. Senden\Senden
  11132. tmpSendOptions
  11133. Senden\Senden und speichern `
  11134. tmpSendOptions
  11135. Senden\Als Entwurf speichern`
  11136. tmpSendOptions
  11137. Antwort\Antworti*
  11138. wReply
  11139.     0S0E
  11140. Antwort\Antwort mit Protokoll
  11141.     1S10S14S16S23S
  11142. Format
  11143. CalendarProfile
  11144. FormatReplies
  11145.     0R6S
  11146. FormatChar
  11147. CalendarProfile
  11148. OffsetChar
  11149. Format
  11150. path"
  11151. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  11152. &Format="
  11153. Formatchar"
  11154. Reply With History
  11155.     0R9S10S11S12S13S14S21S23S24S
  11156. Antwort\Allen antworten8
  11157.     0R1S10S14S16S23S
  11158. path"
  11159. /wReply?OpenForm&xxxxxxUNID="
  11160. &All"
  11161.     0R3S4S5S6S7S8S15S17S18S
  11162. Antwort\Allen antworten (mit Protokoll)
  11163.     1S10S14S16S23S
  11164. Format
  11165. CalendarProfile
  11166. FormatReplies
  11167.     0R6S
  11168. FormatChar
  11169. CalendarProfile
  11170. OffsetChar
  11171. Format
  11172. path"
  11173. /Reply+With+History?OpenForm&ParentUNID="
  11174. &Format="
  11175. FormatChar"
  11176. &All"
  11177. path"
  11178. /Reply+With+History?OpenForm&ParentUNID="
  11179. &All"
  11180.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  11181. Bearbeiten 
  11182.     0S0E
  11183. schenw
  11184.     1S10S14S16S23S
  11185.     0R5S
  11186. path"
  11187. /wDelete?OpenAgent&
  11188. UNID"
  11189. &From="
  11190. view"
  11191. tmpWasMailed
  11192.     1S2S
  11193. Gehe zu\Eingang
  11194.     1S2S
  11195. path"
  11196. /MailFS?OpenFrameset"
  11197.     0R3S4S5S6S
  11198. Gehe zu\Kalender
  11199.     1S2S
  11200. path"
  11201. /CalendarFS?OpenFrameset"
  11202.     0R3S4S5S6S
  11203. Gehe zu\Aufgabee
  11204.     1S2S
  11205. path"
  11206. /ToDoFS?OpenFrameset"
  11207.     0R3S4S5S6S
  11208. Gehe zu\Vor
  11209.     0S0E
  11210. Gehe zu\Zur
  11211.     0S0E
  11212. Kopieren in\Neue Aufgabe
  11213.     1S10S14S16S23S
  11214. path"
  11215. /Task?OpenForm&UNID="
  11216. &CopyInto
  11217.     0R3S4S5S6S7S8S15S17S18S
  11218. Kopieren in\Neuen Kalendereintrago
  11219.     1S10S14S16S23S
  11220. path"
  11221. /Appointment?OpenForm&UNID=
  11222. &CopyInto
  11223.     0R3S4S5S6S7S8S15S17S18S
  11224. Lotus Product
  11225. Lotus Product
  11226. OBJECT
  11227. Lotus Product
  11228. OBJECT
  11229. Lotus Product
  11230. OBJECT
  11231. Lotus Product
  11232. OBJECT
  11233. O=Lotus Notes
  11234. O=Lotus Notes
  11235. PURSAFO
  11236. |.:#U
  11237. O=Lotus Notes
  11238. CN=Lotus Notes Template Development/O=Lotus Notes
  11239. PURSAFO
  11240. $Language
  11241. $LastBuildTime
  11242. $BabelInfo
  11243. $BackgroundR5
  11244. $HTMLCode
  11245. $HeaderArea
  11246. $RegionFrameset
  11247. $Info
  11248. $SubForms
  11249. $WINDOWTITLE
  11250. $WEBQuerySave
  11251. $WEBQueryOpen
  11252. $AppHelpFormula
  11253. $WebFlags
  11254. $Script
  11255. $$Script_O
  11256. $$ScriptName
  11257. $$FormScript
  11258. $$$FormScript_O
  11259. $Body
  11260. $V5ACTIONS
  11261. $ACTIONS
  11262. $SCRIPTOBJ_21
  11263. $SCRIPTOBJ_29
  11264. $SCRIPTOBJ_30
  11265. $SCRIPTOBJ_31
  11266. $SCRIPTOBJ_36
  11267. $FolderInfo
  11268. $FolderRefInfo
  11269. FOLDER_DIRECTORY_OBJECT
  11270. ($Trash)
  11271. Group Calendars|(GroupCalendarFolder)
  11272. Rules|(Rules)|Rules
  11273. ($Alarms)|$Alarms
  11274. ($Inbox)
  11275. CN=Jens Beutler/OU=MUC1/O=Lotus
  11276. if (window.location.href.indexOf('Notes')==-1)
  11277.     if ((window.location.href.indexOf("Seq"))==-1) openV5RepeatInstance();
  11278. xxNewToDo
  11279. Neue Aufgabe
  11280.     1S2S
  11281. xxOldToDo
  11282. Aufgabe -  
  11283. Subject
  11284.     0R1S2S3S4S
  11285. xxNewToDo
  11286. xxOldToDo
  11287. BACKGROUND = /
  11288. path"
  11289. /calendarbckgnd.gif
  11290.     0S0E
  11291. TaskType
  11292. principal
  11293. chair
  11294. NoticeType
  11295. Broadcast
  11296. (Help)
  11297. MAIL_F_TASK_REC
  11298. (Help)
  11299. MAIL_F_TASK_REC_BRD
  11300. (Help)
  11301. MAIL_F_TASK_REC_MOD
  11302. (Help)
  11303. MAIL_F_TASK
  11304. (Help)
  11305. MAIL_F_TASK
  11306.     3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
  11307. Option Public
  11308. Option Explicit    
  11309. Use "CSUIDocClass"
  11310. '++LotusScript Development Environment:2:5:(Forward):0:1
  11311. '++LotusScript Development Environment:2:5:(Declarations):0:10
  11312. Dim uitaskdoc As UIEventDocument
  11313. Lotus Product
  11314.  Task'++LotusScript Development Environment:2:5:(Options):0:66
  11315. '++LotusScript Development Environment:2:5:(Forward):0:1
  11316. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11317. Declare Sub Postopen(Source As Notesuidocument)
  11318. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11319. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11320. Declare Sub Postsave(Source As Notesuidocument)
  11321. Declare Sub Postrecalc(Source As Notesuidocument)
  11322. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  11323. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11324. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11325. Private Sub BindEvents(Byval Objectname_ As String)
  11326.     Static Source As NOTESUIDOCUMENT
  11327.     Set Source = Bind(Objectname_)
  11328.     On Event Queryopen From Source Call Queryopen
  11329.     On Event Postopen From Source Call Postopen
  11330.     On Event Querysave From Source Call Querysave
  11331.     On Event Queryclose From Source Call Queryclose
  11332.     On Event Postsave From Source Call Postsave
  11333.     On Event Postrecalc From Source Call Postrecalc
  11334.     On Event Querymodechange From Source Call Querymodechange
  11335. End Sub
  11336. '++LotusScript Development Environment:2:2:Queryopen:1:12
  11337. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  11338.     If (source.inpreviewpane) Then Exit Sub
  11339.     Set uitaskdoc = CSUIDocOpen(2, source, mode, isnewdoc, continue)
  11340. End Sub
  11341. '++LotusScript Development Environment:2:2:Postopen:1:12
  11342. Sub Postopen(Source As Notesuidocument)
  11343.     If (source.InPreviewPane) Then Exit Sub
  11344.     Call uitaskdoc.PostOpen()
  11345. End Sub
  11346. '++LotusScript Development Environment:2:2:Querysave:1:12
  11347. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  11348.     If (source.InPreviewPane) Then Exit Sub
  11349.     Call uitaskdoc.QuerySave( Continue)
  11350. End Sub
  11351. '++LotusScript Development Environment:2:2:Queryclose:1:12
  11352. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  11353.     If (source.InPreviewPane) Then Exit Sub
  11354.     If (uitaskdoc.WasSaved) Then Call uitaskdoc.QueryClose(continue)    
  11355. End Sub
  11356. '++LotusScript Development Environment:2:2:Postsave:1:12
  11357. Sub Postsave(Source As Notesuidocument)
  11358.     If (source.InPreviewPane) Then Exit Sub
  11359.     Call uitaskdoc.PostSave() 
  11360. End Sub
  11361. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  11362. Sub Postrecalc(Source As Notesuidocument)
  11363.     Dim note As notesdocument
  11364.     If (source.InPreviewPane) Then Exit Sub
  11365.     Set note = source.document
  11366.     Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
  11367.     Call uitaskdoc.PostRecalc()
  11368. End Sub
  11369. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  11370. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  11371.     If (source.InPreviewPane) Then conitnue = False
  11372. End Sub
  11373. Lotus Product
  11374. X    X    l
  11375. '++LotusScript Development Environment:2:5:(Options):0:66
  11376. '++LotusScript Development Environment:2:5:(Forward):0:1
  11377. Declare Sub Entering(Source As Field)
  11378. Declare Sub Exiting(Source As Field)
  11379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11381. Private Sub BindEvents(Byval Objectname_ As String)
  11382.     Static Source As FIELD
  11383.     Set Source = Bind(Objectname_)
  11384.     On Event Entering From Source Call Entering
  11385.     On Event Exiting From Source Call Exiting
  11386. End Sub
  11387. '++LotusScript Development Environment:2:2:Entering:1:12
  11388. Sub Entering(Source As Field)
  11389.     Call AutoAdjustWindowEntering( uitaskdoc.UIDocument, "StartDate", "", "DueDate", "")
  11390. End Sub
  11391. '++LotusScript Development Environment:2:2:Exiting:1:12
  11392. Sub Exiting(Source As Field)
  11393.     Call AutoAdjustWindowExiting( uitaskdoc.UIDocument, "StartDate", "", "DueDate", "")
  11394. End Sub
  11395. Lotus Product
  11396. Notes
  11397. (wCSItems)
  11398.     3S4S
  11399.     Always Hidden:
  11400. Principal
  11401. CalendarProfile
  11402. Owner
  11403.     1S2S3S7S
  11404. FromPerson memo is from.
  11405.     0S0E
  11406.     0S0E
  11407. Encrypt
  11408.     0S0E
  11409. DefaultMailSaveOptions
  11410. $KeepPrivate
  11411. $KeepPrivate
  11412. $KeepPrivate
  11413.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  11414. $ExpandGroups
  11415. tmpOwner
  11416. Chair
  11417.     8S11S12S21S22S
  11418. tmpOwner
  11419. Chair
  11420.     8S11S12S21S22S
  11421. tmpOwnerHW
  11422. tmpDoNotProcess
  11423. tmpOwner
  11424. BlindCopyTo
  11425.     3S4S6S8S17S18S28S
  11426. tmpDoNotProcess
  11427. tmpOwner
  11428. BlindCopyTo
  11429.     3S4S6S8S17S18S28StmpNoActionBar
  11430. Aufgabe
  11431.     Thema
  11432. Subject
  11433. size=40
  11434.     Beginn:
  11435. Notes
  11436. Startdate
  11437. StartDateTime
  11438. StartDate
  11439.     9S10S12S14SStartDate
  11440.     Priorit
  11441. Importance
  11442. Hoch|1Mittel|2Niedrig|3Ohne|99
  11443. llig am:
  11444. Notes
  11445. DueDate
  11446. DueDateTime
  11447. DueDate
  11448.     9S10S11S12S14S
  11449. xxFailed
  11450. Das F
  11451. lligkeitsdatum kann nicht fr
  11452. her als das Anfangsdatum sein.
  11453.     1S2S
  11454. StartDate
  11455. DueDate
  11456. DueDate
  11457. StartDate
  11458. xxFailed{
  11459.     0R3S4S5S6S7S8S10S12S13S14S16S21S
  11460. DueDate
  11461.     Typ:
  11462. UserType
  11463. Notes
  11464. CSDocType
  11465.     1S2S5S6S8S
  11466. Notes
  11467. CSDocType
  11468.     0R3S4S6S13S
  11469. UserType
  11470. UserType
  11471. TaskType
  11472. nliche Aufgabe|1Gruppenaufgabe|2
  11473. tmpNewDoc
  11474.     2S3S4S5S
  11475. Repeats
  11476. OrgRepeat
  11477. Repeats
  11478.     7S14S16S19SRepeatsKlicken Sie hier, wenn es sich um einen wiederholenden Eintrag handelt
  11479. Wiederholend |1
  11480. tmpNewDoc
  11481.     1S2S5S6S7S8S
  11482. Repeats
  11483. OrgRepeat
  11484. Repeats
  11485.     7S14S16S19SdispRepeatsKlicken Sie hier, wenn es sich um einen wiederholenden Eintrag handelt
  11486. Repeats |1
  11487. Repeats
  11488.     1S2S
  11489. '++LotusScript Development Environment:2:5:(Options):0:66
  11490. '++LotusScript Development Environment:2:5:(Forward):0:1
  11491. Declare Sub Click(Source As Button)
  11492. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11493. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11494. Private Sub BindEvents(Byval Objectname_ As String)
  11495.     Static Source As BUTTON
  11496.     Set Source = Bind(Objectname_)
  11497.     On Event Click From Source Call Click
  11498. End Sub
  11499. '++LotusScript Development Environment:2:2:Click:1:12
  11500. Sub Click(Source As Button)
  11501.     Call uitaskdoc.UIObject.RepeatDialog()
  11502. End Sub
  11503. Lotus Product
  11504. New Button
  11505. Need a newer version of Notes to execute this button.
  11506.     0S0E
  11507.     Einstellungen...
  11508. Repeats
  11509. New Button
  11510. Need a newer version of Notes to execute this button.
  11511.     0S0E
  11512. var pathname = (window.location.pathname);
  11513. if (navigator.appName =='Netscape') {
  11514. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRepeatForm?OpenForm','Repeat','status=yes,scrollbars=no,resizable=yes,screenX=100,screenY=100,width=500,height=300');
  11515.     } else {
  11516. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRepeatForm?OpenForm','Repeat','status=yes,scrollbars=no,resizable=yes,top=120,left=100,width=500,height=300');
  11517.     Wiederholend
  11518. tmpOwnerHW
  11519. chair
  11520.     1S2S3S4S11S14S15S21S
  11521.     Besitzer:
  11522. tmpOwnerHW
  11523. chair
  11524.     1S2S3S4S11S14S15S21S
  11525. Chair
  11526. tmpChair
  11527. tmpWasMailed
  11528. principal
  11529.     4S14S15S
  11530.     Gesendet von:
  11531. tmpWasMailed
  11532. principal
  11533.     4S14S15S
  11534. tmpSentBy
  11535. Allgemein
  11536. TaskType
  11537. tmpWasMailed
  11538.     1S2S3S4S5S6S
  11539. tmpWasMailedY
  11540.     0S0E
  11541. TaskType
  11542. PostedDate
  11543. AssignedTo
  11544. OptionalAssignedTo
  11545. FYIAssignedTo
  11546.     1S2S3S4S5S6S7S2E8S19S20S
  11547.     Zuweisungen bereits gesendet
  11548. TaskType
  11549. PostedDate
  11550. tmpOwnerHW
  11551. AssignedTo
  11552. OptionalAssignedTo
  11553. FYIAssignedTo
  11554.     1S2S3S4S5S6S7S8S9S10S11S2E12S23S24S
  11555. '++LotusScript Development Environment:2:5:(Options):0:66
  11556. '++LotusScript Development Environment:2:5:(Forward):0:1
  11557. Declare Sub Click(Source As Button)
  11558. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11559. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11560. Private Sub BindEvents(Byval Objectname_ As String)
  11561.     Static Source As BUTTON
  11562.     Set Source = Bind(Objectname_)
  11563.     On Event Click From Source Call Click
  11564. End Sub
  11565. '++LotusScript Development Environment:2:2:Click:1:12
  11566. Sub Click(Source As Button)
  11567.     If (uitaskdoc.UIObject.RemoveParticipants() = True) Then
  11568.         Call uitaskdoc.PerformActionAndClose(Null, REM_PART_TITLE, ACTION_REMOVE_PEOPLE, "(OwnerDlg)", 1)
  11569.     End If
  11570. End Sub
  11571. Lotus Product
  11572. New Button
  11573. Need a newer version of Notes to execute this button.
  11574.     0S0E
  11575.     Entfernen...
  11576. TaskType
  11577. PostedDate
  11578. AssignedTo
  11579. OptionalAssignedTo
  11580. FYIAssignedTo
  11581.     1S2S3S4S5S6S7S2E8S19S20S
  11582. TaskType
  11583. PostedDate
  11584. AssignedTo
  11585. OptionalAssignedTo
  11586. FYIAssignedTo
  11587.     1S2S3S4S5S6S7S2E8S19S20S
  11588. AssignedTo^
  11589.     0S0E
  11590. tmpRequired
  11591.     Kopie:
  11592. OptionalAssignedTo^
  11593.     0S0E
  11594. tmpOptional
  11595. TaskType
  11596. PostedDate
  11597. AssignedTo
  11598. OptionalAssignedTo
  11599. FYIAssignedTo
  11600. tmpOwnerHW
  11601. BlindCopyTo
  11602.     1S2S3S4S5S6S7S2E8S19S20S21S22S24S25S26S27S31S32S
  11603.     Blindkopie:
  11604. TmpOwnerHW
  11605. FYIAssignedTo
  11606. BlindCopyTo
  11607.     3S4S6S11StmpFYI
  11608. TaskType
  11609.     1S2S
  11610.     Geben Sie neue Zuweisungen unten ein
  11611. TaskType
  11612.     1S2S
  11613.     Beauftragte:
  11614. TaskType
  11615.     1S2S
  11616. SendToz
  11617. size=80
  11618. DialogButton Address.GIF|Address
  11619. SendList
  11620.     0S0E
  11621. DialogButton Address.GIF|Address
  11622. HotspotRectangle9
  11623. var pathname = (window.location.pathname);
  11624. if (navigator.appName =='Netscape') {
  11625. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=740,height=550');
  11626.     } else {
  11627. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=700,height=530');
  11628. SendList_1
  11629.     Kopie:
  11630. CopyToz
  11631. size=80
  11632. DialogButton Address.GIF|Address
  11633. Copylist
  11634.     0S0E
  11635. DialogButton Address.GIF|Address
  11636. HotspotRectangle9_1
  11637. var pathname = (window.location.pathname);
  11638. if (navigator.appName =='Netscape') {
  11639. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=740,height=550');
  11640.     } else {
  11641. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=700,height=530');
  11642. SendList_1_1
  11643.     Blindkopie:
  11644. BlindCopyTo
  11645. size=80
  11646. DialogButton Address.GIF|Address
  11647. BCClist
  11648.     0S0E
  11649. DialogButton Address.GIF|Address
  11650. HotspotRectangle9_2
  11651. var pathname = (window.location.pathname);
  11652. if (navigator.appName =='Netscape') {
  11653. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=740,height=550');
  11654.     } else {
  11655. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=700,height=530');
  11656. SendList_1_2
  11657. Teilnehmer
  11658. OrgConfidential
  11659. Als 'Privat' markieren|1
  11660.     Andere Personen k
  11661. nnen keine Einzelheiten 
  11662. ber diese Veranstaltung anzeigen.
  11663. AlarmsY
  11664. $Alarmh
  11665. Alarms
  11666.     7S14S16S19SAlarms
  11667. Ich m
  11668. chte benachrichtigt werden|1
  11669.     Lassen Sie sich von Notes vor Veranstaltungsbeginn benachrichtigen.
  11670. Alarms
  11671.     1S2S
  11672. '++LotusScript Development Environment:2:5:(Options):0:66
  11673. '++LotusScript Development Environment:2:5:(Forward):0:1
  11674. Declare Sub Click(Source As Button)
  11675. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11676. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11677. Private Sub BindEvents(Byval Objectname_ As String)
  11678.     Static Source As BUTTON
  11679.     Set Source = Bind(Objectname_)
  11680.     On Event Click From Source Call Click
  11681. End Sub
  11682. '++LotusScript Development Environment:2:2:Click:1:12
  11683. Sub Click(Source As Button)
  11684.     If (uitaskdoc.UIObject.AlarmDialog() = True) Then
  11685.         Call uitaskdoc.UIDocument.Reload()
  11686.         Call uitaskdoc.UIDocument.RefreshHideFormulas()
  11687.     End If
  11688. End Sub
  11689. Lotus Product
  11690. New Button
  11691. Need a newer version of Notes to execute this button.
  11692.     0S0E
  11693.     Alarmeinstellungen...
  11694.     Kategorisieren:
  11695. Categories
  11696. xxNotesCats
  11697. Feiertag|H
  11698. Urlaub|V
  11699. Projekte|P
  11700. Kunden|C
  11701. Anrufe|PC
  11702. Unterwegs|T
  11703.     1S2S
  11704. xxNotesCats
  11705. CalendarProfile
  11706. UserCategories
  11707. Optionen
  11708. TodoBackground.gif
  11709.     Beschreibung:
  11710. ROWS=10 COLS=100 WRAP=VIRTUAL
  11711. _Kategorisieren*
  11712. Dokument _bearbeiten
  11713. Dokument _senden
  11714. _Weiterleiten
  11715. In Ordner _verschieben...t
  11716. Aus Ordner _entfernen
  11717. Speichern und schlie
  11718.     4S11S16S19SH
  11719. tmpOwnerHW
  11720. TaskType
  11721.     1S2S3S4S5S6S
  11722. act_ok.GIF|act_CSOK?
  11723. Speichern und Zuweisungen sendenh
  11724. tmpAction
  11725.     1S2S3S
  11726.     0R7S12SJ
  11727. TaskType
  11728. tmpOwnerHW
  11729.     1S2S3S4S2E5S6S
  11730. act_SEND.GIF|act_SEND?
  11731. Als Entwurf speichern
  11732. tmpAction
  11733.     1S2S3S
  11734.     0R7S12SJ
  11735. TaskType
  11736. tmpOwnerHW
  11737.     1S2S3S4S2E5S6S
  11738. act_save.GIF|act_CSSAVE?
  11739. Aktionen\Neu planenc'++LotusScript Development Environment:2:5:(Options):0:66
  11740. '++LotusScript Development Environment:2:5:(Forward):0:1
  11741. Declare Sub Click(Source As Button)
  11742. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11743. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11744. Private Sub BindEvents(Byval Objectname_ As String)
  11745.     Static Source As BUTTON
  11746.     Set Source = Bind(Objectname_)
  11747.     On Event Click From Source Call Click
  11748. End Sub
  11749. '++LotusScript Development Environment:2:2:Click:1:12
  11750. Sub Click(Source As Button)
  11751.     Call uitaskdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)
  11752. End Sub
  11753. tmpWasMailed
  11754. TaskType
  11755. tmpOwnerHW
  11756.     1S2S3S4S5S6S7S8S9S10S
  11757. Aktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:66
  11758. '++LotusScript Development Environment:2:5:(Forward):0:1
  11759. Declare Sub Click(Source As Button)
  11760. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11761. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11762. Private Sub BindEvents(Byval Objectname_ As String)
  11763.     Static Source As BUTTON
  11764.     Set Source = Bind(Objectname_)
  11765.     On Event Click From Source Call Click
  11766. End Sub
  11767. '++LotusScript Development Environment:2:2:Click:1:12
  11768. Sub Click(Source As Button)
  11769.     Call uitaskdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1) 
  11770. End Sub
  11771. tmpWasMailed
  11772. TaskType
  11773. tmpOwnerHW
  11774.     1S2S3S4S5S6S7S8S9S10S
  11775. Aktionen\Best
  11776. tigen
  11777. '++LotusScript Development Environment:2:5:(Options):0:66
  11778. '++LotusScript Development Environment:2:5:(Forward):0:1
  11779. Declare Sub Click(Source As Button)
  11780. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11781. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11782. Private Sub BindEvents(Byval Objectname_ As String)
  11783.     Static Source As BUTTON
  11784.     Set Source = Bind(Objectname_)
  11785.     On Event Click From Source Call Click
  11786. End Sub
  11787. '++LotusScript Development Environment:2:2:Click:1:12
  11788. Sub Click(Source As Button)
  11789.     Dim uievent As UIEventObject
  11790.     Set uievent = uitaskdoc.uiobject
  11791.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 1) Then
  11792.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  11793.         If (uievent.SendComments) Then Call uievent.EditNotice
  11794.     End If
  11795. End Sub
  11796. tmpWasMailed
  11797. TaskType
  11798. tmpOwnerHW
  11799.     1S2S3S4S5S6S7S8S9S10S
  11800. Aktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:66
  11801. '++LotusScript Development Environment:2:5:(Forward):0:1
  11802. Declare Sub Click(Source As Button)
  11803. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11804. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11805. Private Sub BindEvents(Byval Objectname_ As String)
  11806. Static Source As BUTTON
  11807. Set Source = Bind(Objectname_)
  11808. On Event Click From Source Call Click
  11809. End Sub
  11810. '++LotusScript Development Environment:2:2:Click:1:12
  11811. Sub Click(Source As Button)
  11812.     Call uitaskdoc.uiobject.ViewParticipantStatus()
  11813. End Sub
  11814. tmpWasMailed
  11815. TaskType
  11816. tmpOwnerHW
  11817.     1S2S3S4S5S6S7S8S9S10S
  11818. Aktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:66
  11819. '++LotusScript Development Environment:2:5:(Forward):0:1
  11820. Declare Sub Click(Source As Button)
  11821. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11822. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11823. Private Sub BindEvents(Byval Objectname_ As String)
  11824. Static Source As BUTTON
  11825. Set Source = Bind(Objectname_)
  11826. On Event Click From Source Call Click
  11827. End Sub
  11828. '++LotusScript Development Environment:2:2:Click:1:12
  11829. Sub Click(Source As Button)
  11830.     Call uitaskdoc.uiobject.creatememo(True)
  11831. End Sub
  11832. tmpWasMailed
  11833. TaskType
  11834. tmpOwnerHW
  11835.     1S2S3S4S5S6S7S8S9S10S
  11836. Abgeschlossen
  11837. tmpAction
  11838. 4194306
  11839.     1S2S3S
  11840.     0R7S
  11841. NoticeType
  11842. DueState
  11843. TaskType
  11844. tmpOwnerHW
  11845.     1S2S3S4S5S6S7S8S10S11S12S13S14S15S
  11846. act_completed.GIF|act_CSCOMPLETED?
  11847. Zustelloptionen...P
  11848. (C&S DeliveryOptions)
  11849. TaskType
  11850. tmpOwnerHW
  11851.     1S2S3S4S5S6S
  11852. Antwort\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  11853. '++LotusScript Development Environment:2:5:(Forward):0:1
  11854. Declare Sub Click(Source As Button)
  11855. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11856. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11857. Private Sub BindEvents(Byval Objectname_ As String)
  11858. Static Source As BUTTON
  11859. Set Source = Bind(Objectname_)
  11860. On Event Click From Source Call Click
  11861. End Sub
  11862. '++LotusScript Development Environment:2:2:Click:1:12
  11863. Sub Click(Source As Button)
  11864.     Dim uidoc As NotesUIDocument
  11865.     Dim uiobject As Variant
  11866.     Dim nResult As Integer
  11867.     Set uiobject = uitaskdoc.UIObject
  11868.     Set uidoc = uitaskdoc.UIDocument     
  11869.     If (uiobject.OkToAccept(False)) Then
  11870.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  11871.         Call uidoc.save
  11872.         Call uidoc.close
  11873.     End If    
  11874. End Sub
  11875. tmpNoActionBar
  11876. tmpOwnerHW
  11877. NoticeType
  11878. Broadcast
  11879.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  11880. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  11881. '++LotusScript Development Environment:2:5:(Forward):0:1
  11882. Declare Sub Click(Source As Button)
  11883. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11884. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11885. Private Sub BindEvents(Byval Objectname_ As String)
  11886.     Static Source As BUTTON
  11887.     Set Source = Bind(Objectname_)
  11888.     On Event Click From Source Call Click
  11889. End Sub
  11890. '++LotusScript Development Environment:2:2:Click:1:12
  11891. Sub Click(Source As Button)
  11892.     uitaskdoc.uiobject.SendComments = False    
  11893.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  11894. End Sub
  11895. tmpNoActionBar
  11896. tmpOwnerHW
  11897. NoticeType
  11898. Broadcast
  11899.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  11900. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  11901. '++LotusScript Development Environment:2:5:(Forward):0:1
  11902. Declare Sub Click(Source As Button)
  11903. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11904. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11905. Private Sub BindEvents(Byval Objectname_ As String)
  11906.     Static Source As BUTTON
  11907.     Set Source = Bind(Objectname_)
  11908.     On Event Click From Source Call Click
  11909. End Sub
  11910. '++LotusScript Development Environment:2:2:Click:1:12
  11911. Sub Click(Source As Button)
  11912.     uitaskdoc.uiobject.SendComments = False    
  11913.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  11914. End Sub
  11915. tmpNoActionBar
  11916. tmpOwnerHW
  11917. Broadcast
  11918. PreventDelegate
  11919.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  11920. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  11921. '++LotusScript Development Environment:2:5:(Forward):0:1
  11922. Declare Sub Click(Source As Button)
  11923. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11924. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11925. Private Sub BindEvents(Byval Objectname_ As String)
  11926.     Static Source As BUTTON
  11927.     Set Source = Bind(Objectname_)
  11928.     On Event Click From Source Call Click
  11929. End Sub
  11930. '++LotusScript Development Environment:2:2:Click:1:12
  11931. Sub Click(Source As Button)
  11932.     uitaskdoc.uiobject.SendComments = False    
  11933.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  11934. End Sub
  11935. tmpNoActionBar
  11936. tmpOwnerHW
  11937. Broadcast
  11938. PreventCounter
  11939. OrgRepeat
  11940.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  11941. Antwort\Abgeschlossen
  11942. '++LotusScript Development Environment:2:5:(Options):0:66
  11943. '++LotusScript Development Environment:2:5:(Forward):0:1
  11944. Declare Sub Click(Source As Button)
  11945. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11946. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11947. Private Sub BindEvents(Byval Objectname_ As String)
  11948.     Static Source As BUTTON
  11949.     Set Source = Bind(Objectname_)
  11950.     On Event Click From Source Call Click
  11951. End Sub
  11952. '++LotusScript Development Environment:2:2:Click:1:12
  11953. Sub Click(Source As Button)
  11954.     uitaskdoc.uiobject.SendComments = False    
  11955.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  11956. End Sub
  11957. tmpNoActionBar
  11958. tmpOwnerHW
  11959. NoticeType
  11960. Broadcast
  11961.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  11962. Antwort mit Kommentar\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  11963. '++LotusScript Development Environment:2:5:(Forward):0:1
  11964. Declare Sub Click(Source As Button)
  11965. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11966. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11967. Private Sub BindEvents(Byval Objectname_ As String)
  11968. Static Source As BUTTON
  11969. Set Source = Bind(Objectname_)
  11970. On Event Click From Source Call Click
  11971. End Sub
  11972. '++LotusScript Development Environment:2:2:Click:1:12
  11973. Sub Click(Source As Button)
  11974.     Dim uidoc As NotesUIDocument
  11975.     Dim uiobject As Variant
  11976.     Dim nResult As Integer
  11977.     Set uiobject = uitaskdoc.UIObject
  11978.     Set uidoc = uitaskdoc.UIDocument     
  11979.     If (uiobject.OkToAccept(True)) Then
  11980.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  11981.         Call uidoc.save
  11982.         Call uidoc.close
  11983.     End If    
  11984. End Sub
  11985. tmpNoActionBar
  11986. tmpOwnerHW
  11987. NoticeType
  11988. Broadcast
  11989.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  11990. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  11991. '++LotusScript Development Environment:2:5:(Forward):0:1
  11992. Declare Sub Click(Source As Button)
  11993. '++LotusScript Development Environment:2:5:(Declarations):0:2
  11994. '++LotusScript Development Environment:2:2:BindEvents:1:129
  11995. Private Sub BindEvents(Byval Objectname_ As String)
  11996.     Static Source As BUTTON
  11997.     Set Source = Bind(Objectname_)
  11998.     On Event Click From Source Call Click
  11999. End Sub
  12000. '++LotusScript Development Environment:2:2:Click:1:12
  12001. Sub Click(Source As Button)
  12002.     uitaskdoc.uiobject.SendComments = True
  12003.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  12004. End Sub
  12005. tmpNoActionBar
  12006. tmpOwnerHW
  12007. NoticeType
  12008. Broadcast
  12009.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12010. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  12011. '++LotusScript Development Environment:2:5:(Forward):0:1
  12012. Declare Sub Click(Source As Button)
  12013. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12014. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12015. Private Sub BindEvents(Byval Objectname_ As String)
  12016.     Static Source As BUTTON
  12017.     Set Source = Bind(Objectname_)
  12018.     On Event Click From Source Call Click
  12019. End Sub
  12020. '++LotusScript Development Environment:2:2:Click:1:12
  12021. Sub Click(Source As Button)
  12022.     uitaskdoc.uiobject.SendComments = True
  12023.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12024. End Sub
  12025. tmpNoActionBar
  12026. tmpOwnerHW
  12027. Broadcast
  12028. PreventDelegate
  12029.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12030. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  12031. '++LotusScript Development Environment:2:5:(Forward):0:1
  12032. Declare Sub Click(Source As Button)
  12033. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12034. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12035. Private Sub BindEvents(Byval Objectname_ As String)
  12036.     Static Source As BUTTON
  12037.     Set Source = Bind(Objectname_)
  12038.     On Event Click From Source Call Click
  12039. End Sub
  12040. '++LotusScript Development Environment:2:2:Click:1:12
  12041. Sub Click(Source As Button)
  12042.     uitaskdoc.uiobject.SendComments = True
  12043.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12044. End Sub
  12045. tmpNoActionBar
  12046. tmpOwnerHW
  12047. Broadcast
  12048. PreventCounter
  12049. OrgRepeat
  12050.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  12051. Antwort mit Kommentar\Abgeschlosseni'++LotusScript Development Environment:2:5:(Options):0:66
  12052. '++LotusScript Development Environment:2:5:(Forward):0:1
  12053. Declare Sub Click(Source As Button)
  12054. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12055. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12056. Private Sub BindEvents(Byval Objectname_ As String)
  12057.     Static Source As BUTTON
  12058.     Set Source = Bind(Objectname_)
  12059.     On Event Click From Source Call Click
  12060. End Sub
  12061. '++LotusScript Development Environment:2:2:Click:1:12
  12062. Sub Click(Source As Button)
  12063.     uitaskdoc.uiobject.SendComments = True
  12064.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12065. End Sub
  12066. tmpNoActionBar
  12067. tmpOwnerHW
  12068. NoticeType
  12069. Broadcast
  12070.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12071. In Aufgabenliste aufnehmen
  12072. tmpAction
  12073.  2097154
  12074.     1S2S
  12075. Broadcast
  12076. tmpNoActionBar
  12077. tmpOwnerHW
  12078.     1S2S3S4S5S6S7S8S9S10S
  12079. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  12080. '++LotusScript Development Environment:2:5:(Forward):0:1
  12081. Declare Sub Click(Source As Button)
  12082. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12083. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12084. Private Sub BindEvents(Byval Objectname_ As String)
  12085.     Static Source As BUTTON
  12086.     Set Source = Bind(Objectname_)
  12087.     On Event Click From Source Call Click
  12088. End Sub
  12089. '++LotusScript Development Environment:2:2:Click:1:12
  12090. Sub Click(Source As Button)
  12091.     Dim uievent As UIEventObject
  12092.     Set uievent = uitaskdoc.UIObject
  12093.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 1) Then
  12094.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  12095.         If (uievent.SendComments) Then Call uievent.editnotice
  12096.     End If
  12097. End Sub
  12098. tmpOwnerHW
  12099. tasktype
  12100.     1S2S3S4S5S6S
  12101. _Kategorisieren
  12102. Dokument _bearbeiten
  12103. Dokument _senden
  12104. _Weiterleiten
  12105. In Ordner _verschieben...
  12106. Aus Ordner _entfernen
  12107. Speichern und schlie
  12108.     4S11S16S19SH
  12109. tmpOwnerHW
  12110. TaskType
  12111.     1S2S3S4S5S6S
  12112. Speichern und Zuweisungen sendenh
  12113. tmpAction
  12114.     1S2S3S
  12115.     0R7S12SJ
  12116. TaskType
  12117. tmpOwnerHW
  12118.     1S2S3S4S2E5S6S
  12119. Als Entwurf speichern
  12120. tmpAction
  12121.     1S2S3S
  12122.     0R7S12SJ
  12123. TaskType
  12124. tmpOwnerHW
  12125.     1S2S3S4S2E5S6S
  12126. Aktionen\Neu planen
  12127. '++LotusScript Development Environment:2:5:(Options):0:66
  12128. '++LotusScript Development Environment:2:5:(Forward):0:1
  12129. Declare Sub Click(Source As Button)
  12130. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12131. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12132. Private Sub BindEvents(Byval Objectname_ As String)
  12133.     Static Source As BUTTON
  12134.     Set Source = Bind(Objectname_)
  12135.     On Event Click From Source Call Click
  12136. End Sub
  12137. '++LotusScript Development Environment:2:2:Click:1:12
  12138. Sub Click(Source As Button)
  12139.     Call uitaskdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)",1)
  12140. End Sub
  12141. tmpWasMailed
  12142. TaskType
  12143. tmpOwnerHW
  12144.     1S2S3S4S5S6S7S8S9S10S
  12145. Aktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:66
  12146. '++LotusScript Development Environment:2:5:(Forward):0:1
  12147. Declare Sub Click(Source As Button)
  12148. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12149. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12150. Private Sub BindEvents(Byval Objectname_ As String)
  12151.     Static Source As BUTTON
  12152.     Set Source = Bind(Objectname_)
  12153.     On Event Click From Source Call Click
  12154. End Sub
  12155. '++LotusScript Development Environment:2:2:Click:1:12
  12156. Sub Click(Source As Button)
  12157.     Call uitaskdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)",1) 
  12158. End Sub
  12159. tmpWasMailed
  12160. TaskType
  12161. tmpOwnerHW
  12162.     1S2S3S4S5S6S7S8S9S10S
  12163. Aktionen\Best
  12164. tigen
  12165. '++LotusScript Development Environment:2:5:(Options):0:66
  12166. '++LotusScript Development Environment:2:5:(Forward):0:1
  12167. Declare Sub Click(Source As Button)
  12168. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12169. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12170. Private Sub BindEvents(Byval Objectname_ As String)
  12171.     Static Source As BUTTON
  12172.     Set Source = Bind(Objectname_)
  12173.     On Event Click From Source Call Click
  12174. End Sub
  12175. '++LotusScript Development Environment:2:2:Click:1:12
  12176. Sub Click(Source As Button)
  12177.     Dim uievent As UIEventObject
  12178.     Set uievent = uitaskdoc.uiobject
  12179.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 1) Then
  12180.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  12181.         If (uievent.SendComments) Then Call uievent.EditNotice
  12182.     End If
  12183. End Sub
  12184. tmpWasMailed
  12185. TaskType
  12186. tmpOwnerHW
  12187.     1S2S3S4S5S6S7S8S9S10S
  12188. Aktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:66
  12189. '++LotusScript Development Environment:2:5:(Forward):0:1
  12190. Declare Sub Click(Source As Button)
  12191. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12192. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12193. Private Sub BindEvents(Byval Objectname_ As String)
  12194. Static Source As BUTTON
  12195. Set Source = Bind(Objectname_)
  12196. On Event Click From Source Call Click
  12197. End Sub
  12198. '++LotusScript Development Environment:2:2:Click:1:12
  12199. Sub Click(Source As Button)
  12200.     Call uitaskdoc.uiobject.ViewParticipantStatus()
  12201. End Sub
  12202. tmpWasMailed
  12203. TaskType
  12204. tmpOwnerHW
  12205.     1S2S3S4S5S6S7S8S9S10S
  12206. Aktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:66
  12207. '++LotusScript Development Environment:2:5:(Forward):0:1
  12208. Declare Sub Click(Source As Button)
  12209. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12210. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12211. Private Sub BindEvents(Byval Objectname_ As String)
  12212. Static Source As BUTTON
  12213. Set Source = Bind(Objectname_)
  12214. On Event Click From Source Call Click
  12215. End Sub
  12216. '++LotusScript Development Environment:2:2:Click:1:12
  12217. Sub Click(Source As Button)
  12218.     Call uitaskdoc.uiobject.creatememo(True)
  12219. End Sub
  12220. tmpWasMailed
  12221. TaskType
  12222. tmpOwnerHW
  12223.     1S2S3S4S5S6S7S8S9S10S
  12224. Abgeschlossenb
  12225. tmpAction
  12226. 4194306
  12227.     1S2S3S
  12228.     0R7S
  12229. NoticeType
  12230. DueState
  12231. TaskType
  12232. tmpOwnerHW
  12233.     1S2S3S4S5S6S7S8S10S11S12S13S14S15S
  12234. Zustelloptionen...P
  12235. (C&S DeliveryOptions)
  12236. TaskType
  12237. tmpOwnerHW
  12238.     1S2S3S4S5S6S
  12239. Antwort\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  12240. '++LotusScript Development Environment:2:5:(Forward):0:1
  12241. Declare Sub Click(Source As Button)
  12242. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12243. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12244. Private Sub BindEvents(Byval Objectname_ As String)
  12245. Static Source As BUTTON
  12246. Set Source = Bind(Objectname_)
  12247. On Event Click From Source Call Click
  12248. End Sub
  12249. '++LotusScript Development Environment:2:2:Click:1:12
  12250. Sub Click(Source As Button)
  12251.     Dim uidoc As NotesUIDocument
  12252.     Dim uiobject As Variant
  12253.     Dim nResult As Integer
  12254.     Set uiobject = uitaskdoc.UIObject
  12255.     Set uidoc = uitaskdoc.UIDocument     
  12256.     If (uiobject.OkToAccept(False)) Then
  12257.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  12258.         Call uidoc.save
  12259.         Call uidoc.close
  12260.     End If    
  12261. End Sub
  12262. tmpNoActionBar
  12263. tmpOwnerHW
  12264. NoticeType
  12265. Broadcast
  12266.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12267. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  12268. '++LotusScript Development Environment:2:5:(Forward):0:1
  12269. Declare Sub Click(Source As Button)
  12270. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12271. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12272. Private Sub BindEvents(Byval Objectname_ As String)
  12273.     Static Source As BUTTON
  12274.     Set Source = Bind(Objectname_)
  12275.     On Event Click From Source Call Click
  12276. End Sub
  12277. '++LotusScript Development Environment:2:2:Click:1:12
  12278. Sub Click(Source As Button)
  12279.     uitaskdoc.uiobject.SendComments = False    
  12280.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  12281. End Sub
  12282. tmpNoActionBar
  12283. tmpOwnerHW
  12284. NoticeType
  12285. Broadcast
  12286.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12287. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  12288. '++LotusScript Development Environment:2:5:(Forward):0:1
  12289. Declare Sub Click(Source As Button)
  12290. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12291. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12292. Private Sub BindEvents(Byval Objectname_ As String)
  12293.     Static Source As BUTTON
  12294.     Set Source = Bind(Objectname_)
  12295.     On Event Click From Source Call Click
  12296. End Sub
  12297. '++LotusScript Development Environment:2:2:Click:1:12
  12298. Sub Click(Source As Button)
  12299.     uitaskdoc.uiobject.SendComments = False    
  12300.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12301. End Sub
  12302. tmpNoActionBar
  12303. tmpOwnerHW
  12304. Broadcast
  12305. PreventDelegate
  12306.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  12307. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  12308. '++LotusScript Development Environment:2:5:(Forward):0:1
  12309. Declare Sub Click(Source As Button)
  12310. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12311. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12312. Private Sub BindEvents(Byval Objectname_ As String)
  12313.     Static Source As BUTTON
  12314.     Set Source = Bind(Objectname_)
  12315.     On Event Click From Source Call Click
  12316. End Sub
  12317. '++LotusScript Development Environment:2:2:Click:1:12
  12318. Sub Click(Source As Button)
  12319.     uitaskdoc.uiobject.SendComments = False    
  12320.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12321. End Sub
  12322. tmpNoActionBar
  12323. tmpOwnerHW
  12324. Broadcast
  12325. PreventCounter
  12326. OrgRepeat
  12327.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  12328. Antwort\Abgeschlossen
  12329. '++LotusScript Development Environment:2:5:(Options):0:66
  12330. '++LotusScript Development Environment:2:5:(Forward):0:1
  12331. Declare Sub Click(Source As Button)
  12332. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12333. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12334. Private Sub BindEvents(Byval Objectname_ As String)
  12335.     Static Source As BUTTON
  12336.     Set Source = Bind(Objectname_)
  12337.     On Event Click From Source Call Click
  12338. End Sub
  12339. '++LotusScript Development Environment:2:2:Click:1:12
  12340. Sub Click(Source As Button)
  12341.     uitaskdoc.uiobject.SendComments = False    
  12342.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12343. End Sub
  12344. tmpNoActionBar
  12345. tmpOwnerHW
  12346. NoticeType
  12347. Broadcast
  12348.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12349. Antwort mit Kommentar\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  12350. '++LotusScript Development Environment:2:5:(Forward):0:1
  12351. Declare Sub Click(Source As Button)
  12352. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12353. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12354. Private Sub BindEvents(Byval Objectname_ As String)
  12355. Static Source As BUTTON
  12356. Set Source = Bind(Objectname_)
  12357. On Event Click From Source Call Click
  12358. End Sub
  12359. '++LotusScript Development Environment:2:2:Click:1:12
  12360. Sub Click(Source As Button)
  12361.     Dim uidoc As NotesUIDocument
  12362.     Dim uiobject As Variant
  12363.     Dim nResult As Integer
  12364.     Set uiobject = uitaskdoc.UIObject
  12365.     Set uidoc = uitaskdoc.UIDocument     
  12366.     If (uiobject.OkToAccept(True)) Then
  12367.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  12368.         Call uidoc.save
  12369.         Call uidoc.close
  12370.     End If    
  12371. End Sub
  12372. tmpNoActionBar
  12373. tmpOwnerHW
  12374. NoticeType
  12375. Broadcast
  12376.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12377. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  12378. '++LotusScript Development Environment:2:5:(Forward):0:1
  12379. Declare Sub Click(Source As Button)
  12380. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12381. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12382. Private Sub BindEvents(Byval Objectname_ As String)
  12383.     Static Source As BUTTON
  12384.     Set Source = Bind(Objectname_)
  12385.     On Event Click From Source Call Click
  12386. End Sub
  12387. '++LotusScript Development Environment:2:2:Click:1:12
  12388. Sub Click(Source As Button)
  12389.     uitaskdoc.uiobject.SendComments = True
  12390.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  12391. End Sub
  12392. tmpNoActionBar
  12393. tmpOwnerHW
  12394. NoticeType
  12395. Broadcast
  12396.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  12397. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  12398. '++LotusScript Development Environment:2:5:(Forward):0:1
  12399. Declare Sub Click(Source As Button)
  12400. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12401. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12402. Private Sub BindEvents(Byval Objectname_ As String)
  12403.     Static Source As BUTTON
  12404.     Set Source = Bind(Objectname_)
  12405.     On Event Click From Source Call Click
  12406. End Sub
  12407. '++LotusScript Development Environment:2:2:Click:1:12
  12408. Sub Click(Source As Button)
  12409.     uitaskdoc.uiobject.SendComments = True
  12410.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  12411. End Sub
  12412. tmpNoActionBar
  12413. tmpOwnerHW
  12414. Broadcast
  12415. PreventDelegate
  12416.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12417. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  12418. '++LotusScript Development Environment:2:5:(Forward):0:1
  12419. Declare Sub Click(Source As Button)
  12420. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12421. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12422. Private Sub BindEvents(Byval Objectname_ As String)
  12423.     Static Source As BUTTON
  12424.     Set Source = Bind(Objectname_)
  12425.     On Event Click From Source Call Click
  12426. End Sub
  12427. '++LotusScript Development Environment:2:2:Click:1:12
  12428. Sub Click(Source As Button)
  12429.     uitaskdoc.uiobject.SendComments = True
  12430.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  12431. End Sub
  12432. tmpNoActionBar
  12433. tmpOwnerHW
  12434. Broadcast
  12435. PreventCounter
  12436. OrgRepeat
  12437.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  12438. Antwort mit Kommentar\Abgeschlossen2'++LotusScript Development Environment:2:5:(Options):0:66
  12439. '++LotusScript Development Environment:2:5:(Forward):0:1
  12440. Declare Sub Click(Source As Button)
  12441. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12442. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12443. Private Sub BindEvents(Byval Objectname_ As String)
  12444.     Static Source As BUTTON
  12445.     Set Source = Bind(Objectname_)
  12446.     On Event Click From Source Call Click
  12447. End Sub
  12448. '++LotusScript Development Environment:2:2:Click:1:12
  12449. Sub Click(Source As Button)
  12450.     uitaskdoc.uiobject.SendComments = True
  12451.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  12452. End Sub
  12453. tmpNoActionBar
  12454. tmpOwnerHW
  12455. NoticeType
  12456. Broadcast
  12457.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  12458. In Aufgabenliste aufnehmen
  12459. tmpAction
  12460.  2097154
  12461.     1S2S
  12462. Broadcast
  12463. tmpNoActionBar
  12464. tmpOwnerHW
  12465.     1S2S3S4S5S6S7S8S9S10S
  12466. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  12467. '++LotusScript Development Environment:2:5:(Forward):0:1
  12468. Declare Sub Click(Source As Button)
  12469. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12470. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12471. Private Sub BindEvents(Byval Objectname_ As String)
  12472.     Static Source As BUTTON
  12473.     Set Source = Bind(Objectname_)
  12474.     On Event Click From Source Call Click
  12475. End Sub
  12476. '++LotusScript Development Environment:2:2:Click:1:12
  12477. Sub Click(Source As Button)
  12478.     Dim uievent As UIEventObject
  12479.     Set uievent = uitaskdoc.UIObject
  12480.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 1) Then
  12481.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  12482.         If (uievent.SendComments) Then Call uievent.editnotice
  12483.     End If
  12484. End Sub
  12485. tmpOwnerHW
  12486. tasktype
  12487.     1S2S3S4S5S6S
  12488. Lotus Product
  12489. Lotus Product
  12490. Lotus Product
  12491. Lotus Product
  12492. Lotus Product
  12493. Lotus Product
  12494. Lotus Product
  12495. Lotus Product
  12496. Lotus Product
  12497. Lotus Product
  12498. Lotus Product
  12499. Lotus Product
  12500. Lotus Product
  12501. Lotus Product
  12502. Lotus Product
  12503. Lotus Product
  12504. O=Lotus Notes
  12505. O=Lotus Notes
  12506. PURSAFO
  12507. |.:#U
  12508. O=Lotus Notes
  12509. CN=Lotus Notes Template Development/O=Lotus Notes
  12510. PURSAFO
  12511. 2J+_(
  12512. ASSIGNSTATE
  12513. STARTDATETIME
  12514. DueDateTime
  12515. $HTMLDocumentStyles
  12516. $Language
  12517. $LastBuildTime
  12518. $BabelInfo
  12519. $HTMLCode
  12520. $Info
  12521. $WINDOWTITLE
  12522. $HTMLBodyTag
  12523. $AppHelpFormula
  12524. $WebFlags
  12525. $Script
  12526. $$Script_O
  12527. $$ScriptName
  12528. $$FormScript
  12529. $$$FormScript_O
  12530. $$StartDate
  12531. $StartDate_O
  12532. StartDate
  12533. DueDate
  12534. $Body
  12535. $V5ACTIONS
  12536. $ACTIONS
  12537. $SCRIPTOBJ_9
  12538. $SCRIPTOBJ_10
  12539. $SCRIPTOBJ_11
  12540. $SCRIPTOBJ_12
  12541. $SCRIPTOBJ_13
  12542. $SCRIPTOBJ_16
  12543. $SCRIPTOBJ_17
  12544. $SCRIPTOBJ_18
  12545. $SCRIPTOBJ_19
  12546. $SCRIPTOBJ_20
  12547. $SCRIPTOBJ_21
  12548. $SCRIPTOBJ_22
  12549. $SCRIPTOBJ_23
  12550. $SCRIPTOBJ_24
  12551. $SCRIPTOBJ_25
  12552. $SCRIPTOBJ_27
  12553. $PublicAccess
  12554. &Arial
  12555.  (GroupCalendar)
  12556. xxNoSubject
  12557. Gruppenkalender
  12558.     1S2E2S
  12559. Subject
  12560. Subject
  12561. xxNoSubject
  12562.     0RR7S9S
  12563. _KategorisierenX
  12564. Dokument _bearbeiten
  12565. Dokument _senden
  12566. _WeiterleitenX
  12567. In Ordner _verschieben...X
  12568. Aus Ordner _entfernenX
  12569. Mitglieder...X
  12570. MembersToAdd
  12571. Members
  12572.     1S2S6S
  12573. Members
  12574. MembersToAdd
  12575.     0R1S2S3S
  12576. SaveOptions
  12577.     0R1S2S3S
  12578. $GroupScheduleRefreshMode
  12579.     0R1S2S3S
  12580. Anzeigeoptionen...'++LotusScript Development Environment:2:5:(Options):0:66
  12581. '++LotusScript Development Environment:2:5:(Forward):0:1
  12582. Declare Sub Click(Source As Button)
  12583. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12584. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12585. Private Sub BindEvents(Byval Objectname_ As String)
  12586. Static Source As BUTTON
  12587. Set Source = Bind(Objectname_)
  12588. On Event Click From Source Call Click
  12589. End Sub
  12590. '++LotusScript Development Environment:2:2:Click:1:12
  12591. Sub Click(Source As Button)
  12592.     Dim ws As New notesuiworkspace
  12593.     Dim vDurationSel As Variant
  12594.     If ws.dialogbox("(GroupCalendarOptions)", True, True,,,,,"Optionen:",note,True) = False Then Exit Sub
  12595.     vDurationSel = note.getitemvalue("DurationSel")(0)
  12596.     If Isnumeric(vDurationSel) = False Then
  12597.         vDurationSel = 9
  12598.     Else
  12599.         vDurationSel = Cint(vDurationSel)
  12600.     End If
  12601.     Call note.replaceitemvalue("Duration", vDurationSel)
  12602.     Call note.replaceitemvalue("$GroupScheduleRefreshMode","1")
  12603.     Call uidoc.reload
  12604.     Call uidoc.refresh
  12605. End Sub
  12606. Legende anzeigen
  12607. $GroupScheduleShowLegend
  12608.     1S2S3S
  12609. $GroupScheduleRefreshMode
  12610.     0R1S2S3S
  12611. $GroupScheduleShowLegend
  12612.     1S2S
  12613. Legende verbergenX
  12614. $GroupScheduleShowLegend
  12615.     1S2S3S
  12616. $GroupScheduleRefreshMode
  12617.     0R1S2S3S
  12618. $GroupScheduleShowLegend
  12619.     1S2S
  12620. _KategorisierenX
  12621. Dokument _bearbeiten
  12622. Dokument _senden
  12623. _WeiterleitenX
  12624. In Ordner _verschieben...X
  12625. Aus Ordner _entfernenX
  12626. Mitglieder...X
  12627. MembersToAdd
  12628. Members
  12629.     1S2S6S
  12630. Members
  12631. MembersToAdd
  12632.     0R1S2S3S
  12633. SaveOptions
  12634.     0R1S2S3S
  12635. $GroupScheduleRefreshMode
  12636.     0R1S2S3S
  12637. act_participantactions.GIF|act_CSPARTACTIONS
  12638. Anzeigeoptionen...'++LotusScript Development Environment:2:5:(Options):0:66
  12639. '++LotusScript Development Environment:2:5:(Forward):0:1
  12640. Declare Sub Click(Source As Button)
  12641. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12642. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12643. Private Sub BindEvents(Byval Objectname_ As String)
  12644. Static Source As BUTTON
  12645. Set Source = Bind(Objectname_)
  12646. On Event Click From Source Call Click
  12647. End Sub
  12648. '++LotusScript Development Environment:2:2:Click:1:12
  12649. Sub Click(Source As Button)
  12650.     Dim ws As New notesuiworkspace
  12651.     Dim vDurationSel As Variant
  12652.     If ws.dialogbox("(GroupCalendarOptions)", True, True,,,,,"Optionen:",note,True) = False Then Exit Sub
  12653.     vDurationSel = note.getitemvalue("DurationSel")(0)
  12654.     If Isnumeric(vDurationSel) = False Then
  12655.         vDurationSel = 9
  12656.     Else
  12657.         vDurationSel = Cint(vDurationSel)
  12658.     End If
  12659.     Call note.replaceitemvalue("Duration", vDurationSel)
  12660.     Call note.replaceitemvalue("$GroupScheduleRefreshMode","1")
  12661.     Call uidoc.reload
  12662.     Call uidoc.refresh
  12663. End Sub
  12664. act_TOOLS.GIF|act_TOOLSX
  12665. Legende anzeigen
  12666. $GroupScheduleShowLegend
  12667.     1S2S3S
  12668. $GroupScheduleRefreshMode
  12669.     0R1S2S3S
  12670. $GroupScheduleShowLegend
  12671.     1S2S
  12672. Legende verbergenX
  12673. $GroupScheduleShowLegend
  12674.     1S2S3S
  12675. $GroupScheduleRefreshMode
  12676.     0R1S2S3S
  12677. $GroupScheduleShowLegend
  12678.     1S2S
  12679. '++LotusScript Development Environment:2:5:(Options):0:74
  12680. Option Public
  12681. Option Explicit
  12682. '++LotusScript Development Environment:2:5:(Forward):0:1
  12683. '++LotusScript Development Environment:2:5:(Declarations):0:10
  12684. Dim uidoc As notesuidocument
  12685. Dim note As notesdocument
  12686. '++LotusScript Development Environment:2:5:(Options):0:66
  12687. '++LotusScript Development Environment:2:5:(Forward):0:1
  12688. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  12689. Declare Sub Postopen(Source As Notesuidocument)
  12690. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12691. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12692. Private Sub BindEvents(Byval Objectname_ As String)
  12693. Static Source As NOTESUIDOCUMENT
  12694. Set Source = Bind(Objectname_)
  12695. On Event Queryclose From Source Call Queryclose
  12696. On Event Postopen From Source Call Postopen
  12697. End Sub
  12698. '++LotusScript Development Environment:2:2:Queryclose:1:12
  12699. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  12700.     Call source.save
  12701. End Sub
  12702. '++LotusScript Development Environment:2:2:Postopen:1:12
  12703. Sub Postopen(Source As Notesuidocument)
  12704.     Set uidoc = source
  12705. Set note = uidoc.document
  12706.     source.fieldhelp = False
  12707.     source.horzscrollbar = False
  12708. End Sub
  12709. SaveOptionsX
  12710. ExcludeFromViewX
  12711. DurationSelX
  12712. NewDuration
  12713. DurationSel
  12714.     1S2S
  12715. NewDuration
  12716. NewDuration
  12717.     0R7S9S
  12718. Duration
  12719. StartTime
  12720. StartTime
  12721.     3S4S6S8S
  12722. StartTime
  12723. StartTime
  12724.     3S4S6S8S
  12725. StartTimeX
  12726. MembersToAdd
  12727. Members
  12728.     1S2S6S
  12729. Members
  12730. MembersToAdd
  12731.     0R1S2S3S
  12732. SaveOptions
  12733.     0R1S2S3S
  12734. $GroupScheduleRefreshMode
  12735.     0R1S2S3S
  12736. Mitglieder...X
  12737. act_participantactions.GIF|act_CSPARTACTIONS
  12738.     Mitglieder...  X
  12739. '++LotusScript Development Environment:2:5:(Options):0:66
  12740. '++LotusScript Development Environment:2:5:(Forward):0:1
  12741. Declare Sub Click(Source As Button)
  12742. '++LotusScript Development Environment:2:5:(Declarations):0:2
  12743. '++LotusScript Development Environment:2:2:BindEvents:1:129
  12744. Private Sub BindEvents(Byval Objectname_ As String)
  12745.     Static Source As BUTTON
  12746.     Set Source = Bind(Objectname_)
  12747.     On Event Click From Source Call Click
  12748. End Sub
  12749. '++LotusScript Development Environment:2:2:Click:1:12
  12750. Sub Click(Source As Button)
  12751.     Dim ws As New notesuiworkspace
  12752.     Dim vDurationSel As Variant
  12753.     If ws.dialogbox("(GroupCalendarOptions)", True, True,,,,,"Optionen:",note,True) = False Then Exit Sub
  12754.     vDurationSel = note.getitemvalue("DurationSel")(0)
  12755.     If Isnumeric(vDurationSel) = False Then
  12756.         vDurationSel = 9
  12757.     Else
  12758.         vDurationSel = Cint(vDurationSel)
  12759.     End If
  12760.     Call note.replaceitemvalue("Duration", vDurationSel)
  12761.     Call note.replaceitemvalue("$GroupScheduleRefreshMode","1")
  12762.     Call uidoc.reload
  12763.     Call uidoc.refresh
  12764. End Sub
  12765. Lotus Product
  12766. act_TOOLS.GIF|act_TOOLSX
  12767.      Anzeigeoptionen...X
  12768. xxNoSubject
  12769. Gruppenkalender
  12770.     1S2E2S
  12771. Subject
  12772. Subject
  12773. xxNoSubject
  12774.     0RR7S9StmpTitle
  12775. CalendarView
  12776. StartTime
  12777. Duration
  12778. Members
  12779. tmpHiddenX
  12780. Lotus Product
  12781. Lotus Product
  12782. Lotus Product
  12783. O=Lotus Notes
  12784. O=Lotus Notes
  12785. PURSAFO
  12786. |.:#U
  12787. O=Lotus Notes
  12788. CN=Lotus Notes Template Development/O=Lotus Notes
  12789. PURSAFO
  12790.     ygUa+
  12791. $HTMLDocumentStyles
  12792. StartDate
  12793. $Info
  12794. $FrameInfo
  12795. $$ScriptName
  12796. Duration
  12797. StartTime
  12798. $PublicAccess
  12799. $WINDOWTITLE
  12800. $ACTIONS
  12801. $V5ACTIONS
  12802. $Script
  12803. $$FormScript
  12804. $Body
  12805. $$Script_O
  12806. $$$FormScript_O
  12807. $SCRIPTOBJ_7
  12808. $Language
  12809. $LastBuildTime
  12810. $BabelInfo
  12811.  Return Receipt
  12812. *** Nachricht empfangen ***
  12813. (Help)
  12814. MAIL_F_RETURN-RECEIPT
  12815.     0S0E
  12816. _KategorisierenX
  12817. Schlie
  12818.     0S0E
  12819. Dokument _bearbeiten
  12820. Dokument _senden
  12821. _WeiterleitenX
  12822. In Ordner _verschieben...X
  12823. Aus Ordner _entfernen...
  12824. EingangX
  12825.     1S2S
  12826. path"
  12827. /MailFS?OpenFrameset"
  12828.     0R3S4S5S6S
  12829. schenX
  12830.     1S10S14S16S23S
  12831.     0R5S
  12832. path"
  12833. /wDelete?OpenAgent&
  12834. UNID"
  12835. VorX 
  12836.     0S0E
  12837. _KategorisierenX
  12838. Schlie
  12839.     0S0E
  12840. Dokument _bearbeiten
  12841. Dokument _senden
  12842. _WeiterleitenX
  12843. In Ordner _verschieben...X
  12844. Aus Ordner _entfernen...
  12845. EingangX
  12846.     1S2S
  12847. path"
  12848. /MailFS?OpenFrameset"
  12849.     0R3S4S5S6S
  12850. act_NEWMAIL.GIF|act_NEWMAILX
  12851. schenX
  12852.     1S10S14S16S23S
  12853.     0R5S
  12854. path"
  12855. /wDelete?OpenAgent&
  12856. UNID"
  12857. act_DELETE.GIF|act_DELETEX
  12858. VorX 
  12859.     0S0E
  12860. Empfangsbest
  12861. tigungX
  12862.         Ihr Dokument:X
  12863. Subject
  12864. SubjectX
  12865.         wurde empfangen von:
  12866. IntendedRecipient
  12867. IntendedRecipientX
  12868.         am:X
  12869. DeliveryDate
  12870. O=Lotus Notes
  12871. O=Lotus Notes
  12872. PURSAFO
  12873. |.:#U
  12874. O=Lotus Notes
  12875. CN=Lotus Notes Template Development/O=Lotus Notes
  12876. PURSAFO
  12877. g>Uwy
  12878. $Info
  12879. $$ScriptName
  12880. DeliveryDate
  12881. $WINDOWTITLE
  12882. $AppHelpFormula
  12883. $ACTIONS
  12884. $V5ACTIONS
  12885. $Body
  12886. $Language
  12887. $LastBuildTime
  12888. $BabelInfo
  12889.  ReturnNonReceipt.
  12890. *** Nachricht nicht zugestellt ***
  12891. (Help)
  12892. MAIL_F_RETURNNONRECEIPT
  12893.     0S0E
  12894. _KategorisierenX
  12895. Schlie
  12896.     0S0E
  12897. Dokument bearbeitenX
  12898. Erneut sendenX
  12899. Erneut sendenX>
  12900.     7S12S
  12901. _WeiterleitenX
  12902. In Ordner _verschieben...X
  12903. Aus Ordner _entfernen...
  12904. EingangX
  12905.     1S2S
  12906. path"
  12907. /MailFS?OpenFrameset"
  12908.     0R3S4S5S6S
  12909. schenX
  12910.     1S10S14S16S23S
  12911.     0R5S
  12912. path"
  12913. /wDelete?OpenAgent&
  12914. UNID"
  12915. VorX 
  12916.     0S0E
  12917. _KategorisierenX
  12918. Schlie
  12919.     0S0E
  12920. Dokument bearbeitenX
  12921. Erneut sendenX
  12922. Erneut sendenX>
  12923.     7S12S
  12924. _WeiterleitenX
  12925. In Ordner _verschieben...X
  12926. Aus Ordner _entfernen...
  12927. EingangX
  12928.     1S2S
  12929. path"
  12930. /MailFS?OpenFrameset"
  12931.     0R3S4S5S6S
  12932. act_NEWMAIL.GIF|act_NEWMAILX
  12933. schenX
  12934.     1S10S14S16S23S
  12935.     0R5S
  12936. path"
  12937. /wDelete?OpenAgent&
  12938. UNID"
  12939. act_DELETE.GIF|act_DELETEX
  12940. VorX 
  12941.     0S0E
  12942. Empfangsbest
  12943. tigung: FehlerX
  12944.     Ihr Dokument:X
  12945. Subject
  12946. OriginalSubjectX
  12947.     wurde nicht empfangen von:
  12948. IntendedRecipient
  12949. IntendedRecipientX
  12950.     weil:X
  12951. FailureReason
  12952. FailureReasonX
  12953. O=Lotus Notes
  12954. O=Lotus Notes
  12955. PURSAFO
  12956. |.:#U
  12957. O=Lotus Notes
  12958. CN=Lotus Notes Template Development/O=Lotus Notes
  12959. PURSAFO
  12960. $Info
  12961. $$ScriptName
  12962. $WINDOWTITLE
  12963. $AppHelpFormula
  12964. $ACTIONS
  12965. $V5ACTIONS
  12966. $Body
  12967. $Language
  12968. $LastBuildTime
  12969. $BabelInfo
  12970. &Arial
  12971. function getBack() {
  12972. if (window.name ==  "" )
  12973. history.back()
  12974.  else window.close();
  12975.  $$ReturnAuthenticationFailure
  12976. _KategorisierenX
  12977. Dokument _bearbeiten
  12978. Dokument _senden
  12979. _WeiterleitenX
  12980. In Ordner _verschieben...X
  12981. Aus Ordner _entfernenX
  12982. _KategorisierenX
  12983. Dokument _bearbeiten
  12984. Dokument _senden
  12985. _WeiterleitenX
  12986. In Ordner _verschieben...X
  12987. Aus Ordner _entfernenX
  12988.     0S0E
  12989.     Authentifizierungsfehler
  12990.     0S0E
  12991. [<BR><BR>]
  12992.     Der Name und das Kennwort konnten nicht authentifiziert werden.X
  12993. <a href="javascript: onClick=getBack()">
  12994. O=Lotus Notes
  12995. O=Lotus Notes
  12996. PURSAFO
  12997. |.:#U
  12998. O=Lotus Notes
  12999. CN=Lotus Notes Template Development/O=Lotus Notes
  13000. PURSAFO
  13001. pS3H8I
  13002. $HTMLCode
  13003. $Info
  13004. $$ScriptName
  13005. $PublicAccess
  13006. $ACTIONS
  13007. $V5ACTIONS
  13008. $Body
  13009. $Language
  13010. $LastBuildTime
  13011. $BabelInfo
  13012. CN=Anton Admin/O=LotusDev
  13013. wPreferencesSave
  13014. wPreferencesOpen
  13015. (Help)
  13016. MAIL_F_CALENDARPROFILE
  13017.     0S0E
  13018. &Arial
  13019. Times New Roman
  13020. 5Courier New
  13021. '++LotusScript Development Environment:2:5:(Options):0:74
  13022. '++LotusScript Development Environment:2:5:(Forward):0:1
  13023. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13024. Lotus Product
  13025.  CalendarProfile'++LotusScript Development Environment:2:5:(Options):0:66
  13026. '++LotusScript Development Environment:2:5:(Forward):0:1
  13027. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  13028. Declare Sub Postopen(Source As Notesuidocument)
  13029. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13030. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13031. Private Sub BindEvents(Byval Objectname_ As String)
  13032.     Static Source As NOTESUIDOCUMENT
  13033.     Set Source = Bind(Objectname_)
  13034.     On Event Queryopen From Source Call Queryopen
  13035.     On Event Postopen From Source Call Postopen
  13036. End Sub
  13037. '++LotusScript Development Environment:2:2:Queryopen:1:12
  13038. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  13039.     Dim note As NotesDocument
  13040.     Dim ws As New notesuiworkspace
  13041.     Set note = source.document
  13042.     Call note.replaceitemvalue("tmpAlarmSounds", ws.getlistoftunes())
  13043. End Sub
  13044. '++LotusScript Development Environment:2:2:Postopen:1:12
  13045. Sub Postopen(Source As Notesuidocument)
  13046.     Call Source.document.removeitem("$DialogMode")
  13047. End Sub
  13048. Lotus Product
  13049. '++LotusScript Development Environment:2:5:(Options):0:66
  13050. '++LotusScript Development Environment:2:5:(Forward):0:1
  13051. Declare Sub Exiting(Source As Field)
  13052. Declare Sub Entering(Source As Field)
  13053. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13054. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13055. Private Sub BindEvents(Byval Objectname_ As String)
  13056.     Static Source As FIELD
  13057.     Set Source = Bind(Objectname_)
  13058.     On Event Exiting From Source Call Exiting
  13059.     On Event Entering From Source Call Entering
  13060. End Sub
  13061. '++LotusScript Development Environment:2:2:Exiting:1:12
  13062. Sub Exiting(Source As Field)
  13063.     'Should I clear the Signature location field here if I sense that the Option has been changed?
  13064.     Dim uiws As New notesuiworkspace
  13065.     Dim noteUIDoc As notesuidocument
  13066.     Set noteUIDoc = uiws.currentdocument
  13067.     If strSignatureOption <> noteUIDoc.FieldGetText("SignatureOption") Then
  13068.         Call noteUIDoc.FieldSetText("Signature","")
  13069.     End If
  13070. End Sub
  13071. '++LotusScript Development Environment:2:2:Entering:1:12
  13072. Sub Entering(Source As Field)
  13073.     Dim uiws As New notesuiworkspace
  13074.     Dim noteUIDoc As notesuidocument
  13075.     Set noteUIDoc = uiws.currentdocument
  13076.     strSignatureOption = noteUIDoc.FieldGetText("SignatureOption")
  13077. End Sub
  13078. Lotus Product
  13079. '++LotusScript Development Environment:2:5:(Options):0:66
  13080. '++LotusScript Development Environment:2:5:(Forward):0:1
  13081. Declare Sub Entering(Source As Field)
  13082. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13083. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13084. Private Sub BindEvents(Byval Objectname_ As String)
  13085.     Static Source As FIELD
  13086.     Set Source = Bind(Objectname_)
  13087.     On Event Entering From Source Call Entering
  13088. End Sub
  13089. '++LotusScript Development Environment:2:2:Entering:1:12
  13090. Sub Entering(Source As Field)
  13091. End Sub
  13092. Lotus Product
  13093. '++LotusScript Development Environment:2:5:(Options):0:66
  13094. '++LotusScript Development Environment:2:5:(Forward):0:1
  13095. Declare Sub Entering(Source As Field)
  13096. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13097. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13098. Private Sub BindEvents(Byval Objectname_ As String)
  13099.     Static Source As FIELD
  13100.     Set Source = Bind(Objectname_)
  13101.     On Event Entering From Source Call Entering
  13102. End Sub
  13103. '++LotusScript Development Environment:2:2:Entering:1:12
  13104. Sub Entering(Source As Field)
  13105. End Sub
  13106. Lotus Product
  13107. '++LotusScript Development Environment:2:5:(Options):0:66
  13108. '++LotusScript Development Environment:2:5:(Forward):0:1
  13109. Declare Sub Entering(Source As Field)
  13110. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13111. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13112. Private Sub BindEvents(Byval Objectname_ As String)
  13113.     Static Source As FIELD
  13114.     Set Source = Bind(Objectname_)
  13115.     On Event Entering From Source Call Entering
  13116. End Sub
  13117. '++LotusScript Development Environment:2:2:Entering:1:12
  13118. Sub Entering(Source As Field)
  13119. End Sub
  13120. Lotus Product
  13121. FromPerson memo is from.z
  13122. FromDomain
  13123. FromDomain
  13124. FromDomain
  13125. FromDomain
  13126.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  13127. FromName
  13128.     0RR1S2S6S
  13129. FromStops
  13130.     0R1S2S6S
  13131. FromName
  13132. FromStops
  13133.     0RR1S2S3S4S8StmpDisplayFrom_Previewz
  13134. tmpDisplayFrom_Preview
  13135. .,$ //:
  13136. PostedDateh
  13137. PostedDate
  13138.     7S9S
  13139. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  13140. tmpDisplayDate_Preview
  13141. tmpAlarmSounds
  13142. Path_Info
  13143. Path_Info
  13144. Query_String
  13145. Query_String
  13146. SignatureOption
  13147.     2S3S4S5S6S7S
  13148. DialogMode
  13149. DialogMode
  13150. Preference
  13151.     Benutzerkonfiguration x
  13152. bg_DIALOGBAND|bg_DIALOGBAND
  13153.     Diese Mail-Datei geh
  13154. xxNO_OWNER
  13155. r diese Mail-Datei wurde kein Besitzer angegeben.
  13156.     0S0E
  13157. Owner
  13158. xxNO_OWNER{
  13159.     0R3S4S5S
  13160. OwnerVollst
  13161. ndiger hierarchischer Name des Mail-Datei-Besitzers
  13162. Owner
  13163.     Verwenden Sie den hierarchischen Namen, z. B. 'Hans Huber/Organisation'.
  13164. SpellCheckAktiviert die automatische Rechtschreibpr
  13165. fung beim Senden einer Nachricht
  13166. Mail-Nachrichten vor dem Absenden automatisch auf Rechtschreibfehler pr
  13167. fen|1
  13168. SpellCheck
  13169. FormatRepliesErm
  13170. glicht das Verwenden einer formatierten Antwortzeichenfolge
  13171. Formatierte Antworten mit einem Markierzeichen|1z
  13172. FormatReplies
  13173. OffSetCharStil der formatierten Antwortzeichenfolge
  13174. >|1<|2<<|3>>|4
  13175. OffSetChar
  13176. Allgemein
  13177.     Ihr Briefkopf erscheint im Kopfbereich Ihrer ausgehenden Mail-Nachrichten
  13178.     Briefkopf
  13179. DefaultLogoZeigt eine Auswahl von Briefk
  13180. pfen f
  13181. r Nachrichten an
  13182. pfender Globus|StdNotesLtr1Raketenpost-Mail|StdNotesLtr2Computer-Chip|StdNotesLtr3Schattierter Balken mit Dreieck|StdNotesLtr4Fallende Kugeln|StdNotesLtr5Frank Lloyd|StdNotesLtr7Schreibtisch|StdNotesLtr8Gateway|StdNotesLtrGatewayGeometrische Formen |StdNotesLtr9Grau verlaufend mit Linien|StdNotesLtr13Gr
  13183. ngelbe Raute|StdNotesLtr14Bl
  13184. tter|StdNotesLtr6Rahmen|StdNotesLtr34Namensschild|StdNotesLtr15Stift und Raster|StdNotesLtr16Einfacher Text|StdNotesLtr0Pony Express|StdNotesLtr17Poststempel|StdNotesLtr33Primitiv|StdNotesLtr20Rahmen mit violetten Formen|StdNotesLtr18Unterbrochener Balken mit Globus|StdNotesLtr21Schlangenlinie mit Hintergrund|StdNotesLtr22Schlangenlinie|StdNotesLtr23Heftklammern|StdNotesLtr24Klebeband|StdNotesLtr25Balken und gelbe Linie|StdNotesLtr26Dreidimensionales Relief|StdNotesLtr27Ausri
  13185. |StdNotesLtr28Dreieck mit Punkten|StdNotesLtr30Dreiecke|StdNotesLtr29Konfetti|StdNotesLtr32z
  13186. LetterHeadChoices
  13187. DefaultLogo
  13188. BG_IMAGE_PREFIX
  13189. StdNotesLtr0
  13190.     0RR1RT3S4S6RTT13RT14RT
  13191. Image
  13192. StdNotesLtr
  13193. Image
  13194. Gateway
  13195. BG_IMAGE_PREFIX
  13196. Image
  13197. Image
  13198.     0RR1RT3S4S6RTT9S10S13RT22RT
  13199. Image
  13200. BG_IMAGE_PREFIX
  13201. Image
  13202. BG_IMAGE_PREFIX
  13203. Image
  13204. BG_IMAGE_PREFIX
  13205. Image
  13206. BG_IMAGE_PREFIX
  13207. Image
  13208. BG_IMAGE_PREFIX
  13209. BG_IMAGE_PREFIX
  13210.     0R1RT3S4S10RTT13S14S17RT18S19S27RTT30S31S34RT35S36S46RTT49S50S53RT54S55S61RTT64S65S68RT69S70S76RTT79S80S83RT86S87S89RT
  13211. BGTableColor
  13212.     Vorschau
  13213. $HideMailHeader
  13214.     0S0E
  13215. tmpDisplayFrom_Preview
  13216. DisplayFrom
  13217. DisplayFrom
  13218. PostedDateh
  13219. PostedDate
  13220.     4S5S10S12S
  13221. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  13222. DisplayDate
  13223. DefaultLogo
  13224. StdNotesLtr16
  13225. DefaultLogo
  13226.     4S5S6S8S
  13227. BGTableColor
  13228. Briefkopf
  13229. EnableSignatureErm
  13230. glicht das automatische Einf
  13231. gen von Signaturtext in neue Nachrichten
  13232. Meine ausgehenden Mail-Nachrichten automatisch mit Signatur versehen|1z
  13233. EnableSignature
  13234.     Bei einer Signatur kann es sich um Text, ein Bild oder eine HTML-Datei handeln.
  13235. SignatureOptionSignaturtext-Option
  13236. Text|1Datei|2
  13237. SignatureOption
  13238.     2S3S
  13239.     Datei: 
  13240. Signature_2Pfad der Signatur-Datei
  13241. SignatureOption
  13242.     2S3S
  13243. '++LotusScript Development Environment:2:5:(Options):0:66
  13244. '++LotusScript Development Environment:2:5:(Forward):0:1
  13245. Declare Sub Click(Source As Button)
  13246. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13247. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13248. Private Sub BindEvents(Byval Objectname_ As String)
  13249.     Static Source As BUTTON
  13250.     Set Source = Bind(Objectname_)
  13251.     On Event Click From Source Call Click
  13252. End Sub
  13253. '++LotusScript Development Environment:2:2:Click:1:12
  13254. Sub Click(Source As Button)
  13255.     Dim uiws As New notesuiworkspace
  13256.     Dim noteUIDoc As notesuidocument
  13257.     Dim nSignatureOption As Integer
  13258.     Dim vSignatureLocation As Variant
  13259.     Dim vSignatureBody As Variant
  13260.     Dim nSuccess As Integer
  13261.     Set noteUIDoc = uiws.currentdocument
  13262.     vSignatureLocation = uiws.openfiledialog(False,"Titel","Textdateien|*.txt|HTML-Dateien|*.htm|Bitmap-Dateien|*.BMP||","","")
  13263.     If Isempty(vSignatureLocation) Then
  13264.         Redim vSignatureLocation(0)
  13265.     End If
  13266.     Call noteUIDoc.FieldSetText("Signature_2",Cstr(vSignatureLocation(0)))
  13267. End Sub
  13268. Lotus Product
  13269. New Button
  13270. Need a newer version of Notes to execute this button.
  13271.     0S0E
  13272.     Durchsuchen...
  13273. SignatureOption
  13274.     2S3S
  13275. SignatureOption
  13276.     2S3S
  13277. SignatureOption
  13278.     2S3S
  13279.     Signatur:
  13280. SignatureOption
  13281.     2S3S
  13282. Signature_1Geben Sie den Signaturtext hier ein
  13283. SignatureOption
  13284. Signature_1
  13285. Signature_2
  13286.     3S4S
  13287. Signature
  13288. Signatur
  13289. Preference_1
  13290.     Vorgabenx
  13291. bg_DIALOGBAND|bg_DIALOGBAND
  13292.     Beim Doppelklicken auf ein Zeitraster im Kalender wird folgender Eintrag erstellt 
  13293. CalEntryType
  13294. CalEntryType
  13295.     3S4S
  13296. CalEntryTypeW
  13297. hlen Sie den Eintragstyp, den Sie am h
  13298. ufigsten verwenden
  13299. Besprechung | 3Termin | 0Ganzt
  13300. gige Veranstaltung | 2Jahrestag | 1Erinnerung | 4
  13301.     Wenn nicht anders angegeben, werden Termine und Besprechungen angesetzt f
  13302. DefaultDuration
  13303. DefaultDuration
  13304. DefaultDuration
  13305.     3S4S5S6S7S8S9S10S12S
  13306. DefaultDurationVorgegebene Besprechungsdauer in Minuten
  13307.      Minuten
  13308.     Wenn nicht anders angegeben, wiederholen sich Jahrestage f
  13309. .,$///:
  13310. AutoAnniversaryRepeat
  13311. AutoAnniversaryRepeat
  13312. AutoAnniversaryRepeat
  13313.     3S4S5S6S7S8S10S12S
  13314. AutoAnniversaryRepeatAnzahl Wiederholungen bei Jahrestagen
  13315.      Jahre
  13316.     Beim Planen automatisch nach Terminkonflikten pr
  13317. bg_DIALOGBAND|bg_DIALOGBAND
  13318. ConflictMeetingF
  13319. r Termine/Besprechungen aktivieren
  13320. r Termine/Besprechungen aktivieren|1
  13321. ConflictEventF
  13322. r Veranstaltungen aktivieren
  13323. r Veranstaltungen aktivieren|1
  13324. ConflictAnniversaryF
  13325. r Jahrestage aktivieren
  13326. r Jahrestage aktivieren|1
  13327.     Erweitert
  13328. bg_DIALOGBAND|bg_DIALOGBAND
  13329. ExcludeFromAllKalendereintr
  13330. ge nicht in der Ansicht 'Alle Dokumente' anzeigen
  13331. Kalendereintr
  13332. ge nicht in der Mail-Ansicht 'Alle Dokumente' anzeigen|1
  13333. ExcludeFromSentBesprechungseinladungen nicht in der Ansicht 'Gesendet' anzeigen
  13334. Besprechungseinladungen nicht in der Mail-Ansicht 'Gesendet' anzeigen|1
  13335.     Pers
  13336. nliche Kategorien  
  13337. UserCategoriesGeben Sie Ihre eigenen Kategorien an
  13338. Allgemein
  13339.     Mit Hilfe von 'Freie Zeit' k
  13340. nnen Sie Ihre normalerweise f
  13341. r die Teilnahme an Besprechungen verf
  13342. gbaren Zeiten angeben.
  13343. Unter Verwendung des Planers k
  13344. nnen auch andere Personen diese Informationen einsehen.
  13345.     Meine 
  13346. blichen B
  13347. rozeiten sind
  13348. Sunday
  13349. Sonntag|1
  13350. Sunday
  13351.     1S2S
  13352. Size=40
  13353.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
  13354. Monday
  13355. Montag|2
  13356. Monday
  13357.     1S2S
  13358. Size=40
  13359.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
  13360. Tuesday
  13361. Dienstag|3
  13362. Tuesday
  13363.     1S2S
  13364. Size=40
  13365.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
  13366. Wednesday
  13367. Mittwoch|4
  13368. Wednesday
  13369.     1S2S
  13370. Size=40
  13371.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
  13372. Thursday
  13373. Donnerstag|5
  13374. Thursday
  13375.     1S2S
  13376. Size=40
  13377.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
  13378. Friday
  13379. Freitag|6
  13380. Friday
  13381.     1S2S
  13382. Size=40
  13383.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
  13384. Saturday
  13385. Samstag|7
  13386. Saturday
  13387.     1S2S
  13388. Size=40
  13389.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
  13390.     Angaben zu meiner freien Zeit k
  13391. nnen nur von folgenden Personen eingesehen werden:
  13392. AllowBusyAccessAngaben zur freien Zeit anfordern; dies erfolgt unabh
  13393. ngig von anderen Zugriffsrechten
  13394. Freie Zeit
  13395. EnableAlarms
  13396. ber Alarme werden Erinnerungen akustisch oder per Mail generiert
  13397. Alarme aktivieren|1
  13398. EnableAlarms
  13399.     1S2S
  13400. EnableAlarms
  13401.     1S2S
  13402.     Vorgegebene Alarmex
  13403. bg_DIALOGBAND|bg_DIALOGBAND
  13404.     Die nachfolgenden Einstellungen dienen als Vorgabe f
  13405. r das Erstellen eines neuen Kalendereintrags. 
  13406. SetAlarmAppointment
  13407. Termine/Besprechungen|1
  13408. AppointmentLead
  13409. AppointmentLead
  13410.     3S4S
  13411. AppointmentLead
  13412.      Minuten im voraus
  13413. SetAlarmReminder
  13414. Erinnerungen|1
  13415. ReminderLead
  13416. ReminderLead
  13417.     3S4S
  13418. ReminderLead
  13419.      Minuten im voraus
  13420. SetAlarmEvent
  13421. Veranstaltungen|1
  13422. EventLead
  13423. EventLead
  13424.     3S4S
  13425. EventLead
  13426.      Tag(e) im voraus
  13427. SetAlarmAnniversary
  13428. Jahrestage|1
  13429. AnniversaryLead
  13430. AnniversaryLead
  13431.     3S4S
  13432. AnniversaryLead
  13433.      Tag(e) im voraus
  13434. SetAlarmTask
  13435. Aufgabe|1
  13436. .,$///:
  13437. TaskLead
  13438. TaskLead
  13439.     3S4S
  13440. TaskLead
  13441.      Tag(e) vor dem F
  13442. lligkeitsdatum
  13443.     Vorgegebener Klang:
  13444. EnableAlarms
  13445.     1S2S
  13446. tmpAlarmSounds
  13447.     0S0E
  13448. AlarmSound
  13449. tmpAlarmSounds
  13450. Alarme
  13451.     Wenn Uhrzeiten in der Kalenderansicht angezeigt werden...
  13452.     Uhrzeiten erst anzeigen ab
  13453. .,$ //:
  13454. CalendarTimeSlotStart
  13455.     Uhrzeiten nur anzeigen bis
  13456. .,$ //:
  13457. CalendarTimeSlotEnd
  13458.     Dauer eines Zeitrasters
  13459. CalendarTimeSlotDuration
  13460. 15 Minuten|1530 Minuten|3060 Minuten|60
  13461.     Diese Einstellungen betreffen nicht das Anzeigen von mit Kalendereintr
  13462. gen verbundenen Uhrzeiten
  13463. Anzeigen
  13464. AutoProcessMeetings
  13465.     1S2S
  13466. AutoProcessType
  13467. AutoProcessType
  13468.     3S4S6S8S
  13469. AutoProcessType
  13470. Besprechungseinladungen nicht automatisch verarbeiten|DBesprechungseinladungen von allen Benutzern automatisch verarbeiten|0Besprechungseinladungen von folgenden Benutzern automatisch verarbeiten|2Besprechungseinladungen an folgende Person delegieren|1
  13471. AutoProcessType
  13472.     1S2S
  13473. AutoprocessUserList
  13474. AutoProcessType
  13475.     1S2S
  13476. Size=40
  13477. AutoProcessForwardTo
  13478. AutoRemoveFromInbox
  13479. Besprechungseinladungen nach Beantwortung aus meinem Posteingang entfernen|1
  13480. PreventRepliesFromInbox
  13481. Antworten auf Besprechungseinladungen nicht in meinem Posteingang anzeigen|1
  13482. Autom. verarbeiten
  13483. TaskFollow
  13484. Aktuelle Aufgaben immer im heutigen Kalender anzeigen|1
  13485. Aufgabe
  13486. Kalender
  13487. Calendar
  13488.     Die folgenden Personen d
  13489. rfen...x
  13490. bg_DIALOGBAND|bg_DIALOGBAND
  13491.     Mail-, Kalender- und Aufgabendokumente lesen
  13492. ReadMailDiese Benutzer haben Lesezugriff auf Mail- und Kalendereintr
  13493. ReadMail
  13494.     Mail-, Kalender und Aufgabendokumente lesen und Mail-Nachrichten in meinem Namen senden
  13495. WriteMailDiese Benutzer k
  13496. nnen Nachrichten erstellen, und sie haben Lesezugriff auf Mail und Kalendereintr
  13497. WriteMail
  13498.     Mail-, Kalender- und Aufgabendokumente lesen, senden und bearbeiten
  13499. EditMailDiese Benutzer k
  13500. nnen Nachrichten erstellen, von Ihnen geschriebenen Nachrichten bearbeiten, und besitzen Lesezugriff auf Mail und Kalendereintr
  13501. EditMail
  13502.     Mail-, Kalender- und Aufgabendokumente l
  13503. schen (*siehe Hilfe f
  13504. r weitere Einzelheiten)
  13505. DeleteMailDiese Benutzer k
  13506. nnen alle Dokumente l
  13507. schen, die sie selbst erstellt oder auf die sie Editorzugriff habenz
  13508. DeleteMail
  13509.     Zu administrativen Zwecken wurde den nachfolgenden Personen und Servern Manager- oder Entwicklerzugriff auf Ihre Mail-Datenbank zugewiesen.
  13510. bg_DIALOGBAND|bg_DIALOGBAND
  13511. .,$,  , :
  13512. OtherUsers
  13513.     0S0E
  13514. OtherUsersBei diesen Eintr
  13515. gen handelt es sich um Manager, Entwickler oder Benutzer, f
  13516. r die keine Zugriffsrechte angegeben sind
  13517. Mail-Delegierung
  13518.     Lesezugriff
  13519. bg_DIALOGBAND|bg_DIALOGBAND
  13520. PublicRead
  13521.     3S4S
  13522. PublicReadBenutzer d
  13523. rfen Kalender global anzeigen 
  13524. Jeder darf meinen Kalender lesen|1Nur die folgenden Personen d
  13525. rfen meinen Kalender lesen|0
  13526. PublicRead
  13527.     1S2S
  13528. ReadCalendarDiese Benutzer d
  13529. rfen Kalendereintr
  13530. ge lesen
  13531.     Autor- und Editorzugriffx
  13532. bg_DIALOGBAND|bg_DIALOGBAND
  13533. PublicWrite
  13534.     3S4S
  13535. PublicWriteBenutzer d
  13536. rfen Kalender global verwalten
  13537. Jeder darf Eintr
  13538. ge in meinem Kalender erstellen und bearbeiten|1Nur die folgenden Personen d
  13539. rfen Eintr
  13540. ge in meinem Kalender erstellen und bearbeiten|0
  13541. PublicWrite
  13542.     1S2S
  13543. WriteCalendarDiese Benutzer d
  13544. rfen Kalendereintr
  13545. ge verwalten
  13546. Kalender-Delegierung
  13547. Delegierung
  13548. Owner
  13549. $BusyName
  13550. $NoPurge
  13551. $NoPurge
  13552. Sunday
  13553. Monday
  13554. Tuesday
  13555. Wednesday
  13556. Thursday
  13557. Friday
  13558. Saturday
  13559.     0S0E
  13560. $AvailableDays
  13561. $PublicAccess
  13562. $CSVersion
  13563. _Kategorisieren
  13564. Dokument _bearbeiten
  13565. Dokument _senden
  13566. _Weiterleiten
  13567. In Ordner _verschieben...
  13568. Aus Ordner _entfernen
  13569. _Kategorisieren=
  13570. Dokument _bearbeiten
  13571. Dokument _senden
  13572. _Weiterleiten
  13573. In Ordner _verschieben...
  13574. Aus Ordner _entfernen
  13575. O=Lotus Notes
  13576. O=Lotus Notes
  13577. PURSAFO
  13578. |.:#U
  13579. O=Lotus Notes
  13580. CN=Lotus Notes Template Development/O=Lotus Notes
  13581. PURSAFO
  13582. $HTMLDocumentStyles
  13583. $DialogMode
  13584. $Language
  13585. $LastBuildTime
  13586. $BabelInfo
  13587. $Info
  13588. $WEBQuerySave
  13589. $WEBQueryOpen
  13590. $AppHelpFormula
  13591. $WebFlags
  13592. $Script
  13593. $$Script_O
  13594. $$ScriptName
  13595. $$FormScript
  13596. $$$FormScript_O
  13597. $$SignatureOption
  13598. $SignatureOption_O
  13599. $$Signature_2
  13600. $Signature_2_O
  13601. $$Signature_1
  13602. $Signature_1_O
  13603. $$Signature
  13604. $Signature_O
  13605. DefaultDuration
  13606. AutoAnniversaryRepeat
  13607. $Times1
  13608. $Times2
  13609. $Times3
  13610. $Times4
  13611. $Times5
  13612. $Times6
  13613. $Times7
  13614. AppointmentLead
  13615. ReminderLead
  13616. EventLead
  13617. AnniversaryLead
  13618. TaskLead
  13619. CalendarTimeSlotStart
  13620. CalendarTimeSlotEnd
  13621. $Body
  13622. $V5ACTIONS
  13623. $ACTIONS
  13624. $PublicAccess
  13625. &Arial
  13626. '++LotusScript Development Environment:2:5:(Options):0:74
  13627. Option Public
  13628. Option Declare
  13629. '++LotusScript Development Environment:2:5:(Forward):0:1
  13630. Declare Class UIAddressHelper
  13631. '++LotusScript Development Environment:2:5:(Declarations):0:10
  13632. Const CONFLICT_MESSAGE$ = "Diesen Eintrag gibt es in Ihrem Adre
  13633. buch bereits."
  13634. Dim AddressControl As UIAddressHelper
  13635. Class UIAddressHelper
  13636.     Private m_uiws As notesuiworkspace    
  13637.     Private m_uidocDialog As notesuidocument
  13638.     Private m_noteDialog As notesdocument
  13639.     Private m_vAllAddresses As Variant
  13640.     Private m_vAllNoteIDs  As Variant
  13641.     Private m_vAllTitle As Variant
  13642.     Private m_vAllFirst As Variant
  13643.     Private m_vAllMiddle As Variant
  13644.     Private m_vAllLast As Variant
  13645.     Private m_vAllFullName As Variant
  13646.     Private m_vAllSuffix As Variant
  13647.     Private m_vAllEmail As Variant
  13648.     Private m_vAllDomain As Variant
  13649.     Private m_vAllPublicAddressUNID As Variant
  13650.     Private m_vAllEmailType As Variant
  13651.     Private m_vAllConflictInNAB As Variant
  13652.     Private m_vAllConflictAction As Variant
  13653.     Private m_nMAX As Integer
  13654.     Private m_nBottom As Integer
  13655.     Private m_nCurrentSelection As Integer
  13656. Declare Public Sub Init(Source As notesuidocument)
  13657. Declare Public Function WriteRecords() As Integer
  13658. Declare Public Sub Next()
  13659. Declare Public Sub Previous()
  13660. Declare Private Sub LoadDisplay()
  13661. Declare Private Sub WriteUIToStack()
  13662.     Sub New()
  13663.         Set Me.m_uiws = New notesuiworkspace
  13664.     End Sub
  13665.     Sub Init(Source As notesuidocument)
  13666.         Set Me.m_uidocDialog = Source
  13667.         Set Me.m_noteDialog = Source.document
  13668.         Me.m_vAllAddresses = Me.m_noteDialog.getitemvalue("AllAddresses")
  13669.         Me.m_vAllNoteIDs  = Me.m_noteDialog.getitemvalue("AllNoteIDs ")        
  13670.         Me.m_vAllTitle = Me.m_noteDialog.getitemvalue("AllTitle")
  13671.         Me.m_vAllFirst = Me.m_noteDialog.getitemvalue("AllFirst")
  13672.         Me.m_vAllMiddle = Me.m_noteDialog.getitemvalue("AllMiddle")
  13673.         Me.m_vAllLast = Me.m_noteDialog.getitemvalue("AllLast")
  13674.         Me.m_vAllFullName = Me.m_noteDialog.getitemvalue("AllFullName")
  13675.         Me.m_vAllSuffix = Me.m_noteDialog.getitemvalue("AllSuffix")
  13676.         Me.m_vAllEmail = Me.m_noteDialog.getitemvalue("AllEmail")
  13677.         Me.m_vAllDomain = Me.m_noteDialog.getitemvalue("AllDomain")
  13678.         Me.m_vAllPublicAddressUNID = Me.m_noteDialog.getitemvalue("AllPublicAddressUNID")
  13679.         Me.m_vAllEmailType = Me.m_noteDialog.getitemvalue("AllEmailType")
  13680.         Me.m_vAllConflictInNAB = Me.m_noteDialog.getitemvalue("AllConflictInNAB")
  13681.         Me.m_vAllConflictAction = Me.m_noteDialog.getitemvalue("AllConflictAction")
  13682.         Me.m_nBottom = 0
  13683.         Me.m_nMAX = Ubound(Me.m_vAllAddresses)
  13684.         Me.m_uidocDialog.autoreload = False
  13685.         Call Me.m_noteDialog.ReplaceItemValue("TotalRecords",Me.m_nMAX+1)
  13686.         Call LoadDisplay()
  13687.     End Sub
  13688.     Sub Next()
  13689.         If Me.m_nCurrentSelection < Me.m_nMAX Then
  13690.             Call WriteUIToStack()
  13691.             Me.m_nCurrentSelection = Me.m_nCurrentSelection + 1            
  13692.             Call LoadDisplay()                
  13693.         Else 
  13694.             Beep
  13695.         End If
  13696.     End Sub    
  13697.     Sub Previous()
  13698.         If Me.m_nCurrentSelection > 0 Then
  13699.             Call WriteUIToStack()            
  13700.             Me.m_nCurrentSelection = Me.m_nCurrentSelection - 1            
  13701.             Call LoadDisplay()                
  13702.         Else 
  13703.             Beep
  13704.         End If
  13705.     End Sub
  13706.     Sub LoadDisplay()
  13707.         Call Me.m_noteDialog.ReplaceItemValue("tmpTitle",Me.m_vAllTitle(Me.m_nCurrentSelection))
  13708.         Call Me.m_noteDialog.ReplaceItemValue("tmpFirstName",Me.m_vAllFirst(Me.m_nCurrentSelection))
  13709.         Call Me.m_noteDialog.ReplaceItemValue("tmpMiddleName",Me.m_vAllMiddle(Me.m_nCurrentSelection))
  13710.         Call Me.m_noteDialog.ReplaceItemValue("tmpLastName",Me.m_vAllLast(Me.m_nCurrentSelection))
  13711.         Call Me.m_noteDialog.ReplaceItemValue("tmpSuffix",Me.m_vAllSuffix(Me.m_nCurrentSelection))
  13712.         Call Me.m_noteDialog.ReplaceItemValue("tmpEmailAddress",Me.m_vAllEmail(Me.m_nCurrentSelection))
  13713.         Call Me.m_noteDialog.ReplaceItemValue("tmpDomain",Me.m_vAllDomain(Me.m_nCurrentSelection))
  13714.         Call Me.m_noteDialog.ReplaceItemValue("tmpEmailType",Me.m_vAllEmailType(Me.m_nCurrentSelection))        
  13715.         Call Me.m_noteDialog.ReplaceItemValue("CurrentRecord",(Me.m_nCurrentSelection + 1))
  13716.         Call Me.m_noteDialog.ReplaceItemValue("tmpConflictInNAB",Me.m_vAllConflictInNAB(Me.m_nCurrentSelection))
  13717.         If Me.m_vAllConflictInNAB(Me.m_nCurrentSelection) = "1" Then
  13718.             Call Me.m_noteDialog.ReplaceItemValue("$AlertGraphic","a")
  13719.             Call Me.m_noteDialog.ReplaceItemValue("ConflictMessage",CONFLICT_MESSAGE)
  13720.         Else
  13721.             Call Me.m_noteDialog.ReplaceItemValue("$AlertGraphic","b")
  13722.             Call Me.m_noteDialog.ReplaceItemValue("ConflictMessage","")
  13723.         End If
  13724.         Call Me.m_noteDialog.ReplaceItemValue("tmpConflictAction",Me.m_vAllConflictAction(Me.m_nCurrentSelection))
  13725.         Call Me.m_uidocDialog.Reload()
  13726.         Call Me.m_uidocDialog.Refreshhideformulas()
  13727.     End Sub
  13728.     Sub WriteUIToStack()
  13729.         Me.m_vAllTitle(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpTitle")(0)
  13730.         Me.m_vAllFirst(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpFirstName")(0)
  13731.         Me.m_vAllMiddle(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpMiddleName")(0)
  13732.         Me.m_vAllLast(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpLastName")(0)
  13733.         Me.m_vAllSuffix(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpSuffix")(0)
  13734.         Me.m_vAllEmail(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpEmailAddress")(0)
  13735.         Me.m_vAllDomain(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpDomain")(0)
  13736.         Me.m_vAllEmailType(Me.m_nCurrentSelection) = Me.m_noteDialog.GetItemValue("tmpEmailType")(0)        
  13737.         If Isnumeric(Me.m_noteDialog.getitemvalue("tmpConflictAction")(0)) Then
  13738.             Me.m_vAllConflictAction(Me.m_nCurrentSelection) = Cstr(Me.m_noteDialog.GetItemValue("tmpConflictAction")(0))
  13739.         Else
  13740.             Me.m_vAllConflictAction(Me.m_nCurrentSelection) = "0"
  13741.         End If            
  13742.     End Sub
  13743.     Public Function WriteRecords() As Integer
  13744.         Call WriteUIToStack()
  13745.         With Me.m_noteDialog
  13746.             Call .ReplaceItemValue("AllAddresses",    Me.m_vAllAddresses)
  13747.             Call .ReplaceItemValue("AllDomain", Me.m_vAllDomain )
  13748.             Call .ReplaceItemValue("AllNoteIDs ", Me.m_vAllNoteIDs  )        
  13749.             Call .ReplaceItemValue("AllTitle", Me.m_vAllTitle )
  13750.             Call .ReplaceItemValue("AllFirst", Me.m_vAllFirst )
  13751.             Call .ReplaceItemValue("AllMiddle", Me.m_vAllMiddle )
  13752.             Call .ReplaceItemValue("AllLast", Me.m_vAllLast )
  13753.             Call .ReplaceItemValue("AllFullName", Me.m_vAllFullName )
  13754.             Call .ReplaceItemValue("AllSuffix", Me.m_vAllSuffix )
  13755.             Call .ReplaceItemValue("AllEmail", Me.m_vAllEmail )
  13756.             Call .ReplaceItemValue("AllDomain", Me.m_vAllDomain )
  13757.             Call .ReplaceItemValue("AllPublicAddressUNID", Me.m_vAllPublicAddressUNID )
  13758.             Call .ReplaceItemValue("AllEmailType", Me.m_vAllEmailType )
  13759.             Call .ReplaceItemValue("AllConflictInNAB", Me.m_vAllConflictInNAB )
  13760.             Call .ReplaceItemValue("AllConflictAction", Me.m_vAllConflictAction )
  13761.         End With
  13762.         WriteRecords = True
  13763.     End Function
  13764. End Class
  13765. Lotus Product
  13766. }     EY
  13767.     }     #
  13768.     }     #
  13769. (NameHelper)'++LotusScript Development Environment:2:5:(Options):0:66
  13770. '++LotusScript Development Environment:2:5:(Forward):0:1
  13771. Declare Sub Postopen(Source As Notesuidocument)
  13772. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  13773. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  13774. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13775. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13776. Private Sub BindEvents(Byval Objectname_ As String)
  13777.     Static Source As NOTESUIDOCUMENT
  13778.     Set Source = Bind(Objectname_)
  13779.     On Event Postopen From Source Call Postopen
  13780.     On Event Queryopen From Source Call Queryopen
  13781.     On Event Queryclose From Source Call Queryclose
  13782. End Sub
  13783. '++LotusScript Development Environment:2:2:Postopen:1:12
  13784. Sub Postopen(Source As Notesuidocument)
  13785.     Call AddressControl.Init(Source) 
  13786. End Sub
  13787. '++LotusScript Development Environment:2:2:Queryopen:1:12
  13788. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  13789.     Set AddressControl = New UIAddressHelper
  13790. End Sub
  13791. '++LotusScript Development Environment:2:2:Queryclose:1:12
  13792. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  13793.     If Not Source.DialogBoxCanceled Then
  13794.         Continue = AddressControl.WriteRecords() 
  13795.     End If
  13796. End Sub
  13797. Lotus Product
  13798. $AlertGraphic
  13799. AllAddressesj
  13800.     4S5S
  13801. AllAddressesj
  13802.     4S5S
  13803. AlertGraphic
  13804. AlertGraphic
  13805. A    @8Q"
  13806. ConflictMessage
  13807.     0S0E
  13808. GIF89a 
  13809. ]X_X{|<
  13810. ConflictMessage
  13811. ConflictMessage
  13812. tmpConflictAction
  13813. tmpConflictAction
  13814. berspringen|1Aktualisieren|2
  13815. address1.gif|AddToAddressBook
  13816. Skipped
  13817. Skipped
  13818. address.gif|tb_ADDTOADDRESSBOOK
  13819. ConflictMessage
  13820. tb_EXCLAMATION
  13821.     3S4S
  13822. AllAddressesj
  13823.     4S5S
  13824. .,$///:
  13825. TotalRecords
  13826. TotalRecords
  13827.      Kontakt(e) zum Adre
  13828. buch hinzuf
  13829. AllAddressesj
  13830.     4S5S
  13831. GIF89a
  13832. <a>7`^///""
  13833. hs_PREVIOUS
  13834. '++LotusScript Development Environment:2:5:(Options):0:66
  13835. '++LotusScript Development Environment:2:5:(Forward):0:1
  13836. Declare Sub Click(Source As Button)
  13837. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13838. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13839. Private Sub BindEvents(Byval Objectname_ As String)
  13840.     Static Source As BUTTON
  13841.     Set Source = Bind(Objectname_)
  13842.     On Event Click From Source Call Click
  13843. End Sub
  13844. '++LotusScript Development Environment:2:2:Click:1:12
  13845. Sub Click(Source As Button)
  13846.     Call AddressControl.Previous()
  13847. End Sub
  13848. Lotus Product
  13849. OBJECT
  13850.     Kontakt
  13851. .,$///:
  13852. CurrentRecord
  13853. CurrentRecordWeist auf den Eintrag hin, den Sie bearbeiten oder anzeigen
  13854. GIF89a
  13855. <a>7`^///""
  13856. hs_NEXT
  13857. '++LotusScript Development Environment:2:5:(Options):0:66
  13858. '++LotusScript Development Environment:2:5:(Forward):0:1
  13859. Declare Sub Click(Source As Button)
  13860. '++LotusScript Development Environment:2:5:(Declarations):0:2
  13861. '++LotusScript Development Environment:2:2:BindEvents:1:129
  13862. Private Sub BindEvents(Byval Objectname_ As String)
  13863.     Static Source As BUTTON
  13864.     Set Source = Bind(Objectname_)
  13865.     On Event Click From Source Call Click
  13866. End Sub
  13867. '++LotusScript Development Environment:2:2:Click:1:12
  13868. Sub Click(Source As Button)
  13869.     Call AddressControl.Next()
  13870. End Sub
  13871. Lotus Product
  13872. OBJECT
  13873.     Titel:
  13874. tmpTitleTitel des Absenders
  13875. -Kein-|Dr.|Dr.Prof.|Prof.Herr|Mr.Frau|Ms.Frl.|MissFrau|Mrs.
  13876.     Vorname:
  13877. tmpFirstNameVorname des Absenders
  13878.     2. Vorname:
  13879. tmpMiddleNameZweiter Vorname des Absenders
  13880.     Nachname:
  13881. tmpLastNameNachname des Absenders
  13882.     Namenszusatz:
  13883. tmpSuffixNamenszusatz des Absenders
  13884. -Kein-|jun.|Jr.sen.|Sr.IIIIII
  13885. Allgemein
  13886.     Mail-System:    
  13887. tmpEmailTypeNachrichtensystem des Absenders
  13888. Notes|1cc:Mail|2Internet|5X.400|4
  13889.     E-Mail-Adresse:
  13890. tmpEmailAddress
  13891. tmpEmailAddressE-Mail-Adresse des Absenders
  13892.     Routing-Dom
  13893. ne(n):
  13894. tmpDomainDom
  13895. ne, an die Nachrichten f
  13896. r diesen Benutzer weitergeleitet werden
  13897. IncludeX509Erm
  13898. glicht das sichere Senden von Mail 
  13899. ber das Internet, sofern die Nachricht des Absenders mit einem X.509 Zertifikat signiert wurde
  13900. Gegebenenfalls X.509-Zertifikate aufnehmen|1
  13901. Erweitert
  13902. O=Lotus Notes
  13903. O=Lotus Notes
  13904. PURSAFO
  13905. |.:#U
  13906. O=Lotus Notes
  13907. CN=Lotus Notes Template Development/O=Lotus Notes
  13908. PURSAFO
  13909. $Language
  13910. $LastBuildTime
  13911. $BabelInfo
  13912. $Info
  13913. $Script
  13914. $$Script_O
  13915. $$ScriptName
  13916. $$FormScript
  13917. $$$FormScript_O
  13918. $Body
  13919. &Arial
  13920. Lotus Product
  13921.  NonDelivery Report
  13922. *** Nachricht nicht zugestellt ***
  13923. _KategorisierenX
  13924. Schlie
  13925.     0S0E
  13926. Dokument bearbeitenX
  13927. Erneut sendenX
  13928. Erneut sendenX
  13929. xxWINDOW_TITLE
  13930. Verschl
  13931. sselung fehlgeschlagen
  13932. xxDONT_ENCRYPT
  13933. Die Verschl
  13934. sselung dieser Nachricht ist fehlgeschlagen. 
  13935. chten Sie die Nachricht unverschl
  13936. sselt erneut senden?"
  13937.     0R2T3S4RTTTTTTTTTT
  13938. $AutoSpell(
  13939.     0RR1S3STT
  13940. Encrypt
  13941. Encrypt
  13942.     0R1S3TTTT
  13943. $$JIT
  13944. $$JIT
  13945.     0R1S3TTTTT
  13946. $$JITFailed
  13947. xxWINDOW_TITLE
  13948. xxDONT_ENCRYPT
  13949. Encrypt
  13950. $$JIT
  13951.     0RR1RT2RT7RTT8RTTT18RTTTT19RTTTTTT20RTTTTTT27RTTTTTT33RTTTTTT35RTTT36RTTT38RT39RT
  13952.     0RR1RT7RTT9RT13RT
  13953. SaveOptions
  13954.     0RR1S2S3S
  13955. _WeiterleitenX
  13956. In Ordner _verschieben...X
  13957. Aus Ordner _entfernen...
  13958. _KategorisierenX
  13959. Schlie
  13960.     0S0E
  13961. act_discardchanges.GIF|act_CSDISCARD
  13962. Dokument bearbeitenX
  13963. Erneut sendenX
  13964. act_SEND.GIF|act_SENDX
  13965. Erneut sendenX
  13966. xxWINDOW_TITLE
  13967. Verschl
  13968. sselung fehlgeschlagen
  13969. xxDONT_ENCRYPT
  13970. Die Verschl
  13971. sselung dieser Nachricht ist fehlgeschlagen. 
  13972. chten Sie die Nachricht unverschl
  13973. sselt erneut senden?"
  13974.     0R2T3S4RTTTTTTTTTT
  13975. $AutoSpell(
  13976.     0RR1S3STT
  13977. Encrypt
  13978. Encrypt
  13979.     0R1S3TTTT
  13980. $$JIT
  13981. $$JIT
  13982.     0R1S3TTTTT
  13983. $$JITFailed
  13984. xxWINDOW_TITLE
  13985. xxDONT_ENCRYPT
  13986. Encrypt
  13987. $$JIT
  13988.     0RR1RT2RT7RTT8RTTT18RTTTT19RTTTTTT20RTTTTTT27RTTTTTT33RTTTTTT35RTTT36RTTT38RT39RT
  13989.     0RR1RT7RTT9RT13RT
  13990. SaveOptions
  13991.     0RR1S2S3S
  13992. act_SEND.GIF|act_SENDX
  13993. _WeiterleitenX
  13994. In Ordner _verschieben...X
  13995. Aus Ordner _entfernen...
  13996. Zustellungsfehlerbericht
  13997.     Ihr Dokument:X
  13998. Subject
  13999. OriginalSubjectX
  14000.     wurde nicht zugestellt anX
  14001. IntendedRecipient
  14002. IntendedRecipient
  14003.     0S0E
  14004. IntendedRecipientX
  14005.     weil:X
  14006. FailureReason
  14007. FailureReasonX
  14008. $HideMailHeader
  14009.     0S0E
  14010.     Was k
  14011. nnen Sie tun?X
  14012.     Sie k
  14013. nnen das unzustellbare Dokument erneut an die oben aufgef
  14014. hrten Empf
  14015. nger senden, indem Sie auf die Schaltfl
  14016. che 'Erneut senden' klicken oder im Men
  14017.  'Aktionen' den Befehl 'Erneut senden' w
  14018. hlen.  X
  14019.     Nachdem Sie das Dokument erneut gesendet haben, k
  14020. nnen Sie diesen Zustellungsfehlerbericht l
  14021. schen.X
  14022.     Wenn auch das erneut gesendete Dokument nicht zustellbar ist, erhalten Sie einen neuen ZustellungsfehlerberichtX
  14023.     Wenn Sie keine weiteren Zustellungsfehlerberichte erhalten, wurde das Dokument erfolgreich an alle anderen Empf
  14024. nger gesendet.
  14025. Routing-Pfad
  14026. RouteServers
  14027. RouteServers
  14028. bertragende ServerX
  14029.     ________________________
  14030.     An:X
  14031. NamePreference
  14032. AltSendTo
  14033. AltSendTo
  14034. SendTo
  14035.     5S6S
  14036. SendToListe der Personen, an die das Memo (Original) gesendet werden sollXz
  14037. EnterSendTo
  14038.     Kopie:
  14039. NamePreference
  14040. AltCopyTo
  14041. AltCopyTo
  14042. CopyTo
  14043.     5S6S7S
  14044. CopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  14045. EnterCopyTo
  14046.     0S0E
  14047.     Datum:
  14048. .,$ //:
  14049. PostedDateY
  14050. PostedDateJ
  14051.     6S7S9S11SDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  14052.     Thema:
  14053. Subject
  14054. SubjectThema des Memos.Xz
  14055. Subject_1
  14056. BodyText des Dokuments
  14057. O=Lotus Notes
  14058. O=Lotus Notes
  14059. PURSAFO
  14060. |.:#U
  14061. O=Lotus Notes
  14062. CN=Lotus Notes Template Development/O=Lotus Notes
  14063. PURSAFO
  14064. $Info
  14065. $WebFlags
  14066. $$Script_O
  14067. $$ScriptName
  14068. $WINDOWTITLE
  14069. $ACTIONS
  14070. $V5ACTIONS
  14071. $Body
  14072. $Language
  14073. $LastBuildTime
  14074. $BabelInfo
  14075. Lotus Product
  14076. OBJECT
  14077. Lotus Product
  14078. OBJECT
  14079. Lotus Product
  14080. OBJECT
  14081. Lotus Product
  14082. Ir    8*r    
  14083. Besprechungsbeanchrichtigung
  14084. NoticeType
  14085. Broadcast
  14086. (Help)
  14087. MAIL_F_APPOINTMENT_INV_REC_BRD
  14088. (Help)
  14089. MAIL_F_APPOINTMENT_INV_REC
  14090. (Help)
  14091. MAIL_F_APPOINTMENT_INV_REC_MOD
  14092.     3S4S6TRRT9S10S12RRTT23RTT35RRT
  14093. '++LotusScript Development Environment:2:5:(Options):0:74
  14094. Option Public  
  14095. Option Explicit
  14096. Use "CSUIDocClass"
  14097. '++LotusScript Development Environment:2:5:(Forward):0:1
  14098. '++LotusScript Development Environment:2:5:(Declarations):0:10
  14099. Dim uicsdoc As UIEventDocument
  14100. Lotus Product
  14101.  Notice'++LotusScript Development Environment:2:5:(Options):0:66
  14102. '++LotusScript Development Environment:2:5:(Forward):0:1
  14103. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  14104. Declare Sub Postopen(Source As Notesuidocument)
  14105. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  14106. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  14107. Declare Sub Postsave(Source As Notesuidocument)
  14108. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  14109. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14110. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14111. Private Sub BindEvents(Byval Objectname_ As String)
  14112.     Static Source As NOTESUIDOCUMENT
  14113.     Set Source = Bind(Objectname_)
  14114.     On Event Queryopen From Source Call Queryopen
  14115.     On Event Postopen From Source Call Postopen
  14116.     On Event Querysave From Source Call Querysave
  14117.     On Event Queryclose From Source Call Queryclose
  14118.     On Event Postsave From Source Call Postsave
  14119.     On Event Querymodechange From Source Call Querymodechange
  14120. End Sub
  14121. '++LotusScript Development Environment:2:2:Queryopen:1:12
  14122. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  14123.     If (source.inpreviewpane) Then Exit Sub    
  14124.     Set uicsdoc = CSUIDocOpen(1, source, mode, isnewdoc, continue)
  14125. End Sub
  14126. '++LotusScript Development Environment:2:2:Postopen:1:12
  14127. Sub Postopen(Source As Notesuidocument)
  14128.     If (source.InPreviewPane) Then Exit Sub
  14129.     Call uicsdoc.Postopen()
  14130. End Sub
  14131. '++LotusScript Development Environment:2:2:Querysave:1:12
  14132. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  14133.     If (source.InPreviewPane) Then Exit Sub
  14134.     Call uicsdoc.QuerySave(continue)
  14135. End Sub
  14136. '++LotusScript Development Environment:2:2:Queryclose:1:12
  14137. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  14138.     If (source.InPreviewPane) Then Exit Sub
  14139.     If (uicsdoc.WasSaved) Then Call uicsdoc.QueryClose(continue)
  14140. End Sub
  14141. '++LotusScript Development Environment:2:2:Postsave:1:12
  14142. Sub Postsave(Source As Notesuidocument)
  14143.     If (source.InPreviewPane) Then Exit Sub
  14144.     Call uicsdoc.PostSave()
  14145. End Sub
  14146. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  14147. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  14148.     If (source.InPreviewPane) Then continue = False
  14149. End Sub
  14150. Lotus Product
  14151. Notes
  14152. (wCSItems)
  14153.     3S4S6S8S
  14154. Bemerkung
  14155. tmpDoNotProcess
  14156. tmpOwner
  14157. BlindCopyTo
  14158. NoticeType
  14159.     3S4S6S8S17S18S28S31S32S
  14160. tmpDoNotProcess
  14161. tmpOwner
  14162. BlindCopyTo
  14163.     3S4S6S8S17S18S28StmpNoActionBar
  14164. tmpOwner
  14165. Chair
  14166.     8S11S12S22StmpOwnerHW
  14167. ChairName
  14168. Chair
  14169.     1S2S
  14170. PrincipalName
  14171. Principal
  14172.     0R1S2S
  14173. xxInvitation
  14174. Neuer Besprechungsvorschlag von  
  14175. ChairName
  14176.     0RR1S2S3S4S
  14177. xxReschedule
  14178. ChairName
  14179.  hat den Besprechungstermin ge
  14180. ndert"
  14181.     0R1S2S3S4S
  14182. xxCancellation
  14183. ChairName
  14184.  hat diese Besprechung abgesagt
  14185.     0R1S2S3S4S
  14186. xxConfirmation
  14187. ChairName
  14188.  hat diese Besprechung best
  14189. tigt"
  14190.     0R1S2S3S4S
  14191. xxAccept
  14192. tmpOwner
  14193. chair
  14194. PrincipalName
  14195.  hat Ihren Besprechungsvorschlag angenommen
  14196. Sie haben diesen Vorschlag angenommen 
  14197.     0R1S2S5S6S8S9S10S12S
  14198. xxDecline
  14199. tmpOwner
  14200. chair
  14201. PrincipalName
  14202.  hat Ihren Besprechungsvorschlag abgelehnt"
  14203. Sie haben den Vorschlag abgelehnt.
  14204.     0R1S2S5S6S8S9S10S12S
  14205. xxCounter
  14206. tmpOwner
  14207. chair
  14208. PrincipalName
  14209.  hat Ihren Besprechungsvorschlag erhalten und 
  14210. nderungen vorgeschlagen"
  14211. Sie haben einen Gegenvorschlag erteilt.
  14212.     0R1S2S5S6S8S9S10S12S
  14213. xxDelegate
  14214. tmpOwner
  14215. chair
  14216. PrincipalName
  14217.  hat Ihren Besprechungsvorschlag delegiert"
  14218. Sie haben den Vorschlag delegiert.
  14219.     0R1S2S5S6S8S9S10S12S
  14220. xxDeleInvite
  14221. PrincipalName
  14222.  hat diese Besprechungsanforderung an Sie delegiert
  14223.     0R1S2S3S4S
  14224. xxDeclineCounter
  14225. ChairName
  14226.  hat Ihre vorgeschlagenen 
  14227. nderungen abgelehnt"
  14228.     0R1S2S3S4S
  14229. xxReserved
  14230. PrincipalName
  14231.  wurde reserviert
  14232.     0R1S2S3S4S
  14233. xxUnavail
  14234. PrincipalName
  14235.  steht nicht zur Verf
  14236. gung"
  14237.     0R1S2S3S4S
  14238. xxRefreshInfo
  14239. $CSFlags
  14240. PrincipalName
  14241.  fordert aktualisierte Informationen an
  14242. Aktualisierte Informationen von 
  14243. PrincipalName
  14244.     0R1S2S8S11S12S13S15RTTT16S17S
  14245. xxPencilIn
  14246. PrincipalName
  14247.  hat Ihren Besprechungsvorschlag vorl
  14248. ufig angenommen
  14249.     0R1S2S3S4S
  14250. xxUpdate
  14251. NoticeType
  14252. OrgStatus
  14253. ChairName
  14254. chte, da
  14255.  Sie an der Besprechung teilnehmen"
  14256. OrgStatus
  14257. Ihre Teilnahme an der Besprechung ist nicht mehr erforderlich.
  14258.     0R1S2S5S6S8S11S12S14S15S16S18S19S20S22S
  14259. OrgStateh
  14260. NoticeType
  14261. xxReserved
  14262. xxUnavail
  14263. NoticeType
  14264. xxInvitation
  14265. xxReschedule
  14266. xxCancellation
  14267. xxConfirmation
  14268. xxAccept
  14269. xxDecline
  14270. xxCounter
  14271. xxDelegate
  14272. xxDeleInvite
  14273. xxRefreshInfo
  14274. xxDeclineCounter
  14275. xxPencilIn
  14276. xxUpdate
  14277.     0R7RT11S15S16S17S20RTRT24S50S51S53S54S55S56S57S58S59S60S61S62S63S64S66S67S68StmpNoticeType
  14278. NoticeType
  14279. Vorgeschlagener Starttermin:
  14280. Beginnt:
  14281.     3S4S
  14282. .,$ //:
  14283. NoticeType
  14284. $CSVersion
  14285. NewStartDate
  14286. NewStartTime
  14287. NewDate
  14288. NewTimeRange
  14289. StartDateTime
  14290.     3S4S6S13S21S22S23S24S32S40S41S42S43S65StmpStartDateTime
  14291.     Lokale Zeitzone:
  14292. NoticeType
  14293. Vorgeschlagener Endtermin:
  14294. Endet:
  14295.     3S4S
  14296. .,$ //:
  14297. NoticeType
  14298. $CSVersion
  14299. NewEndDateV
  14300. NewEndTimeV
  14301. NewDate
  14302. NewTimeRange
  14303. EndDateTime
  14304.     3S4S6S13S19S20S21S22S28S36S37S38S39S62StmpEndDateTime
  14305.     Lokale Zeitzone:
  14306. NoticeType
  14307.     1S2S
  14308.     Urspr
  14309. nglicher Beginn:     
  14310. .,$ //:
  14311. StartDateTime
  14312.     0S0E
  14313. tmpOrigStartDateTime
  14314.     Lokale Zeitzone:
  14315.     Urspr
  14316. ngliches Ende:     
  14317. .,$ //:
  14318. EndDateTime
  14319.     0S0E
  14320. tmpOrigEndDateTime
  14321.     Lokale Zeitzone:
  14322.     Titel:    
  14323. Topic
  14324. tmpTopic
  14325.     Ort:     
  14326. Location
  14327. Location
  14328. -Keine Angaben zum Raum vorhanden-
  14329.     7S14S16S2E
  14330. tmpRoom
  14331.     Leitung:     
  14332. Chair
  14333. Chair
  14334. Principal
  14335. tmpChair
  14336. tmpWasMailed
  14337. principal
  14338.     3S4S14S15S
  14339.     Gesendet von:    
  14340. tmpSentBy
  14341. NoticeType
  14342.     1S2S
  14343.     Delegiert an:    
  14344. Delegee
  14345. tmpDelegee
  14346. Allgemein
  14347.     An (erforderlich):    
  14348. RequiredAttendees
  14349.     0S0E
  14350. tmpRequired
  14351.     Kopie (optional):    
  14352. OptionalAttendees
  14353.     0S0E
  14354. tmpOptional
  14355. BlindCopyTo
  14356.     4S5S
  14357.     Blindkopie (nur zur Kenntnis):    
  14358. BlindCopyTo
  14359. tmpFYI
  14360. Eingeladene Personen
  14361. OrgRepeat
  14362.     0S0E
  14363. OrgRepeat
  14364. RepeatUnit
  14365.     4S5S6S7S
  14366.     Beginn:       
  14367. .,$ //:
  14368. OriginalStartDate
  14369. OriginalStartDate
  14370. RepeatStartDate
  14371. RepeatStartDate
  14372. StartDateTime
  14373.     1RT2RTT7RTTT9RTT14RTTT16RTT17RTtmpRepeatStart
  14374. OrgRepeat
  14375. RepeatDates
  14376. RepeatUnit
  14377.     4S5S9S10S11S12S
  14378.     Wiederholen:  
  14379. RepeatInterval
  14380. tmpRepeatInterval
  14381. jeden|1jeden 2.|2jeden 3.|3jeden 4.|4jeden 5.|5jeden 6.|6jeden 7.|7jeden 8.|8jeden 9.|9jeden 10.|10jeden 11.|11jeden 12.|12jeden 13.|13jeden 14.|14jeden 15.|15jeden 16.|16jeden 17.|17jeden 18.|18jeden 19.|19jeden 20.|20jeden 21.|21jeden 22.|22jeden 23.|23jeden 24.|24jeden 25.|25jeden 26.|26jeden 27.|27jeden 28.|28jeden 29.|29jeden 30.|30jeden 31.|31
  14382. RepeatUnit
  14383. tmpRepeatUnit
  14384. glich|DWoche am|WMonat am|MDMonat am|MPJahr|YDbenutzerdefiniert|C
  14385. RepeatAdjust
  14386. tmpRepeatAdjust
  14387. RepeatUnit
  14388. Sonntag|0
  14389. Montag|1
  14390. Dienstag|2
  14391. Mittwoch|3
  14392. Donnerstag|4
  14393. Freitag|5
  14394. Samstag|6
  14395. RepeatUnit
  14396. 1. Sonntag|1.0
  14397. 1. Montag|1.1
  14398. 1. Dienstag|1.2
  14399. 1. Mittwoch|1.3
  14400. 1. Donnerstag|1.4
  14401. 1. Freitag|1.5
  14402. 1. Samstag|1.6
  14403. 2. Sonntag|2.0
  14404. 2. Montag|2.1
  14405. 2. Dienstag|2.2
  14406. 2. Mittwoch|2.3
  14407. 2. Donnerstag|2.4
  14408. 2. Freitag|2.5
  14409. 2. Samstag|2.6
  14410. 3. Sonntag|3.0
  14411. 3. Montag|3.1
  14412. 3. Dienstag|3.2
  14413. 3. Mittwoch|3.3
  14414. 3. Donnerstag|3.4
  14415. 3. Freitag|3.5
  14416. 3. Samstag|3.6
  14417. 4. Sonntag|4.0
  14418. 4. Montag|4.1
  14419. 4. Dienstag|4.2
  14420. 4. Mittwoch|4.3
  14421. 4. Donnerstag|4.4
  14422. 4. Freitag|4.5
  14423. 4. Samstag|4.6
  14424. Letzten Sonntag|5.0
  14425. Letzten Montag|5.1
  14426. Letzten Dienstag|5.2
  14427. Letzten Mittwoch|5.3
  14428. Letzten Donnerstag|5.4
  14429. Letzten Freitag|5.5
  14430. Letzten Samstag|5.6
  14431. RepeatUnit
  14432. 1. Tag|1
  14433. 2. Tag|2
  14434. 3. Tag|3
  14435. 4. Tag|4
  14436. 5. Tag|5
  14437. 6. Tag|6
  14438. 7. Tag|7
  14439. 8. Tag|8
  14440. 9. Tag|9
  14441. 10. Tag|10
  14442. 11. Tag|11
  14443. 12. Tag|12
  14444. 13. Tag|13
  14445. 14. Tag|14
  14446. 15. Tag|15
  14447. 16. Tag|16
  14448. 17. Tag|17
  14449. 18. Tag|18
  14450. 19. Tag|19
  14451. 20. Tag|20
  14452. 21. Tag|21
  14453. 22. Tag|22
  14454. 23. Tag|23
  14455. 24. Tag|24
  14456. 25. Tag|25
  14457. 26. Tag|26
  14458. 27. Tag|27
  14459. 28. Tag|28
  14460. 29. Tag|29
  14461. 30. Tag|30
  14462. 31. Tag|31
  14463.     3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
  14464. RepeatHow
  14465. tmpRepeatHow
  14466. bis|Uf
  14467. RepeatFor
  14468. tmpRepeatUnit
  14469.     7S9S
  14470. RepeatHow
  14471. RepeatUntil
  14472. RepeatFor
  14473. RepeatForUnit
  14474. RepeatFor
  14475. RepeatForUnit
  14476. RepeatFor
  14477. Woche
  14478. RepeatForUnit
  14479. RepeatFor
  14480. Monat
  14481. RepeatForUnit
  14482. RepeatFor
  14483. RepeatFor
  14484. RepeatForUnit
  14485. RepeatFor
  14486. RepeatForUnit
  14487. Wochen
  14488. RepeatFor
  14489. RepeatForUnit
  14490. Monate
  14491. RepeatFor
  14492. RepeatForUnit
  14493. Jahre
  14494.     0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
  14495. tmpRepeatUntil
  14496. RepeatUnit
  14497. (Wenn der Tag auf ein Wochenende f
  14498. llt, wird die Besprechung 
  14499. RepeatWeekends
  14500. auf jeden Fall stattfinden
  14501. RepeatWeekends
  14502. auf den Freitag vorverlegt
  14503. RepeatWeekends
  14504. auf den Montag verlegt
  14505. RepeatWeekends
  14506. auf den n
  14507. chsten Werktag verlegt
  14508. RepeatWeekends
  14509. gestrichen
  14510.     3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
  14511. tmpRepeatWeekends
  14512. OrgRepeat
  14513. RepeatDates
  14514. RepeatUnit
  14515.     4S5S9S10S13S14S
  14516.     Wiederholen:  
  14517. RepeatDates
  14518. tmpRepeatDates
  14519. OrgRepeat
  14520. RepeatDates
  14521.     4S5S
  14522.     Betrifft:       
  14523. RescheduleWhich
  14524. tmpAppliesTo
  14525. Nur diesen Eintrag|0Alle Eintr
  14526. ge|1Diesen und alle vorherigen Eintr
  14527. ge|2Diesen und alle zuk
  14528. nftigen Eintr
  14529. Wiederholungen
  14530. entrybg
  14531. tmpowner
  14532. chair
  14533. Kommentare
  14534. Beschreibung
  14535.     3S4S
  14536. StatusUpdate
  14537. Comments
  14538.     4S5S
  14539.     Kommentare
  14540. Comments
  14541. Comments
  14542. _Kategorisieren
  14543. Dokument _bearbeiten
  14544. Dokument _senden
  14545. _Weiterleiten
  14546. In Ordner _verschieben...8
  14547. Aus Ordner _entfernen
  14548. Antwort\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  14549. '++LotusScript Development Environment:2:5:(Forward):0:1
  14550. Declare Sub Click(Source As Button)
  14551. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14552. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14553. Private Sub BindEvents(Byval Objectname_ As String)
  14554.     Static Source As BUTTON
  14555.     Set Source = Bind(Objectname_)
  14556.     On Event Click From Source Call Click
  14557. End Sub
  14558. '++LotusScript Development Environment:2:2:Click:1:12
  14559. Sub Click(Source As Button)
  14560.     Dim uidoc As NotesUIDocument
  14561.     Dim uiobject As Variant
  14562.     Dim nResult As Integer
  14563.     Set uiobject = uicsdoc.UIObject
  14564.     Set uidoc = uicsdoc.UIDocument     
  14565.     If (uiobject.OkToAccept(False)) Then
  14566.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  14567.         Call uidoc.save
  14568.         Call uidoc.close
  14569.     End If    
  14570. End Sub
  14571. tmpNoActionBar
  14572. tmpOwnerHW
  14573. NoticeType
  14574. Broadcast
  14575.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14576. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  14577. '++LotusScript Development Environment:2:5:(Forward):0:1
  14578. Declare Sub Click(Source As Button)
  14579. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14580. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14581. Private Sub BindEvents(Byval Objectname_ As String)
  14582.     Static Source As BUTTON
  14583.     Set Source = Bind(Objectname_)
  14584.     On Event Click From Source Call Click
  14585. End Sub
  14586. '++LotusScript Development Environment:2:2:Click:1:12
  14587. Sub Click(Source As Button)
  14588.     uicsdoc.uiobject.SendComments = False    
  14589.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  14590. End Sub
  14591. tmpNoActionBar
  14592. tmpOwnerHW
  14593. NoticeType
  14594. Broadcast
  14595.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14596. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  14597. '++LotusScript Development Environment:2:5:(Forward):0:1
  14598. Declare Sub Click(Source As Button)
  14599. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14600. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14601. Private Sub BindEvents(Byval Objectname_ As String)
  14602.     Static Source As BUTTON
  14603.     Set Source = Bind(Objectname_)
  14604.     On Event Click From Source Call Click
  14605. End Sub
  14606. '++LotusScript Development Environment:2:2:Click:1:12
  14607. Sub Click(Source As Button)
  14608.     uicsdoc.uiobject.SendComments = False
  14609.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  14610. End Sub
  14611. tmpNoActionBar
  14612. tmpOwnerHW
  14613. Broadcast
  14614. PreventDelegate
  14615.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14616. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  14617. '++LotusScript Development Environment:2:5:(Forward):0:1
  14618. Declare Sub Click(Source As Button)
  14619. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14620. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14621. Private Sub BindEvents(Byval Objectname_ As String)
  14622.     Static Source As BUTTON
  14623.     Set Source = Bind(Objectname_)
  14624.     On Event Click From Source Call Click
  14625. End Sub
  14626. '++LotusScript Development Environment:2:2:Click:1:12
  14627. Sub Click(Source As Button)
  14628.     uicsdoc.uiobject.SendComments = False    
  14629.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  14630. End Sub
  14631. tmpNoActionBar
  14632. tmpOwnerHW
  14633. Broadcast
  14634. PreventCounter
  14635. OrgRepeat
  14636.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  14637. Antwort\Vorl
  14638. ufig annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  14639. '++LotusScript Development Environment:2:5:(Forward):0:1
  14640. Declare Sub Click(Source As Button)
  14641. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14642. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14643. Private Sub BindEvents(Byval Objectname_ As String)
  14644.     Static Source As BUTTON
  14645.     Set Source = Bind(Objectname_)
  14646.     On Event Click From Source Call Click
  14647. End Sub
  14648. '++LotusScript Development Environment:2:2:Click:1:12
  14649. Sub Click(Source As Button)
  14650.     Dim uidoc As NotesUIDocument
  14651.     Dim note As notesdocument
  14652.     Dim uiobject As Variant
  14653.     Set uiobject = uicsdoc.UIObject
  14654.     Set uidoc = uicsdoc.UIDocument     
  14655.     uiobject.SendComments = False
  14656.     uiobject.ActionInProgress = ACTION_ACCEPT
  14657.     Set note = uidoc.document
  14658.     Call note.replaceitemvalue("BookFreeTime","1")    
  14659.     Call note.replaceitemvalue("tmpPencilIn","1")
  14660.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  14661.     Call uidoc.save
  14662.     Call uidoc.close
  14663. End Sub
  14664. tmpNoActionBar
  14665. tmpOwnerHW
  14666. Broadcast
  14667.     1S2S3S4S5S6S7S8S9S10S
  14668. Antwort mit Kommentar\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  14669. '++LotusScript Development Environment:2:5:(Forward):0:1
  14670. Declare Sub Click(Source As Button)
  14671. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14672. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14673. Private Sub BindEvents(Byval Objectname_ As String)
  14674.     Static Source As BUTTON
  14675.     Set Source = Bind(Objectname_)
  14676.     On Event Click From Source Call Click
  14677. End Sub
  14678. '++LotusScript Development Environment:2:2:Click:1:12
  14679. Sub Click(Source As Button)
  14680.     Dim uidoc As NotesUIDocument
  14681.     Dim uiobject As Variant
  14682.     Dim nResult As Integer
  14683.     Set uiobject = uicsdoc.UIObject
  14684.     Set uidoc = uicsdoc.UIDocument     
  14685.     If (uiobject.OkToAccept(True)) Then
  14686.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  14687.         Call uidoc.save
  14688.         Call uidoc.close
  14689.     End If    
  14690. End Sub
  14691. tmpNoActionBar
  14692. tmpOwnerHW
  14693. NoticeType
  14694. Broadcast
  14695.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14696. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  14697. '++LotusScript Development Environment:2:5:(Forward):0:1
  14698. Declare Sub Click(Source As Button)
  14699. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14700. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14701. Private Sub BindEvents(Byval Objectname_ As String)
  14702.     Static Source As BUTTON
  14703.     Set Source = Bind(Objectname_)
  14704.     On Event Click From Source Call Click
  14705. End Sub
  14706. '++LotusScript Development Environment:2:2:Click:1:12
  14707. Sub Click(Source As Button)
  14708.     uicsdoc.uiobject.SendComments = True
  14709.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  14710. End Sub
  14711. tmpNoActionBar
  14712. tmpOwnerHW
  14713. NoticeType
  14714. Broadcast
  14715.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14716. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  14717. '++LotusScript Development Environment:2:5:(Forward):0:1
  14718. Declare Sub Click(Source As Button)
  14719. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14720. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14721. Private Sub BindEvents(Byval Objectname_ As String)
  14722. Static Source As BUTTON
  14723. Set Source = Bind(Objectname_)
  14724. On Event Click From Source Call Click
  14725. End Sub
  14726. '++LotusScript Development Environment:2:2:Click:1:12
  14727. Sub Click(Source As Button)
  14728.     uicsdoc.uiobject.SendComments = True
  14729.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  14730. End Sub
  14731. tmpNoActionBar
  14732. tmpOwnerHW
  14733. Broadcast
  14734. PreventDelegate
  14735.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14736. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  14737. '++LotusScript Development Environment:2:5:(Forward):0:1
  14738. Declare Sub Click(Source As Button)
  14739. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14740. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14741. Private Sub BindEvents(Byval Objectname_ As String)
  14742.     Static Source As BUTTON
  14743.     Set Source = Bind(Objectname_)
  14744.     On Event Click From Source Call Click
  14745. End Sub
  14746. '++LotusScript Development Environment:2:2:Click:1:12
  14747. Sub Click(Source As Button)
  14748.     uicsdoc.uiobject.SendComments = True
  14749.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  14750. End Sub
  14751. tmpNoActionBar
  14752. tmpOwnerHW
  14753. Broadcast
  14754. PreventCounter
  14755. OrgRepeat
  14756.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S2E16S21S22S
  14757. Antwort mit Kommentar\Vorl
  14758. ufig annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  14759. '++LotusScript Development Environment:2:5:(Forward):0:1
  14760. Declare Sub Click(Source As Button)
  14761. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14762. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14763. Private Sub BindEvents(Byval Objectname_ As String)
  14764.     Static Source As BUTTON
  14765.     Set Source = Bind(Objectname_)
  14766.     On Event Click From Source Call Click
  14767. End Sub
  14768. '++LotusScript Development Environment:2:2:Click:1:12
  14769. Sub Click(Source As Button)
  14770.     Dim uidoc As NotesUIDocument
  14771.     Dim note As notesdocument
  14772.     Dim uiobject As Variant
  14773.     Set uiobject = uicsdoc.UIObject
  14774.     Set uidoc = uicsdoc.UIDocument     
  14775.     uiobject.SendComments = True
  14776.     uiobject.ActionInProgress = ACTION_ACCEPT
  14777.     Set note = uidoc.document
  14778.     Call note.replaceitemvalue("BookFreeTime","1")    
  14779.     Call note.replaceitemvalue("tmpPencilIn","1")
  14780.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  14781.     Call uidoc.save
  14782.     Call uidoc.close
  14783. End Sub
  14784. tmpNoActionBar
  14785. tmpOwnerHW
  14786. Broadcast
  14787.     1S2S3S4S5S6S7S8S9S10S
  14788. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  14789. '++LotusScript Development Environment:2:5:(Forward):0:1
  14790. Declare Sub Click(Source As Button)
  14791. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14792. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14793. Private Sub BindEvents(Byval Objectname_ As String)
  14794.     Static Source As BUTTON
  14795.     Set Source = Bind(Objectname_)
  14796.     On Event Click From Source Call Click
  14797. End Sub
  14798. '++LotusScript Development Environment:2:2:Click:1:12
  14799. Sub Click(Source As Button)
  14800.     Dim uievent As UIEventObject
  14801.     Set uievent = uicsdoc.UIObject
  14802.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)",1) Then
  14803.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  14804.         If (uievent.SendComments) Then Call uievent.EditNotice
  14805.     End If
  14806. End Sub
  14807. tmpNoActionBar
  14808. tmpOwnerHW
  14809. OrgRepeat
  14810.     1S2S3S4S5S6S7S8S13S14S
  14811. Kalender konsultieren
  14812. (Check Calendar)
  14813.     0S0E
  14814. tmpOwnerHW
  14815. tmpNoActionBar
  14816.     0S1S2S3S4S5S6S
  14817. Gegenvorschlag annehmen
  14818. '++LotusScript Development Environment:2:5:(Options):0:66
  14819. '++LotusScript Development Environment:2:5:(Forward):0:1
  14820. Declare Sub Click(Source As Button)
  14821. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14822. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14823. Private Sub BindEvents(Byval Objectname_ As String)
  14824.     Static Source As BUTTON
  14825.     Set Source = Bind(Objectname_)
  14826.     On Event Click From Source Call Click
  14827. End Sub
  14828. '++LotusScript Development Environment:2:2:Click:1:12
  14829. Sub Click(Source As Button)
  14830.     Call uicsdoc.UIDocument.Document.RemoveItem("StartDate")
  14831.     Call uicsdoc.UIDocument.Document.RemoveItem("StartTime")    
  14832.     Call uicsdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1) 
  14833. End Sub
  14834. tmpOwnerHW
  14835. NoticeType
  14836.     1S2S3S4S2E5S6S
  14837. Gegenvorschlag ablehnen
  14838. '++LotusScript Development Environment:2:5:(Options):0:66
  14839. '++LotusScript Development Environment:2:5:(Forward):0:1
  14840. Declare Sub Click(Source As Button)
  14841. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14842. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14843. Private Sub BindEvents(Byval Objectname_ As String)
  14844.     Static Source As BUTTON
  14845.     Set Source = Bind(Objectname_)
  14846.     On Event Click From Source Call Click
  14847. End Sub
  14848. '++LotusScript Development Environment:2:2:Click:1:12
  14849. Sub Click(Source As Button)
  14850.     Call uicsdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1) 
  14851. End Sub
  14852. tmpOwnerHW
  14853. NoticeType
  14854.     1S2S3S4S2E5S6S
  14855. In Kalender eintragen
  14856. tmpAction
  14857.  2097154
  14858.     1S2S
  14859. Broadcast
  14860. tmpNoActionBar
  14861. tmpOwnerHW
  14862.     1S2S3S4S5S6S7S8S9S10S
  14863. Aktualisierte Informationen senden...
  14864. '++LotusScript Development Environment:2:5:(Options):0:66
  14865. '++LotusScript Development Environment:2:5:(Forward):0:1
  14866. Declare Sub Click(Source As Button)
  14867. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14868. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14869. Private Sub BindEvents(Byval Objectname_ As String)
  14870.     Static Source As BUTTON
  14871.     Set Source = Bind(Objectname_)
  14872.     On Event Click From Source Call Click
  14873. End Sub
  14874. '++LotusScript Development Environment:2:2:Click:1:12
  14875. Sub Click(Source As Button)
  14876.     Dim uievent As UIEventObject
  14877.     Set uievent = uicsdoc.UIObject
  14878.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  14879.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  14880.         If (uievent.SendComments) Then Call uievent.EditNotice
  14881.     End If
  14882. End Sub
  14883. NoticeType
  14884. $CSFlags
  14885.     1S2S3S4S9S
  14886. Informationen aktualisieren...'++LotusScript Development Environment:2:5:(Options):0:66
  14887. '++LotusScript Development Environment:2:5:(Forward):0:1
  14888. Declare Sub Click(Source As Button)
  14889. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14890. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14891. Private Sub BindEvents(Byval Objectname_ As String)
  14892.     Static Source As BUTTON
  14893.     Set Source = Bind(Objectname_)
  14894.     On Event Click From Source Call Click
  14895. End Sub
  14896. '++LotusScript Development Environment:2:2:Click:1:12
  14897. Sub Click(Source As Button)
  14898.     Dim uievent As UIEventObject
  14899.     Set uievent = uicsdoc.UIObject
  14900.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  14901.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  14902.         If (uievent.SendComments) Then Call uievent.EditNotice
  14903.     End If
  14904. End Sub
  14905. NoticeType
  14906. $CSFlags
  14907.     1S2S3S4S9S
  14908. _Kategorisieren
  14909. Dokument _bearbeiten
  14910. Dokument _senden
  14911. _Weiterleiten
  14912. In Ordner _verschieben...
  14913. Aus Ordner _entfernen
  14914. Antwort\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  14915. '++LotusScript Development Environment:2:5:(Forward):0:1
  14916. Declare Sub Click(Source As Button)
  14917. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14918. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14919. Private Sub BindEvents(Byval Objectname_ As String)
  14920.     Static Source As BUTTON
  14921.     Set Source = Bind(Objectname_)
  14922.     On Event Click From Source Call Click
  14923. End Sub
  14924. '++LotusScript Development Environment:2:2:Click:1:12
  14925. Sub Click(Source As Button)
  14926.     Dim uidoc As NotesUIDocument
  14927.     Dim uiobject As Variant
  14928.     Dim nResult As Integer
  14929.     Set uiobject = uicsdoc.UIObject
  14930.     Set uidoc = uicsdoc.UIDocument     
  14931.     If (uiobject.OkToAccept(False)) Then
  14932.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  14933.         Call uidoc.save
  14934.         Call uidoc.close
  14935.     End If    
  14936. End Sub
  14937. tmpNoActionBar
  14938. tmpOwnerHW
  14939. NoticeType
  14940. Broadcast
  14941.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14942. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  14943. '++LotusScript Development Environment:2:5:(Forward):0:1
  14944. Declare Sub Click(Source As Button)
  14945. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14946. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14947. Private Sub BindEvents(Byval Objectname_ As String)
  14948.     Static Source As BUTTON
  14949.     Set Source = Bind(Objectname_)
  14950.     On Event Click From Source Call Click
  14951. End Sub
  14952. '++LotusScript Development Environment:2:2:Click:1:12
  14953. Sub Click(Source As Button)
  14954.     uicsdoc.uiobject.SendComments = False    
  14955.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  14956. End Sub
  14957. tmpNoActionBar
  14958. tmpOwnerHW
  14959. NoticeType
  14960. Broadcast
  14961.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14962. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  14963. '++LotusScript Development Environment:2:5:(Forward):0:1
  14964. Declare Sub Click(Source As Button)
  14965. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14966. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14967. Private Sub BindEvents(Byval Objectname_ As String)
  14968.     Static Source As BUTTON
  14969.     Set Source = Bind(Objectname_)
  14970.     On Event Click From Source Call Click
  14971. End Sub
  14972. '++LotusScript Development Environment:2:2:Click:1:12
  14973. Sub Click(Source As Button)
  14974.     uicsdoc.uiobject.SendComments = False
  14975.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  14976. End Sub
  14977. tmpNoActionBar
  14978. tmpOwnerHW
  14979. Broadcast
  14980. PreventDelegate
  14981.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  14982. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  14983. '++LotusScript Development Environment:2:5:(Forward):0:1
  14984. Declare Sub Click(Source As Button)
  14985. '++LotusScript Development Environment:2:5:(Declarations):0:2
  14986. '++LotusScript Development Environment:2:2:BindEvents:1:129
  14987. Private Sub BindEvents(Byval Objectname_ As String)
  14988.     Static Source As BUTTON
  14989.     Set Source = Bind(Objectname_)
  14990.     On Event Click From Source Call Click
  14991. End Sub
  14992. '++LotusScript Development Environment:2:2:Click:1:12
  14993. Sub Click(Source As Button)
  14994.     uicsdoc.uiobject.SendComments = False    
  14995.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  14996. End Sub
  14997. tmpNoActionBar
  14998. tmpOwnerHW
  14999. Broadcast
  15000. PreventCounter
  15001. OrgRepeat
  15002.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  15003. Antwort\Vorl
  15004. ufig annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  15005. '++LotusScript Development Environment:2:5:(Forward):0:1
  15006. Declare Sub Click(Source As Button)
  15007. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15008. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15009. Private Sub BindEvents(Byval Objectname_ As String)
  15010.     Static Source As BUTTON
  15011.     Set Source = Bind(Objectname_)
  15012.     On Event Click From Source Call Click
  15013. End Sub
  15014. '++LotusScript Development Environment:2:2:Click:1:12
  15015. Sub Click(Source As Button)
  15016.     Dim uidoc As NotesUIDocument
  15017.     Dim note As notesdocument
  15018.     Dim uiobject As Variant
  15019.     Set uiobject = uicsdoc.UIObject
  15020.     Set uidoc = uicsdoc.UIDocument     
  15021.     uiobject.SendComments = False
  15022.     uiobject.ActionInProgress = ACTION_ACCEPT
  15023.     Set note = uidoc.document
  15024.     Call note.replaceitemvalue("BookFreeTime","1")    
  15025.     Call note.replaceitemvalue("tmpPencilIn","1")
  15026.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  15027.     Call uidoc.save
  15028.     Call uidoc.close
  15029. End Sub
  15030. tmpNoActionBar
  15031. tmpOwnerHW
  15032. Broadcast
  15033.     1S2S3S4S5S6S7S8S9S10S
  15034. Antwort mit Kommentar\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  15035. '++LotusScript Development Environment:2:5:(Forward):0:1
  15036. Declare Sub Click(Source As Button)
  15037. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15038. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15039. Private Sub BindEvents(Byval Objectname_ As String)
  15040.     Static Source As BUTTON
  15041.     Set Source = Bind(Objectname_)
  15042.     On Event Click From Source Call Click
  15043. End Sub
  15044. '++LotusScript Development Environment:2:2:Click:1:12
  15045. Sub Click(Source As Button)
  15046.     Dim uidoc As NotesUIDocument
  15047.     Dim uiobject As Variant
  15048.     Dim nResult As Integer
  15049.     Set uiobject = uicsdoc.UIObject
  15050.     Set uidoc = uicsdoc.UIDocument     
  15051.     If (uiobject.OkToAccept(True)) Then
  15052.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  15053.         Call uidoc.save
  15054.         Call uidoc.close
  15055.     End If    
  15056. End Sub
  15057. tmpNoActionBar
  15058. tmpOwnerHW
  15059. NoticeType
  15060. Broadcast
  15061.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  15062. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  15063. '++LotusScript Development Environment:2:5:(Forward):0:1
  15064. Declare Sub Click(Source As Button)
  15065. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15066. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15067. Private Sub BindEvents(Byval Objectname_ As String)
  15068.     Static Source As BUTTON
  15069.     Set Source = Bind(Objectname_)
  15070.     On Event Click From Source Call Click
  15071. End Sub
  15072. '++LotusScript Development Environment:2:2:Click:1:12
  15073. Sub Click(Source As Button)
  15074.     uicsdoc.uiobject.SendComments = True
  15075.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  15076. End Sub
  15077. tmpNoActionBar
  15078. tmpOwnerHW
  15079. NoticeType
  15080. Broadcast
  15081.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  15082. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  15083. '++LotusScript Development Environment:2:5:(Forward):0:1
  15084. Declare Sub Click(Source As Button)
  15085. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15086. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15087. Private Sub BindEvents(Byval Objectname_ As String)
  15088. Static Source As BUTTON
  15089. Set Source = Bind(Objectname_)
  15090. On Event Click From Source Call Click
  15091. End Sub
  15092. '++LotusScript Development Environment:2:2:Click:1:12
  15093. Sub Click(Source As Button)
  15094.     uicsdoc.uiobject.SendComments = True
  15095.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  15096. End Sub
  15097. tmpNoActionBar
  15098. tmpOwnerHW
  15099. Broadcast
  15100. PreventDelegate
  15101.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  15102. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  15103. '++LotusScript Development Environment:2:5:(Forward):0:1
  15104. Declare Sub Click(Source As Button)
  15105. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15106. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15107. Private Sub BindEvents(Byval Objectname_ As String)
  15108.     Static Source As BUTTON
  15109.     Set Source = Bind(Objectname_)
  15110.     On Event Click From Source Call Click
  15111. End Sub
  15112. '++LotusScript Development Environment:2:2:Click:1:12
  15113. Sub Click(Source As Button)
  15114.     uicsdoc.uiobject.SendComments = True
  15115.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  15116. End Sub
  15117. tmpNoActionBar
  15118. tmpOwnerHW
  15119. Broadcast
  15120. PreventCounter
  15121. OrgRepeat
  15122.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S2E16S21S22S
  15123. Antwort mit Kommentar\Vorl
  15124. ufig annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  15125. '++LotusScript Development Environment:2:5:(Forward):0:1
  15126. Declare Sub Click(Source As Button)
  15127. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15128. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15129. Private Sub BindEvents(Byval Objectname_ As String)
  15130.     Static Source As BUTTON
  15131.     Set Source = Bind(Objectname_)
  15132.     On Event Click From Source Call Click
  15133. End Sub
  15134. '++LotusScript Development Environment:2:2:Click:1:12
  15135. Sub Click(Source As Button)
  15136.     Dim uidoc As NotesUIDocument
  15137.     Dim note As notesdocument
  15138.     Dim uiobject As Variant
  15139.     Set uiobject = uicsdoc.UIObject
  15140.     Set uidoc = uicsdoc.UIDocument     
  15141.     uiobject.SendComments = True
  15142.     uiobject.ActionInProgress = ACTION_ACCEPT
  15143.     Set note = uidoc.document
  15144.     Call note.replaceitemvalue("BookFreeTime","1")    
  15145.     Call note.replaceitemvalue("tmpPencilIn","1")
  15146.     If Not(uidoc.editmode) Then uidoc.editmode = True        
  15147.     Call uidoc.save
  15148.     Call uidoc.close
  15149. End Sub
  15150. tmpNoActionBar
  15151. tmpOwnerHW
  15152. Broadcast
  15153.     1S2S3S4S5S6S7S8S9S10S
  15154. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  15155. '++LotusScript Development Environment:2:5:(Forward):0:1
  15156. Declare Sub Click(Source As Button)
  15157. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15158. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15159. Private Sub BindEvents(Byval Objectname_ As String)
  15160.     Static Source As BUTTON
  15161.     Set Source = Bind(Objectname_)
  15162.     On Event Click From Source Call Click
  15163. End Sub
  15164. '++LotusScript Development Environment:2:2:Click:1:12
  15165. Sub Click(Source As Button)
  15166.     Dim uievent As UIEventObject
  15167.     Set uievent = uicsdoc.UIObject
  15168.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)",1) Then
  15169.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  15170.         If (uievent.SendComments) Then Call uievent.EditNotice
  15171.     End If
  15172. End Sub
  15173. tmpNoActionBar
  15174. tmpOwnerHW
  15175. OrgRepeat
  15176.     1S2S3S4S5S6S7S8S13S14S
  15177. Kalender konsultieren
  15178. (Check Calendar)
  15179.     0S0E
  15180. tmpOwnerHW
  15181. tmpNoActionBar
  15182.     0S1S2S3S4S5S6S
  15183. Gegenvorschlag annehmenr'++LotusScript Development Environment:2:5:(Options):0:66
  15184. '++LotusScript Development Environment:2:5:(Forward):0:1
  15185. Declare Sub Click(Source As Button)
  15186. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15187. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15188. Private Sub BindEvents(Byval Objectname_ As String)
  15189.     Static Source As BUTTON
  15190.     Set Source = Bind(Objectname_)
  15191.     On Event Click From Source Call Click
  15192. End Sub
  15193. '++LotusScript Development Environment:2:2:Click:1:12
  15194. Sub Click(Source As Button)
  15195.     Call uicsdoc.UIDocument.Document.RemoveItem("StartDate")
  15196.     Call uicsdoc.UIDocument.Document.RemoveItem("StartTime")    
  15197.     Call uicsdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1) 
  15198. End Sub
  15199. tmpOwnerHW
  15200. NoticeType
  15201.     1S2S3S4S2E5S6S
  15202. Gegenvorschlag ablehnenO'++LotusScript Development Environment:2:5:(Options):0:66
  15203. '++LotusScript Development Environment:2:5:(Forward):0:1
  15204. Declare Sub Click(Source As Button)
  15205. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15206. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15207. Private Sub BindEvents(Byval Objectname_ As String)
  15208.     Static Source As BUTTON
  15209.     Set Source = Bind(Objectname_)
  15210.     On Event Click From Source Call Click
  15211. End Sub
  15212. '++LotusScript Development Environment:2:2:Click:1:12
  15213. Sub Click(Source As Button)
  15214.     Call uicsdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1) 
  15215. End Sub
  15216. tmpOwnerHW
  15217. NoticeType
  15218.     1S2S3S4S2E5S6S
  15219. In Kalender eintragenm
  15220. tmpAction
  15221.  2097154
  15222.     1S2S
  15223. Broadcast
  15224. tmpNoActionBar
  15225. tmpOwnerHW
  15226.     1S2S3S4S5S6S7S8S9S10S
  15227. Aktualisierte Informationen senden...m'++LotusScript Development Environment:2:5:(Options):0:66
  15228. '++LotusScript Development Environment:2:5:(Forward):0:1
  15229. Declare Sub Click(Source As Button)
  15230. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15231. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15232. Private Sub BindEvents(Byval Objectname_ As String)
  15233.     Static Source As BUTTON
  15234.     Set Source = Bind(Objectname_)
  15235.     On Event Click From Source Call Click
  15236. End Sub
  15237. '++LotusScript Development Environment:2:2:Click:1:12
  15238. Sub Click(Source As Button)
  15239.     Dim uievent As UIEventObject
  15240.     Set uievent = uicsdoc.UIObject
  15241.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  15242.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  15243.         If (uievent.SendComments) Then Call uievent.EditNotice
  15244.     End If
  15245. End Sub
  15246. NoticeType
  15247. $CSFlags
  15248.     1S2S3S4S9S
  15249. Informationen aktualisieren...'++LotusScript Development Environment:2:5:(Options):0:66
  15250. '++LotusScript Development Environment:2:5:(Forward):0:1
  15251. Declare Sub Click(Source As Button)
  15252. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15253. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15254. Private Sub BindEvents(Byval Objectname_ As String)
  15255.     Static Source As BUTTON
  15256.     Set Source = Bind(Objectname_)
  15257.     On Event Click From Source Call Click
  15258. End Sub
  15259. '++LotusScript Development Environment:2:2:Click:1:12
  15260. Sub Click(Source As Button)
  15261.     Dim uievent As UIEventObject
  15262.     Set uievent = uicsdoc.UIObject
  15263.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  15264.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  15265.         If (uievent.SendComments) Then Call uievent.EditNotice
  15266.     End If
  15267. End Sub
  15268. NoticeType
  15269. $CSFlags
  15270.     1S2S3S4S9S
  15271. Lotus Product
  15272. Lotus Product
  15273. Lotus Product
  15274. Lotus Product
  15275. Lotus Product
  15276. Lotus Product
  15277. Lotus Product
  15278. Lotus Product
  15279. Lotus Product
  15280. Lotus Product
  15281. Lotus Product
  15282. Lotus Product
  15283. Lotus Product
  15284. Lotus Product
  15285. Lotus Product
  15286. O=Lotus Notes
  15287. O=Lotus Notes
  15288. PURSAFO
  15289. |.:#U
  15290. O=Lotus Notes
  15291. CN=Lotus Notes Template Development/O=Lotus Notes
  15292. PURSAFO
  15293. NewStartDate
  15294. NewStartTime
  15295. NewEndDate
  15296. NewEndTime
  15297. $HTMLDocumentStyles
  15298. $SCRIPTOBJ_24
  15299. $SCRIPTOBJ_25
  15300. $SCRIPTOBJ_27
  15301. $SCRIPTOBJ_28
  15302. StartDate
  15303. StartTime
  15304. $Language
  15305. $LastBuildTime
  15306. $BabelInfo
  15307. $Info
  15308. $WINDOWTITLE
  15309. $AppHelpFormula
  15310. $WebFlags
  15311. $Script
  15312. $$Script_O
  15313. $$ScriptName
  15314. $$FormScript
  15315. $$$FormScript_O
  15316. $Body
  15317. $V5ACTIONS
  15318. $ACTIONS
  15319. $SCRIPTOBJ_6
  15320. $SCRIPTOBJ_7
  15321. $SCRIPTOBJ_8
  15322. $SCRIPTOBJ_9
  15323. $SCRIPTOBJ_10
  15324. $SCRIPTOBJ_11
  15325. $SCRIPTOBJ_12
  15326. $SCRIPTOBJ_13
  15327. $SCRIPTOBJ_14
  15328. $SCRIPTOBJ_15
  15329. $SCRIPTOBJ_16
  15330. $SCRIPTOBJ_18
  15331. $SCRIPTOBJ_19
  15332. $SCRIPTOBJ_21
  15333. $SCRIPTOBJ_22
  15334. $PublicAccess
  15335. thisform = document.forms[0]
  15336. parentwnd = window.opener
  15337. parentform = parentwnd.document.forms[0]
  15338. if (thisform.tmpSubform.value=='(InviteeReplyDlg)') 
  15339.     if (thisform.tmpActionType.value=='T' ) 
  15340.         // This requires the date fields to be filled in
  15341.         if (parentform.tmpWebStartDateTime.value!="") 
  15342.             thisform.NewStartDate.value = parentform.tmpWebStartDateTime.value.substring(0,parentform.tmpWebStartDateTime.value.indexOf(' '))
  15343.             thisform.NewEndDate.value = parentform.tmpWebEndDateTime.value.substring(0,parentform.tmpWebEndDateTime.value.indexOf(' '))
  15344.             thisform.NewStartTime.value = parentform.tmpWebStartDateTime.value.substring(parentform.tmpWebStartDateTime.value.indexOf(' '))
  15345.             thisform.NewEndTime.value = parentform.tmpWebEndDateTime.value.substring(parentform.tmpWebEndDateTime.value.indexOf(' '))
  15346.     if (thisform.tmpSubform.value=='(OwnerDlg)') 
  15347.         if (thisform.tmpActionType.value=='B')
  15348.             thisform.StartDate.value = parentform.NewStartDate.value
  15349.             thisform.EndDate.value = parentform.NewEndDate.value
  15350.             thisform.StartTime.value = parentform.NewStartTime.value
  15351.             thisform.EndTime.value = parentform.NewEndTime.value
  15352.             } else
  15353.             thisform.StartDate.value = parentform.tmpWebStartDateTime.value.substring(0,parentform.tmpWebStartDateTime.value.indexOf(' '))
  15354.             thisform.EndDate.value = parentform.tmpWebEndDateTime.value.substring(0,parentform.tmpWebEndDateTime.value.indexOf(' '))
  15355.             thisform.StartTime.value = parentform.tmpWebStartDateTime.value.substring(parentform.tmpWebStartDateTime.value.indexOf(' '))
  15356.             thisform.EndTime.value = parentform.tmpWebEndDateTime.value.substring(parentform.tmpWebEndDateTime.value.indexOf(' '))
  15357.     if (thisform.tmpSubform.value == '(RepeatOpenList)')
  15358.         thisform.tmpListOfDates.value = parentform.StartDateTime.value
  15359.         copyRepeatItems()
  15360.     if (thisform.tmpSubform.value=='CSDeliveryOptions')
  15361.         loadDeliveryOptions()
  15362. function copyRepeatItems()
  15363.     thisform = document.forms[0]
  15364.     datelist = thisform.tmpDateList
  15365.     strValues = thisform.tmpListOfDates.value
  15366.     strValuesArray = strValues.split(", ")
  15367.     for (i =0; i < strValuesArray.length; i++)
  15368.         datelist.options[i] = new Option(strValuesArray[i], strValuesArray[i])
  15369.     datelist.options.selectedIndex=0
  15370. function loadDeliveryOptions()
  15371.     thisform = document.forms[0]
  15372.     parentwnd = window.opener
  15373.     parentform = parentwnd.document.forms[0]
  15374.     thisform.DeliveryReport.value = parentform.DeliveryReport.value
  15375.     thisform.DeliveryPriority.value = parentform.DeliveryPriority.value
  15376.     if (parentform.ReturnReceipt.value == "1") thisform.ReturnReceipt.checked = true
  15377.     if (parentform.Broadcast.value == "1") thisform.Broadcast.checked=true
  15378.     if (parentform.PreventCounter.value=="1") thisform.PreventCounter.checked=true
  15379.     if (parentform.PreventDelegate.value=="1") thisform.PreventDelegate.checked=true
  15380.  (wDlgBox)
  15381. Lotus Notes
  15382. Query_String
  15383. Query_String
  15384. PartialName
  15385. Query_String
  15386. &Subform=
  15387.     1S2S
  15388. PartialName
  15389. PartialName
  15390. PartialName
  15391.     0R16StmpSubform
  15392. PartialName
  15393. Query_String
  15394. &Form=`
  15395.     1S2S
  15396. PartialName
  15397. PartialName
  15398. PartialName
  15399.     0R16SForm
  15400. type=hidden
  15401. xxDefault
  15402. Lotus Notes
  15403.     1S2S
  15404. PartialName
  15405. Query_String
  15406. &Title=
  15407.     0R1S2S
  15408. Title
  15409. PartialName
  15410. PartialName
  15411. PartialName
  15412.     0R1S2S18S
  15413. Title
  15414. Title
  15415. xxDefault
  15416. tmpTitle
  15417. tmpSubform
  15418. O=Lotus Notes
  15419. O=Lotus Notes
  15420. PURSAFO
  15421. |.:#U
  15422. O=Lotus Notes
  15423. CN=Lotus Notes Template Development/O=Lotus Notes
  15424. PURSAFO
  15425. _bnd<
  15426. $HTMLCode
  15427. $Info
  15428. $WebFlags
  15429. $$ScriptName
  15430. $WINDOWTITLE
  15431. $Body
  15432. $Language
  15433. $LastBuildTime
  15434. $BabelInfo
  15435. Lotus Product{Q
  15436. V0.0S
  15437. Kd{,D
  15438. ^,|J,|
  15439. ^d~}(
  15440. ^t~}P
  15441. ^T~}(
  15442. ^t~}P
  15443. ^T~}P
  15444. ^d~}(
  15445. JT~KD~-
  15446. JT~KD~-
  15447. KD~-<
  15448. tKD~-`
  15449. '++LotusScript Development Environment:2:5:(Options):0:66
  15450. '++LotusScript Development Environment:2:5:(Forward):0:1
  15451. Declare Sub Exiting(Source As Field)
  15452. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15453. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15454. Private Sub BindEvents(Byval Objectname_ As String)
  15455.      Static Source As FIELD
  15456.      Set Source = Bind(Objectname_)
  15457.      On Event Exiting From Source Call Exiting
  15458. End Sub
  15459. '++LotusScript Development Environment:2:2:Exiting:1:12
  15460. Sub Exiting(Source As Field)
  15461.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  15462. '     Call ExpandGroupNames ( "IgnoreFrom" )
  15463.      
  15464. End Sub
  15465. (Help)
  15466. MAIL_F_OUTOFOFFICEPROFILE
  15467.     0S0E
  15468. &Arial
  15469. '++LotusScript Development Environment:2:5:(Options):0:74
  15470. Option Public
  15471. Option Declare
  15472. Use "Common"
  15473. '++LotusScript Development Environment:2:5:(Forward):0:1
  15474. Declare Class OutOfOfficeControl As BaseApplication
  15475. '++LotusScript Development Environment:2:5:(Declarations):0:10
  15476. Dim OfficeControl As OutOfOfficeControl
  15477. Class OutOfOfficeControl As BaseApplication
  15478.     Public  m_agentOutOfOffice As notesagent    
  15479.     Private m_uiws As notesuiworkspace    
  15480.     Private m_dbCurrentDatabase As notesdatabase
  15481.     Private m_noteUIDoc As notesuidocument
  15482.     Private m_noteCalendarEntry As NotesDocument
  15483.     Private m_dtFirstDayOut As notesdatetime
  15484.     Private m_dtFirstDayBack As notesdatetime
  15485.     Private m_dtNow As notesdatetime
  15486.     Private m_namHomeServer As notesname
  15487.     Private m_MailStringTable As MailToolsStringTable
  15488.     Private m_vHomeServer As Variant
  15489.     Private m_nSuccess As Integer
  15490.     Private m_nResult As Integer    
  15491.     Private m_nUserHasRestrictedAccess As Integer
  15492.     Sub New(Source As notesuidocument)
  15493.         Set Me.m_uiws = New notesuiworkspace
  15494.         Set Me.m_noteUIDoc = Source
  15495.         Set Me.m_dbCurrentDatabase= session.currentdatabase
  15496.         Set Me.m_agentOutOfOffice = Me.m_dbCurrentDatabase.GetAgent("OutOfOffice")
  15497.         Set Me.m_MailStringTable = New MailToolsStringTable
  15498.     End Sub
  15499.     Function PostOpen()
  15500.         Me.m_noteUIDoc.autoreload = False
  15501.         If Me.m_agentOutOfOffice.IsEnabled Then
  15502.             Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
  15503.             Call Me.m_noteUIDoc.document.replaceitemvalue("$TableCurrentStatus","Enabled")
  15504.             Call Me.m_noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","1")
  15505.             Set Me.m_dtFirstDayBack = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayBack"))
  15506.             Set Me.m_dtNow = New notesdatetime(Now())
  15507.         Else
  15508.             Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
  15509.             Call Me.m_noteUIDoc.document.replaceitemvalue("$TableCurrentStatus","Disabled")
  15510.             Call Me.m_noteUIDoc.document.replaceitemvalue("AgentEnableOnOpen","0")
  15511.         End If
  15512.         Call Me.m_noteUIDoc.reload()
  15513.         Call Me.m_noteUIDoc.Refreshhideformulas()
  15514.     End Function
  15515.     Private Function ToggleEnableDisableEx() As Integer
  15516.         ToggleEnableDisableEx = True
  15517.         On Error Goto TRAP
  15518.         If Me.m_agentOutOfOffice.IsEnabled Then
  15519.             Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 47,Null) & Chr(13) & _
  15520.             Me.m_MailStringTable.GetString(TOOL_STRING + 48,Null),MB_YESNO,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  15521.             If Me.m_nResult = IDYES Then
  15522.                 Me.m_agentOutOfOffice.IsEnabled = False
  15523.                 Call Me.m_agentOutOfOffice.save()
  15524.                 If Me.m_agentOutOfOffice.IsEnabled Then
  15525.                     Call Me.m_noteUIDoc.document.save(True,True,True)
  15526.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 44,Null) _
  15527.                     & Chr(13) & Me.m_MailStringTable.GetString(TOOL_STRING + 45,Null), _
  15528.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  15529.                 Else
  15530.                     Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","1")
  15531.                     Call Me.m_noteUIDoc.document.replaceitemvalue("$TableCurrentStatus","Disabled")
  15532.                     Call Me.m_noteUIDoc.document.replaceitemvalue("Notified","")
  15533.                     Call Me.m_noteUIDoc.document.replaceitemvalue("SaveOptions","1")
  15534.                     Call Me.m_noteUIDoc.document.save(True,True,True)
  15535.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 49,Null), _
  15536.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  15537.                     
  15538.                     If Me.m_noteUIDoc.document.GetItemValue("OwnerOfCalendarEntry")(0) = "1" Then
  15539.                         'call look for calendar entry and ask if I should disable busy time only if date is less than return date?
  15540.                         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtNow)  > 0 Then
  15541.                             Me.m_nSuccess = Messagebox( Me.m_MailStringTable.GetString(TOOL_STRING + 66,Null), MB_YESNO, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15542.                             If Me.m_nSuccess = IDYES Then                            
  15543.                                 Set Me.m_noteCalendarEntry = Me.m_dbCurrentDatabase.GetDocumentByUNID(Me.m_noteUIDoc.document.GetItemValue("CalendarEntryUNID")(0))
  15544.                                 If Not Me.m_noteCalendarEntry Is Nothing Then
  15545.                                     With Me.m_noteCalendarEntry
  15546.                                         Call .ReplaceItemValue("$BusyPriority","2")
  15547.                                         Call .ReplaceItemValue("BookFreeTime", "1")                
  15548.                                         Call .Save(True,True,True)
  15549.                                     End With
  15550.                                     Call Me.m_noteUIDoc.document.replaceitemvalue("OwnerOfCalendarEntry","0")
  15551.                                     Call Me.m_noteUIDoc.document.replaceitemvalue("CalendarEntryUNID", "")
  15552.                                 Else
  15553.                                     Call DisplayWarn(Me.m_MailStringTable.GetString(TOOL_STRING + 67,Null), MB_OK,_
  15554.                                     Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15555.                                 End If
  15556.                             End If
  15557.                         End If
  15558.                     End If                    
  15559.                     
  15560.                 End If
  15561.             End If
  15562.             Exit Function
  15563.         Else
  15564.             If ValidateSettings() Then
  15565.                 If Me.m_dbCurrentDatabase.Currentaccesslevel < 5 Then    
  15566.                     Me.m_nUserHasRestrictedAccess = True
  15567.                     Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 50,Null), _
  15568.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15569.                     Exit Function
  15570.                 End If
  15571.                 Me.m_vHomeServer = Evaluate(|@LocationGetInfo([HomeServer])|)
  15572.                 Set Me.m_namHomeServer = New notesname(Me.m_vHomeServer(0))
  15573.                 If Me.m_vHomeServer(0) = "" Then
  15574.                     Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 51,Null) & Chr(13) & _
  15575.                     Me.m_MailStringTable.GetString(TOOL_STRING + 52,Null), _
  15576.                     MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15577.                     Exit Function
  15578.                 End If
  15579.                 Me.m_agentOutOfOffice.Servername = Cstr(Me.m_vHomeServer(0))        
  15580.                 Me.m_agentOutOfOffice.IsEnabled = True            
  15581.                 Call Me.m_agentOutOfOffice.save
  15582.                 If Me.m_agentOutOfOffice.IsEnabled Then
  15583.                     Call BookBusyTime()
  15584.                     Call Me.m_noteUIDoc.document.replaceitemvalue("CurrentStatus","0")
  15585.                     Call Me.m_noteUIDoc.document.replaceitemvalue("$TableCurrentStatus","Enabled")
  15586.                     Call Me.m_noteUIDoc.document.replaceitemvalue("SaveOptions","1")
  15587.                     Call Me.m_noteUIDoc.document.save(True,True,True)
  15588.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 53,Null)  & _
  15589.                     Me.m_namHomeServer.Abbreviated & Chr(13) & Me.m_MailStringTable.GetString(TOOL_STRING + 54,Null) & _
  15590.                     Me.m_noteUIDoc.FieldGetText("FirstDayOut") & Me.m_MailStringTable.GetString(TOOL_STRING + 55,Me.m_noteUIDoc.FieldGetText("FirstDayBack")),MB_OK, _
  15591.                     Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15592.                 Else
  15593.                     Me.m_nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 56,Null) & Chr(13) & _
  15594.                     Me.m_MailStringTable.GetString(TOOL_STRING + 50,Null) ,MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15595.                 End If
  15596.             Else
  15597.                 ToggleEnableDisableEx = False        
  15598.             End If
  15599.         End If            
  15600.         Exit Function
  15601. Trap:
  15602.         If Err = 4091 Then
  15603.             Resume Next
  15604.         Else
  15605.             Print("Notes Fehler: " & Cstr(Err) & " " &  Error$)
  15606.             Resume Next
  15607.         End If 
  15608.     End Function
  15609.     Public Function ToggleEnableDisable()
  15610.         If ToggleEnableDisableEx() Then
  15611.             Call Me.m_noteUIDoc.reload()
  15612.             Call Me.m_noteUIDoc.Refreshhideformulas()
  15613.             Call Me.m_noteUIDoc.Save
  15614.         End If
  15615.     End Function
  15616.     Public Function ValidateSettings() As Integer
  15617.         ValidateSettings = False
  15618.         If (Me.m_noteUIDoc.FieldGetText("FirstDayOut") = "") Or _
  15619.         (Me.m_noteUIDoc.FieldGetText("FirstDayBack") = "") Then
  15620.             Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 57,Null), _
  15621.             MB_OK, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15622.             Exit Function
  15623.         End If
  15624.         Set Me.m_dtFirstDayOut = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayOut"))
  15625.         Set Me.m_dtFirstDayBack = New notesdatetime(Me.m_noteUIDoc.FieldGetText("FirstDayBack"))
  15626.         Set Me.m_dtNow = New notesdatetime(Now())
  15627.         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtNow)  < 0 Then
  15628.             Me.m_nSuccess = Messagebox( Me.m_MailStringTable.GetString(TOOL_STRING + 58,Null), _
  15629.             MB_OK, Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15630.             Exit Function    
  15631.         End If
  15632.         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtFirstDayOut)  < 0 Then
  15633.             Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 59,Null), _
  15634.             MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15635.             Exit Function    
  15636.         End If
  15637.         If Me.m_dtFirstDayBack.Timedifferencedouble(Me.m_dtFirstDayOut)  = 0 Then
  15638.             Me.m_nSuccess = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 60,Null), _
  15639.             MB_OK,Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))
  15640.             Exit Function    
  15641.         End If
  15642.         ValidateSettings = True
  15643.     End Function
  15644.     Public Function BookBusyTime()
  15645.         If Me.m_noteUIDoc.document.BookBusyTime(0) = "1" Then
  15646.             Set Me.m_noteCalendarEntry = Me.m_dbCurrentDatabase.CreateDocument()
  15647.             With Me.m_noteCalendarEntry        
  15648.                 Call .ReplaceItemValue("Form","Appointment")
  15649.                 Call .ReplaceItemValue("StartDate", Me.m_noteUIDoc.document.FirstDayOut)
  15650.                 Call .ReplaceItemValue("StartDateTime", Me.m_noteUIDoc.document.FirstDayOut)
  15651.                 Call .ReplaceItemValue("EndDate", Me.m_noteUIDoc.document.FirstDayBack)
  15652.                 Call .ReplaceItemValue("EndDateTime", Me.m_noteUIDoc.document.FirstDayBack)
  15653.                 Call .ReplaceItemValue("PRINCIPAL", session.username)
  15654.                 Call .ReplaceItemValue("$BusyName", session.username)
  15655.                 Call .ReplaceItemValue("$BusyPriority", "1")
  15656.                 Call .ReplaceItemValue("BookFreeTime", "")                
  15657.                 Call .ReplaceItemValue("$PublicAccess","1")
  15658.                 Call .ReplaceItemValue("AppointmentType","2")
  15659.                 Call .ReplaceItemValue("ApptUNID",.Universalid)                
  15660.                 Call .ReplaceItemValue("ExcludeFromView","D")
  15661.                 Call .ReplaceItemValue("Subject","Abwesenheit")
  15662.                 Call .ReplaceItemValue("_ViewIcon",9)
  15663.                 Call .ReplaceItemValue("CreatedByAgent","1")
  15664.                 Call .Save(True,True,True)
  15665.             End With
  15666.             Call Me.m_noteUIDoc.document.replaceitemvalue("OwnerOfCalendarEntry","1")
  15667.             Call Me.m_noteUIDoc.document.replaceitemvalue("CalendarEntryUNID", Me.m_noteCalendarEntry.Universalid)
  15668.         End If
  15669.     End Function
  15670.     Public Function QueryClose(Source As notesuidocument, Continue As Variant)
  15671.         Dim nResult As Integer
  15672.         If Cint(Source.document.GetItemValue("SaveOptions")(0)) Then
  15673.             'Spr #MQUE43TPTK
  15674.             If Cint(Source.document.GetItemValue("AgentEnableOnOpen")(0)) Then
  15675.                 If Source.document.GetItemValue("CurrentStatus")(0) = "1" Then
  15676.                     Exit Function                
  15677.                 End If
  15678.             End If            
  15679.             If OfficeControl.ValidateSettings() Then
  15680.                 If (Cint(Source.document.GetItemValue("CurrentStatus")(0))) And Not (Cint(Source.document.GetItemValue("AgentEnableOnOpen")(0))) Then
  15681.                     If Not Me.m_nUserHasRestrictedAccess Then
  15682.                         nResult = Messagebox(Me.m_MailStringTable.GetString(TOOL_STRING + 65,Null),MB_YESNO,_
  15683.                         Me.m_MailStringTable.GetString(TOOL_STRING + 46,Null))        
  15684.                         If nResult = IDYES Then
  15685.                             Continue = True        
  15686.                         Else
  15687.                             Continue = False            
  15688.                         End If
  15689.                     End If
  15690.                 End If 
  15691.             Else
  15692.                 Continue = False        
  15693.             End If
  15694.         Else
  15695.         'user is discarding changes, they may have been commited when agent was enabled    
  15696.         End If    
  15697.     End Function
  15698. End Class    
  15699. Lotus Product
  15700. 8    8    X
  15701.     0S0E
  15702.  OutOfOfficeProfile'++LotusScript Development Environment:2:5:(Options):0:66
  15703. '++LotusScript Development Environment:2:5:(Forward):0:1
  15704. Declare Sub Postopen(Source As Notesuidocument)
  15705. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  15706. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15707. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15708. Private Sub BindEvents(Byval Objectname_ As String)
  15709.     Static Source As NOTESUIDOCUMENT
  15710.     Set Source = Bind(Objectname_)
  15711.     On Event Postopen From Source Call Postopen
  15712.     On Event Queryclose From Source Call Queryclose
  15713. End Sub
  15714. '++LotusScript Development Environment:2:2:Postopen:1:12
  15715. Sub Postopen(Source As Notesuidocument)
  15716.     Set OfficeControl = New OutOfOfficeControl(Source)
  15717.     Call OfficeControl.PostOpen()
  15718. End Sub
  15719. '++LotusScript Development Environment:2:2:Queryclose:1:12
  15720. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  15721.     If Not Cint(Source.Document.GetItemValue("SaveOptions")(0)) Then
  15722.         Call OfficeControl.QueryClose(Source,Continue)
  15723.     End If
  15724. End Sub
  15725. Lotus Product
  15726. Lotus Product
  15727. '++LotusScript Development Environment:2:5:(Options):0:66
  15728. '++LotusScript Development Environment:2:5:(Forward):0:1
  15729. Declare Sub Exiting(Source As Field)
  15730. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15731. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15732. Private Sub BindEvents(Byval Objectname_ As String)
  15733.      Static Source As FIELD
  15734.      Set Source = Bind(Objectname_)
  15735.      On Event Exiting From Source Call Exiting
  15736. End Sub
  15737. '++LotusScript Development Environment:2:2:Exiting:1:12
  15738. Sub Exiting(Source As Field)
  15739.  ' can't rely on this since exit event won't fire if we directly exit or save profile
  15740.  '    Call ExpandGroupNames ( "SpecialPeople" )
  15741.      
  15742. End Sub
  15743. Lotus Product
  15744. '++LotusScript Development Environment:2:5:(Options):0:66
  15745. '++LotusScript Development Environment:2:5:(Forward):0:1
  15746. Declare Sub Exiting(Source As Field)
  15747. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15748. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15749. Private Sub BindEvents(Byval Objectname_ As String)
  15750.      Static Source As FIELD
  15751.      Set Source = Bind(Objectname_)
  15752.      On Event Exiting From Source Call Exiting
  15753. End Sub
  15754. '++LotusScript Development Environment:2:2:Exiting:1:12
  15755. Sub Exiting(Source As Field)
  15756.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  15757. '     Call ExpandGroupNames ( "IgnoreFrom" )
  15758.      
  15759. End Sub
  15760. Lotus Product
  15761. '++LotusScript Development Environment:2:5:(Options):0:66
  15762. '++LotusScript Development Environment:2:5:(Forward):0:1
  15763. Declare Sub Exiting(Source As Field)
  15764. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15765. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15766. Private Sub BindEvents(Byval Objectname_ As String)
  15767.      Static Source As FIELD
  15768.      Set Source = Bind(Objectname_)
  15769.      On Event Exiting From Source Call Exiting
  15770. End Sub
  15771. '++LotusScript Development Environment:2:2:Exiting:1:12
  15772. Sub Exiting(Source As Field)
  15773.       ' can't rely on this since exit event won't fire if we directly exit or save profile
  15774. '     Call ExpandGroupNames ( "IgnoreFrom" )
  15775.      
  15776. End Sub
  15777. Lotus Product
  15778. Action
  15779. Profile
  15780.     1S2S
  15781.     Always Hidden: 
  15782. .,$///:
  15783. AgentEnableOnOpen
  15784. AgentEnableOnOpen
  15785. Notified
  15786. Notifiedz
  15787. Notified
  15788. Princ
  15789. CalendarProfile
  15790. Owner
  15791.     1S2S6S
  15792. Princ
  15793. Princ
  15794.     0R3S4S6S8S
  15795. Senderz
  15796. Sender
  15797. System
  15798. Fromz
  15799. Bitte nicht l
  15800. schen - Abwesenheitsprofil
  15801. Subject
  15802. Subject
  15803. ExcludeFromView
  15804. ExcludeFromView
  15805. _ViewIcon
  15806. _ViewIcon
  15807.     0S0E
  15808. DialogStatus
  15809. .,$,  , :
  15810. Path_Info
  15811. Path_Info
  15812. .,$,  , :
  15813. Query_String
  15814. Query_String
  15815. TableCurrentStatus
  15816. TableCurrentStatus
  15817. CurrentStatus
  15818.     0S0E
  15819. Disabled
  15820.     Notes kann w
  15821. hrend Ihrer Abwesenheit automatisch auf eingehende Mail-Nachrichten antworten.
  15822.     Zum Verwenden des Abwesenheits-Agenten tragen Sie die Zeitr
  15823. ume ein, zu denen Sie abwesend sein werden, und klicken Sie auf 
  15824.     Aktivieren.
  15825. CurrentStatus
  15826. CurrentStatus
  15827.     3S4S6S8S
  15828. CurrentStatus
  15829. Aktiviert | 0Deaktiviert | 1
  15830. CurrentStatus
  15831. Enabled
  15832.     Innerhalb den unten angegebenen Zeitr
  15833. umen wird Notes automatisch auf eingehende Mail-Nachrichten mit einer Abwesenheitsnachricht antworten.
  15834.     0S0E
  15835.     Ich werde nicht im B
  15836. ro sein...
  15837.     Von:
  15838.     0S0E
  15839. .,$ //:
  15840. pcDate
  15841. FirstDayOut
  15842.     1S2S
  15843. TodayInt,
  15844.     0R1S2S
  15845. ConNext
  15846. pcDate
  15847. chstG
  15848.     0R1S2S8S11S13S
  15849. AdjustAmount
  15850. pcDate
  15851. pcDate
  15852. pcDate
  15853. pcDate
  15854. pcDate
  15855. pcDate
  15856. pcDate
  15857.     0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
  15858. AdjustAmount
  15859. pcDateW
  15860. AdjustAmount
  15861. ConNext
  15862. TodayInt#
  15863.     0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayOutGeben Sie den ersten Tag Ihrer Abwesenheit anz
  15864. FirstDayOut
  15865.     Bis:
  15866. .,$ //:
  15867. FirstDayBack
  15868. pcDate
  15869. FirstDayBacka
  15870.     1S2S
  15871. TodayInt,
  15872.     0R1S2S
  15873. ConNext
  15874. pcDate
  15875. chstG
  15876.     0R1S2S8S11S13S
  15877. AdjustAmount
  15878. pcDate
  15879. pcDate
  15880. pcDate
  15881. pcDate
  15882. pcDate
  15883. pcDate
  15884. pcDate
  15885.     0R1S2S4RS8E11RS13E13RS9E20RS13E22RS8E29RS13E31RS8E38RS13E40RS8E47RS13E49RS8E56RS13E58RS8E65RS13E67RS8E
  15886. AdjustAmount
  15887. pcDateW
  15888. AdjustAmount
  15889. ConNext
  15890. TodayInt#
  15891.     0R3S4S6S14R20S22S24S27S28S30S31S34S36S38SFirstDayBackGeben Sie den ersten Tag Ihrer R
  15892. ckkehr anz
  15893. FirstDayBack
  15894. BookBusyTimeKalendereintrag erstellen, um Zeit als belegt zu markieren
  15895. Diesen Zeitraum als belegte Zeit verbuchen|1z
  15896. BookBusyTime
  15897.     Personen, die Ihren Kalender konsultieren, sehen, da
  15898.  Sie innerhalb dieses Zeitraums nicht verf
  15899. gbar sind.
  15900. Daten
  15901.     Dies ist die Standardnachricht, die w
  15902. hrend Ihrer Abwesenheit gesendet wird. Eine spezielle Nachricht f
  15903. r bestimmte Personen k
  15904. nnen Sie im Register 'Spezielle Nachricht' angeben.
  15905.     An:    
  15906.     Wen auch immer
  15907.     Thema:    
  15908.  ist au
  15909. er Haus."
  15910.     1S2S
  15911. GeneralSubjectz
  15912. GeneralSubject
  15913. FirstDayOut
  15914. FirstDayBack
  15915. Ich werde ab  
  15916. FirstDayOut
  15917.  nicht im B
  15918. ro sein. Ich kehre zur
  15919. ck am  "
  15920. FirstDayBackK
  15921.     3S4S5S6S7S8S10S12S13S14S21S22S23S24S31S32S
  15922. DaysOut
  15923. DaysOut
  15924. Ich werde Ihre Nachricht nach meiner R
  15925. ckkehr beantworten.
  15926. GeneralMessagez
  15927. GeneralMessage
  15928. Abwesenheitsnachricht
  15929.     Diese Nachricht wird nur dann gesendet, wenn Mail-Nachrichten von den unten aufgef
  15930. hrten Personen bei Ihnen eingehen. 
  15931.     An:    
  15932. SpecialPeople
  15933. SpecialPeople
  15934. SpecialPeople
  15935.     Thema:    
  15936.  ist au
  15937. er Haus."
  15938.     1S2S
  15939. SpecialSubjectz
  15940. SpecialSubject
  15941. FirstDayOut
  15942. FirstDayBack
  15943. Ich werde ab 
  15944. FirstDayOut
  15945.  nicht im B
  15946. ro sein. Ich kehre zur
  15947. ck am  "
  15948. FirstDayBackV
  15949.     3S4S5S6S7S8S10S12S13S14S18S19S20S21S25S26S
  15950. DaysOut_1
  15951. DaysOut_1
  15952. SpecialMessage
  15953. SpecialMessagez
  15954. SpecialMessage
  15955. Spezielle Nachricht
  15956. .,$///:
  15957. ExcludeInternetEmail
  15958. Nicht automatisch auf Mail-Nachrichten von Internet-Adressen antworten.|1
  15959.     Nicht automatisch auf Mail-Nachrichten von diesen Personen oder Gruppen antworten:
  15960. IgnoreFromList
  15961. IgnoreFromListz
  15962. IgnoreFrom
  15963.     Nicht automatisch auf Mail-Nachrichten antworten, die an diese Personen oder Gruppen adressiert sind:
  15964. IgnoreSend
  15965. IgnoreSendz
  15966. IgnoreSend
  15967.     Nicht automatisch antworten, wenn das Thema folgenden Text enth
  15968. IgnoreFrom
  15969. IgnoreSubjectPhrase
  15970. IgnoreFrom_1
  15971.     Geben Sie jede Textfolge in eine neue Zeile ein. 
  15972.     Bei den gew
  15973. hlten Textfolgen ist auf Gro
  15974. -/Kleinschreibung und genaue 
  15975. bereinstimmung zu achten.
  15976. Ausnahmen
  15977. CurrentStatus
  15978.     1S2S
  15979. '++LotusScript Development Environment:2:5:(Options):0:66
  15980. '++LotusScript Development Environment:2:5:(Forward):0:1
  15981. Declare Sub Click(Source As Button)
  15982. '++LotusScript Development Environment:2:5:(Declarations):0:2
  15983. '++LotusScript Development Environment:2:2:BindEvents:1:129
  15984. Private Sub BindEvents(Byval Objectname_ As String)
  15985.     Static Source As BUTTON
  15986.     Set Source = Bind(Objectname_)
  15987.     On Event Click From Source Call Click
  15988. End Sub
  15989. '++LotusScript Development Environment:2:2:Click:1:12
  15990. Sub Click(Source As Button)
  15991.     Call OfficeControl.ToggleEnableDisable()
  15992. End Sub
  15993. Lotus Product
  15994. New Button
  15995. Need a newer version of Notes to execute this button.
  15996.     0S0E
  15997.       Aktivieren  
  15998. CurrentStatus
  15999.     1S2S
  16000. '++LotusScript Development Environment:2:5:(Options):0:66
  16001. '++LotusScript Development Environment:2:5:(Forward):0:1
  16002. Declare Sub Click(Source As Button)
  16003. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16004. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16005. Private Sub BindEvents(Byval Objectname_ As String)
  16006.     Static Source As BUTTON
  16007.     Set Source = Bind(Objectname_)
  16008.     On Event Click From Source Call Click
  16009. End Sub
  16010. '++LotusScript Development Environment:2:2:Click:1:12
  16011. Sub Click(Source As Button)
  16012.     Call OfficeControl.ToggleEnableDisable()
  16013. End Sub
  16014. Lotus Product
  16015. New Button
  16016. Need a newer version of Notes to execute this button.
  16017.     0S0E
  16018.     Deaktivieren
  16019. SaveOptions
  16020. SaveOptions
  16021.     0T1S
  16022. SaveOptions
  16023.     0R2RT7RTT12RT16RT
  16024.           OK       
  16025. SaveOptions
  16026. SaveOptions
  16027. SaveOptions
  16028.     Abbrechen 
  16029. FirstDayOut can be entered as a date or a day of the week.
  16030. It is then converted to a text string containing a date, which 
  16031.     0R1S
  16032. @TextToTime does not always recognize as Text so it is 
  16033.     0R1S
  16034. converted to Text then to Time
  16035.     0R1S
  16036. DateValue
  16037. FirstDayOut
  16038.     0R1S2S
  16039. DateValue
  16040. DateValue
  16041. DateValue
  16042.     0R7S12S17S19S21S
  16043. dateFirstDayOut
  16044. dateFirstDayOut
  16045. FirstDayBack can be entered as a date or a day of the week.
  16046. It is then converted to a text string containing a date, which 
  16047.     0R1S
  16048. @TextToTime does not always recognize as Text so it is 
  16049.     0R1S
  16050. converted to Text then to Time
  16051.     0R1S
  16052.  MUST SET THE TIME COMPONENT TO 12:00:00AM in order for
  16053.     0R1S
  16054. an calendar entry to be properly added..
  16055.     0R1S
  16056. DateValue
  16057. FirstDayBackV
  16058.     0R1S2S
  16059. DateValue
  16060. DateValue
  16061. DateValue
  16062.     0R7S12S17S19S21S
  16063. dateFirstDayBackz
  16064. dateFirstDayBack
  16065. _Kategorisieren
  16066. Dokument _bearbeiten
  16067. Dokument _senden
  16068. _Weiterleiten
  16069. In Ordner _verschieben...
  16070. Aus Ordner _entfernen
  16071.     7S12S
  16072. Abbrechen
  16073. SaveOptions
  16074. Agenten aktivierenJ
  16075. CurrentStatus
  16076. CurrentStatus
  16077.     1S3S
  16078. Notified
  16079.     0RR1S
  16080. FirstDayOut
  16081. FirstDayOut
  16082.     0R1S
  16083. FirstDayBack
  16084. FirstDayBack
  16085.     0R1S
  16086. title
  16087. Lotus Notes Abwesenheit
  16088.     0R2S
  16089. Sie m
  16090. ssen angeben, wann Sie weggehen und zur
  16091. ckkommen.
  16092.     0R2S
  16093. Das Datum Ihrer R
  16094. ckkehr mu
  16095.  nach dem heutigen Datum liegen.
  16096.     0R2S
  16097. Das Datum Ihres R
  16098. ckkehrs kann nicht vor dem Startdatum liegen.
  16099.     0R2S
  16100. Wenden Sie sich an den Datenbankmanager bzw. -entwickler, und bitten Sie ihn, den Agenten zu aktivieren.
  16101.     0R2S
  16102. Der Abwesenheits-Agent wurde nicht aktiviert.
  16103.     0R2S
  16104. Der Abwesenheits-Agent wurde aktiviert. Wenn Sie Mails zwischen 
  16105. FirstDayOut
  16106.  und 
  16107. FirstDayBackV
  16108.  empfangen, wird er sie 
  16109. ber Ihre Abwesenheit informieren."
  16110.     0R2S3S4S8S9S10S11S15S16S
  16111. Wenden Sie sich an den Datenbankmanager bzw. -entwickler, und bitten Sie ihn, den Agenten zu deaktivieren.
  16112.     0R2S
  16113. Ihr Abwesenheits-Agent ist noch aktiviert.
  16114.     0R2S
  16115. msg10
  16116. Hinweis: Wenn Sie einen Abwesenheits-Kalendereintrag erstellt haben, sollten Sie Ihre eingegebenen Abwesenheitsdaten daraufhin ab
  16117. ndern, um Ihr tats
  16118. chliches R
  16119. ckkehrdatum zu ber
  16120. cksichtigen.
  16121.     0R2S
  16122. msg11
  16123. Ihr Abwesenheits-Agent wurde deaktiviert.
  16124.     0R2S
  16125. CurrentStatus
  16126. FirstDayOut
  16127. FirstDayBack
  16128. Validierungsfehler
  16129. Sie m
  16130. ssen angeben, wann Sie weggehen und zur
  16131. ckkommen.
  16132. DateFirstDayBack-
  16133. Validierungsfehler
  16134. Der Tag Ihrer R
  16135. ckkehr liegt vor dem aktuellen Datum. Der Abwesenheits-Agent wird nicht aktiviert.
  16136. DateFirstDayBack-
  16137. msg10
  16138. OutOfOffice
  16139. title
  16140. msgX"
  16141. title
  16142. OutOfOffice
  16143. title
  16144. msgX"
  16145. title
  16146. msg11
  16147.     0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
  16148. _Kategorisieren
  16149. Dokument _bearbeiten
  16150. Dokument _senden
  16151. _Weiterleitenr
  16152. In Ordner _verschieben...
  16153. Aus Ordner _entfernene
  16154.     7S12S
  16155. Abbrechen
  16156. SaveOptions
  16157. Agenten aktivierenJ
  16158. CurrentStatus
  16159. CurrentStatus
  16160.     1S3S
  16161. Notified
  16162.     0RR1S
  16163. FirstDayOut
  16164. FirstDayOut
  16165.     0R1S
  16166. FirstDayBack
  16167. FirstDayBack
  16168.     0R1S
  16169. title
  16170. Lotus Notes Abwesenheit
  16171.     0R2S
  16172. Sie m
  16173. ssen angeben, wann Sie weggehen und zur
  16174. ckkommen.
  16175.     0R2S
  16176. Das Datum Ihrer R
  16177. ckkehr mu
  16178.  nach dem heutigen Datum liegen.
  16179.     0R2S
  16180. Das Datum Ihres R
  16181. ckkehrs kann nicht vor dem Startdatum liegen.
  16182.     0R2S
  16183. Wenden Sie sich an den Datenbankmanager bzw. -entwickler, und bitten Sie ihn, den Agenten zu aktivieren.
  16184.     0R2S
  16185. Der Abwesenheits-Agent wurde nicht aktiviert.
  16186.     0R2S
  16187. Der Abwesenheits-Agent wurde aktiviert. Wenn Sie Mails zwischen 
  16188. FirstDayOut
  16189.  und 
  16190. FirstDayBackV
  16191.  empfangen, wird er sie 
  16192. ber Ihre Abwesenheit informieren."
  16193.     0R2S3S4S8S9S10S11S15S16S
  16194. Wenden Sie sich an den Datenbankmanager bzw. -entwickler, und bitten Sie ihn, den Agenten zu deaktivieren.
  16195.     0R2S
  16196. Ihr Abwesenheits-Agent ist noch aktiviert.
  16197.     0R2S
  16198. msg10
  16199. Hinweis: Wenn Sie einen Abwesenheits-Kalendereintrag erstellt haben, sollten Sie Ihre eingegebenen Abwesenheitsdaten daraufhin ab
  16200. ndern, um Ihr tats
  16201. chliches R
  16202. ckkehrdatum zu ber
  16203. cksichtigen.
  16204.     0R2S
  16205. msg11
  16206. Ihr Abwesenheits-Agent wurde deaktiviert.
  16207.     0R2S
  16208. CurrentStatus
  16209. FirstDayOut
  16210. FirstDayBack
  16211. Validierungsfehler
  16212. Sie m
  16213. ssen angeben, wann Sie weggehen und zur
  16214. ckkommen.
  16215. DateFirstDayBack-
  16216. Validierungsfehler
  16217. Der Tag Ihrer R
  16218. ckkehr liegt vor dem aktuellen Datum. Der Abwesenheits-Agent wird nicht aktiviert.
  16219. DateFirstDayBack-
  16220. msg10
  16221. OutOfOffice
  16222. title
  16223. msgX"
  16224. title
  16225. OutOfOffice
  16226. title
  16227. msgX"
  16228. title
  16229. msg11
  16230.     0R2RT3S4S5S6RTT8RTTT9S11S12S13S14S16RTTTT22S24S28RTTT29S30S31S32S34RTTTT40S42S46RTTT48RTTTT52TRTTTTT54RTTTTTT55S56S58RTTTTTTT62S63S67S68S70RTTTTTT71RTTTTT72RTTTT74RTTTT81RTTTT85S87S89S92RTTTT94RTTTTT100S101S102S103S106RTTTTTT108RTTTTT112S116RTTTT117RTTT118RTT120RTTTT127RTTTT131S133S135S138RTTTT140RTTTTT146S147S148S149S152RTTTTTT154RTTTTT158S162RTTTT163RR
  16231. O=Lotus Notes
  16232. O=Lotus Notes
  16233. PURSAFO
  16234. |.:#U
  16235. O=Lotus Notes
  16236. CN=Lotus Notes Template Development/O=Lotus Notes
  16237. PURSAFO
  16238. h3n    k
  16239. $IgnoreFrom_O
  16240. $$IgnoreFrom
  16241. $Language
  16242. $LastBuildTime
  16243. $BabelInfo
  16244. $Info
  16245. $AppHelpFormula
  16246. $Script
  16247. $$Script_O
  16248. $$ScriptName
  16249. $$FormScript
  16250. $$$FormScript_O
  16251. $$GeneralMessage
  16252. $GeneralMessage_O
  16253. $$SpecialPeople
  16254. $SpecialPeople_O
  16255. $$IgnoreFromList
  16256. $IgnoreFromList_O
  16257. $$IgnoreSubjectPhrase
  16258. $IgnoreSubjectPhrase_O
  16259. _ViewIcon
  16260. FirstDayOut
  16261. FirstDayBack
  16262. dateFirstDayOut
  16263. dateFirstDayBack
  16264. $Body
  16265. $V5ACTIONS
  16266. $ACTIONS
  16267. VersionOpt|
  16268.     6S7S9S14S
  16269. $VersionOpt
  16270.     0R1S2S3S
  16271. SavedOnce
  16272.     0R1S2S3S
  16273. PostedDate(
  16274.     0R1S2S3S
  16275. DeliveredDate
  16276.     0R1S2S3S
  16277. $AutoEditMode
  16278.     0R1S2S3S
  16279. MailSaveOptions
  16280.     0R1S2S3S
  16281. VersionOpt
  16282.     0R4S
  16283. $HideMailHeader
  16284. BGTableColor
  16285. HeaderRegion
  16286. BodyRegion
  16287. nliche Vorlage
  16288. Subject
  16289. Subject
  16290. Subject
  16291.     4S6S12S13S14S15S17S21S23S25S26S28S
  16292. (Help)
  16293. MAIL_F_PERSONAL-STATIONERY
  16294.     0S0E
  16295. &Arial
  16296. '++LotusScript Development Environment:2:5:(Options):0:74
  16297. Option Public
  16298. Option Explicit
  16299. Use "CoreEmailClasses"
  16300. '++LotusScript Development Environment:2:5:(Forward):0:1
  16301. '++LotusScript Development Environment:2:5:(Declarations):0:10
  16302. Dim cMemoObject As Variant
  16303. Lotus Product
  16304.  Personal Stationery'++LotusScript Development Environment:2:5:(Options):0:66
  16305. '++LotusScript Development Environment:2:5:(Forward):0:1
  16306. Declare Sub Postopen(Source As Notesuidocument)
  16307. Declare Sub Postmodechange(Source As Notesuidocument)
  16308. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  16309. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  16310. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  16311. Declare Sub Postsave(Source As Notesuidocument)
  16312. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  16313. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16314. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16315. Private Sub BindEvents(Byval Objectname_ As String)
  16316.     Static Source As NOTESUIDOCUMENT
  16317.     Set Source = Bind(Objectname_)
  16318.     On Event Postopen From Source Call Postopen
  16319.     On Event Postmodechange From Source Call Postmodechange
  16320.     On Event Querysave From Source Call Querysave
  16321.     On Event Queryclose From Source Call Queryclose
  16322.     On Event Queryopen From Source Call Queryopen
  16323.     On Event Postsave From Source Call Postsave
  16324.     On Event Querymodechange From Source Call Querymodechange
  16325. End Sub
  16326. '++LotusScript Development Environment:2:2:Postopen:1:12
  16327. Sub Postopen(Source As Notesuidocument)
  16328.     Call cMemoObject.PostOpen(Source)    
  16329. End Sub
  16330. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  16331. Sub Postmodechange(Source As Notesuidocument)
  16332. End Sub
  16333. '++LotusScript Development Environment:2:2:Querysave:1:12
  16334. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  16335.     Call cMemoObject.QuerySave(Continue)
  16336. End Sub
  16337. '++LotusScript Development Environment:2:2:Queryclose:1:12
  16338. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  16339.  '        Call uimemodoc.QueryClose(source, continue)
  16340. End Sub
  16341. '++LotusScript Development Environment:2:2:Queryopen:1:12
  16342. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  16343.     Set cMemoObject = New UIMemoDocument        
  16344.     Call cMemoObject.Init(Source,Isnewdoc) 
  16345. End Sub
  16346. '++LotusScript Development Environment:2:2:Postsave:1:12
  16347. Sub Postsave(Source As Notesuidocument)
  16348.     Call cMemoObject.PostSave()
  16349. End Sub
  16350. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  16351. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  16352.     Continue = cMemoObject.QueryModeChange(Source)
  16353. End Sub
  16354. Lotus Product
  16355. ISMAILSTATIONERYh
  16356.     0S0E
  16357.     Always Hidden:
  16358.     0S0E
  16359. NamePreferencez
  16360. NamePreference
  16361.     0S0E
  16362. LanguagePreference
  16363. Principal
  16364. CalendarProfile
  16365. Owner
  16366.     1S2S3S7S
  16367. FromPerson memo is from.z
  16368. AltFrom
  16369.     10SAltFrom
  16370. MailSaveOptions
  16371.     1S2S3S
  16372. MailSaveOptions
  16373. DefaultMailSaveOptionsz
  16374. DefaultMailSaveOptions
  16375.     0S0E
  16376. Signz
  16377.     0S0E
  16378. Encrypt
  16379. Encrypt
  16380. Principal
  16381. Principal
  16382. Principal
  16383. NamePreference
  16384. AltFrom
  16385. $LangFrom
  16386. LanguagePreferencet
  16387. AltFrom
  16388.     1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
  16389.     0RR1S2S8S
  16390.     0R1S2S5S6S8S14S18S
  16391.     0R1S2S5S6S8S14S18S
  16392. SentBy
  16393. X400FreeForm^
  16394.     0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  16395. SentBy
  16396. FromDomain
  16397. FromDomain
  16398. FromDomain
  16399. FromDomain
  16400.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  16401. FromName
  16402. Principal
  16403. Principal
  16404. Principal
  16405.     0RR1S2S10S11S16S18S
  16406. FromStops
  16407. Principal
  16408. Principal
  16409. Principal
  16410.     0RR1S2S10S11S16S18S21S
  16411. FromName
  16412. FromStops
  16413. FromStops
  16414. FromStops
  16415.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  16416. tmpDisplayFrom_Preview
  16417. .,$,  , :
  16418. Path_Info
  16419. Path_Info
  16420. .,$,  , :
  16421. Query_String
  16422. Query_String
  16423. CalendarProfile
  16424. DefaultLogo
  16425. stdNotesLtr0
  16426. CalendarProfile
  16427. DefaultLogo
  16428. StdNotesLtrGateway
  16429.     4S13S24R25S29S32S34S
  16430. Logoz
  16431. BG_IMAGE_PREFIX
  16432.     0S0E
  16433. StdNotesLtr0
  16434.     0RR1RT2RT3S4S6RTT13RT14RT
  16435. Image
  16436. StdNotesLtr
  16437. Image
  16438. Gateway
  16439. BG_IMAGE_PREFIX
  16440. Image
  16441. Image
  16442.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  16443. Image
  16444. BG_IMAGE_PREFIX
  16445. Image
  16446. BG_IMAGE_PREFIX
  16447. Image
  16448. BG_IMAGE_PREFIX
  16449. Image
  16450. BG_IMAGE_PREFIX
  16451. Image
  16452. BG_IMAGE_PREFIX
  16453. BG_IMAGE_PREFIX
  16454.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  16455. $KeepPrivate
  16456. $KeepPrivate
  16457. $KeepPrivate
  16458.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  16459.     Von:
  16460. tmpDisplayFrom_Preview
  16461. tmpDisplayFrom_NoLogo
  16462. tmpDisplayFrom_NoLogo
  16463. NamesList
  16464. NamePreference
  16465. AltSendTo
  16466. $NameLanguageTags
  16467. LanguagePreferencet
  16468. AltSendTo
  16469. SendTo
  16470.     11S12S15S16S20S
  16471. ImplodedNamesList
  16472. NamesList
  16473. ImplodedNamesList
  16474. ImplodedNamesList
  16475. ImplodedNamesList
  16476. tmpDisplaySendTo
  16477.     Thema:
  16478. Subject
  16479. Subject
  16480. Subject
  16481.     0S0E
  16482. TmpDisplaySubject
  16483.     Kopie:
  16484. CC_Content
  16485. NamePreference
  16486. AltCopyTo
  16487. $NameLanguageTags
  16488. LanguagePreferencet
  16489. AltCopyTo
  16490. CopyTo
  16491.     7S8S9S11S12S16S
  16492. BCC_Content
  16493. DeliveredDate
  16494. BlindCopyTo
  16495.  (Blindkopie: 
  16496. BlindCopyTo
  16497.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  16498. NamesList
  16499. CC_Content
  16500. BCC_Content
  16501.     0R9S10S
  16502. ImplodedNamesList
  16503. NamesList
  16504. ImplodedNamesList
  16505. ImplodedNamesList
  16506. ImplodedNamesList
  16507. tmpDisplayCC
  16508. V5DOTBL=true
  16509. $HideMailHeader
  16510.     0S0E
  16511. tmpDisplayFrom_Preview
  16512. DisplayFrom
  16513. DisplayFrom_Pre
  16514. $HideMailHeader
  16515. Principal
  16516. Principal
  16517. Principal
  16518. Principal
  16519. Principal
  16520.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  16521.     Gesendet von: 
  16522. FromDomain
  16523. FromDomain
  16524. FromDomain
  16525. FromDomain
  16526.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  16527. FromName
  16528.     0RR1S2S6S
  16529. FromStops
  16530.     0R1S2S6S
  16531. FromName
  16532. FromStops
  16533. FromStops
  16534. FromStops
  16535.     0RR1S2S3S4S10S13S17S20SDisplaySent
  16536. tmpDisplaySent
  16537. PostedDateh
  16538. PostedDate
  16539.     4S5S10S12S
  16540. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  16541. tmpDisplayDate_Pre
  16542. ReplyDate
  16543. ReplyTo
  16544. $HideMailHeader
  16545.     2S3S4S5S6S7S9S10S14S15R
  16546. Bitte antworten
  16547. ReplyTo
  16548. ReplyTo
  16549. ReplyDate
  16550.  bis 
  16551. ReplyDate
  16552.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  16553. tmpDisplayReply
  16554. $HideMailHeader
  16555. IsMailStationery
  16556.     4S5S
  16557.     Name der Vorlage:
  16558. MAILSTATIONERYNAME
  16559. -Unbenannt-
  16560. MAILSTATIONERYNAME
  16561.     0S0E
  16562. StatNamez
  16563. Statio
  16564. $HideMailHeader
  16565.     1RT2RT7RTT12RT13RT
  16566. tmpLogo
  16567. tmpLogo
  16568. StdNotesLtr16
  16569.     0RR1RT2RT3S4S6RTT11RT12RT
  16570. Image
  16571. tmpLogo
  16572. StdNotesLtr
  16573. Image
  16574. Gateway
  16575. tmpLogo
  16576. Image
  16577. StdNotesLtr16
  16578. tmpLogo
  16579.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT22RTT23RTTT24RTTT28S29S31RTTTT36RTTT40RTTT41RTT42RT
  16580.         An:    
  16581. NamePreference
  16582. AltSendTo
  16583. $NameLanguageTags
  16584. LanguagePreferencet
  16585. AltSendTo
  16586. SendTo
  16587.     5S6S9S10S14S
  16588. EnterSendTo
  16589.     0S0E
  16590. EnterSendToListe der Personen, an die das Memo (Original) gesendet werden soll
  16591.         Kopie:    
  16592. NamePreference
  16593. AltCopyTo
  16594. $NameLanguageTags
  16595. LanguagePreferencet
  16596. AltCopyTo
  16597. CopyTo
  16598.     5S6S7S9S10S14S
  16599. EnterCopyTo
  16600.     0S0E
  16601. EnterCopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  16602.         Kopie:    
  16603. CC_Content
  16604. NamePreference
  16605. AltCopyTo
  16606. $NameLanguageTags
  16607. LanguagePreferencet
  16608. AltCopyTo
  16609. CopyTo
  16610.     11S12S13S15S16S20S
  16611. BCC_Content
  16612. DeliveredDate
  16613. BlindCopyTo
  16614.  (Blindkopie: 
  16615. BlindCopyTo
  16616.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  16617. CC_Content
  16618. BCC_Content
  16619.     0R3S4S
  16620. tmpEnterCopyTo
  16621.         Blindkopie:    
  16622. NamePreference
  16623. AltBlindCopyTo
  16624. $NameLanguageTags
  16625. LanguagePreferencet
  16626. AltBlindCopyTo
  16627. BlindCopyTo
  16628.     5S6S7S9S10S14S
  16629. EnterBlindCopyTo}
  16630.     0S0E
  16631. EnterBlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.
  16632. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  16633.         Thema:    
  16634. SIZE=50
  16635. SubjectThema des Memos.
  16636. ReplyDate
  16637. ReplyDate
  16638. ReplyDate
  16639. Importanceh
  16640. Importance
  16641. Importance
  16642. Importance(
  16643. DeliveryReporth
  16644. DeliveryReport
  16645. DeliveryReport
  16646. DeliveryReport(
  16647. DeliveryPriorityh
  16648. DeliveryPriority
  16649. DeliveryPriority
  16650. DeliveryPriority(
  16651. UpdateProfileNote
  16652. UpdateProfileNote
  16653. UpdateProfileNote
  16654. ReturnReceipt
  16655. ReturnReceipt
  16656. ReturnReceipt
  16657. $KeepPrivateh
  16658. $KeepPrivate
  16659. $KeepPrivate(
  16660. ExpireDateh
  16661. ExpireDate
  16662. ExpireDate(
  16663. ReplyTo
  16664. ReplyTo
  16665. ReplyTo
  16666. MimeFormath
  16667. MimeFormat
  16668. MimeFormat
  16669. MimeFormat(
  16670. SMTPEncodingh
  16671. SMTPEncoding
  16672. SMTPEncoding
  16673. SMTPEncoding(
  16674. MIMEMailCharset
  16675. MIMEMailCharset
  16676. MIMEMailCharset
  16677. MIMEMailCharset
  16678. $AutoSpellh
  16679. $AutoSpell
  16680. $AutoSpell(
  16681. WebSubjecth
  16682. WebSubject(
  16683. tmpSenderTagh
  16684. tmpSenderTag
  16685. tmpSenderTag
  16686. tmpSenderTag(
  16687.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
  16688. $HideMailHeader
  16689. Moods
  16690. PostedDate
  16691. SenderTag
  16692. Moods
  16693.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  16694. IsMailStationery
  16695.     2S3S
  16696.     Kopfzeilen:
  16697. HEADERPers
  16698. nliche Kopfzeile
  16699. BodyText der Nachrichtz
  16700. FooterPers
  16701. nliche Fu
  16702. zeilez
  16703. Footer
  16704. nderungen verwerfen
  16705. MEMO_CANCEL
  16706. 4194304
  16707.     0S0E
  16708. ActionInProgress
  16709. MEMO_CANCEL
  16710.     0R1S
  16711. IsMailStationery
  16712.     1S2S3S
  16713. Speichern und schlie
  16714. MEMO_DRAFT
  16715.     0S0E
  16716. ActionInProgress
  16717. MEMO_DRAFT
  16718.     0R1S
  16719. PostedDateh
  16720. IsMailStationery
  16721.     7S8S9S10S13S14S15S16S
  16722. act_save.GIF|act_CSSAVE?
  16723. Speichern und ablegen
  16724. MEMO_DRAFT_FILE
  16725.     0S0E
  16726. ActionInProgress
  16727. MEMO_DRAFT_FILE
  16728.     0R1S
  16729. PostedDateh
  16730. IsMailStationery
  16731.     7S8S9S10S13S14S15S16S
  16732. act_FOLDER.GIF|act_FOLDER?
  16733. Schlie
  16734. MEMO_CANCEL
  16735. 4194304
  16736.     0S0E
  16737. ActionInProgress
  16738. MEMO_CANCEL
  16739.     0R1S
  16740. IsMailStationery
  16741.     0S1S2S
  16742. Neues Memo(
  16743.     0S0E
  16744. act_NEWMEMO.GIF|act_NEWMEMO?
  16745. Antwort\Antwort00
  16746. Reply
  16747.     0S0E
  16748. act_REPLY.GIF|act_REPLY?
  16749. Antwort\Antwort mit Protokoll_
  16750. Antwort mit Protokoll
  16751. Dieses Dokument ist nicht vollst
  16752. ndig.
  16753.     4S8S10S13S
  16754. Reply with history
  16755. act_REPLY.GIF|act_REPLY?
  16756. Antwort\Allen antworten
  16757. MailStEd
  16758.     0S0E
  16759. Reply
  16760. act_REPLY.GIF|act_REPLY?
  16761. Antwort\Allen antworten (mit Protokoll)
  16762. MailStEd
  16763.     0S0E
  16764. Antwort mit Protokoll
  16765. Dieses Dokument ist nicht vollst
  16766. ndig.
  16767.     0R4S8S10S13S
  16768. Reply with history
  16769. act_REPLY.GIF|act_REPLY?
  16770. _Weiterleiten
  16771. act_FORWARD.GIF|act_FORWARD?
  16772. Weiterleiten 
  16773.     0S0E
  16774. ISMAILSTATIONERY
  16775.     1S2S
  16776. act_FORWARD.GIF|act_FORWARD?
  16777. Bearbeiten
  16778.     0S1S2S
  16779. act_EDIT.GIF|act_EDIT?
  16780. schen
  16781.     0S0E
  16782. act_DELETE.GIF|act_DELETE?
  16783. Ordner\Ordner erstellen
  16784.     0S0E
  16785. act_FOLDER.GIF|act_FOLDER?
  16786. Ordner\In Ordner verschieben...
  16787.     0S0E
  16788. act_FOLDER.GIF|act_FOLDER?
  16789. Ordner\Aus Ordner entfernen
  16790.     0S0E
  16791. act_FOLDER.GIF|act_FOLDER?
  16792. In Ordner _verschieben...i
  16793. act_FOLDER.GIF|act_FOLDER?
  16794. Aus Ordner entfernen
  16795. _Kategorisierent
  16796. Senden
  16797. Senden
  16798. MEMO_SEND
  16799.     0S0E
  16800. ActionInProgress
  16801. MEMO_SEND
  16802.     0R1S
  16803. PostedDateh
  16804. IsMailStationery
  16805.     5S6S7S8S10S11S12S13S
  16806. act_SEND.GIF|act_SEND?
  16807. Senden\Senden und speichern
  16808. '++LotusScript Development Environment:2:5:(Options):0:66
  16809. '++LotusScript Development Environment:2:5:(Forward):0:1
  16810. Declare Sub Click(Source As Button)
  16811. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16812. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16813. Private Sub BindEvents(Byval Objectname_ As String)
  16814.     Static Source As BUTTON
  16815.     Set Source = Bind(Objectname_)
  16816.     On Event Click From Source Call Click
  16817. End Sub
  16818. '++LotusScript Development Environment:2:2:Click:1:12
  16819. Sub Click(Source As Button)
  16820.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  16821.     Call cMemoObject.noteUIMemo.save()
  16822.     Call cMemoObject.noteUIMemo.close()    
  16823. End Sub
  16824. PostedDateh
  16825. IsMailStationery
  16826.     5S6S7S8S12S13S
  16827. Senden und ablegen
  16828. MEMO_SEND_FILE
  16829.     0S0E
  16830. ActionInProgress
  16831. MEMO_SEND_FILE
  16832.     0R1S
  16833. PostedDateh
  16834. IsMailStationery
  16835.     5S6S7S8S12S13S
  16836. act_SENDFILE|act_SENDFILE?
  16837. Als Entwurf speichernr
  16838. MEMO_DRAFT
  16839.     0S0E
  16840. ActionInProgress
  16841. MEMO_DRAFT
  16842.     0R1S
  16843. PostedDateh
  16844. IsMailStationery
  16845.     5S6S7S8S10S11S12S13S
  16846. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  16847. Speichern5
  16848. MEMO_STATIONERYSAVE
  16849.     0S0E
  16850. ActionInProgress
  16851. MEMO_STATIONERYSAVE
  16852.     0R1S
  16853. IsMailStationery
  16854.     2S3S
  16855. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  16856. Speichern\Als Entwurf und Datei
  16857. '++LotusScript Development Environment:2:5:(Options):0:66
  16858. '++LotusScript Development Environment:2:5:(Forward):0:1
  16859. Declare Sub Click(Source As Button)
  16860. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16861. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16862. Private Sub BindEvents(Byval Objectname_ As String)
  16863.     Static Source As BUTTON
  16864.     Set Source = Bind(Objectname_)
  16865.     On Event Click From Source Call Click
  16866. End Sub
  16867. '++LotusScript Development Environment:2:2:Click:1:12
  16868. Sub Click(Source As Button)
  16869.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  16870.     Call cMemoObject.noteUIMemo.save()
  16871.     Call cMemoObject.noteUIMemo.close()
  16872. End Sub
  16873. IsMailStationery
  16874.     1S2S
  16875. Vorlage umbenennen...
  16876. xxERROR
  16877. Es ist kein Dokument ausgew
  16878.     0S0E
  16879. xxTitle
  16880. Vorlage umbenennen
  16881. xxPrompt
  16882. Bitte geben Sie den neuen Namen f
  16883. r die Vorlage ein.
  16884. xxERROR
  16885. MailStationeryName
  16886. xxTitle
  16887. xxPrompt
  16888. MailStationeryName
  16889.     0RR1S
  16890.     0RS>
  16891. IsMailStationery
  16892.     2S3S4S5S
  16893. act_RENAME.GIF|act_RENAME?
  16894. Ordner\Ordner erstellenl 
  16895.     0S0E
  16896. act_FOLDER.GIF|act_FOLDER?
  16897. Ordner\In Ordner verschieben...c 
  16898.     0S0E
  16899. act_FOLDER.GIF|act_FOLDER?
  16900. Ordner\Aus Ordner entfernen
  16901.     0S0E
  16902. act_FOLDER.GIF|act_FOLDER?
  16903. Adresse...T
  16904. EnterSendTo
  16905. EnterCopyTo
  16906. EnterBlindCopyTo
  16907.     0S0E
  16908. PostedDateh
  16909. IsMailStationery
  16910.     5S6S7S8S10S11S12S13S
  16911. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  16912. Zustelloptionen...
  16913. $KeepPrivate
  16914. $KeepPrivate
  16915. $KeepPrivate
  16916. $KeepPrivate
  16917. DeliveryOptions
  16918. Zustelloptionen
  16919.     0R4S10S
  16920. PostedDateh
  16921.     5S6S7S8S
  16922. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  16923. Werkzeuge\Signatur einf
  16924. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  16925. '++LotusScript Development Environment:2:5:(Forward):0:1
  16926. Declare Sub Click(Source As Button)
  16927. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16928. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16929. Private Sub BindEvents(Byval Objectname_ As String)
  16930.     Static Source As BUTTON
  16931.     Set Source = Bind(Objectname_)
  16932.     On Event Click From Source Call Click
  16933. End Sub
  16934. '++LotusScript Development Environment:2:2:Click:1:12
  16935. Sub Click(Source As Button)
  16936.     Call cMemoObject.InsertSignature(False)
  16937. End Sub
  16938. PostedDateh
  16939.     5S6S7S8S
  16940. act_TOOLS.GIF|act_TOOLS?
  16941. Werkzeuge\Als Vorlage speichern...
  16942. MEMO_ISSTATIONERY
  16943.     0S0E
  16944. MEMO_STATIONERYSAVE
  16945. ActionInProgress
  16946. MEMO_STATIONERYSAVE
  16947.     0R1S
  16948. MergeFlag
  16949. MEMO_ISSTATIONERY
  16950.     0R1S
  16951. PostedDateh
  16952. IsMailStationery
  16953.     5S6S7S8S10S11S12S13S
  16954. act_TOOLS.GIF|act_TOOLS?
  16955. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  16956. Use "CommonUI"
  16957. '++LotusScript Development Environment:2:5:(Forward):0:1
  16958. Declare Sub Click(Source As Button)
  16959. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16960. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16961. Private Sub BindEvents(Byval Objectname_ As String)
  16962. Static Source As BUTTON
  16963. Set Source = Bind(Objectname_)
  16964. On Event Click From Source Call Click
  16965. End Sub
  16966. '++LotusScript Development Environment:2:2:Click:1:12
  16967. Sub Click(Source As Button)
  16968.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  16969. End Sub
  16970. act_COPYINTO.GIF|act_COPYINTO?
  16971. Kopieren in\Neuen Kalendereintrag
  16972. '++LotusScript Development Environment:2:5:(Options):0:74
  16973. Use "CommonUI"
  16974. '++LotusScript Development Environment:2:5:(Forward):0:1
  16975. Declare Sub Click(Source As Button)
  16976. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16977. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16978. Private Sub BindEvents(Byval Objectname_ As String)
  16979. Static Source As BUTTON
  16980. Set Source = Bind(Objectname_)
  16981. On Event Click From Source Call Click
  16982. End Sub
  16983. '++LotusScript Development Environment:2:2:Click:1:12
  16984. Sub Click(Source As Button)
  16985.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  16986. End Sub
  16987. act_COPYINTO.GIF|act_COPYINTO?
  16988. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  16989. Use "CommonUI"
  16990. '++LotusScript Development Environment:2:5:(Forward):0:1
  16991. Declare Sub Click(Source As Button)
  16992. '++LotusScript Development Environment:2:5:(Declarations):0:2
  16993. '++LotusScript Development Environment:2:2:BindEvents:1:129
  16994. Private Sub BindEvents(Byval Objectname_ As String)
  16995.     Static Source As BUTTON
  16996.     Set Source = Bind(Objectname_)
  16997.     On Event Click From Source Call Click
  16998. End Sub
  16999. '++LotusScript Development Environment:2:2:Click:1:12
  17000. Sub Click(Source As Button)
  17001.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  17002. End Sub
  17003. act_COPYINTO.GIF|act_COPYINTO?
  17004. Werkzeuge\Zustellinformationen...5
  17005. xxTitle
  17006. Zustellinformationen
  17007.     0S0E
  17008. DeliveryInfo
  17009. xxTitle
  17010.     0RR4S5S6S7S8S9S10S11S12S14S
  17011. act_TOOLS.GIF|act_TOOLS?
  17012. Werkzeuge\Vorgaben...
  17013. DialogMode
  17014. (Preferences)
  17015. act_TOOLS.GIF|act_TOOLS?
  17016. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  17017. '++LotusScript Development Environment:2:5:(Forward):0:1
  17018. Declare Sub Click(Source As Button)
  17019. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17020. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17021. Private Sub BindEvents(Byval Objectname_ As String)
  17022.     Static Source As BUTTON
  17023.     Set Source = Bind(Objectname_)
  17024.     On Event Click From Source Call Click
  17025. End Sub
  17026. '++LotusScript Development Environment:2:2:Click:1:12
  17027. Sub Click(Source As Button)
  17028.     Dim session As New notessession
  17029.     Dim uiws As New notesuiworkspace
  17030.     Dim collection As notesdocumentcollection
  17031.     Dim noteUIEditDocument As notesuidocument
  17032.     Dim database As NotesDatabase
  17033.     Set noteCursorDoc = session.currentdatabase.createdocument
  17034.     Set database = session.currentdatabase
  17035.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  17036. hlen", "W
  17037. hlen Sie bitte eine Vorlage f
  17038. r das neue Memo.")
  17039.     Set noteCursorDoc = collection.getfirstdocument
  17040.     If Not noteCursorDoc Is Nothing Then
  17041.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  17042.     End If
  17043. End Sub
  17044. act_TOOLS.GIF|act_TOOLS?
  17045. Signatur einf
  17046. geno'++LotusScript Development Environment:2:5:(Options):0:66
  17047. '++LotusScript Development Environment:2:5:(Forward):0:1
  17048. Declare Sub Click(Source As Button)
  17049. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17050. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17051. Private Sub BindEvents(Byval Objectname_ As String)
  17052.     Static Source As BUTTON
  17053.     Set Source = Bind(Objectname_)
  17054.     On Event Click From Source Call Click
  17055. End Sub
  17056. '++LotusScript Development Environment:2:2:Click:1:12
  17057. Sub Click(Source As Button)
  17058.     Call cMemoObject.InsertSignature(False)
  17059. End Sub
  17060. act_INSERTSIG.GIF|act_INSERTSIG?
  17061. Als Vorlage speichern
  17062. ActionInProgress
  17063. &h00000100&
  17064. IsMailStationery
  17065.     1S2S
  17066. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  17067. Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  17068. '++LotusScript Development Environment:2:5:(Forward):0:1
  17069. Declare Sub Click(Source As Button)
  17070. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17071. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17072. Private Sub BindEvents(Byval Objectname_ As String)
  17073.     Static Source As BUTTON
  17074.     Set Source = Bind(Objectname_)
  17075.     On Event Click From Source Call Click
  17076. End Sub
  17077. '++LotusScript Development Environment:2:2:Click:1:12
  17078. Sub Click(Source As Button)
  17079.     Dim session As New notessession
  17080.     Dim uiws As New notesuiworkspace
  17081.     Dim collection As notesdocumentcollection
  17082.     Dim noteUIEditDocument As notesuidocument
  17083.     Dim database As NotesDatabase
  17084.     Set noteCursorDoc = session.currentdatabase.createdocument
  17085.     Set database = session.currentdatabase
  17086.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  17087. hlen", "W
  17088. hlen Sie bitte eine Vorlage f
  17089. r das neue Memo.")
  17090.     Set noteCursorDoc = collection.getfirstdocument
  17091.     If Not noteCursorDoc Is Nothing Then
  17092.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  17093.     End If
  17094. End Sub
  17095. IsMailStationery
  17096.     1S2S
  17097. nderungen verwerfen
  17098. MEMO_CANCEL
  17099. 4194304
  17100.     0S0E
  17101. ActionInProgress
  17102. MEMO_CANCEL
  17103.     0R1S
  17104. IsMailStationery
  17105.     1S2S3S
  17106. Speichern und schlie
  17107. MEMO_DRAFT
  17108.     0S0E
  17109. ActionInProgress
  17110. MEMO_DRAFT
  17111.     0R1S
  17112. PostedDateh
  17113. IsMailStationery
  17114.     7S8S9S10S13S14S15S16S
  17115. Speichern und ablegen0
  17116. MEMO_DRAFT_FILE
  17117.     0S0E
  17118. ActionInProgress
  17119. MEMO_DRAFT_FILE
  17120.     0R1S
  17121. PostedDateh
  17122. IsMailStationery
  17123.     7S8S9S10S13S14S15S16S
  17124. Schlie
  17125. MEMO_CANCEL
  17126. 4194304
  17127.     0S0E
  17128. ActionInProgress
  17129. MEMO_CANCEL
  17130.     0R1S
  17131. IsMailStationery
  17132.     0S1S2S
  17133. Neues Memo(
  17134.     0S0E
  17135. Antwort\Antwort
  17136. Reply
  17137.     0S0E
  17138. Antwort\Antwort mit Protokoll
  17139. Antwort mit Protokoll
  17140. Dieses Dokument ist nicht vollst
  17141. ndig.
  17142.     4S8S10S13S
  17143. Reply with history
  17144. Antwort\Allen antworten0X
  17145. MailStEd
  17146.     0S0E
  17147. Reply
  17148. Antwort\Allen antworten (mit Protokoll)i
  17149. MailStEd
  17150.     0S0E
  17151. Antwort mit Protokoll
  17152. Dieses Dokument ist nicht vollst
  17153. ndig.
  17154.     0R4S8S10S13S
  17155. Reply with history
  17156. _Weiterleiten
  17157. Weiterleiten 
  17158.     0S0E
  17159. ISMAILSTATIONERY
  17160.     1S2S
  17161. Bearbeiten
  17162.     0S1S2S
  17163. schen1 
  17164.     0S0E
  17165. Ordner\Ordner erstellenk 
  17166.     0S0E
  17167. Ordner\In Ordner verschieben...
  17168.     0S0E
  17169. Ordner\Aus Ordner entfernenL 
  17170.     0S0E
  17171. In Ordner _verschieben...0
  17172. Aus Ordner entfernen
  17173. _Kategorisieren
  17174. Senden
  17175. Senden
  17176. MEMO_SEND
  17177.     0S0E
  17178. ActionInProgress
  17179. MEMO_SEND
  17180.     0R1S
  17181. PostedDateh
  17182. IsMailStationery
  17183.     5S6S7S8S10S11S12S13S
  17184. Senden\Senden und speichern
  17185. '++LotusScript Development Environment:2:5:(Options):0:66
  17186. '++LotusScript Development Environment:2:5:(Forward):0:1
  17187. Declare Sub Click(Source As Button)
  17188. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17189. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17190. Private Sub BindEvents(Byval Objectname_ As String)
  17191.     Static Source As BUTTON
  17192.     Set Source = Bind(Objectname_)
  17193.     On Event Click From Source Call Click
  17194. End Sub
  17195. '++LotusScript Development Environment:2:2:Click:1:12
  17196. Sub Click(Source As Button)
  17197.     Call cMemoObject.SetActionInProgress(MEMO_SENDSAVE)
  17198.     Call cMemoObject.noteUIMemo.save()
  17199.     Call cMemoObject.noteUIMemo.close()    
  17200. End Sub
  17201. PostedDateh
  17202. IsMailStationery
  17203.     5S6S7S8S12S13S
  17204. Senden und ablegen
  17205. MEMO_SEND_FILE
  17206.     0S0E
  17207. ActionInProgress
  17208. MEMO_SEND_FILE
  17209.     0R1S
  17210. PostedDateh
  17211. IsMailStationery
  17212.     5S6S7S8S12S13S
  17213. Als Entwurf speichernS
  17214. MEMO_DRAFT
  17215.     0S0E
  17216. ActionInProgress
  17217. MEMO_DRAFT
  17218.     0R1S
  17219. PostedDateh
  17220. IsMailStationery
  17221.     5S6S7S8S10S11S12S13S
  17222. Speichern 
  17223. MEMO_STATIONERYSAVE
  17224.     0S0E
  17225. ActionInProgress
  17226. MEMO_STATIONERYSAVE
  17227.     0R1S
  17228. IsMailStationery
  17229.     2S3S
  17230. Speichern\Als Entwurf und DateiE'++LotusScript Development Environment:2:5:(Options):0:66
  17231. '++LotusScript Development Environment:2:5:(Forward):0:1
  17232. Declare Sub Click(Source As Button)
  17233. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17234. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17235. Private Sub BindEvents(Byval Objectname_ As String)
  17236.     Static Source As BUTTON
  17237.     Set Source = Bind(Objectname_)
  17238.     On Event Click From Source Call Click
  17239. End Sub
  17240. '++LotusScript Development Environment:2:2:Click:1:12
  17241. Sub Click(Source As Button)
  17242.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  17243.     Call cMemoObject.noteUIMemo.save()
  17244.     Call cMemoObject.noteUIMemo.close()
  17245. End Sub
  17246. IsMailStationery
  17247.     1S2S
  17248. Vorlage umbenennen...ax
  17249. xxERROR
  17250. Es ist kein Dokument ausgew
  17251.     0S0E
  17252. xxTitle
  17253. Vorlage umbenennen
  17254. xxPrompt
  17255. Bitte geben Sie den neuen Namen f
  17256. r die Vorlage ein.
  17257. xxERROR
  17258. MailStationeryName
  17259. xxTitle
  17260. xxPrompt
  17261. MailStationeryName
  17262.     0RR1S
  17263.     0RS>
  17264. IsMailStationery
  17265.     2S3S4S5S
  17266. Ordner\Ordner erstellen\ 
  17267.     0S0E
  17268. Ordner\In Ordner verschieben...o 
  17269.     0S0E
  17270. Ordner\Aus Ordner entfernen
  17271.     0S0E
  17272. Adresse...T
  17273. EnterSendTo
  17274. EnterCopyTo
  17275. EnterBlindCopyTo
  17276.     0S0E
  17277. PostedDateh
  17278. IsMailStationery
  17279.     5S6S7S8S10S11S12S13S
  17280. Zustelloptionen...
  17281. $KeepPrivate
  17282. $KeepPrivate
  17283. $KeepPrivate
  17284. $KeepPrivate
  17285. DeliveryOptions
  17286. Zustelloptionen
  17287.     0R4S10S
  17288. PostedDateh
  17289.     5S6S7S8S
  17290. Werkzeuge\Signatur einf
  17291. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  17292. '++LotusScript Development Environment:2:5:(Forward):0:1
  17293. Declare Sub Click(Source As Button)
  17294. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17295. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17296. Private Sub BindEvents(Byval Objectname_ As String)
  17297.     Static Source As BUTTON
  17298.     Set Source = Bind(Objectname_)
  17299.     On Event Click From Source Call Click
  17300. End Sub
  17301. '++LotusScript Development Environment:2:2:Click:1:12
  17302. Sub Click(Source As Button)
  17303.     Call cMemoObject.InsertSignature(False)
  17304. End Sub
  17305. PostedDateh
  17306.     5S6S7S8S
  17307. Werkzeuge\Als Vorlage speichern...
  17308. MEMO_ISSTATIONERY
  17309.     0S0E
  17310. MEMO_STATIONERYSAVE
  17311. ActionInProgress
  17312. MEMO_STATIONERYSAVE
  17313.     0R1S
  17314. MergeFlag
  17315. MEMO_ISSTATIONERY
  17316.     0R1S
  17317. PostedDateh
  17318. IsMailStationery
  17319.     5S6S7S8S10S11S12S13S
  17320. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  17321. Use "CommonUI"
  17322. '++LotusScript Development Environment:2:5:(Forward):0:1
  17323. Declare Sub Click(Source As Button)
  17324. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17325. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17326. Private Sub BindEvents(Byval Objectname_ As String)
  17327. Static Source As BUTTON
  17328. Set Source = Bind(Objectname_)
  17329. On Event Click From Source Call Click
  17330. End Sub
  17331. '++LotusScript Development Environment:2:2:Click:1:12
  17332. Sub Click(Source As Button)
  17333.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  17334. End Sub
  17335. Kopieren in\Neuen Kalendereintrag
  17336. '++LotusScript Development Environment:2:5:(Options):0:74
  17337. Use "CommonUI"
  17338. '++LotusScript Development Environment:2:5:(Forward):0:1
  17339. Declare Sub Click(Source As Button)
  17340. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17341. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17342. Private Sub BindEvents(Byval Objectname_ As String)
  17343. Static Source As BUTTON
  17344. Set Source = Bind(Objectname_)
  17345. On Event Click From Source Call Click
  17346. End Sub
  17347. '++LotusScript Development Environment:2:2:Click:1:12
  17348. Sub Click(Source As Button)
  17349.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  17350. End Sub
  17351. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  17352. Use "CommonUI"
  17353. '++LotusScript Development Environment:2:5:(Forward):0:1
  17354. Declare Sub Click(Source As Button)
  17355. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17356. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17357. Private Sub BindEvents(Byval Objectname_ As String)
  17358.     Static Source As BUTTON
  17359.     Set Source = Bind(Objectname_)
  17360.     On Event Click From Source Call Click
  17361. End Sub
  17362. '++LotusScript Development Environment:2:2:Click:1:12
  17363. Sub Click(Source As Button)
  17364.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  17365. End Sub
  17366. Werkzeuge\Zustellinformationen...
  17367. xxTitle
  17368. Zustellinformationen
  17369.     0S0E
  17370. DeliveryInfo
  17371. xxTitle
  17372.     0RR4S5S6S7S8S9S10S11S12S14S
  17373. Werkzeuge\Vorgaben...nR
  17374. DialogMode
  17375. (Preferences)
  17376. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  17377. '++LotusScript Development Environment:2:5:(Forward):0:1
  17378. Declare Sub Click(Source As Button)
  17379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17381. Private Sub BindEvents(Byval Objectname_ As String)
  17382.     Static Source As BUTTON
  17383.     Set Source = Bind(Objectname_)
  17384.     On Event Click From Source Call Click
  17385. End Sub
  17386. '++LotusScript Development Environment:2:2:Click:1:12
  17387. Sub Click(Source As Button)
  17388.     Dim session As New notessession
  17389.     Dim uiws As New notesuiworkspace
  17390.     Dim collection As notesdocumentcollection
  17391.     Dim noteUIEditDocument As notesuidocument
  17392.     Dim database As NotesDatabase
  17393.     Set noteCursorDoc = session.currentdatabase.createdocument
  17394.     Set database = session.currentdatabase
  17395.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  17396. hlen", "W
  17397. hlen Sie bitte eine Vorlage f
  17398. r das neue Memo.")
  17399.     Set noteCursorDoc = collection.getfirstdocument
  17400.     If Not noteCursorDoc Is Nothing Then
  17401.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  17402.     End If
  17403. End Sub
  17404. Signatur einf
  17405. genj'++LotusScript Development Environment:2:5:(Options):0:66
  17406. '++LotusScript Development Environment:2:5:(Forward):0:1
  17407. Declare Sub Click(Source As Button)
  17408. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17409. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17410. Private Sub BindEvents(Byval Objectname_ As String)
  17411.     Static Source As BUTTON
  17412.     Set Source = Bind(Objectname_)
  17413.     On Event Click From Source Call Click
  17414. End Sub
  17415. '++LotusScript Development Environment:2:2:Click:1:12
  17416. Sub Click(Source As Button)
  17417.     Call cMemoObject.InsertSignature(False)
  17418. End Sub
  17419. Als Vorlage speichern
  17420. ActionInProgress
  17421. &h00000100&
  17422. IsMailStationery
  17423.     1S2S
  17424. Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  17425. '++LotusScript Development Environment:2:5:(Forward):0:1
  17426. Declare Sub Click(Source As Button)
  17427. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17428. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17429. Private Sub BindEvents(Byval Objectname_ As String)
  17430.     Static Source As BUTTON
  17431.     Set Source = Bind(Objectname_)
  17432.     On Event Click From Source Call Click
  17433. End Sub
  17434. '++LotusScript Development Environment:2:2:Click:1:12
  17435. Sub Click(Source As Button)
  17436.     Dim session As New notessession
  17437.     Dim uiws As New notesuiworkspace
  17438.     Dim collection As notesdocumentcollection
  17439.     Dim noteUIEditDocument As notesuidocument
  17440.     Dim database As NotesDatabase
  17441.     Set noteCursorDoc = session.currentdatabase.createdocument
  17442.     Set database = session.currentdatabase
  17443.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  17444. hlen", "W
  17445. hlen Sie bitte eine Vorlage f
  17446. r das neue Memo.")
  17447.     Set noteCursorDoc = collection.getfirstdocument
  17448.     If Not noteCursorDoc Is Nothing Then
  17449.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  17450.     End If
  17451. End Sub
  17452. IsMailStationery
  17453.     1S2S
  17454. Lotus Product
  17455. Lotus Product
  17456. Lotus Product
  17457. OBJECT
  17458. Lotus Product
  17459. OBJECT
  17460. Lotus Product
  17461. OBJECT
  17462. Lotus Product
  17463. OBJECT
  17464. Lotus Product
  17465. O=Lotus Notes
  17466. O=Lotus Notes
  17467. PURSAFO
  17468. |.:#U
  17469. O=Lotus Notes
  17470. CN=Lotus Notes Template Development/O=Lotus Notes
  17471. PURSAFO
  17472. $$FormPostOpenAction
  17473. $TypeIcon
  17474. ExpireDate
  17475. ReplyDate
  17476. ComposedDate
  17477. $Language
  17478. $LastBuildTime
  17479. $BabelInfo
  17480. $BackgroundR5
  17481. $HeaderArea
  17482. $RegionFrameset
  17483. $Info
  17484. $SubForms
  17485. $WINDOWTITLE
  17486. $AppHelpFormula
  17487. $Script
  17488. $$Script_O
  17489. $$ScriptName
  17490. $$FormScript
  17491. $$$FormScript_O
  17492. $Body
  17493. $V5ACTIONS
  17494. $ACTIONS
  17495. $SCRIPTOBJ_21
  17496. $SCRIPTOBJ_25
  17497. $SCRIPTOBJ_34
  17498. $SCRIPTOBJ_35
  17499. $SCRIPTOBJ_36
  17500. $SCRIPTOBJ_39
  17501. $SCRIPTOBJ_42
  17502.  (ReplyNotice)
  17503. tmpDocHeader
  17504. _KategorisierenX
  17505. Dokument _bearbeiten
  17506. Dokument _senden
  17507. _WeiterleitenX
  17508. In Ordner _verschieben...X
  17509. Aus Ordner _entfernenX
  17510. Senden'++LotusScript Development Environment:2:5:(Options):0:66
  17511. '++LotusScript Development Environment:2:5:(Forward):0:1
  17512. Declare Sub Click(Source As Button)
  17513. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17514. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17515. Private Sub BindEvents(Byval Objectname_ As String)
  17516.     Static Source As BUTTON
  17517.     Set Source = Bind(Objectname_)
  17518.     On Event Click From Source Call Click
  17519. End Sub
  17520. '++LotusScript Development Environment:2:2:Click:1:12
  17521. Sub Click(Source As Button)
  17522.     Call SendComments()
  17523.     uidoc.close
  17524. End Sub
  17525. _KategorisierenX
  17526. Dokument _bearbeiten
  17527. Dokument _senden
  17528. _WeiterleitenX
  17529. In Ordner _verschieben...X
  17530. Aus Ordner _entfernenX
  17531. Senden'++LotusScript Development Environment:2:5:(Options):0:66
  17532. '++LotusScript Development Environment:2:5:(Forward):0:1
  17533. Declare Sub Click(Source As Button)
  17534. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17535. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17536. Private Sub BindEvents(Byval Objectname_ As String)
  17537.     Static Source As BUTTON
  17538.     Set Source = Bind(Objectname_)
  17539.     On Event Click From Source Call Click
  17540. End Sub
  17541. '++LotusScript Development Environment:2:2:Click:1:12
  17542. Sub Click(Source As Button)
  17543.     Call SendComments()
  17544.     uidoc.close
  17545. End Sub
  17546. '++LotusScript Development Environment:2:5:(Options):0:66
  17547. Option Public
  17548. '++LotusScript Development Environment:2:5:(Forward):0:1
  17549. Declare Sub Initialize
  17550. Declare Sub SendComments
  17551. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17552. Dim bAlreadySent As Integer
  17553. Dim ws As NotesUIWorkspace
  17554. Dim uidoc As NotesUIDocument
  17555. Dim note As NotesDocument
  17556. '++LotusScript Development Environment:2:2:Initialize:1:10
  17557. Sub Initialize
  17558. End Sub
  17559. '++LotusScript Development Environment:2:2:SendComments:1:8
  17560. Sub SendComments
  17561.     Dim sFormname As String
  17562.     If Not bAlreadySent Then
  17563.         Set ws = New NotesUIworkspace
  17564.         Set uidoc = ws.CurrentDocument
  17565.         Set note = uidoc.Document
  17566.         sformname = note.getitemvalue("FormToUse")(0)
  17567.         Call note.ReplaceItemValue("Form", sFormname)
  17568.         Call note.RemoveItem("$MessageType")
  17569.         Call note.ReplaceItemValue("MailOptions","1")
  17570.         uidoc.Reload
  17571.         uidoc.send
  17572.         Call note.ReplaceItemValue("MailOptions","0")
  17573.         bAlreadySent = True
  17574.     End If
  17575. End Sub
  17576. '++LotusScript Development Environment:2:5:(Options):0:66
  17577. '++LotusScript Development Environment:2:5:(Forward):0:1
  17578. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  17579. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17580. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17581. Private Sub BindEvents(Byval Objectname_ As String)
  17582.     Static Source As NOTESUIDOCUMENT
  17583.     Set Source = Bind(Objectname_)
  17584.     On Event Queryclose From Source Call Queryclose
  17585. End Sub
  17586. '++LotusScript Development Environment:2:2:Queryclose:1:12
  17587. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  17588.     On Error Goto errhandle
  17589.     Call SendComments()
  17590.     Goto done
  17591. errhandle:
  17592.     Resume done
  17593. done:
  17594. End Sub
  17595. (ReplyNotice)
  17596. MailOptionsX
  17597. SaveOptionsX
  17598. tmpDocHeader
  17599. tmpDocHeader
  17600. SendTo
  17601.     An:     X
  17602. SendTo^
  17603.     0S0E
  17604. SendTo
  17605. CopyTo
  17606.     Kopie:    X
  17607. CopyTo^
  17608.     0S0E
  17609. CopyTo
  17610. BlindCopyTo
  17611.     Blindkopie:    
  17612. BlindCopyTo
  17613.     0S0E
  17614. BlindCopyToX
  17615.     Thema: X
  17616. Subject
  17617. tmpSubject
  17618.     Kommentare
  17619. StatusUpdate
  17620. Lotus Product
  17621. Lotus Product
  17622. Lotus Product
  17623. O=Lotus Notes
  17624. O=Lotus Notes
  17625. PURSAFO
  17626. |.:#U
  17627. O=Lotus Notes
  17628. CN=Lotus Notes Template Development/O=Lotus Notes
  17629. PURSAFO
  17630. <=h%=
  17631. H()1c
  17632. $HTMLDocumentStyles
  17633. $Info
  17634. $$ScriptName
  17635. $PublicAccess
  17636. $WINDOWTITLE
  17637. $ACTIONS
  17638. $V5ACTIONS
  17639. $Script
  17640. $$FormScript
  17641. $Body
  17642. $$Script_O
  17643. $$$FormScript_O
  17644. $SCRIPTOBJ_6
  17645. $Language
  17646. $LastBuildTime
  17647. $BabelInfo
  17648. Lotus Product
  17649. OBJECT
  17650.  Trace Report
  17651. *** Nachricht erfolgreich zugestellt ***
  17652. (Help)
  17653. MAIL_F_TRACE_REPORT
  17654.     0S0E
  17655. _KategorisierenX
  17656. Dokument _bearbeiten
  17657. Dokument _senden
  17658. _WeiterleitenX
  17659. In Ordner _verschieben...X
  17660. Aus Ordner _entfernen...
  17661. Gehe zu\EingangX
  17662.     1S2S
  17663. path"
  17664. /MailFS?OpenFrameset"
  17665.     0R3S4S5S6S
  17666. schenX
  17667.     1S10S14S16S23S
  17668.     0R5S
  17669. path"
  17670. /wDelete?OpenAgent&
  17671. UNID"
  17672. &From="
  17673. view"
  17674. Gehe zu\VorX 
  17675.     0S0E
  17676. Gehe zu\Zur
  17677.     0S0E
  17678. _KategorisierenX
  17679. Dokument _bearbeiten
  17680. Dokument _senden
  17681. _WeiterleitenX
  17682. In Ordner _verschieben...X
  17683. Aus Ordner _entfernen...
  17684. Gehe zu\EingangX
  17685.     1S2S
  17686. path"
  17687. /MailFS?OpenFrameset"
  17688.     0R3S4S5S6S
  17689. act_goto.gif|act_gotoX
  17690. schenX
  17691.     1S10S14S16S23S
  17692.     0R5S
  17693. path"
  17694. /wDelete?OpenAgent&
  17695. UNID"
  17696. &From="
  17697. view"
  17698. act_DELETE.GIF|act_DELETEX
  17699. Gehe zu\VorX 
  17700.     0S0E
  17701. act_goto.gif|act_gotoX
  17702. Gehe zu\Zur
  17703.     0S0E
  17704. act_goto.gif|act_gotoX'++LotusScript Development Environment:2:5:(Options):0:66
  17705. '++LotusScript Development Environment:2:5:(Forward):0:1
  17706. Declare Sub Postopen(Source As Notesuidocument)
  17707. '++LotusScript Development Environment:2:5:(Declarations):0:2
  17708. '++LotusScript Development Environment:2:2:BindEvents:1:129
  17709. Private Sub BindEvents(Byval Objectname_ As String)
  17710.     Static Source As NOTESUIDOCUMENT
  17711.     Set Source = Bind(Objectname_)
  17712.     On Event Postopen From Source Call Postopen
  17713. End Sub
  17714. '++LotusScript Development Environment:2:2:Postopen:1:12
  17715. Sub Postopen(Source As Notesuidocument)
  17716.     On Error Goto Trap
  17717.     If Not Source.EditMode Then
  17718.         Dim noteParent As notesdocument
  17719.         Set noteParent = Source.document.Parentdatabase.Getdocumentbyunid(Cstr(Source.document.Parentdocumentunid))
  17720.         If Not noteParent Is Nothing Then
  17721.             If noteParent.GetItemValue("Form")(0) = "Tracking Request" Then
  17722.                 Dim uiws As New notesuiworkspace
  17723.                 Dim uinote As notesuidocument
  17724.                 Set uinote =  uiws.Editdocument(False, noteParent, False)
  17725.                 If Not Source.InPreviewPane Then                    
  17726.                     Call Source.Close()
  17727.                 End If                
  17728.             End If
  17729.         End If
  17730.     End If
  17731.     Goto    Complete
  17732. Trap:
  17733.     If Err = 4091 Then
  17734.         Resume Next
  17735.     Else
  17736.         Print("Notes Fehler: " & Cstr(Err) & " " &  Error$)
  17737.         Resume Next
  17738.     End If 
  17739. Complete:
  17740. End Sub
  17741. VerlaufsprotokollX
  17742.     Ihr Vorgang:
  17743. Subject
  17744. SubjectX
  17745.     hat erreicht:X
  17746. IntendedRecipient
  17747. MailServer
  17748.     um:X
  17749. DeliveryDate
  17750. Verlaufsinformationen
  17751. RouteServers
  17752. RouteServers
  17753. RouteTimes
  17754. RouteTimes
  17755. Lotus Product
  17756. O=Lotus Notes
  17757. O=Lotus Notes
  17758. PURSAFO
  17759. |.:#U
  17760. O=Lotus Notes
  17761. CN=Lotus Notes Template Development/O=Lotus Notes
  17762. PURSAFO
  17763. $Info
  17764. $$Script_O
  17765. $$ScriptName
  17766. DeliveryDate
  17767. $WINDOWTITLE
  17768. $AppHelpFormula
  17769. $ACTIONS
  17770. $V5ACTIONS
  17771. $$FormScript
  17772. $Body
  17773. $$$FormScript_O
  17774. $Language
  17775. $LastBuildTime
  17776. $BabelInfo
  17777. Mail-Regel
  17778. '++LotusScript Development Environment:2:5:(Options):0:66
  17779. Option Public
  17780. '++LotusScript Development Environment:2:5:(Forward):0:1
  17781. Declare Function FieldString(itmfield As Variant) As String
  17782. Declare Function LogicString(vlogic As Variant, vcondition As Variant) As String
  17783. Declare Function ActionString(vaction As Variant, note As notesdocument) As String
  17784. Declare Sub ProcessConditions
  17785. Declare Function ProcessActions As Integer
  17786. Declare Sub ProcessExceptions
  17787. Declare Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  17788. Declare Sub ActionParser(strAction As String, strUNID As String, strstring As String)
  17789. Declare Sub AddCondition
  17790. Declare Sub AddException
  17791. Declare Sub GetValues
  17792. Declare Function OperatorString(voperator As Variant)
  17793. Declare Function GetString ( StringType As Variant) As String
  17794. '++LotusScript Development Environment:2:5:(Declarations):0:10
  17795. Dim session As notessession
  17796. Dim dbmail As notesdatabase
  17797. Dim uidoc As notesuidocument
  17798. Dim note As notesdocument
  17799. Dim bnewdoc As Variant
  17800. Dim strformula As String
  17801. Dim strlogic As String
  17802. Dim strstring As String
  17803. Dim strUNID As String
  17804. Dim stroperator As String
  17805. Dim straction As String
  17806. Dim strfolder As String
  17807. Dim vstring As Variant
  17808. Dim vlogic As Variant
  17809. Dim vcondlogic As Variant
  17810. Dim voperator As Variant
  17811. Dim strcondition As String
  17812. Dim vexception As Variant
  17813. Dim vexceptionlist As notesitem
  17814. Dim vtokexceptionlist As notesitem
  17815. Dim vimportance As Variant
  17816. Dim vdomains As Variant    
  17817. Dim vcondition As Variant
  17818. Dim vconditionlist As notesitem
  17819. Dim vtokconditionlist As notesitem
  17820. '++LotusScript Development Environment:2:1:FieldString:1:8
  17821. Function FieldString(itmfield As Variant) As String
  17822. 'This function tells you which field action to perform
  17823.     Select Case itmfield
  17824.     Case "1"
  17825.         'Sender
  17826.         FieldString = GetString(itmfield)
  17827.     Case "2"
  17828.         'Subject
  17829.         FieldString =  GetString(itmfield)
  17830.     Case "3"
  17831.         'Body
  17832.         FieldString = GetString(itmfield)
  17833.     Case "4"
  17834.         'Importance
  17835.         FieldString = GetString(itmfield)
  17836.     Case "5"
  17837.         'Delivery Priority
  17838.         FieldString = GetString(itmfield)
  17839.     Case "6"
  17840.         'To
  17841.         FieldString =GetString(itmfield)
  17842.     Case "7"
  17843.         'CC
  17844.         FieldString=GetString(itmfield)
  17845.     Case "8"
  17846.         'To or CC
  17847.         FieldString = GetString(itmfield)
  17848.     Case "9"
  17849.         'body or subject
  17850.         FieldString = GetString(itmfield)
  17851.     Case "A"
  17852.         'BCC
  17853.         FieldString=GetString(itmfield)
  17854.     Case "B"
  17855.         'Internet Domain
  17856.         FieldString = GetString(itmfield)
  17857.     Case "C"
  17858.         'size
  17859.         FieldString = GetString(itmfield)
  17860.     End Select
  17861. End Function
  17862. '++LotusScript Development Environment:2:1:LogicString:1:8
  17863. Function LogicString(vlogic As Variant, vcondition As Variant) As String
  17864.     Select Case vlogic
  17865.     Case "1"
  17866.         If vcondition<>"C" Then
  17867.         'contains
  17868.             logicstring = GetString("D")
  17869.         Else
  17870.             logicstring = GetString ("E")
  17871.         End If
  17872.     Case "2"
  17873.         'does not contain
  17874.         If vcondition<>"C" Then
  17875.             logicstring = GetString ("F")
  17876.         Else
  17877.             logicstring = GetString ("G")
  17878.         End If
  17879.     Case "3"
  17880.         'is
  17881.         logicstring = GetString("H")
  17882.     Case "4"
  17883.         'is not
  17884.         logicstring = GetString ("I")
  17885.     End Select
  17886. End Function
  17887. '++LotusScript Development Environment:2:1:ActionString:1:8
  17888. Function ActionString(vaction As Variant, note As notesdocument) As String
  17889.     Dim strImportance As String    
  17890.     Select Case vaction
  17891.     Case "1"
  17892.         ActionString = GetSTring ("J")+ note.getitemvalue("folder")(0)
  17893.     Case "2"    
  17894.         Select Case note.getitemvalue("Importancecond")(0)
  17895.         Case "1"
  17896.             strImportance = GetString("K")
  17897.         Case "2"
  17898.             strImportance = GetString("L")
  17899.         Case "3"
  17900.             strImportance =GetString("M")
  17901.         End Select
  17902.         ActionString = GetString("N")+strImportance
  17903.     Case "3"
  17904.         ActionString = GetString("O")
  17905.     Case "4"
  17906.         ActionString =GetString("P")+note.getitemvalue("folder")(0)
  17907.     End Select
  17908. End Function
  17909. '++LotusScript Development Environment:2:2:ProcessConditions:1:8
  17910. Sub ProcessConditions
  17911.     Dim vtokconditionlist As Variant
  17912.     vtokconditionlist = note.getitemvalue("tokconditionlist")
  17913.     If vtokconditionlist(0)="" Then Exit Sub
  17914.     strformula="@If(("
  17915.     For  x = 0 To Ubound(vtokconditionlist)
  17916.         'Seperate the four elements in their individual items
  17917.         strcondition = Left(vtokconditionlist(x),1)
  17918.         strlogic = Mid(vtokconditionlist(x), 3,1)
  17919.         'if this is the size, strip bytes off of strstring
  17920.         If strcondition="C" Then
  17921.             strstring = Mid(vtokconditionlist(x), 5,Len(vtokconditionlist(x))-12)
  17922.         Else
  17923.             strstring = Mid(vtokconditionlist(x), 5,(Instr(5,vtokconditionlist(x),":")-5))
  17924.         End If
  17925.         If x=0 Then Goto continue
  17926.         stroperator = Right(vtokconditionlist(x),(Len(vtokconditionlist(x))-Instr(5,vtokconditionlist(x),":")))
  17927. continue:    
  17928.         If x<>0 Then            
  17929.             If stroperator="0" Then            
  17930.                 strformula=strformula+" & "
  17931.             Elseif stroperator="1" Then
  17932.                 strformula=strformula+"|"
  17933.             End If            
  17934.         End If
  17935.         Call ConditionParser(strcondition, strlogic, strstring)
  17936.     Next
  17937.     strformula=strformula+")"
  17938. End Sub
  17939. '++LotusScript Development Environment:2:1:ProcessActions:1:8
  17940. Function ProcessActions As Integer
  17941.     Dim vtokactionlist As Variant
  17942.     ProcessActions=True
  17943.     vtokactionlist = note.getitemvalue("tokactionlist")
  17944.     If vtokactionlist(0)="" Then Exit Function
  17945.     strformula=strformula+"; (@do("
  17946.     strUNID=""
  17947.     For  x = 0 To Ubound(vtokactionlist)    
  17948.         'Seperate the three elements in their individual items
  17949.         straction = Left(vtokactionlist(x),1)
  17950.         strstring = Mid(vtokactionlist(x), 3,1)
  17951.         strfolder=Right(vtokactionlist(x),Len(vtokactionlist(x))-4)
  17952.         If (straction = "1" Or straction ="4") Then
  17953.             'Get the UNID for the folder
  17954.             Set thisfolder=dbmail.getview(strfolder)
  17955.             If thisfolder Is Nothing Then
  17956.                 Msgbox getstring("V"), 16
  17957.                 ProcessActions=False
  17958.                 Exit Function
  17959.             End If
  17960.             strUNID = thisfolder.Universalid
  17961.         End If
  17962.         Call ActionParser(straction, Cstr(strUNID), strstring)
  17963.         If x<> Ubound(vtokactionlist) Then strformula=strformula+" ; "
  17964.     Next
  17965.     strformula=strformula+|));"")|
  17966. End Function
  17967. '++LotusScript Development Environment:2:2:ProcessExceptions:1:8
  17968. Sub ProcessExceptions
  17969.     Dim vtokexceptionlist As Variant
  17970.     vtokexceptionlist = note.getitemvalue("tokexceptionlist")
  17971.     If vtokexceptionlist(0)="" Then    Exit Sub
  17972.     getoperator = note.getitemvalue("operator")
  17973.     If getoperator(0) ="0" Then            
  17974.         strformula=strformula+" & "
  17975.     Elseif getoperator(0)="1" Then
  17976.         strformula=strformula+"|"
  17977.     End If    
  17978.     strformula=strformula+ " !("    
  17979.     For  x = 0 To Ubound(vtokexceptionlist)        
  17980.         'Seperate the three elements in their individual items
  17981.         strcondition = Left(vtokexceptionlist(x),1)
  17982.         strlogic = Mid(vtokexceptionlist(x), 3,1)
  17983.         strstring = Right(vtokexceptionlist(x),Len(vtokexceptionlist(x))-4)
  17984.         Call ConditionParser(strcondition, strlogic, strstring)
  17985.         If x<> Ubound(vtokexceptionlist) Then strformula=strformula+" | "
  17986.     Next
  17987.     strformula=strformula+")"
  17988. End Sub
  17989. '++LotusScript Development Environment:2:2:ConditionParser:1:8
  17990. Sub ConditionParser(strcondition As String, strlogic As String, strstring As String)
  17991.     Dim fieldstring As String
  17992.     Dim fieldstring1 As String
  17993.     Dim fieldstring2 As String
  17994.     Dim logicstring As String
  17995.     Dim bnormal As Integer
  17996.     bnormal = False
  17997.     Select Case strcondition
  17998.     Case "1"
  17999.         'Sender
  18000.         Fieldstring="From"
  18001.     Case "2"
  18002.         'Subject
  18003.         FieldString = "Subject"
  18004.     Case "3"
  18005.         'Body
  18006.         FieldString = "@Abstract([TextOnly];64994;"""";""Body"")"
  18007.     Case "4"
  18008.         'Importance
  18009.         FieldString = "Importance"
  18010.         If strstring = getString("K") Then
  18011.             strstring = "1"
  18012.         Elseif strstring = getString("L") Then
  18013.             strstring = "2"
  18014.             bnormal=True
  18015.         Elseif strstring = getString("M") Then
  18016.             strstring = "3"
  18017.         End If
  18018.     Case "5"
  18019.         'Delivery Priority
  18020.         FieldString = "DeliveryPriority"
  18021.         If strstring = getString("K") Then
  18022.             strstring = "H"
  18023.         Elseif strstring = getString("L") Then
  18024.             strstring = "N"
  18025.             bnormal=True
  18026.         Elseif strstring = getString("M") Then
  18027.             strstring = "L"
  18028.         End If        
  18029.     Case "6"
  18030.         'To
  18031.         FieldString = "SendTo"
  18032.     Case "7"
  18033.         'CC
  18034.         FieldString="CopyTo"
  18035.     Case "8"
  18036.         'To or CC
  18037.         FieldString1 = "SendTo"
  18038.         FieldSTring2="CopyTo"
  18039.     Case "9"
  18040.         'body or subject
  18041.         FieldString1 = "@Abstract([TextOnly];64,994;"""";""Body"")"
  18042.         FieldSTring2="subject"
  18043.     Case "A"
  18044.         'BCC
  18045.         FieldString=" BlindCopyTo"
  18046.     Case "B"
  18047.         'Internet Domain
  18048.         FieldString = "SMTPOriginator"
  18049.     Case "C"
  18050.         'size
  18051.         FieldSTring="@DocLength"
  18052.     End Select
  18053.     Select Case strlogic
  18054.     Case "1"
  18055.         If strcondition<>"C" Then
  18056.         'contains
  18057.             logicstring = "@Contains(@lowercase("
  18058.         Else
  18059.             logicstring = "@DocLength<"
  18060.         End If
  18061.     Case "2"
  18062.         'does not contain
  18063.         If strcondition<>"C" Then
  18064.             logicstring = "!@Contains(@lowercase("
  18065.         Else
  18066.             logicstring = "@DocLength>"
  18067.         End If
  18068.     Case "3"
  18069.         'is
  18070.         logicstring = "="
  18071.     Case "4"
  18072.         'is not
  18073.         logicstring = "!="
  18074.     End Select
  18075.     'We need to special case four conditions, multiple fields, searching body, priority or imp are normal and document size
  18076.     Select Case strcondition
  18077.     Case "C"
  18078.         Select Case strlogic
  18079.         Case "1", "2"
  18080.             strformula = strformula + logicstring + strstring
  18081.         Case "3", "4"
  18082.             strformula = strformula + fieldstring + logicstring + strstring
  18083.         End Select
  18084.     Case "3"
  18085.         'body field needs to be converted to ascii
  18086.         Select Case strlogic
  18087.         Case "1" , "2"
  18088.             strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"
  18089.         Case "3" , "4"
  18090.             strformula=strformula+fieldstring+logicstring+"@Ascii("""+strstring+""")" 
  18091.         End Select
  18092.     Case "8"  
  18093.         Select Case strlogic
  18094.         Case "1" , "2"
  18095.             strformula=strformula+logicstring+fieldstring1+");"""+ Lcase(strstring) +""") | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
  18096.         Case "3" , "4"
  18097.             strformula=strformula+fieldstring1+logicstring+strstring +" | "+fieldstring2+logicstring+strstring
  18098.         End Select
  18099.     Case "9"
  18100.         Select Case strlogic
  18101.         Case "1" , "2"
  18102.             strformula=strformula+logicstring+fieldstring1+"); """+ Lcase(strstring) +""") | "+logicstring+fieldstring2+");"""+ Lcase(strstring) +""")"
  18103.         Case "3" , "4"
  18104.             strformula=strformula+fieldstring1+logicstring+""""+strstring +" | "+fieldstring2+logicstring+strstring
  18105.         End Select
  18106.     Case Else
  18107.         Select Case strlogic
  18108.         Case "1" , "2"
  18109.             If bnormal Then
  18110.                 If strlogic="1" Then
  18111.                     strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"+"|"+fieldstring+"="""""
  18112.                     Print strformula
  18113.                 Else
  18114.                     strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"+"|"+fieldstring+"!="""""
  18115.                     Print strformula
  18116.                 End If
  18117.             Else
  18118.                 strformula=strformula+logicstring+fieldstring+");"""+ Lcase(strstring) +""")"
  18119.             End If
  18120.         Case "3" , "4"
  18121.             strformula=strformula+fieldstring+logicstring+""""+strstring+""""
  18122.         End Select
  18123.     End Select
  18124. End Sub
  18125. '++LotusScript Development Environment:2:2:ActionParser:1:8
  18126. Sub ActionParser(strAction As String, strUNID As String, strstring As String)
  18127.     Dim strImportance As String    
  18128.     Select Case straction
  18129.     Case "1"
  18130.         strformula = strformula+"(@MailFilterAddtofolder("""+strUNID+"""; @True))"
  18131.     Case "2"    
  18132.         Select Case strstring
  18133.         Case "1"
  18134.             strImportance = "1"
  18135.         Case "2"
  18136.             strImportance = "2"
  18137.         Case "3"
  18138.             strImportance ="3"
  18139.         End Select
  18140.         strformula = "FIELD Importance:=Importance;"+strformula+"(@setfield(""Importance"";"""+strImportance+"""))"
  18141.     Case "3"
  18142.         strformula = strformula+"(@deletedocument)"
  18143.     Case "4"
  18144.         strformula = strformula+"(@MailFilterAddtofolder("""+strUNID+"""))"
  18145.     End Select
  18146. End Sub
  18147. '++LotusScript Development Environment:2:2:AddCondition:1:8
  18148. Sub AddCondition
  18149.     GetValues
  18150.     Set vconditionlist = note.getfirstitem("ConditionList")
  18151.     Set vtokconditionlist = note.getfirstitem("tokConditionList")
  18152.     If vconditionlist.values(0) = "" Then 
  18153.         strcondition ="  "+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  18154.     Else    
  18155.         strcondition = "    "+OperatorString(voperator)+FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  18156.     End If
  18157.     Call vconditionlist.appendtotextlist(strcondition)
  18158.     Call vtokconditionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring+":"+voperator)
  18159.     uidoc.refresh
  18160. End Sub
  18161. '++LotusScript Development Environment:2:2:AddException:1:8
  18162. Sub AddException
  18163.     GetValues
  18164.     Set vexceptionlist = note.getfirstitem("ExceptionList")
  18165.     Set vtokexceptionlist = note.getfirstitem("tokExceptionList")
  18166.     If vexceptionlist.values(0) = "" Then     
  18167.         strcondition ="  "+  FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  18168.     Else    
  18169.         strcondition = "    "+OperatorString(voperator)+ FieldString(vcondition) + LogicString(vlogic,vcondition)+vstring
  18170.     End If
  18171.     Call vexceptionlist.appendtotextlist(strcondition)
  18172.     Call vtokexceptionlist.appendtotextlist(vcondition+":"+vlogic+":"+vstring)
  18173.     uidoc.refresh
  18174. End Sub
  18175. '++LotusScript Development Environment:2:2:GetValues:1:8
  18176. Sub GetValues
  18177.     vcondition = note.getitemvalue("condition")(0)
  18178.     vlogic = note.getitemvalue("logic")(0)
  18179.     voperator = note.getitemvalue("Operator")(0)
  18180.     If vcondition = "4" Or vcondition="5"Then
  18181.         vimportance = note.getitemvalue("importance")(0)
  18182.         Select Case vimportance
  18183.         Case "1"
  18184.             vstring="Hoch"
  18185.         Case "2"
  18186.             vstring="Normal"
  18187.         Case "3"
  18188.             vstring="Niedrig"
  18189.         End Select
  18190.     Elseif vcondition="B" Then
  18191.         vdomains = note.getitemvalue("domainlist")
  18192.         Forall x In vdomains
  18193.             vstring=vstring+x+":"
  18194.         End Forall
  18195.         vstring=Left(vstring, Len(vstring)-1)
  18196.     Elseif vcondition="C" Then
  18197.         vstring=note.getitemvalue("string")(0)+" Byte"
  18198.     Else
  18199.         vstring = note.getitemvalue("string")(0)
  18200.     End If
  18201. End Sub
  18202. '++LotusScript Development Environment:2:1:OperatorString:1:8
  18203. Function OperatorString(voperator As Variant)
  18204.     'This function converts the operator to it's translated value
  18205.     Select Case voperator
  18206.     Case "0"
  18207.         OperatorString=GetString("Q")
  18208.     Case "1"
  18209.         OperatorString=GetString("R")
  18210.     End Select
  18211. End Function
  18212. '++LotusScript Development Environment:2:1:GetString:1:8
  18213. Function GetString ( StringType As Variant) As String
  18214.     GetString = ""
  18215.     Select Case StringType
  18216.     Case "1"  
  18217.         GetString = " Absender "
  18218.     Case "2"
  18219.         GetString = " Thema "
  18220.     Case "3"
  18221.         GetString = " Text "
  18222.     Case "4"
  18223.         GetString =  " Importance "
  18224.     Case "5"
  18225.         GetString = " Zustellungspriorit
  18226.     Case "6"
  18227.         GetString = " An "
  18228.     Case "7"
  18229.         GetString = " Kopie "
  18230.     Case "8"
  18231.         GetString = " An oder Kopie "
  18232.     Case "9"
  18233.         GetString = " Text oder Thema "
  18234.     Case "A"
  18235.         GetString = " Blindkopie "
  18236.     Case "B"
  18237.         GetString = " Internet-Dom
  18238.     Case "C"
  18239.         GetString = " Gr
  18240.     Case "D"
  18241.         GetString = " enth
  18242.     Case "E"
  18243.         GetString = " ist kleiner als "
  18244.     Case "F"
  18245.         GetString = " enth
  18246. lt nicht "
  18247.     Case "G"
  18248.         GetString = " ist mehr als "
  18249.     Case "H"
  18250.         GetString = " ist "
  18251.     Case "I"
  18252.         GetString = " ist nicht "
  18253.     Case "J"
  18254.         GetString = " In Ordner verschieben " 
  18255.     Case "K"
  18256.         GetString = "Hoch"
  18257.     Case "L"
  18258.         GetString = "Normal"
  18259.     Case "M"
  18260.         GetString = "Niedrig"
  18261.     Case "N"
  18262.         GetString = " Dringlichkeit 
  18263. ndern in "
  18264.     Case "O"
  18265.         GetString = " die eingehende Nachricht l
  18266. schen "
  18267.     Case "P"
  18268.         GetString =  " In Ordner kopieren "
  18269.     Case "Q"
  18270.         GetString = "AND"
  18271.     Case "R"
  18272.         GetString = "OR"
  18273.     Case "S"
  18274.         GetString = "Sie d
  18275. rfen die Aktion 'Dokument l
  18276. schen' nur einmal angeben. M
  18277. chten Sie 'L
  18278. schen' aus der Aktionsliste entfernen?"
  18279.     Case "T"
  18280.         getString = "Sie m
  18281. ssen eine g
  18282. ltige Bedingung eingeben."
  18283.     Case "U"
  18284.         getString = "Sie m
  18285. ssen eine g
  18286. ltige Aktion eingeben."
  18287.     Case "V"
  18288.         getString = "Sie m
  18289. ssen diesen Ordner im Dialogfeld 'Ordner w
  18290. hlen' erstellen."
  18291.     End Select
  18292. End Function
  18293. Lotus Product
  18294.  Mailrule'++LotusScript Development Environment:2:5:(Options):0:66
  18295. '++LotusScript Development Environment:2:5:(Forward):0:1
  18296. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  18297. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18298. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18299. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18300. Private Sub BindEvents(Byval Objectname_ As String)
  18301.     Static Source As NOTESUIDOCUMENT
  18302.     Set Source = Bind(Objectname_)
  18303.     On Event Queryopen From Source Call Queryopen
  18304.     On Event Queryclose From Source Call Queryclose
  18305. End Sub
  18306. '++LotusScript Development Environment:2:2:Queryopen:1:12
  18307. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  18308.     Set uidoc = source
  18309.     Set note = uidoc.document
  18310. End Sub
  18311. '++LotusScript Development Environment:2:2:Queryclose:1:12
  18312. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18313. End Sub
  18314. Lotus Product
  18315. $FilterFormula
  18316. $FilterFormula
  18317. ConditionList
  18318. tokConditionList
  18319. ExceptionList
  18320. tokExceptionList
  18321. ActionList
  18322. tokActionList
  18323.     0S0E
  18324. ExcludeFromView
  18325. Mailrule
  18326.     Regel ist:  
  18327. Enable
  18328. In Kraft|1Au
  18329. er Kraft|0
  18330. v(L)v(
  18331.     Bedingungen angeben:
  18332. bg_DIALOGBAND|bg_DIALOGBAND
  18333. ConditionList
  18334.     0S0E
  18335.     Bedingung erstellen:
  18336. ConditionList
  18337.     0S0E
  18338.     Erstellen: 
  18339. Bedingung|0Ausnahme|1
  18340. Operator
  18341. AND|0OR|1
  18342. condition
  18343. Absender|1Thema|2Text|3Dringlichkeit|4Zustellungspriorit
  18344. t|5An|6Kopie|7Blindkopie|AAn oder Kopie an|8Text oder Thema|9Internet-Dom
  18345. ne|BGr
  18346. e (Byte) |C
  18347. Logic
  18348. Condition
  18349. ist kleiner als|1
  18350. ist gr
  18351. er als|2
  18352. ist|3
  18353. ist nicht|4
  18354. lt nicht|2
  18355. ist|3
  18356. ist nicht|4
  18357.     0S0E
  18358. condition
  18359.     0S0E
  18360. string
  18361. condition
  18362.     0S0E
  18363. importance
  18364. Hoch|1Normal|2Niedrig|3
  18365. condition
  18366.     0S0E
  18367. domainlist
  18368. t(L)t(
  18369.     Wenn Mail empfangen wird, die folgenden Bedingungen entspricht:
  18370. '++LotusScript Development Environment:2:5:(Options):0:66
  18371. '++LotusScript Development Environment:2:5:(Forward):0:1
  18372. Declare Sub Click(Source As Button)
  18373. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18374. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18375. Private Sub BindEvents(Byval Objectname_ As String)
  18376.     Static Source As BUTTON
  18377.     Set Source = Bind(Objectname_)
  18378.     On Event Click From Source Call Click
  18379. End Sub
  18380. '++LotusScript Development Environment:2:2:Click:1:12
  18381. Sub Click(Source As Button)
  18382.     If (note.getitemvalue("ConditionList")(0)="") Then
  18383.         'This is the first time so add a condition
  18384.         AddCondition
  18385.     Else
  18386.         'There already is a condition so check the type
  18387.         If (note.getitemvalue("Type")(0) = "0") Then
  18388.             AddCondition
  18389.         Else
  18390.             AddException
  18391.         End If
  18392.     End If
  18393. End Sub
  18394. Lotus Product
  18395. New Button
  18396. Need a newer version of Notes to execute this button.
  18397.     0S0E
  18398.            Hinzuf
  18399. gen        
  18400. '++LotusScript Development Environment:2:5:(Options):0:66
  18401. '++LotusScript Development Environment:2:5:(Forward):0:1
  18402. Declare Sub Click(Source As Button)
  18403. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18404. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18405. Private Sub BindEvents(Byval Objectname_ As String)
  18406.     Static Source As BUTTON
  18407.     Set Source = Bind(Objectname_)
  18408.     On Event Click From Source Call Click
  18409. End Sub
  18410. '++LotusScript Development Environment:2:2:Click:1:12
  18411. Sub Click(Source As Button)
  18412.     Dim vcondtoremove As Variant
  18413.     Dim vconditionlist As Variant
  18414.     Dim vtokconditionlist As Variant
  18415.     Dim vexceptionlist As Variant
  18416.     Dim vtokexceptionlist As Variant
  18417.     vcondtoremove = note.getitemvalue("conditionlistdisplay")(0)
  18418.     vconditionlist = note.getitemvalue("ConditionList")
  18419.     vexceptionlist = note.getitemvalue("ExceptionList")
  18420.     For  x = 0 To Ubound(vconditionlist)
  18421.         If x=0  And x <> Ubound(vconditionlist)Then
  18422.             vconditionlist(1)=Right$(vconditionlist(1), Len(vconditionlist(1))-Instr(vconditionlist(1)," "))
  18423.         End If
  18424.         If vconditionlist(x) = vcondtoremove Then
  18425.             vconditionlist(x) = ""
  18426.             Call note.replaceitemvalue("conditionlist",vconditionlist)
  18427.             vtokconditionlist = note.getitemvalue("tokConditionList")
  18428.             vtokconditionlist(x) = ""
  18429.             Call note.replaceitemvalue("tokConditionList", vtokconditionlist)
  18430.             Goto done
  18431.         End If
  18432.     Next
  18433.     For  x = 0 To Ubound(vexceptionlist)
  18434.         If vexceptionlist(x) = vcondtoremove Then
  18435.             vexceptionlist(x) = ""
  18436.             Call note.replaceitemvalue("exceptionlist",vexceptionlist)
  18437.             vtokexceptionlist=note.getitemvalue("tokExceptionList")
  18438.             vtokexceptionlist(x)=""
  18439.             Call note.replaceitemvalue("tokexceptionlist",vtokexceptionlist)
  18440.             Goto done
  18441.         End If
  18442.     Next
  18443. done:
  18444.     uidoc.refresh
  18445. End Sub
  18446. Lotus Product
  18447. New Button
  18448. Need a newer version of Notes to execute this button.
  18449.     0S0E
  18450.             Entfernen          
  18451. ConditionListDisplay
  18452. ConditionList
  18453. Wenn:
  18454. conditionlist
  18455. conditionlist
  18456. ExceptionList
  18457. er wenn:
  18458. exceptionlist
  18459. exceptionlist
  18460.     0S0E
  18461. '++LotusScript Development Environment:2:5:(Options):0:66
  18462. '++LotusScript Development Environment:2:5:(Forward):0:1
  18463. Declare Sub Click(Source As Button)
  18464. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18465. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18466. Private Sub BindEvents(Byval Objectname_ As String)
  18467.     Static Source As BUTTON
  18468.     Set Source = Bind(Objectname_)
  18469.     On Event Click From Source Call Click
  18470. End Sub
  18471. '++LotusScript Development Environment:2:2:Click:1:12
  18472. Sub Click(Source As Button)
  18473.     Dim vconditionlist As Variant
  18474.     Dim vexceptionlist As Variant
  18475.     Dim vtokconditionlist As Variant
  18476.     Dim vtokexceptionlist As Variant
  18477.     vconditionlist = note.getitemvalue("ConditionList")
  18478.     vexceptionlist = note.getitemvalue("ExceptionList")
  18479.     vtokconditionlist = note.getitemvalue("tokConditionList")
  18480.     vtokexceptionlist = note.getitemvalue("tokExceptionList")
  18481.     For  x = 0 To Ubound(vconditionlist)
  18482.         vconditionlist(x) = ""
  18483.         vtokconditionlist(x) = ""
  18484.     Next
  18485.     For  x = 0 To Ubound(vexceptionlist)
  18486.         vexceptionlist(x) = ""
  18487.         vtokexceptionlist(x)=""
  18488.     Next
  18489.     'Set all values back to initial values
  18490.     Call note.replaceitemvalue("Condition", "1")
  18491.     Call note.replaceitemvalue("Logic","1")
  18492.     Call note.replaceitemvalue("String", "")
  18493.     Call note.replaceitemvalue("conditionlist",vconditionlist)
  18494.     Call note.replaceitemvalue("tokconditionlist", vtokconditionlist)
  18495.     Call note.replaceitemvalue("exceptionlist", vexceptionlist)
  18496.     Call note.replaceitemvalue("tokexceptionlist", vtokexceptionlist)
  18497.     'Call note.save(True,True)
  18498.     uidoc.refresh
  18499. End Sub
  18500. Lotus Product
  18501. New Button
  18502. Need a newer version of Notes to execute this button.
  18503.     0S0E
  18504.            Alle entfernen     
  18505.     Aktionen angeben:
  18506. bg_DIALOGBAND|bg_DIALOGBAND
  18507. action
  18508. In Ordner verschieben|1In Ordner kopieren|4Dringlichkeit 
  18509. ndern in|2L
  18510. schen|3
  18511. action
  18512.     0S0E
  18513. folder
  18514. action
  18515.     0S0E
  18516. importancecond
  18517. Hoch|1Normal|2Niedrig|3
  18518. action
  18519.     0S0E
  18520. action
  18521.     0S0E
  18522. folder
  18523.     4S7S8S10S
  18524.     Ordner w
  18525.     Folgende Aktionen durchf
  18526. hren:
  18527. '++LotusScript Development Environment:2:5:(Options):0:66
  18528. '++LotusScript Development Environment:2:5:(Forward):0:1
  18529. Declare Sub Click(Source As Button)
  18530. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18531. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18532. Private Sub BindEvents(Byval Objectname_ As String)
  18533.     Static Source As BUTTON
  18534.     Set Source = Bind(Objectname_)
  18535.     On Event Click From Source Call Click
  18536. End Sub
  18537. '++LotusScript Development Environment:2:2:Click:1:12
  18538. Sub Click(Source As Button)
  18539.     Dim vaction As Variant
  18540.     Dim itmactionlist As NotesItem
  18541.     Dim itmtokactionlist As notesitem
  18542.     Dim vimportance As Variant
  18543.     Dim vfolder As Variant
  18544.     Dim vactiondisplay As Variant
  18545.     Dim straction As String
  18546.     Set itmactionlist = note.getfirstitem("ActionList")
  18547.     Set itmtokactionlist =note.getfirstitem("TokActionList")
  18548.     vaction = note.getitemvalue("action")(0)
  18549.     If itmactionlist.values(0) = "" Then 
  18550.         straction = actionstring(vaction, note)
  18551.     Elseif itmtokactionlist.contains("3:1:") Then
  18552.         If Messagebox (GetString("S"), 36, "Regelfehler")  <> 6 Then Exit Sub
  18553.         itmtokactionlist.remove
  18554.         itmactionlist.remove
  18555.         Set itmtokactionlist=New notesitem(note, "tokactionlist","")
  18556.         Set itmactionlist = New notesitem(note,"actionlist","")
  18557.         straction = actionstring(vaction,note)
  18558.     Else
  18559.         straction = " "+GetString("Q")+actionstring(vaction, note)
  18560.     End If
  18561.     Call itmactionlist.appendtotextlist(straction)
  18562.     Call itmtokactionlist.appendtotextlist(vaction+":"+note.importancecond(0)+":"+note.folder(0))    
  18563.     uidoc.refresh
  18564. End Sub
  18565. Lotus Product
  18566. New Button
  18567. Need a newer version of Notes to execute this button.
  18568.     0S0E
  18569.        Aktion hinzuf
  18570. gen   
  18571. '++LotusScript Development Environment:2:5:(Options):0:66
  18572. '++LotusScript Development Environment:2:5:(Forward):0:1
  18573. Declare Sub Click(Source As Button)
  18574. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18575. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18576. Private Sub BindEvents(Byval Objectname_ As String)
  18577.     Static Source As BUTTON
  18578.     Set Source = Bind(Objectname_)
  18579.     On Event Click From Source Call Click
  18580. End Sub
  18581. '++LotusScript Development Environment:2:2:Click:1:12
  18582. Sub Click(Source As Button)
  18583.     Dim vactiontoremove As Variant
  18584.     Dim vactionlist As Variant
  18585.     Dim vtokactionlist As Variant
  18586.     vactiontoremove = note.getitemvalue("actionlistdisplay")(0)
  18587.     vactionlist = note.getitemvalue("actionList")
  18588.     vtokactionlist = note.getitemvalue("tokactionList")
  18589.     For  x = 0 To Ubound(vactionlist)
  18590.         If x=0  And x <> Ubound(vactionlist)Then
  18591.             vactionlist(1)=Right$(vactionlist(1), Len(vactionlist(1))-Instr(vactionlist(1)," "))
  18592.         End If
  18593.         If vactionlist(x) = vactiontoremove Then
  18594.             vactionlist(x) = ""
  18595.             Call note.replaceitemvalue("actionlist",vactionlist)
  18596.             vtokactionlist(x)=""
  18597.             Call note.replaceitemvalue("tokactionlist",vtokactionlist)
  18598.             Goto done
  18599.         End If
  18600.     Next
  18601. done:
  18602.     uidoc.refresh
  18603. End Sub
  18604. Lotus Product
  18605. New Button
  18606. Need a newer version of Notes to execute this button.
  18607.     0S0E
  18608.               Entfernen         
  18609. ActionListDisplay
  18610. ActionList
  18611. '++LotusScript Development Environment:2:5:(Options):0:66
  18612. '++LotusScript Development Environment:2:5:(Forward):0:1
  18613. Declare Sub Click(Source As Button)    
  18614. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18615. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18616. Private Sub BindEvents(Byval Objectname_ As String)
  18617.     Static Source As BUTTON
  18618.     Set Source = Bind(Objectname_)
  18619.     On Event Click From Source Call Click
  18620. End Sub
  18621. '++LotusScript Development Environment:2:2:Click:1:12
  18622. Sub Click(Source As Button)    
  18623.     Dim vactionlist As Variant
  18624.     Dim vtokactionlist As Variant
  18625.     vactionlist = note.getitemvalue("actionlist")
  18626.     vtokactionlist = note.getitemvalue("tokactionlist")
  18627.     For  x = 0 To Ubound(vactionlist)
  18628.         vactionlist(x) = ""
  18629.         vtokactionlist(x)=""
  18630.     Next
  18631.     Call note.replaceitemvalue("action", "1")
  18632.     Call note.replaceitemvalue("folder","")
  18633.     Call note.replaceitemvalue("actionlist",vactionlist)
  18634.     Call note.replaceitemvalue("tokactionlist", vtokactionlist)
  18635.     uidoc.refresh
  18636. End Sub
  18637. Lotus Product
  18638. New Button
  18639. Need a newer version of Notes to execute this button.
  18640.     0S0E
  18641.            Alle entfernen      
  18642. '++LotusScript Development Environment:2:5:(Options):0:66
  18643. '++LotusScript Development Environment:2:5:(Forward):0:1
  18644. Declare Sub Click(Source As Button)
  18645. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18646. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18647. Private Sub BindEvents(Byval Objectname_ As String)
  18648.     Static Source As BUTTON
  18649.     Set Source = Bind(Objectname_)
  18650.     On Event Click From Source Call Click
  18651. End Sub
  18652. '++LotusScript Development Environment:2:2:Click:1:12
  18653. Sub Click(Source As Button)
  18654.     'This code creates the filter action formula to be used by the mail router and puts it in a field called $FilterFormul
  18655.     Dim uiws As New notesuiworkspace
  18656.     Dim viewcollection As notesviewentrycollection
  18657.     Dim view As notesview
  18658.     Dim profile As notesdocument
  18659.     Dim item As notesitem
  18660.     Dim bprofilesave As Integer    
  18661.     Dim bmovetofolder As Integer
  18662.     Dim nrulenum As Integer
  18663.     Dim strfilteritem As String
  18664.     Dim Debug As Integer
  18665.     Set session = New notessession
  18666.     Set dbmail = session.currentdatabase
  18667.     Set profile= dbmail.GetProfileDocument("CalendarProfile")
  18668.     Set view = dbmail.getview("Rules")
  18669.     Debug = session.getEnvironmentvalue("DEBUG_RULE", True)
  18670.     'Check to see if the profile already existed
  18671.     If Not(profile.HasItem("Owner")) Then
  18672.         profile.Form = "CalendarProfile"
  18673.         Call profile.ComputeWithForm(False,False)
  18674.     End If 
  18675.     If note.conditionlist(0) = "" Then
  18676.         Msgbox getString("T"), 16
  18677.         Exit Sub
  18678.     Elseif note.actionlist(0) = "" Then
  18679.         Msgbox getString("U"), 16
  18680.         Exit Sub
  18681.     End If
  18682.         'First give the rule a sequence number if it's a new rule    
  18683.     If note.isnewnote Then
  18684.         Set viewcollection = view.allentries
  18685.         If Debug = 1 Then Print "'Viewcollection count' ist:" + Cstr(viewcollection.count)
  18686.         If viewcollection.count = 0 Then
  18687.             nrulenum=0
  18688.         Else
  18689.             nrulenum = Cint(viewcollection.getlastentry.document.getitemvalue("ordernum")(0))+1
  18690.         End If
  18691.         Call note.replaceitemvalue("OrderNum", (nrulenum))
  18692.         bmovetofolder=True    
  18693.         If Debug=1 Then Print note.ordernum(0)
  18694.     Else
  18695.         nrulenum = note.getitemvalue("ordernum")(0)
  18696.     End If        
  18697.     '$FilterFormulaCount is the total number of rules in the db
  18698.     If Not (profile.hasitem("$FilterFormulaCount")) Then 
  18699.         Call profile.replaceitemvalue("$FilterFormulaCount","1")            
  18700.     Else
  18701.         Call profile.replaceitemvalue("$FilterFormulaCount", Cstr(Cint(profile.getitemvalue("$FilterFormulaCount")(0))+1))            
  18702.     End If
  18703.     bprofilesave=True    
  18704.     strfilteritem = "$FilterFormula_"+Cstr(nrulenum)
  18705.     If note.getitemvalue("Enable")(0)="1" Then            
  18706.         'set the count of enabled rules on the profile note
  18707.         'Enable rules checking in NSF
  18708.         Call dbmail.enabledboptions(1,True)        
  18709.         ProcessConditions
  18710.         ProcessExceptions
  18711.         If Not ProcessActions Then Exit Sub
  18712.         Set item=note.getfirstitem("$FilterFormula")
  18713.         item.values=strformula        
  18714.         bprofilesave=True    
  18715.         If Debug=1 Then Print "Formula:  "+strformula
  18716.         Print strformula
  18717.     Else        
  18718.         bprofilesave = profile.hasitem(strfilteritem)
  18719.     End If
  18720.     If profile.hasitem(strfilteritem) Then
  18721.         Call profile.removeitem(strfilteritem)
  18722.     End If
  18723.     Call note.computewithform(False,False)
  18724.     If Not(item Is Nothing) Then Call item.copyitemtodocument(profile,strfilteritem)
  18725.     Call note.save(True,False,True)
  18726.     If bmovetofolder Then Call note.putinfolder("Rules")
  18727.     If bprofilesave Then Call profile.save(True, True,True)
  18728.     uidoc.close    
  18729.     uiws.viewrefresh
  18730. End Sub
  18731. Lotus Product
  18732. K(    S8    
  18733. )L    }<
  18734. K(    ,,
  18735. K(    S`
  18736. New Button
  18737. Need a newer version of Notes to execute this button.
  18738.     0S0E
  18739.        OK   
  18740.     0S0E
  18741.     Abbrechen
  18742.     Dieses Feld wird f
  18743. r das Ordnen der Filterdokumente im Ordner verwendet.
  18744. OrderNum
  18745. OrderNum
  18746. _Kategorisieren
  18747. Dokument _bearbeiten
  18748. Dokument _senden
  18749. _Weiterleiten
  18750. In Ordner _verschieben...
  18751. Aus Ordner _entfernen
  18752. _Kategorisierena
  18753. Dokument _bearbeiten
  18754. Dokument _senden
  18755. _Weiterleiten
  18756. In Ordner _verschieben...t
  18757. Aus Ordner _entfernen
  18758. O=Lotus Notes
  18759. O=Lotus Notes
  18760. PURSAFO
  18761. |.:#U
  18762. O=Lotus Notes
  18763. CN=Lotus Notes Template Development/O=Lotus Notes
  18764. PURSAFO
  18765. *9vNj
  18766. a~Y2k
  18767. $Language
  18768. $LastBuildTime
  18769. $BabelInfo
  18770. $Info
  18771. $WINDOWTITLE
  18772. $Script
  18773. $$Script_O
  18774. $$ScriptName
  18775. $$FormScript
  18776. $$$FormScript_O
  18777. $Body
  18778. $V5ACTIONS
  18779. $ACTIONS
  18780. Lotus Product.
  18781. ^V0.06-
  18782. H}0%#
  18783. 9}0%}
  18784. 9}P%}
  18785. 9}x%}
  18786. 9,4I#
  18787. ;-dI#
  18788. ;-$J#
  18789. ;-HJ#
  18790. ;-HJ#
  18791. ;-lJ#
  18792. Lotus Product
  18793. OBJECT
  18794. Lotus Product
  18795. OBJECT
  18796. Lotus Product.
  18797. ^V0.06-
  18798. H}0%#
  18799. 9}0%}
  18800. 9}P%}
  18801. 9}x%}
  18802. 9,4I#
  18803. ;-dI#
  18804. ;-$J#
  18805. ;-HJ#
  18806. ;-HJ#
  18807. ;-lJ#
  18808. Lotus Product
  18809. Lotus Product
  18810. TaskType
  18811. principal
  18812. chair
  18813. NoticeType
  18814. Broadcast
  18815. (Help)
  18816. MAIL_F_TASK_REC
  18817. (Help)
  18818. MAIL_F_TASK_REC_BRD
  18819. (Help)
  18820. MAIL_F_TASK_REC_MOD
  18821. (Help)
  18822. MAIL_F_TASK
  18823. (Help)
  18824. MAIL_F_TASK
  18825.     3S4S6RTTT12S13S18RTTTTT21S22S24RTTTTTT27S28S30RTTTTTTTT41RTTTTTTTT53RTTTTTT65RTTTTT77RTTT'++LotusScript Development Environment:2:5:(Options):0:74
  18826. Option Public
  18827. Option Explicit    
  18828. Use "CSUIDocClass"
  18829. '++LotusScript Development Environment:2:5:(Forward):0:1
  18830. '++LotusScript Development Environment:2:5:(Declarations):0:10
  18831. Dim uitaskdoc As UIEventDocument
  18832. Lotus Product
  18833.  TaskNotice'++LotusScript Development Environment:2:5:(Options):0:66
  18834. '++LotusScript Development Environment:2:5:(Forward):0:1
  18835. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  18836. Declare Sub Postopen(Source As Notesuidocument)
  18837. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  18838. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18839. Declare Sub Postsave(Source As Notesuidocument)
  18840. Declare Sub Postrecalc(Source As Notesuidocument)
  18841. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  18842. '++LotusScript Development Environment:2:5:(Declarations):0:2
  18843. '++LotusScript Development Environment:2:2:BindEvents:1:129
  18844. Private Sub BindEvents(Byval Objectname_ As String)
  18845.     Static Source As NOTESUIDOCUMENT
  18846.     Set Source = Bind(Objectname_)
  18847.     On Event Queryopen From Source Call Queryopen
  18848.     On Event Postopen From Source Call Postopen
  18849.     On Event Querysave From Source Call Querysave
  18850.     On Event Queryclose From Source Call Queryclose
  18851.     On Event Postsave From Source Call Postsave
  18852.     On Event Postrecalc From Source Call Postrecalc
  18853.     On Event Querymodechange From Source Call Querymodechange
  18854. End Sub
  18855. '++LotusScript Development Environment:2:2:Queryopen:1:12
  18856. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  18857.     If (source.inpreviewpane) Then Exit Sub
  18858.     Set uitaskdoc = CSUIDocOpen(2, source, mode, isnewdoc, continue)
  18859. End Sub
  18860. '++LotusScript Development Environment:2:2:Postopen:1:12
  18861. Sub Postopen(Source As Notesuidocument)
  18862.     If (source.InPreviewPane) Then Exit Sub
  18863.     Call uitaskdoc.PostOpen()
  18864. End Sub
  18865. '++LotusScript Development Environment:2:2:Querysave:1:12
  18866. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  18867.     If (source.InPreviewPane) Then Exit Sub
  18868.     Call uitaskdoc.QuerySave( Continue)
  18869. End Sub
  18870. '++LotusScript Development Environment:2:2:Queryclose:1:12
  18871. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  18872.     If (source.InPreviewPane) Then Exit Sub
  18873.     If (uitaskdoc.WasSaved) Then Call uitaskdoc.QueryClose(continue)    
  18874. End Sub
  18875. '++LotusScript Development Environment:2:2:Postsave:1:12
  18876. Sub Postsave(Source As Notesuidocument)
  18877.     If (source.InPreviewPane) Then Exit Sub
  18878.     Call uitaskdoc.PostSave() 
  18879. End Sub
  18880. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  18881. Sub Postrecalc(Source As Notesuidocument)
  18882.     Dim note As notesdocument
  18883.     If (source.InPreviewPane) Then Exit Sub
  18884.     Set note = source.document
  18885.     Call note.replaceitemvalue("OrgTable", ORS_ITEM_TODO)
  18886.     Call uitaskdoc.PostRecalc()
  18887. End Sub
  18888. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  18889. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  18890.     If (source.InPreviewPane) Then continue = False
  18891. End Sub
  18892. Lotus Product
  18893. X    X    l
  18894. Notes
  18895. (wCSItems)
  18896.     3S4S
  18897.     Always Hidden: 
  18898. TaskNotice
  18899. tmpOwner
  18900. Chair
  18901.     8S11S12S21S22S
  18902. tmpOwner
  18903. Chair
  18904.     8S11S12S21S22S
  18905. tmpOwnerHW
  18906. tmpDoNotProcess
  18907. tmpOwner
  18908. BlindCopyTo
  18909.     3S4S6S8S17S18S28S
  18910. tmpDoNotProcess
  18911. tmpOwner
  18912. BlindCopyTo
  18913.     3S4S6S8S17S18S28StmpNoActionBar
  18914. ChairName
  18915. Chair
  18916.     1S2S
  18917. PrincipalName
  18918. Principal
  18919.     0R1S2S
  18920. xxInvitation
  18921. Neue Aufgabenzuweisung von 
  18922. ChairName
  18923.     0RR1S2S3S4S
  18924. xxReschedule
  18925. ChairName
  18926.  hat diese Aufgabe neu geplant"
  18927.     0R1S2S3S4S
  18928. xxCancellation
  18929. ChairName
  18930.  hat diese Aufgabe annulliert
  18931.     0R1S2S3S4S
  18932. xxConfirmation
  18933. ChairName
  18934.  hat die Aufgabe best
  18935. tigt"
  18936.     0R1S2S3S4S
  18937. xxAccept
  18938. tmpowner
  18939. chair
  18940. PrincipalName
  18941.  hat Ihre Aufgabe angenommen"
  18942. Sie haben diese Aufgabe angenommen
  18943.     0R1S2S5S6S8S9S10S12S
  18944. xxDecline
  18945. tmpOwner
  18946. chair
  18947. PrincipalName
  18948.  hat die von Ihnen zugewiesene Aufgabe abgelehnt"
  18949. Sie haben diese Aufgabe abgelehnt
  18950.     0R1S2S5S6S8S9S10S12S
  18951. xxCounter
  18952. tmpOwner
  18953. chair
  18954. PrincipalName
  18955.  hat f
  18956. r die Aufgabe 
  18957. nderungen vorgeschlagen
  18958. Sie haben f
  18959. r die Aufgabe einen Gegenvorschlag unterbreitet
  18960.     0R1S2S5S6S8S9S10S12S
  18961. xxDelegate
  18962. tmpOwner
  18963. chair
  18964. PrincipalName
  18965.  hat Ihre Zuweisung an eine andere Person delegiert
  18966. Sie haben diese Aufgabe delegiert
  18967.     0R1S2S5S6S8S9S10S12S
  18968. xxDeleInvite
  18969. PrincipalName
  18970.  hat diese Aufgabe an Sie delegiert
  18971.     0R1S2S3S4S
  18972. xxDeclineCounter
  18973. ChairName
  18974.  hat Ihre vorgeschlagenen 
  18975. nderungen abgelehnt"
  18976.     0R1S2S3S4S
  18977. xxRefreshInfo
  18978. $CSFlags
  18979. PrincipalName
  18980.  fordert aktualisierte Informationen an
  18981. Aktualisierte Informationen von 
  18982. PrincipalName
  18983.     0R1S2S8S11S12S13S15RTTT16S17S
  18984. xxCompleted
  18985. PrincipalName
  18986.  hat die von Ihnen zugewiesene Aufgabe erledigt
  18987.     0R1S2S3S4S
  18988. xxUpdate
  18989. NoticeType
  18990. OrgStatus
  18991. ChairName
  18992. chte, da
  18993.  Sie an dieser Aufgabe mitwirken"
  18994. OrgStatus
  18995. Ihre Mitwirkung an dieser Aufgabe ist nicht mehr erforderlich
  18996.     0R1S2S5S6S8S11S12S14S15S16S18S19S20S22S
  18997. NoticeType
  18998. xxInvitation
  18999. xxReschedule
  19000. xxCancellation
  19001. xxConfirmation
  19002. xxAccept
  19003. xxDecline
  19004. xxCounter
  19005. xxDelegate
  19006. xxDeleInvite
  19007. xxRefreshInfo
  19008. xxDeclineCounter
  19009. xxPencilIn
  19010. xxCompleted
  19011. xxUpdate
  19012.     0R4S32S33S34STT35S36S37S38S39S40S41S42S43S44S45S46STT48S49S50S
  19013. tmpNoticeType
  19014. NoticeType
  19015. Vorgeschlagener Starttermin:
  19016. Beginn:
  19017.     3S4S
  19018. .,$ //:
  19019. NoticeType
  19020. NewStartDate
  19021. StartDateTime
  19022.     3S4S6S8S
  19023. tmpStartDateTime
  19024. NoticeType
  19025. Vorgeschlagener F
  19026. lligkeitstermin:
  19027. llig am:
  19028.     3S4S
  19029. .,$ //:
  19030. NoticeType
  19031. NewEndDate
  19032. DueDateTime
  19033.     3S4S6S8S
  19034. tmpEndDateTime
  19035. NoticeType
  19036.     1S2S
  19037.     Urspr
  19038. nglicher Starttermin:     
  19039. .,$ //:
  19040. StartDateTime
  19041. -Ohne-
  19042. StartDateTime
  19043.     3S4S6S8S
  19044. tmpOrigStartDateTime
  19045.     Urspr
  19046. nglicher F
  19047. lligkeitstermin:
  19048. .,$ //:
  19049. DueDateTime
  19050. -Ohne-
  19051. DueDateTime
  19052.     3S4S6S8S
  19053. tmpOrigEndDateTime
  19054.     Titel:
  19055. Topic
  19056. Topic
  19057. Subject
  19058.     7S9S
  19059. tmpTopic
  19060.     Besitzer:
  19061. Chair
  19062. Chair
  19063. Principal
  19064. tmpChair
  19065. tmpWasMailed
  19066. principal
  19067.     3S4S14S15S
  19068.     Gesendet von:
  19069. tmpSentBy
  19070. NoticeType
  19071.     1S2S
  19072.     Delegiert an:
  19073. Delegee
  19074. tmpDelegee
  19075. Allgemein
  19076. TaskType
  19077.     1S2S
  19078.     Erforderlich:    
  19079. AssignedTo^
  19080.     0S0E
  19081. tmpRequired
  19082.     Optional:    
  19083. OptionalAssignedTo^
  19084.     0S0E
  19085. tmpOptional
  19086. BlindCopyTo
  19087.     4S5S
  19088.     Zur Kenntnis:    
  19089. BlindCopyTo
  19090. tmpFYI
  19091. Teilnehmer
  19092. OrgRepeat
  19093.     0S0E
  19094. OrgRepeat
  19095. RepeatUnit
  19096.     4S5S6S7S
  19097.     Beginnend:     
  19098. .,$ //:
  19099. OriginalStartDate
  19100. OriginalStartDate
  19101. RepeatStartDate
  19102. RepeatStartDate
  19103. StartDateTime
  19104.     1RT2RTT7RTTT9RTT14RTTT16RTT17RTtmpRepeatStart
  19105. OrgRepeat
  19106. RepeatDates
  19107. RepeatUnit
  19108.     4S5S9S10S11S12S
  19109.     Wiederholen:     
  19110. RepeatInterval
  19111. tmpRepeatInterval
  19112. jeden|1jeden 2.|2jeden 3.|3jeden 4.|4jeden 5.|5jeden 6.|6jeden 7.|7jeden 8.|8jeden 9.|9jeden 10.|10jeden 11.|11jeden 12.|12jeden 13.|13jeden 14.|14jeden 15.|15jeden 16.|16jeden 17.|17jeden 18.|18jeden 19.|19jeden 20.|20jeden 21.|21jeden 22.|22jeden 23.|23jeden 24.|24jeden 25.|25jeden 26.|26jeden 27.|27jeden 28.|28jeden 29.|29jeden 30.|30jeden 31.|31
  19113. RepeatUnit
  19114. tmpRepeatUnit
  19115. Tag|DWoche am|WMonat am|MDMonat am|MPJahr|YDbenutzerdefiniert|C
  19116. RepeatAdjust
  19117. tmpRepeatAdjust
  19118. RepeatUnit
  19119. Sonntag|0
  19120. Montag|1
  19121. Dienstag|2
  19122. Mittwoch|3
  19123. Donnerstag|4
  19124. Freitag|5
  19125. Samstag|6
  19126. RepeatUnit
  19127. 1. Sonntag|1.0
  19128. 1. Montag|1.1
  19129. 1. Dienstag|1.2
  19130. 1. Mittwoch|1.3
  19131. 1. Donnerstag|1.4
  19132. 1. Freitag|1.5
  19133. 1. Samstag|1.6
  19134. 2. Sonntag|2.0
  19135. 2. Montag|2.1
  19136. 2. Dienstag|2.2
  19137. 2. Mittwoch|2.3
  19138. 2. Donnerstag|2.4
  19139. 2. Freitag|2.5
  19140. 2. Samstag|2.6
  19141. 3. Sonntag|3.0
  19142. 3. Montag|3.1
  19143. 3. Dienstag|3.2
  19144. 3. Mittwoch|3.3
  19145. 3. Donnerstag|3.4
  19146. 3. Freitag|3.5
  19147. 3. Samstag|3.6
  19148. 4. Sonntag|4.0
  19149. 4. Montag|4.1
  19150. 4. Dienstag|4.2
  19151. 4. Mittwoch|4.3
  19152. 4. Donnerstag|4.4
  19153. 4. Freitag|4.5
  19154. 4. Samstag|4.6
  19155. Letzten Sonntag|5.0
  19156. Letzten Montag|5.1
  19157. Letzten Dienstag|5.2
  19158. Letzten Mittwoch|5.3
  19159. Letzten Donnerstag|5.4
  19160. Letzten Freitag|5.5
  19161. Letzten Samstag|5.6
  19162. RepeatUnit
  19163. 1. Tag|1
  19164. 2. Tag|2
  19165. 3. Tag|3
  19166. 4. Tag|4
  19167. 5. Tag|5
  19168. 6. Tag|6
  19169. 7. Tag|7
  19170. 8. Tag|8
  19171. 9. Tag|9
  19172. 10. Tag|10
  19173. 11. Tag|11
  19174. 12. Tag|12
  19175. 13. Tag|13
  19176. 14. Tag|14
  19177. 15. Tag|15
  19178. 16. Tag|16
  19179. 17. Tag|17
  19180. 18. Tag|18
  19181. 19. Tag|19
  19182. 20. Tag|20
  19183. 21. Tag|21
  19184. 22. Tag|22
  19185. 23. Tag|23
  19186. 24. Tag|24
  19187. 25. Tag|25
  19188. 26. Tag|26
  19189. 27. Tag|27
  19190. 28. Tag|28
  19191. 29. Tag|29
  19192. 30. Tag|30
  19193. 31. Tag|31
  19194.     3S4S6R8R10R12R14R16R18R20R21S22S24R26R28R30R32R34R36R38R40R42R44R46R48R50R52R54R56R58R60R62R64R66R68R70R72R74R76R78R80R82R84R86R88R90R92R94R95S96S98R100R102R104R106R108R110R112R114R116R118R120R122R124R126R128R130R132R134R136R138R140R142R144R146R148R150R152R154R156R158R160S
  19195. RepeatHow
  19196. tmpRepeatHow
  19197. bis|Uf
  19198. RepeatFor
  19199. tmpRepeatUnit
  19200.     7S9S
  19201. RepeatHow
  19202. RepeatUntil
  19203. RepeatFor
  19204. RepeatForUnit
  19205. RepeatFor
  19206. RepeatForUnit
  19207. RepeatFor
  19208. Woche
  19209. RepeatForUnit
  19210. RepeatFor
  19211. Monat
  19212. RepeatForUnit
  19213. RepeatFor
  19214. RepeatFor
  19215. RepeatForUnit
  19216. RepeatFor
  19217. RepeatForUnit
  19218. Wochen
  19219. RepeatFor
  19220. RepeatForUnit
  19221. Monate
  19222. RepeatFor
  19223. RepeatForUnit
  19224. Jahre
  19225.     0R3S4S6S10S13S17S18S19S20S23S24S25S26S27S28S30S32S33S34S35S36S37S38S40S42S43S44S45S46S47S48S50S52S53S54S55S56S57S58S60S62S64S65S68S69S70S71S72S73S75S77S78S79S80S81S82S83S85S87S88S89S90S91S92S93S95S97S98S99S100S101S102S103S105S107S
  19226. tmpRepeatUntil
  19227. RepeatUnit
  19228. (Wenn der Tag auf ein Wochenende f
  19229. llt, wird die Besprechung 
  19230. RepeatWeekends
  19231. auf jeden Fall stattfinden
  19232. RepeatWeekends
  19233. auf den Freitag vorverlegt
  19234. RepeatWeekends
  19235. auf den Montag verlegt
  19236. RepeatWeekends
  19237. auf den n
  19238. chsten Werktag verlegt
  19239. RepeatWeekends
  19240. gestrichen
  19241.     3S4S5S6S7S8S10S12S13S14R17S18S20S22S23S24S26S28S29S30S32S34S35S36S38S40S41S42S44S46S48S49S
  19242. tmpRepeatWeekends
  19243. OrgRepeat
  19244. RepeatDates
  19245. RepeatUnit
  19246.     4S5S9S10S13S14S
  19247.     Wiederholen:    
  19248. RepeatDates
  19249. tmpRepeatDates
  19250. OrgRepeat
  19251. RepeatDates
  19252.     4S5S
  19253.     Betrifft:    
  19254. RescheduleWhich
  19255. tmpAppliesTo
  19256. Nur diesen Eintrag|0Alle Eintr
  19257. ge|1Diesen und alle vorherigen Eintr
  19258. ge|2Diesen und alle zuk
  19259. nftigen Eintr
  19260. Wiederholungen
  19261. StatusUpdate
  19262. _Kategorisieren
  19263. Dokument _bearbeiten
  19264. Dokument _senden
  19265. _Weiterleiten
  19266. In Ordner _verschieben...
  19267. Aus Ordner _entfernen
  19268. Antwort\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  19269. '++LotusScript Development Environment:2:5:(Forward):0:1
  19270. Declare Sub Click(Source As Button)
  19271. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19272. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19273. Private Sub BindEvents(Byval Objectname_ As String)
  19274. Static Source As BUTTON
  19275. Set Source = Bind(Objectname_)
  19276. On Event Click From Source Call Click
  19277. End Sub
  19278. '++LotusScript Development Environment:2:2:Click:1:12
  19279. Sub Click(Source As Button)
  19280.     Dim uidoc As NotesUIDocument
  19281.     Dim uiobject As Variant
  19282.     Dim nResult As Integer
  19283.     Set uiobject = uitaskdoc.UIObject
  19284.     Set uidoc = uitaskdoc.UIDocument     
  19285.     If (uiobject.OkToAccept(False)) Then
  19286.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  19287.         Call uidoc.save
  19288.         Call uidoc.close
  19289.     End If    
  19290. End Sub
  19291. tmpNoActionBar
  19292. tmpOwnerHW
  19293. NoticeType
  19294. Broadcast
  19295.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19296. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  19297. '++LotusScript Development Environment:2:5:(Forward):0:1
  19298. Declare Sub Click(Source As Button)
  19299. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19300. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19301. Private Sub BindEvents(Byval Objectname_ As String)
  19302.     Static Source As BUTTON
  19303.     Set Source = Bind(Objectname_)
  19304.     On Event Click From Source Call Click
  19305. End Sub
  19306. '++LotusScript Development Environment:2:2:Click:1:12
  19307. Sub Click(Source As Button)
  19308.     uitaskdoc.uiobject.SendComments = False    
  19309.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  19310. End Sub
  19311. tmpNoActionBar
  19312. tmpOwnerHW
  19313. NoticeType
  19314. Broadcast
  19315.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19316. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  19317. '++LotusScript Development Environment:2:5:(Forward):0:1
  19318. Declare Sub Click(Source As Button)
  19319. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19320. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19321. Private Sub BindEvents(Byval Objectname_ As String)
  19322.     Static Source As BUTTON
  19323.     Set Source = Bind(Objectname_)
  19324.     On Event Click From Source Call Click
  19325. End Sub
  19326. '++LotusScript Development Environment:2:2:Click:1:12
  19327. Sub Click(Source As Button)
  19328.     uitaskdoc.uiobject.SendComments = False    
  19329.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  19330. End Sub
  19331. tmpNoActionBar
  19332. tmpOwnerHW
  19333. Broadcast
  19334. PreventDelegate
  19335.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  19336. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  19337. '++LotusScript Development Environment:2:5:(Forward):0:1
  19338. Declare Sub Click(Source As Button)
  19339. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19340. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19341. Private Sub BindEvents(Byval Objectname_ As String)
  19342.     Static Source As BUTTON
  19343.     Set Source = Bind(Objectname_)
  19344.     On Event Click From Source Call Click
  19345. End Sub
  19346. '++LotusScript Development Environment:2:2:Click:1:12
  19347. Sub Click(Source As Button)
  19348.     uitaskdoc.uiobject.SendComments = False    
  19349.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  19350. End Sub
  19351. tmpNoActionBar
  19352. tmpOwnerHW
  19353. Broadcast
  19354. PreventCounter
  19355. OrgRepeat
  19356.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  19357. Antwort\Abgeschlossen
  19358. '++LotusScript Development Environment:2:5:(Options):0:66
  19359. '++LotusScript Development Environment:2:5:(Forward):0:1
  19360. Declare Sub Click(Source As Button)
  19361. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19362. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19363. Private Sub BindEvents(Byval Objectname_ As String)
  19364.     Static Source As BUTTON
  19365.     Set Source = Bind(Objectname_)
  19366.     On Event Click From Source Call Click
  19367. End Sub
  19368. '++LotusScript Development Environment:2:2:Click:1:12
  19369. Sub Click(Source As Button)
  19370.     uitaskdoc.uiobject.SendComments = False    
  19371.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  19372. End Sub
  19373. tmpNoActionBar
  19374. tmpOwnerHW
  19375. NoticeType
  19376. Broadcast
  19377.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19378. Antwort mit Kommentar\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  19379. '++LotusScript Development Environment:2:5:(Forward):0:1
  19380. Declare Sub Click(Source As Button)
  19381. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19382. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19383. Private Sub BindEvents(Byval Objectname_ As String)
  19384. Static Source As BUTTON
  19385. Set Source = Bind(Objectname_)
  19386. On Event Click From Source Call Click
  19387. End Sub
  19388. '++LotusScript Development Environment:2:2:Click:1:12
  19389. Sub Click(Source As Button)
  19390.     Dim uidoc As NotesUIDocument
  19391.     Dim uiobject As Variant
  19392.     Dim nResult As Integer
  19393.     Set uiobject = uitaskdoc.UIObject
  19394.     Set uidoc = uitaskdoc.UIDocument     
  19395.     If (uiobject.OkToAccept(True)) Then
  19396.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  19397.         Call uidoc.save
  19398.         Call uidoc.close
  19399.     End If    
  19400. End Sub
  19401. tmpNoActionBar
  19402. tmpOwnerHW
  19403. NoticeType
  19404. Broadcast
  19405.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  19406. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  19407. '++LotusScript Development Environment:2:5:(Forward):0:1
  19408. Declare Sub Click(Source As Button)
  19409. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19410. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19411. Private Sub BindEvents(Byval Objectname_ As String)
  19412.     Static Source As BUTTON
  19413.     Set Source = Bind(Objectname_)
  19414.     On Event Click From Source Call Click
  19415. End Sub
  19416. '++LotusScript Development Environment:2:2:Click:1:12
  19417. Sub Click(Source As Button)
  19418.     uitaskdoc.uiobject.SendComments = True
  19419.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  19420. End Sub
  19421. tmpNoActionBar
  19422. tmpOwnerHW
  19423. NoticeType
  19424. Broadcast
  19425.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  19426. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  19427. '++LotusScript Development Environment:2:5:(Forward):0:1
  19428. Declare Sub Click(Source As Button)
  19429. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19430. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19431. Private Sub BindEvents(Byval Objectname_ As String)
  19432.     Static Source As BUTTON
  19433.     Set Source = Bind(Objectname_)
  19434.     On Event Click From Source Call Click
  19435. End Sub
  19436. '++LotusScript Development Environment:2:2:Click:1:12
  19437. Sub Click(Source As Button)
  19438.     uitaskdoc.uiobject.SendComments = True
  19439.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  19440. End Sub
  19441. tmpNoActionBar
  19442. tmpOwnerHW
  19443. Broadcast
  19444. PreventDelegate
  19445.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19446. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  19447. '++LotusScript Development Environment:2:5:(Forward):0:1
  19448. Declare Sub Click(Source As Button)
  19449. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19450. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19451. Private Sub BindEvents(Byval Objectname_ As String)
  19452.     Static Source As BUTTON
  19453.     Set Source = Bind(Objectname_)
  19454.     On Event Click From Source Call Click
  19455. End Sub
  19456. '++LotusScript Development Environment:2:2:Click:1:12
  19457. Sub Click(Source As Button)
  19458.     uitaskdoc.uiobject.SendComments = True
  19459.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  19460. End Sub
  19461. tmpNoActionBar
  19462. tmpOwnerHW
  19463. Broadcast
  19464. PreventCounter
  19465. OrgRepeat
  19466.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  19467. Antwort mit Kommentar\Abgeschlossen
  19468. '++LotusScript Development Environment:2:5:(Options):0:66
  19469. '++LotusScript Development Environment:2:5:(Forward):0:1
  19470. Declare Sub Click(Source As Button)
  19471. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19472. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19473. Private Sub BindEvents(Byval Objectname_ As String)
  19474.     Static Source As BUTTON
  19475.     Set Source = Bind(Objectname_)
  19476.     On Event Click From Source Call Click
  19477. End Sub
  19478. '++LotusScript Development Environment:2:2:Click:1:12
  19479. Sub Click(Source As Button)
  19480.     uitaskdoc.uiobject.SendComments = True
  19481.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  19482. End Sub
  19483. tmpNoActionBar
  19484. tmpOwnerHW
  19485. NoticeType
  19486. Broadcast
  19487.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19488. In Aufgabenliste aufnehmenh
  19489. tmpAction
  19490.  2097154
  19491.     1S2S
  19492. Broadcast
  19493. tmpNoActionBar
  19494. tmpOwnerHW
  19495. NOTICETYPE
  19496.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19497. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  19498. '++LotusScript Development Environment:2:5:(Forward):0:1
  19499. Declare Sub Click(Source As Button)
  19500. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19501. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19502. Private Sub BindEvents(Byval Objectname_ As String)
  19503. Static Source As BUTTON
  19504. Set Source = Bind(Objectname_)
  19505. On Event Click From Source Call Click
  19506. End Sub
  19507. '++LotusScript Development Environment:2:2:Click:1:12
  19508. Sub Click(Source As Button)
  19509.     Dim uievent As UIEventObject
  19510.     Set uievent = uitaskdoc.UIObject
  19511.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 1) Then
  19512.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  19513.         If (uievent.SendComments) Then Call uievent.EditNotice
  19514.     End If
  19515. End Sub
  19516. tmpOwnerHW
  19517. tasktype
  19518. NoticeType
  19519. OrgRepeat
  19520.     1S2S3S4S5S6S11S12S17S18S
  19521. Gegenvorschlag annehmen('++LotusScript Development Environment:2:5:(Options):0:66
  19522. '++LotusScript Development Environment:2:5:(Forward):0:1
  19523. Declare Sub Click(Source As Button)
  19524. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19525. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19526. Private Sub BindEvents(Byval Objectname_ As String)
  19527.     Static Source As BUTTON
  19528.     Set Source = Bind(Objectname_)
  19529.     On Event Click From Source Call Click
  19530. End Sub
  19531. '++LotusScript Development Environment:2:2:Click:1:12
  19532. Sub Click(Source As Button)
  19533.     Call uitaskdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1) 
  19534. End Sub
  19535. tmpOwnerHW
  19536. NoticeType
  19537.     1S2S3S4S2E5S6S
  19538. Gegenvorschlag ablehnenL'++LotusScript Development Environment:2:5:(Options):0:66
  19539. '++LotusScript Development Environment:2:5:(Forward):0:1
  19540. Declare Sub Click(Source As Button)
  19541. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19542. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19543. Private Sub BindEvents(Byval Objectname_ As String)
  19544.     Static Source As BUTTON
  19545.     Set Source = Bind(Objectname_)
  19546.     On Event Click From Source Call Click
  19547. End Sub
  19548. '++LotusScript Development Environment:2:2:Click:1:12
  19549. Sub Click(Source As Button)
  19550.     Call uitaskdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1) 
  19551. End Sub
  19552. tmpOwnerHW
  19553. NoticeType
  19554.     1S2S3S4S2E5S6S
  19555. Aktualisierte Informationen senden...S'++LotusScript Development Environment:2:5:(Options):0:66
  19556. '++LotusScript Development Environment:2:5:(Forward):0:1
  19557. Declare Sub Click(Source As Button)
  19558. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19559. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19560. Private Sub BindEvents(Byval Objectname_ As String)
  19561.     Static Source As BUTTON
  19562.     Set Source = Bind(Objectname_)
  19563.     On Event Click From Source Call Click
  19564. End Sub
  19565. '++LotusScript Development Environment:2:2:Click:1:12
  19566. Sub Click(Source As Button)
  19567.     Dim uievent As UIEventObject
  19568.     Set uievent = uitaskdoc.UIObject
  19569.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  19570.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  19571.         If (uievent.SendComments) Then Call uievent.EditNotice
  19572.     End If
  19573. End Sub
  19574. NoticeType
  19575. $CSFlags
  19576.     1S2S3S4S9S
  19577. Informationen aktualisieren...'++LotusScript Development Environment:2:5:(Options):0:66
  19578. '++LotusScript Development Environment:2:5:(Forward):0:1
  19579. Declare Sub Click(Source As Button)
  19580. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19581. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19582. Private Sub BindEvents(Byval Objectname_ As String)
  19583.     Static Source As BUTTON
  19584.     Set Source = Bind(Objectname_)
  19585.     On Event Click From Source Call Click
  19586. End Sub
  19587. '++LotusScript Development Environment:2:2:Click:1:12
  19588. Sub Click(Source As Button)
  19589.     Dim uievent As UIEventObject
  19590.     Set uievent = uitaskdoc.UIObject
  19591.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  19592.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  19593.         If (uievent.SendComments) Then Call uievent.EditNotice
  19594.     End If
  19595. End Sub
  19596. NoticeType
  19597. $CSFlags
  19598.     1S2S3S4S9S
  19599. _Kategorisieren
  19600. Dokument _bearbeiten
  19601. Dokument _senden
  19602. _Weiterleiten
  19603. In Ordner _verschieben...t
  19604. Aus Ordner _entfernene
  19605. Antwort\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  19606. '++LotusScript Development Environment:2:5:(Forward):0:1
  19607. Declare Sub Click(Source As Button)
  19608. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19609. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19610. Private Sub BindEvents(Byval Objectname_ As String)
  19611. Static Source As BUTTON
  19612. Set Source = Bind(Objectname_)
  19613. On Event Click From Source Call Click
  19614. End Sub
  19615. '++LotusScript Development Environment:2:2:Click:1:12
  19616. Sub Click(Source As Button)
  19617.     Dim uidoc As NotesUIDocument
  19618.     Dim uiobject As Variant
  19619.     Dim nResult As Integer
  19620.     Set uiobject = uitaskdoc.UIObject
  19621.     Set uidoc = uitaskdoc.UIDocument     
  19622.     If (uiobject.OkToAccept(False)) Then
  19623.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  19624.         Call uidoc.save
  19625.         Call uidoc.close
  19626.     End If    
  19627. End Sub
  19628. tmpNoActionBar
  19629. tmpOwnerHW
  19630. NoticeType
  19631. Broadcast
  19632.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19633. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  19634. '++LotusScript Development Environment:2:5:(Forward):0:1
  19635. Declare Sub Click(Source As Button)
  19636. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19637. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19638. Private Sub BindEvents(Byval Objectname_ As String)
  19639.     Static Source As BUTTON
  19640.     Set Source = Bind(Objectname_)
  19641.     On Event Click From Source Call Click
  19642. End Sub
  19643. '++LotusScript Development Environment:2:2:Click:1:12
  19644. Sub Click(Source As Button)
  19645.     uitaskdoc.uiobject.SendComments = False    
  19646.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  19647. End Sub
  19648. tmpNoActionBar
  19649. tmpOwnerHW
  19650. NoticeType
  19651. Broadcast
  19652.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19653. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  19654. '++LotusScript Development Environment:2:5:(Forward):0:1
  19655. Declare Sub Click(Source As Button)
  19656. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19657. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19658. Private Sub BindEvents(Byval Objectname_ As String)
  19659.     Static Source As BUTTON
  19660.     Set Source = Bind(Objectname_)
  19661.     On Event Click From Source Call Click
  19662. End Sub
  19663. '++LotusScript Development Environment:2:2:Click:1:12
  19664. Sub Click(Source As Button)
  19665.     uitaskdoc.uiobject.SendComments = False    
  19666.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  19667. End Sub
  19668. tmpNoActionBar
  19669. tmpOwnerHW
  19670. Broadcast
  19671. PreventDelegate
  19672.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  19673. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  19674. '++LotusScript Development Environment:2:5:(Forward):0:1
  19675. Declare Sub Click(Source As Button)
  19676. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19677. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19678. Private Sub BindEvents(Byval Objectname_ As String)
  19679.     Static Source As BUTTON
  19680.     Set Source = Bind(Objectname_)
  19681.     On Event Click From Source Call Click
  19682. End Sub
  19683. '++LotusScript Development Environment:2:2:Click:1:12
  19684. Sub Click(Source As Button)
  19685.     uitaskdoc.uiobject.SendComments = False    
  19686.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  19687. End Sub
  19688. tmpNoActionBar
  19689. tmpOwnerHW
  19690. Broadcast
  19691. PreventCounter
  19692. OrgRepeat
  19693.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  19694. Antwort\Abgeschlossen
  19695. '++LotusScript Development Environment:2:5:(Options):0:66
  19696. '++LotusScript Development Environment:2:5:(Forward):0:1
  19697. Declare Sub Click(Source As Button)
  19698. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19699. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19700. Private Sub BindEvents(Byval Objectname_ As String)
  19701.     Static Source As BUTTON
  19702.     Set Source = Bind(Objectname_)
  19703.     On Event Click From Source Call Click
  19704. End Sub
  19705. '++LotusScript Development Environment:2:2:Click:1:12
  19706. Sub Click(Source As Button)
  19707.     uitaskdoc.uiobject.SendComments = False    
  19708.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  19709. End Sub
  19710. tmpNoActionBar
  19711. tmpOwnerHW
  19712. NoticeType
  19713. Broadcast
  19714.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19715. Antwort mit Kommentar\Annehmen'++LotusScript Development Environment:2:5:(Options):0:66
  19716. '++LotusScript Development Environment:2:5:(Forward):0:1
  19717. Declare Sub Click(Source As Button)
  19718. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19719. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19720. Private Sub BindEvents(Byval Objectname_ As String)
  19721. Static Source As BUTTON
  19722. Set Source = Bind(Objectname_)
  19723. On Event Click From Source Call Click
  19724. End Sub
  19725. '++LotusScript Development Environment:2:2:Click:1:12
  19726. Sub Click(Source As Button)
  19727.     Dim uidoc As NotesUIDocument
  19728.     Dim uiobject As Variant
  19729.     Dim nResult As Integer
  19730.     Set uiobject = uitaskdoc.UIObject
  19731.     Set uidoc = uitaskdoc.UIDocument     
  19732.     If (uiobject.OkToAccept(True)) Then
  19733.         If Not(uidoc.editmode) Then uidoc.editmode = True        
  19734.         Call uidoc.save
  19735.         Call uidoc.close
  19736.     End If    
  19737. End Sub
  19738. tmpNoActionBar
  19739. tmpOwnerHW
  19740. NoticeType
  19741. Broadcast
  19742.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  19743. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  19744. '++LotusScript Development Environment:2:5:(Forward):0:1
  19745. Declare Sub Click(Source As Button)
  19746. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19747. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19748. Private Sub BindEvents(Byval Objectname_ As String)
  19749.     Static Source As BUTTON
  19750.     Set Source = Bind(Objectname_)
  19751.     On Event Click From Source Call Click
  19752. End Sub
  19753. '++LotusScript Development Environment:2:2:Click:1:12
  19754. Sub Click(Source As Button)
  19755.     uitaskdoc.uiobject.SendComments = True
  19756.     Call uitaskdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)",0) 
  19757. End Sub
  19758. tmpNoActionBar
  19759. tmpOwnerHW
  19760. NoticeType
  19761. Broadcast
  19762.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  19763. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  19764. '++LotusScript Development Environment:2:5:(Forward):0:1
  19765. Declare Sub Click(Source As Button)
  19766. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19767. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19768. Private Sub BindEvents(Byval Objectname_ As String)
  19769.     Static Source As BUTTON
  19770.     Set Source = Bind(Objectname_)
  19771.     On Event Click From Source Call Click
  19772. End Sub
  19773. '++LotusScript Development Environment:2:2:Click:1:12
  19774. Sub Click(Source As Button)
  19775.     uitaskdoc.uiobject.SendComments = True
  19776.     Call uitaskdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)",0) 
  19777. End Sub
  19778. tmpNoActionBar
  19779. tmpOwnerHW
  19780. Broadcast
  19781. PreventDelegate
  19782.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19783. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  19784. '++LotusScript Development Environment:2:5:(Forward):0:1
  19785. Declare Sub Click(Source As Button)
  19786. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19787. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19788. Private Sub BindEvents(Byval Objectname_ As String)
  19789.     Static Source As BUTTON
  19790.     Set Source = Bind(Objectname_)
  19791.     On Event Click From Source Call Click
  19792. End Sub
  19793. '++LotusScript Development Environment:2:2:Click:1:12
  19794. Sub Click(Source As Button)
  19795.     uitaskdoc.uiobject.SendComments = True
  19796.     Call uitaskdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)",0) 
  19797. End Sub
  19798. tmpNoActionBar
  19799. tmpOwnerHW
  19800. Broadcast
  19801. PreventCounter
  19802. OrgRepeat
  19803.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S21S22S
  19804. Antwort mit Kommentar\Abgeschlossen
  19805. '++LotusScript Development Environment:2:5:(Options):0:66
  19806. '++LotusScript Development Environment:2:5:(Forward):0:1
  19807. Declare Sub Click(Source As Button)
  19808. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19809. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19810. Private Sub BindEvents(Byval Objectname_ As String)
  19811.     Static Source As BUTTON
  19812.     Set Source = Bind(Objectname_)
  19813.     On Event Click From Source Call Click
  19814. End Sub
  19815. '++LotusScript Development Environment:2:2:Click:1:12
  19816. Sub Click(Source As Button)
  19817.     uitaskdoc.uiobject.SendComments = True
  19818.     Call uitaskdoc.PerformActionAndClose(Null, 0, ACTION_COMPLETED, "(InviteeReplyDlg)",0) 
  19819. End Sub
  19820. tmpNoActionBar
  19821. tmpOwnerHW
  19822. NoticeType
  19823. Broadcast
  19824.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19825. In Aufgabenliste aufnehmenh
  19826. tmpAction
  19827.  2097154
  19828.     1S2S
  19829. Broadcast
  19830. tmpNoActionBar
  19831. tmpOwnerHW
  19832. NOTICETYPE
  19833.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  19834. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  19835. '++LotusScript Development Environment:2:5:(Forward):0:1
  19836. Declare Sub Click(Source As Button)
  19837. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19838. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19839. Private Sub BindEvents(Byval Objectname_ As String)
  19840. Static Source As BUTTON
  19841. Set Source = Bind(Objectname_)
  19842. On Event Click From Source Call Click
  19843. End Sub
  19844. '++LotusScript Development Environment:2:2:Click:1:12
  19845. Sub Click(Source As Button)
  19846.     Dim uievent As UIEventObject
  19847.     Set uievent = uitaskdoc.UIObject
  19848.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 1) Then
  19849.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  19850.         If (uievent.SendComments) Then Call uievent.EditNotice
  19851.     End If
  19852. End Sub
  19853. tmpOwnerHW
  19854. tasktype
  19855. NoticeType
  19856. OrgRepeat
  19857.     1S2S3S4S5S6S11S12S17S18S
  19858. Gegenvorschlag annehment'++LotusScript Development Environment:2:5:(Options):0:66
  19859. '++LotusScript Development Environment:2:5:(Forward):0:1
  19860. Declare Sub Click(Source As Button)
  19861. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19862. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19863. Private Sub BindEvents(Byval Objectname_ As String)
  19864.     Static Source As BUTTON
  19865.     Set Source = Bind(Objectname_)
  19866.     On Event Click From Source Call Click
  19867. End Sub
  19868. '++LotusScript Development Environment:2:2:Click:1:12
  19869. Sub Click(Source As Button)
  19870.     Call uitaskdoc.PerformActionAndClose(Null, CTRACPT_TITLE, ACTION_COUNTER_ACCEPT, "(OwnerDlg)",1) 
  19871. End Sub
  19872. tmpOwnerHW
  19873. NoticeType
  19874.     1S2S3S4S2E5S6S
  19875. Gegenvorschlag ablehnenO'++LotusScript Development Environment:2:5:(Options):0:66
  19876. '++LotusScript Development Environment:2:5:(Forward):0:1
  19877. Declare Sub Click(Source As Button)
  19878. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19879. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19880. Private Sub BindEvents(Byval Objectname_ As String)
  19881.     Static Source As BUTTON
  19882.     Set Source = Bind(Objectname_)
  19883.     On Event Click From Source Call Click
  19884. End Sub
  19885. '++LotusScript Development Environment:2:2:Click:1:12
  19886. Sub Click(Source As Button)
  19887.     Call uitaskdoc.PerformActionAndClose(Null, CTRDECL_TITLE, ACTION_COUNTER_REJECT, "(OwnerDlg)",1) 
  19888. End Sub
  19889. tmpOwnerHW
  19890. NoticeType
  19891.     1S2S3S4S2E5S6S
  19892. Aktualisierte Informationen senden...
  19893. '++LotusScript Development Environment:2:5:(Options):0:66
  19894. '++LotusScript Development Environment:2:5:(Forward):0:1
  19895. Declare Sub Click(Source As Button)
  19896. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19897. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19898. Private Sub BindEvents(Byval Objectname_ As String)
  19899.     Static Source As BUTTON
  19900.     Set Source = Bind(Objectname_)
  19901.     On Event Click From Source Call Click
  19902. End Sub
  19903. '++LotusScript Development Environment:2:2:Click:1:12
  19904. Sub Click(Source As Button)
  19905.     Dim uievent As UIEventObject
  19906.     Set uievent = uitaskdoc.UIObject
  19907.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  19908.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(117))
  19909.         If (uievent.SendComments) Then Call uievent.EditNotice
  19910.     End If
  19911. End Sub
  19912. NoticeType
  19913. $CSFlags
  19914.     1S2S3S4S9S
  19915. Informationen aktualisieren...'++LotusScript Development Environment:2:5:(Options):0:66
  19916. '++LotusScript Development Environment:2:5:(Forward):0:1
  19917. Declare Sub Click(Source As Button)
  19918. '++LotusScript Development Environment:2:5:(Declarations):0:2
  19919. '++LotusScript Development Environment:2:2:BindEvents:1:129
  19920. Private Sub BindEvents(Byval Objectname_ As String)
  19921.     Static Source As BUTTON
  19922.     Set Source = Bind(Objectname_)
  19923.     On Event Click From Source Call Click
  19924. End Sub
  19925. '++LotusScript Development Environment:2:2:Click:1:12
  19926. Sub Click(Source As Button)
  19927.     Dim uievent As UIEventObject
  19928.     Set uievent = uitaskdoc.UIObject
  19929.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(OwnerDlg)",1) Then
  19930.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, Cint(114))
  19931.         If (uievent.SendComments) Then Call uievent.EditNotice
  19932.     End If
  19933. End Sub
  19934. NoticeType
  19935. $CSFlags
  19936.     1S2S3S4S9S
  19937. Lotus Product
  19938. Lotus Product
  19939. Lotus Product
  19940. Lotus Product
  19941. Lotus Product
  19942. Lotus Product
  19943. Lotus Product
  19944. Lotus Product
  19945. Lotus Product
  19946. Lotus Product
  19947. Lotus Product
  19948. Lotus Product
  19949. Lotus Product
  19950. Lotus Product
  19951. Lotus Product
  19952. O=Lotus Notes
  19953. O=Lotus Notes
  19954. PURSAFO
  19955. |.:#U
  19956. O=Lotus Notes
  19957. CN=Lotus Notes Template Development/O=Lotus Notes
  19958. PURSAFO
  19959. ASSIGNSTATE
  19960. STARTDATETIME
  19961. DueDateTime
  19962. $HTMLDocumentStyles
  19963. StartDate
  19964. DueDate
  19965. $SCRIPTOBJ_22
  19966. $SCRIPTOBJ_23
  19967. $SCRIPTOBJ_24
  19968. $SCRIPTOBJ_25
  19969. $SCRIPTOBJ_26
  19970. $SCRIPTOBJ_28
  19971. $Language
  19972. $LastBuildTime
  19973. $BabelInfo
  19974. $Info
  19975. $AppHelpFormula
  19976. $WebFlags
  19977. $Script
  19978. $$Script_O
  19979. $$ScriptName
  19980. $$FormScript
  19981. $$$FormScript_O
  19982. $Body
  19983. $V5ACTIONS
  19984. $ACTIONS
  19985. $SCRIPTOBJ_6
  19986. $SCRIPTOBJ_7
  19987. $SCRIPTOBJ_8
  19988. $SCRIPTOBJ_9
  19989. $SCRIPTOBJ_10
  19990. $SCRIPTOBJ_11
  19991. $SCRIPTOBJ_12
  19992. $SCRIPTOBJ_13
  19993. $SCRIPTOBJ_14
  19994. $SCRIPTOBJ_15
  19995. $SCRIPTOBJ_17
  19996. $SCRIPTOBJ_18
  19997. $SCRIPTOBJ_19
  19998. $SCRIPTOBJ_20
  19999. $SCRIPTOBJ_21
  20000. $PublicAccess
  20001. de-DE
  20002. 000001D6
  20003. (Tracking Request)Tracking RequestTracking Response
  20004. DispStatResponses
  20005. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes######
  20006. de-DE
  20007. 000001DE
  20008. (wDelivery Options)DeliveryOptionsCD
  20009. tmpDeliveryPrioritytmpDeliveryReporttmpReturnReceipttmpImportance
  20010. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###
  20011. de-DE
  20012. 000003E6($Inbox)1($Inbox)1
  20013. $70$106
  20014. $93$70
  20015. $106Neu eingegangene Mail-Nachrichten.FYPB
  20016. CN=Jens Beutler/OU=MUC1/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20017. ###################
  20018. tmpTitleFormtmpSubformQuery_String
  20019. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20020. (wDlgBox)(wDlgBox)de-DEs
  20021. 000001E2##############################
  20022. CN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20023. (web ret Authenticate)$$ReturnAuthenticationFailurede-DE
  20024. 000001E6##########################################
  20025. CN=Teresa Deane/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20026. (web ret Authorize)$$ReturnAuthorizationFailurede-DE
  20027. 000001EA##############################################
  20028. MessageString1
  20029. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20030. (web ret Error)$$ReturnGeneralErrorde-DEq
  20031. 000001EE###################################################
  20032. CurrentFoldersFolderNamefolderlistSaveOptions
  20033. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20034. (wFolderCreate)FolderCreatede-DE
  20035. 000001F2##
  20036. CurrentFoldersfolderlistSaveOptionsCD
  20037. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20038. (wFolderRemove)FolderRemovede-DE
  20039. 000001F6######################
  20040. de-DEH
  20041. 00000302
  20042. (wResources)wResourcesCDF
  20043. AddressBooksResourcesEntryListNABs
  20044. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#####################
  20045. de-DE
  20046. 000002EE
  20047. (wForward)wForward
  20048. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodsF
  20049. BodySubjectEnterBlindCopyToEnterCopyToEnterSendToWebSubjectBlindCopyToCopyToSendToQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
  20050. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####
  20051. tmpResourcestmpRoomstmpSendTotmpCopyToCopyToSendTotmpChairDurationFormatHelper2TimeFormatHelper2DateFormatHelper2tmpDurationReftmpEndTimeReftmpEndDateReftmpStartTimeReftmpStartDateReftmpGridFormattmpEndTimetmpEndDatetmpStartTimetmpStartDate
  20052. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20053. (wFreeTime)wFreeTimede-DE
  20054. 000002F2######
  20055. BodySubjectCopyToSendToIntendedRecipientQuery_StringPath_InfoDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromForm
  20056. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20057. (wNonDelivery Report)NonDelivery Reportde-DE
  20058. 000002F6###############################
  20059.     de-DEd
  20060. 000002FE
  20061. (wRepeatForm)wRepeatFormCDF
  20062. RepeatForUnitRepeatForRepeatUntilRepeatHowRepeatStartDateRepeatWeekendsRepeatCustomRepeatFromEndRepeatAdjustRepeatIntervalRepeatUnittmpRepeatUnittmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP
  20063. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  20064. de-DE
  20065. 000002FA
  20066. (wPreferences)wPreferencesCDF,
  20067. $CSVersion$PublicAccess$AvailableDays$NoPurge$BusyNameWriteCalendarPublicWriteReadCalendarPublicReadOtherUsersDeleteMailEditMailWriteMailReadMailPreventSentPreventAllAutoAnniversaryRepeatDefaultDurationPreventRepliesFromInboxAutoRemoveFromInboxAutoProcessForwardToAutoprocessUserListAutoProcessTypeAllowBusyAccess$Times7Saturday$Times6Friday$Times5Thursday$Times4Wednesday$Times3Tuesday$Times2Monday$Times1SundayOffSetCharFormatRepliesOwner$PreferencesPagePROTECTFROMARCHIVESaveOptions
  20068. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##############################################
  20069. de-DE
  20070. 00000306
  20071. (wRooms)wRoomsCDF
  20072. AddressBooksRoomsEntryListNABs
  20073. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#################################
  20074. de-DE
  20075. 0000030A
  20076. (wRulesDlg)MailruleCDnF 
  20077. OrderNumActionListActionListDisplayNewImportanceCurrentFoldersActionExceptionListExceptionListDisplayConditionListConditionListDisplayDomainListImportanceStringLogicConditionOperatorEnableHTTP_RefererQuery_StringPath_InfoFormtokActionListtokExceptionListfolderlisttokConditionList$FilterFormulaActionValuesImportanceValuesLogic2ValuesLogic1ValuesConditionValuesOperatorValues
  20078. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##########
  20079. $HLMonitorType$HLSubscription$HLFormula$HLDisabledCritFromNamesCritFromCritMeetResponseCritMeetInviteCritToDoCompleteCritToDoCritReturnReceiptCritHighPriorityCritSentDirectlyToMeCritSentOnlyToMe$QueryType$HLTitle$HLType$NoPurge$HLMLastChecked$HLMLastServer
  20080. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20081. ($Subscription)$Subscriptionde-DE
  20082. 0000030E########################################
  20083. de-DE7
  20084. 00000312
  20085. _Spezial\Verkn
  20086. pfungsnachrichtBookmark
  20087. BodyDueDateTimeFlowStatusInheritedSubjectInheritedDBTitleSubjectBlindCopyToCopyToSendToPath_Info$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
  20088. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#####################################################
  20089. de-DE
  20090. 00000316
  20091. _KalendereintragAppointmentF
  20092. BodyCategoriesAlarmsOrgConfidentialBookFreeTimeResourcesRoomToReserveBlindCopyToCopyToSendToRepeatsEndTimeEndDateAppointmentTypeStartTimeStartDateLocationSubjectLogo$ExpandGroupstmpNoActionBartmpOwnerHWForm1
  20093. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#######################################################
  20094. D3F729BC2029D7188AE991E3D4201966CN=Michael Clark/O=Irisw
  20095. SubjectBodyPhoneReasonFAXNumberPhoneNumberCompanyNamePhoneCallerBlindCopyToCopyToSendTo$KeepPrivateDefaultMailSaveOptionsEncryptSignFromForm
  20096. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  20097. _Spezial\TelefonnachrichtPhone Messagede-DE
  20098. 0000031E################################################
  20099. de-DE*TP
  20100. 00000322$FORWARDSEPCU3x
  20101. ForwardedDateForwardedFrom
  20102. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###########################################
  20103. de-DE/VP
  20104. 00000336
  20105. (C&S DeliveryOptions)CSDeliveryOptionsCUA3x
  20106. EncryptSignPreventDelegatePreventCounterBroadcastReturnReceiptDeliveryPriorityDeliveryReport1
  20107. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes########################################################
  20108. ##########################################################
  20109. ##########################################################
  20110. ##########################################################
  20111. ***Mail-Verfolgungsanforderung***
  20112. '++LotusScript Development Environment:2:5:(Options):0:74
  20113. Option Public
  20114. Option Declare
  20115. Use "Common"
  20116. '++LotusScript Development Environment:2:5:(Forward):0:1
  20117. Declare Class ResponseStringTable
  20118. Declare Class TrackingObject As BaseApplication
  20119. Declare Sub Postopen(Source As Notesuidocument)
  20120. '++LotusScript Development Environment:2:5:(Declarations):0:10
  20121. Const MAIL_TRACKING_REQUEST_FORM$        = "Mail-Verfolgungsanforderung"
  20122. Const MAIL_TRACKING_RESPONSE_FORM$    = "Tracking Response"
  20123. Const MAIL_TRACEREPORT_FORM$                = "Verlaufsprotokoll"
  20124. Const MAIL_DELIVERYREPORT_FORM$            = "Zustellungsbericht"
  20125. Const MAIL_RETURNRECEIPT_FORM$            = "Empfangsbest
  20126. tigung"
  20127. Dim cTrackingObject As TrackingObject
  20128. Class ResponseStringTable
  20129.     Function GetString(nIndex As Integer, vData As Variant) As String
  20130.         Select Case nIndex
  20131.         Case 1
  20132.             GetString = "Unbekannt "
  20133.         Case 2
  20134.             GetString = "In Warteschlange "
  20135.         Case 4
  20136.             GetString = "Zugestellt "
  20137.         Case 8
  20138.             GetString = "Zustellung fehlgeschlagen "
  20139.         Case 16
  20140.             GetString = "
  20141. bertragen "
  20142.         Case 32 
  20143.             GetString = "
  20144. bertragung fehlgeschlagen "
  20145.         Case  64
  20146.             GetString = "Gruppe erweitert "
  20147.         Case 65
  20148.             GetString = "Nachricht an: "
  20149.         Case 66
  20150.             GetString = "Anzeigestatus: "            
  20151.         Case 67
  20152.             GetString = "um: "            
  20153.         Case 68
  20154.             GetString = "Status unbekannt "            
  20155.         Case 69
  20156.             GetString = "am "                        
  20157.         Case 70
  20158.             GetString = "Es sind keine Antworten auf Mail-Verfolgungsanforderungen eingegangen. "                        
  20159.         Case 71
  20160.             GetString = "Andere Zustellungsberichte. (Keine Informationen zur Mail-Verfolgung vorhanden) "                        
  20161.         Case 72
  20162.             GetString = "Ungelesen "                        
  20163.         Case 73
  20164.             GetString = "Gelesen "                        
  20165.         Case 74
  20166.             GetString = "Gel
  20167. scht "                        
  20168.         Case 75
  20169.             GetString = "Status undefiniert "
  20170.         Case 76
  20171.             GetString = "Originalkopie der Mail-Verfolgungsanforderung nicht gefunden." & Chr(10) &_
  20172.             "Stellen Sie sicher, da
  20173.  die Datenbank mit der Datenbank, auf der die Mail-Verfolgungsanforderung erstellt worden ist, repliziert wurde."  & Chr(10) &_
  20174.             "Wenn das Dokument gel
  20175. scht wurde, m
  20176. ssen Sie die Nachricht erneut verfolgen. "            
  20177.         End Select
  20178.     End Function        
  20179. End Class
  20180. Class TrackingObject As BaseApplication
  20181.     Private m_noteParent As notesdocument    
  20182.     Private m_noteTrace As notesdocument    
  20183.     Private m_uiws As notesuiworkspace
  20184.     Private m_collectionTraces As notesdocumentcollection    
  20185.     Private m_uinote As notesuidocument
  20186.     Private m_uiEditorNote As notesuidocument    
  20187.     Private m_name As notesname
  20188.     Private m_ResponseTable As NotesCSParticipantTable    
  20189.     Private m_ResponseTableEntry As NotesCSParticipantInstance
  20190.     Private m_strNOTES_FORM As String    
  20191.     Private m_nOtherReportsHeader As Integer
  20192.     Sub new(Source As notesuidocument)
  20193.         Set Me.m_StringTable = New ResponseStringTable        
  20194.         Set Me.m_session = New notessession        
  20195.         Set Me.m_uiws = New notesuiworkspace        
  20196.         Set Me.m_uinote = Source
  20197.         m_strNOTES_FORM = Me.m_uinote.document.GetItemValue("Form")(0)
  20198.     End Sub
  20199.     Sub Init()
  20200.         'if open IN edit mode or prepped by this class then bypass all this stuff!        
  20201.         If Not Me.m_uinote.EditMode Then
  20202.             If Not Me.m_uinote.document.HasItem("SummaryGenerated") Then
  20203.                 If HasTrackingParent Then
  20204.             'This note is a response to a tracking request and we want to open the parent document to the ui
  20205.                     Call OpenInEditor(Me.m_noteParent)                
  20206.                 Else
  20207.                     Call ConstructUIDocument()
  20208.                     Call OpenInEditor(Me.m_uinote.document)
  20209.                 End If
  20210.             End If
  20211.         End If
  20212.     End Sub
  20213.     Function HasTrackingParent As Integer
  20214.         On Error Goto Trap        
  20215.         HasTrackingParent = False        
  20216.         Set Me.m_noteParent = Me.m_uinote.document.Parentdatabase.Getdocumentbyunid(_
  20217.         Cstr(Me.m_uinote.document.Parentdocumentunid))        
  20218.         If Not Me.m_noteParent Is Nothing Then
  20219.             If Me.m_noteParent.GetItemValue("Form")(0) = MAIL_TRACKING_REQUEST_FORM Then
  20220.                 HasTrackingParent = True                
  20221.             End If
  20222.         End If
  20223.         Exit Function         
  20224. Trap:
  20225.         If Err = 4091 Then
  20226.             Resume Next
  20227.         Else
  20228.             Print("Notes Fehler: " & Cstr(Err) & " " &  Error$)
  20229.             Resume Next
  20230.         End If         
  20231.     End Function
  20232.     Function ConstructUIDocument
  20233.         If IsTrackingParent Then
  20234.             If ParentHasChildren Then
  20235.             'this is the original tracking request create a rtItem for display
  20236.                 Call ParseCollectionToSummary
  20237.             Else
  20238.                 'no responses have returned yet, post in ui
  20239.                 Call NoItemsToSummary(70)
  20240.             End If
  20241.         Else
  20242.             'none of the above, parent is probably deleted or has not replicated yet
  20243.             Call NoItemsToSummary(76)
  20244.         End If
  20245.     End Function
  20246.     Function NoItemsToSummary(nStringID As Integer)
  20247.         Dim rtItem As notesrichtextitem        
  20248.         Dim rtStyle As notesrichtextstyle        
  20249.         If Me.m_uinote.document.HasItem("DispStat") Then
  20250.             'we want to work with a new item so nuke it if it's there!            
  20251.             Call Me.m_uinote.document.RemoveItem("DispStat")
  20252.         End If
  20253.         Call Me.m_uinote.document.ReplaceItemValue("SummaryGenerated","1")
  20254.         Set rtitem = New notesrichtextitem(Me.m_uinote.document, "DispStat")            
  20255.         Set rtstyle = Me.m_session.CreateRichTextStyle
  20256.         Call InitRTStyle(rtstyle,False)
  20257.         Call rtitem.AppendStyle(rtstyle)
  20258.         Call rtItem.AppendText(Me.m_StringTable.GetString(nStringID,Null))
  20259.     End Function
  20260.     Function IsTrackingParent As Integer
  20261.         IsTrackingParent = False        
  20262.         If m_strNOTES_FORM = MAIL_TRACKING_REQUEST_FORM Then
  20263.             IsTrackingParent = True
  20264.         End If
  20265.     End Function
  20266.     Function ParentHasChildren As Integer
  20267.         ParentHasChildren = False
  20268.         Set Me.m_collectionTraces  = Me.m_uinote.document.responses
  20269.         If (Me.m_collectionTraces.Count) Then
  20270.             ParentHasChildren = True
  20271.             Call Me.m_uinote.document.ReplaceItemValue("Responses",Cstr(Me.m_collectionTraces.Count))
  20272.         Else
  20273.             Call Me.m_uinote.document.ReplaceItemValue("Responses","0")
  20274.         End If
  20275.     End Function
  20276.     Function OpenInEditor(note As notesdocument)
  20277.         Set Me.m_uiEditorNote =  Me.m_uiws.Editdocument(False, note, False)                        
  20278.         If Not Me.m_uinote.InPreviewPane Then            
  20279.             Call Me.m_uinote.Close()
  20280.         End If
  20281.     End Function
  20282.     Function CanonicalToAbbreviated(theString As String) As String
  20283.         If Len(theString)  Then        
  20284.             Set Me.m_name = New notesname(theString)
  20285.             If Me.m_name.Ishierarchical Then
  20286.                 CanonicalToAbbreviated = Me.m_name.Abbreviated
  20287.             Else
  20288.                 CanonicalToAbbreviated = theString
  20289.             End If             
  20290.         End If
  20291.     End Function
  20292.     Function StatusToString(nStatus As Integer) As String
  20293.         Select Case nStatus
  20294.         Case 0            
  20295.             StatusToString = Me.m_StringTable.GetString(68,Null) 
  20296.         Case 1            
  20297.             StatusToString = Me.m_StringTable.GetString(72,Null) 
  20298.         Case 2            
  20299.             StatusToString = Me.m_StringTable.GetString(73,Null) 
  20300.         Case 3            
  20301.             StatusToString = Me.m_StringTable.GetString(74,Null) 
  20302.         Case Else            
  20303.             StatusToString = Me.m_StringTable.GetString(75,Null) 
  20304.         End Select
  20305.     End Function
  20306.     Private Function CreateParticipantTable() As Integer
  20307.         Set Me.m_ResponseTable = New NotesCSParticipantTable(2)
  20308.         Set Me.m_noteTrace = Me.m_collectionTraces.GetFirstDocument()        
  20309.         Do While Not Me.m_noteTrace Is Nothing
  20310.             If Isnumeric(Me.m_noteTrace.GetItemValue("$MTSEQNUM")(0)) Then
  20311.                 Call Me.m_ResponseTable.AddInstance(Me.m_noteTrace.noteid, 0, Cint(Me.m_noteTrace.GetItemValue("$MTSEQNUM")(0)))
  20312.             Else
  20313.                 Call Me.m_ResponseTable.AddInstance(Me.m_noteTrace.noteid, 0, -1)                
  20314.             End If                
  20315.             Set Me.m_noteTrace = Me.m_collectionTraces.GetNextDocument(Me.m_noteTrace)
  20316.         Loop
  20317.     End Function
  20318.     Sub InitRTStyle(rtstyle As NotesRichTextStyle, STRONG As Integer)
  20319.         rtstyle.Bold = STRONG
  20320.         rtstyle.FontSize = 9
  20321.         rtstyle.NotesColor = COLOR_BLACK
  20322.         rtstyle.NotesFont = Font_Courier
  20323.         rtstyle.Italic = False
  20324.     End Sub    
  20325.     Function ParseCollectionToSummary                
  20326.         Dim rtItem As notesrichtextitem        
  20327.         Dim rtStyle As notesrichtextstyle        
  20328.         Dim strMTErrStat, strMTNextMTA As String        
  20329.         Dim y As Integer
  20330.         If Me.m_uinote.document.HasItem("DispStat") Then
  20331.             'we want to work with a new item so nuke it if it's there!            
  20332.             Call Me.m_uinote.document.RemoveItem("DispStat")
  20333.         End If
  20334.         Set rtitem = New notesrichtextitem(Me.m_uinote.document, "DispStat")            
  20335.         Set rtstyle = Me.m_session.CreateRichTextStyle
  20336.         Call Me.m_uinote.document.ReplaceItemValue("SummaryGenerated","1")        
  20337.         Call CreateParticipantTable()
  20338.         Set Me.m_ResponseTableEntry = Me.m_ResponseTable.GetFirstInstance()
  20339.         Do While Not(Me.m_ResponseTableEntry Is Nothing)        
  20340.             Set Me.m_noteTrace = Me.m_session.Currentdatabase.GetDocumentByID(Me.m_ResponseTableEntry.ReplyTo)
  20341.             If Not Me.m_nOtherReportsHeader Then
  20342.                 If Me.m_ResponseTableEntry.Status < 0 Then
  20343.                     Me.m_nOtherReportsHeader = True 
  20344.                     Call InitRTStyle(rtstyle,True)
  20345.                     Call rtitem.AppendStyle(rtstyle)
  20346.                     Call rtItem.Addnewline(1,True)
  20347.                     Call rtItem.AppendText(Me.m_StringTable.GetString(71,Null))
  20348.                     Call InitRTStyle(rtstyle,False)
  20349.                     Call rtitem.AppendStyle(rtstyle)
  20350.                     Call rtItem.Addnewline(1,True)                    
  20351.                 End If
  20352.             End If
  20353.             Select Case Me.m_noteTrace.GetItemValue("Form")(0)
  20354.             Case MAIL_TRACKING_RESPONSE_FORM 'this is the expected document from an r5 server running message tracking
  20355.                 If Me.m_noteTrace.HasItem("$MTErrStat") Then                    
  20356.                     If Len(Me.m_noteTrace.GetItemValue("$MTErrStat")(0)) Then
  20357.                         strMTErrStat = Me.m_noteTrace.getitemvalue("$MTErrStat")(0)
  20358.                     End If
  20359.                 End If
  20360.             'add server data to this paragraph            
  20361.                 Call InitRTStyle(rtstyle,True)
  20362.                 Call rtitem.AppendStyle(rtstyle)
  20363.                 Call rtItem.AppendText(Trim(MAIL_TRACKING_RESPONSE_FORM & " - " &  CanonicalToAbbreviated(Me.m_noteTrace.getitemvalue("MailServer")(0)) &_
  20364.                 " - " & Cstr(Me.m_noteTrace.getitemvalue("DeliveredDate")(0)) & " " & strMTErrStat))
  20365.                 Call InitRTStyle(rtstyle,False)
  20366.                 Call rtitem.AppendStyle(rtstyle)
  20367.                 Call rtItem.Addnewline(1,True)                    
  20368.                 Call rtItem.Addtab(1)
  20369.             'build detail for each user being tracked in this response if no error has occured                        
  20370.                 If  Len(strMTErrStat) = 0 Then                
  20371.                     For y = 0 To Ubound(Me.m_noteTrace.GetItemValue("$MTDISPSTAT"))
  20372.                         strMTNextMTA = Me.m_noteTrace.GetItemValue("$MTNEXTMTA")(y)                
  20373.                         If Cint(Me.m_noteTrace.GetItemValue("$MTMAILBOXSTAT")(y)) Then
  20374.                             Call rtItem.AppendText(Trim(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
  20375.                             & " " & Me.m_StringTable.GetString(66,Null) & StatusToString(Cint(Me.m_noteTrace.GetItemValue("$MTMAILBOXSTAT")(y)))_
  20376.                             & " " & Me.m_StringTable.GetString(67,Null) & Me.m_noteTrace.GetItemValue("$MTDispTM")(y)))
  20377.                         Elseif Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)) = 16 Then                    
  20378.                             Call rtItem.AppendText(Trim(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemVAlue("$MTOUTRCP")(y))_
  20379.                             & " " & Me.m_StringTable.GetString(Cint(Me.m_noteTrace.GetItemVAlue("$MTDISPSTAT")(y)),Null) & strMTNextMTA _
  20380.                             & " " & Me.m_StringTable.GetString(67,Null) & Me.m_noteTrace.GetItemValue("$MTDispTM")(y)))
  20381.                         Elseif Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)) = 1 Then
  20382.                             Call rtItem.AppendText(Trim(Me.m_StringTable.GetString(65,Null)  & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y)) _
  20383.                             & " " & Me.m_StringTable.GetString(68,Null)))
  20384.                         Else
  20385.                             Call rtItem.AppendText(Trim(Me.m_StringTable.GetString(65,Null) & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("$MTOUTRCP")(y))_
  20386.                             & " " & Me.m_StringTable.GetString(66,Null) & Me.m_StringTable.GetString(Cint(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")(y)),Null)_
  20387.                             & Me.m_StringTable.GetString(69,Null) & Me.m_noteTrace.MailServer(0) & " " & Me.m_StringTable.GetString(68,Null) & _
  20388.                             Me.m_noteTrace.GetItemValue("$MTDispTM")(y)))
  20389.                         End If                
  20390.                         Call rtItem.Addnewline(1,True)                                        
  20391.                         If y <> Ubound(Me.m_noteTrace.GetItemValue("$MTDISPSTAT")) Then
  20392.                             Call rtItem.Addtab(1)
  20393.                         End If
  20394.                     Next y
  20395.                 End If
  20396.             Case MAIL_TRACEREPORT_FORM
  20397.                 Call InitRTStyle(rtstyle,False)
  20398.                 Call rtitem.AppendStyle(rtstyle)
  20399.                 Call rtItem.Addtab(1)
  20400.                 Call rtItem.AppendText(MAIL_TRACEREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("MailServer")(0))_
  20401.                 & " - " & Me.m_noteTrace.GetItemValue("RouteTimes")(0)) 
  20402.                 Call InitRTStyle(rtstyle,False)
  20403.                 Call rtitem.AppendStyle(rtstyle)
  20404.                 Call rtItem.Addnewline(1,True)                    
  20405.             Case MAIL_DELIVERYREPORT_FORM
  20406.                 Call InitRTStyle(rtstyle,False)
  20407.                 Call rtitem.AppendStyle(rtstyle)
  20408.                 Call rtItem.Addtab(1)                
  20409.                 Call rtItem.AppendText(MAIL_DELIVERYREPORT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("IntendedRecipient")(0))_
  20410.                 & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0)))
  20411.                 Call InitRTStyle(rtstyle,False)
  20412.                 Call rtitem.AppendStyle(rtstyle)
  20413.                 Call rtItem.Addnewline(1,True)                    
  20414.             Case MAIL_RETURNRECEIPT_FORM
  20415.                 Call InitRTStyle(rtstyle,False)
  20416.                 Call rtitem.AppendStyle(rtstyle)
  20417.                 Call rtItem.Addtab(1)                
  20418.                 Call rtItem.AppendText(MAIL_RETURNRECEIPT_FORM & " - " & CanonicalToAbbreviated(Me.m_noteTrace.GetItemValue("From")(0))_
  20419.                 & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0)))
  20420.                 Call InitRTStyle(rtstyle,False)
  20421.                 Call rtitem.AppendStyle(rtstyle)
  20422.                 Call rtItem.Addnewline(1,True)                    
  20423.             Case Else
  20424.                 Call InitRTStyle(rtstyle,False)
  20425.                 Call rtitem.AppendStyle(rtstyle)
  20426.                 Call rtItem.Addtab(1)                
  20427.                 Call rtItem.AppendText(Me.m_noteTrace.GetItemValue("Form")(0) & " - " & Cstr(Me.m_noteTrace.GetItemValue("DeliveryDate")(0))                ) 
  20428.                 Call InitRTStyle(rtstyle,False)
  20429.                 Call rtitem.AppendStyle(rtstyle)
  20430.                 Call rtItem.Addnewline(1,True)                    
  20431.             End Select
  20432.             Set Me.m_ResponseTableEntry = Me.m_ResponseTable.GetNextInstance()            
  20433.         Loop            
  20434.     End Function
  20435. End Class
  20436. '++LotusScript Development Environment:2:2:Postopen:1:8
  20437. Sub Postopen(Source As Notesuidocument)
  20438.     Set cTrackingObject = New TrackingObject(Source)
  20439.     Call cTrackingObject.Init()
  20440. End Sub
  20441. @    @    x
  20442. Lotus Product
  20443. \0    +l
  20444. K0    -P
  20445. K0    -t
  20446. B~  %
  20447. C~8 %
  20448. A~P %/d
  20449. D~(!%
  20450.  Tracking Response'++LotusScript Development Environment:2:5:(Options):0:66
  20451. '++LotusScript Development Environment:2:5:(Forward):0:1
  20452. Declare Sub Postopen(Source As Notesuidocument)
  20453. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20454. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20455. Private Sub BindEvents(Byval Objectname_ As String)
  20456.     Static Source As NOTESUIDOCUMENT
  20457.     Set Source = Bind(Objectname_)
  20458.     On Event Postopen From Source Call Postopen
  20459. End Sub
  20460. '++LotusScript Development Environment:2:2:Postopen:1:12
  20461. Sub Postopen(Source As Notesuidocument)
  20462.     Set cTrackingObject = New TrackingObject(Source)
  20463.     Call cTrackingObject.Init()
  20464. End Sub
  20465. Lotus Product
  20466. Mail-Verfolgungsanforderung
  20467.         Empf
  20468. nger (Ziel):
  20469. $MTINRCP
  20470.     0S0E
  20471. MTINRCP
  20472. MTINRCP
  20473.         Anforderungsdatum:
  20474. Created
  20475. Created
  20476.         Antworten:
  20477. Responses
  20478. Responses
  20479. Responses
  20480. Informationen zu Antworten auf Mail-Verfolgungsanforderungen:
  20481. DispStat
  20482. DispStat
  20483. _Kategorisieren
  20484. Schlie
  20485.     0S0E
  20486. Dokument _bearbeiten
  20487. Dokument _senden
  20488. _Weiterleiten
  20489. In Ordner _verschieben...n
  20490. Aus Ordner _entfernen...
  20491. Gehe zu\Eingang
  20492.     1S2S
  20493. path"
  20494. /MailFS?OpenFrameset"
  20495.     0R3S4S5S6S
  20496. act_goto.gif|act_goto?
  20497. schen
  20498.     1S10S14S16S23S
  20499.     0R5S
  20500. path"
  20501. /wDelete?OpenAgent&
  20502. UNID"
  20503. &From="
  20504. view"
  20505. tmpWasMailed
  20506.     1S2S
  20507. act_DELETE.GIF|act_DELETE?
  20508. Gehe zu\Vor
  20509.     0S0E
  20510. act_goto.gif|act_goto?
  20511. Gehe zu\Zur
  20512.     0S0E
  20513. act_goto.gif|act_goto?
  20514. _Kategorisieren
  20515. Schlie
  20516.     0S0E
  20517. Dokument _bearbeiten
  20518. Dokument _senden
  20519. _Weiterleiten
  20520. In Ordner _verschieben...
  20521. Aus Ordner _entfernen...
  20522. Gehe zu\Eingang 
  20523.     1S2S
  20524. path"
  20525. /MailFS?OpenFrameset"
  20526.     0R3S4S5S6S
  20527. schen
  20528.     1S10S14S16S23S
  20529.     0R5S
  20530. path"
  20531. /wDelete?OpenAgent&
  20532. UNID"
  20533. &From="
  20534. view"
  20535. tmpWasMailed
  20536.     1S2S
  20537. Gehe zu\Vor
  20538.     0S0E
  20539. Gehe zu\Zur
  20540.     0S0E
  20541. O=Lotus Notes
  20542. O=Lotus Notes
  20543. PURSAFO
  20544. |.:#U
  20545. O=Lotus Notes
  20546. CN=Lotus Notes Template Development/O=Lotus Notes
  20547. PURSAFO
  20548. DeliveryDate
  20549. $Language
  20550. $LastBuildTime
  20551. $BabelInfo
  20552. $Info
  20553. $WINDOWTITLE
  20554. $Script
  20555. $$Script_O
  20556. $$ScriptName
  20557. $$FormScript
  20558. $$$FormScript_O
  20559. $Body
  20560. $V5ACTIONS
  20561. $ACTIONS
  20562. //to define values
  20563. var tmpImportance;
  20564. var tmpDeliveryReport;
  20565. var tmpDeliveryPriority;
  20566. var tmpReturnReceipt;
  20567. //...to get selected value of keyword field
  20568. function GetSelected(fieldname) {
  20569. //alert (fieldname);
  20570.     var selectedvalue="";    
  20571.     var sind=0;
  20572.         sind =fieldname.selectedIndex;
  20573.     //alert(sind);
  20574.         selectedvalue=fieldname.options[sind].value;
  20575. //alert(selectedvalue);
  20576. return(selectedvalue);
  20577. //...BUTTON handler for the OK click...
  20578. function OKClick() {
  20579.     // put the values back in the underlying form in the right format        
  20580.     window.opener.document.forms[0].Importance.value=GetSelected(tmpImportance);
  20581.     window.opener.document.forms[0].DeliveryReport.value=GetSelected(tmpDeliveryReport);
  20582.     window.opener.document.forms[0].DeliveryPriority.value=GetSelected(tmpDeliveryPriority);
  20583. if (tmpReturnReceipt.checked) 
  20584.     window.opener.document.forms[0].ReturnReceipt.value="1";
  20585.     window.opener.document.forms[0].ReturnReceipt.value="";
  20586. self.close();
  20587. //..button handler for cancell click
  20588. function CancelClick() {
  20589. self.close();
  20590. tmpImportance = document.forms[0].tmpImportance;
  20591. tmpDeliveryReport = document.forms[0].tmpDeliveryReport;
  20592. tmpDeliveryPriority = document.forms[0].tmpDeliveryPriority;
  20593. tmpReturnReceipt = document.forms[0].tmpReturnReceipt;
  20594. Zustelloptionen
  20595.  DeliveryOptions
  20596. <FONT SIZE="2"><B>Zustelloptionen</B>
  20597.     <br>
  20598. javascript:alert('Hebt die Nachricht f
  20599. r andere Benutzer von Notes/Domino Mail optisch hervor.')
  20600. javascript:alert('Hebt die Nachricht f
  20601. r andere Benutzer von Notes/Domino Mail optisch hervor.')
  20602.     Dringlichkeit
  20603. .,$,  , :
  20604. tmpImportance
  20605. Hoch|1Normal|2Niedrig|3z
  20606. tmpImportance_1FONT Size=2
  20607. tmpReturnReceipt
  20608. Empfangsbest
  20609. tigung|1
  20610. tmpReturnReceipt_1
  20611. javascript:alert('W
  20612. hlen Sie, welche Informationen Sie 
  20613. ber die Zustellung der Nachricht erhalten m
  20614. chten.')
  20615. javascript:alert('W
  20616. hlen Sie, welche Informationen Sie 
  20617. ber die Zustellung der Nachricht erhalten m
  20618. chten.')
  20619.     Zustellungsbericht
  20620. tmpDeliveryReport
  20621. Nur bei Fehler|BZustellung best
  20622. tigen|CGesamten Pfad aufzeichnen|TKein|N
  20623. tmpDeliveryReport_1FONT Size=2
  20624. javascript:alert('W
  20625. hlen Sie die Position der Nachricht in der Ausgangswarteschlange des Servers.')
  20626. javascript:alert('W
  20627. hlen Sie die Position der Nachricht in der Ausgangswarteschlange des Servers.')
  20628.     Zustellungspriorit
  20629. tmpDeliveryPriority
  20630. Hoch|HNormal|NNiedrig|Lz
  20631. tmpDeliveryPriority_1FONT Size=2
  20632. New Button
  20633. Need a newer version of Notes to execute this button.
  20634.     0S0E
  20635. OKClick()
  20636.        OK    
  20637. FONT Size=2
  20638. New Button
  20639. Need a newer version of Notes to execute this button.
  20640.     0S0E
  20641. CancelClick()
  20642.     Abbrechen z
  20643. FONT Size=2
  20644. O=Lotus Notes
  20645. O=Lotus Notes
  20646. PURSAFO
  20647. |.:#U
  20648. O=Lotus Notes
  20649. CN=Lotus Notes Template Development/O=Lotus Notes
  20650. PURSAFO
  20651. $Language
  20652. $LastBuildTime
  20653. $BabelInfo
  20654. $HTMLCode
  20655. $Info
  20656. $WINDOWTITLE
  20657. $$ScriptName
  20658. $Body
  20659. $FORWARDSEP
  20660.     ----- Weitergeleitet von 
  20661. ForwardedFrom
  20662.      am 
  20663. ForwardedDate
  20664.      -----
  20665. O=Lotus Notes
  20666. O=Lotus Notes
  20667. PURSAFO
  20668. |.:#U
  20669. O=Lotus Notes
  20670. CN=Lotus Notes Template Development/O=Lotus Notes
  20671. PURSAFO
  20672. 0cS"&
  20673. $Language
  20674. $LastBuildTime
  20675. $BabelInfo
  20676. $Info
  20677. $$ScriptName
  20678. ForwardedDate
  20679. $Body
  20680. Lotus Product
  20681. (DeleteSentDlg)
  20682.     0S0E
  20683. Cancel
  20684. Action
  20685.     Sie sind dabei, die ausgew
  20686. hlten Dokumente aus der Ansicht 'Gesendet' zu l
  20687. schen. Dabei werden die Dokumente aus
  20688.      allen
  20689.      dazugeh
  20690. rigen Ordnern gel
  20691. scht.
  20692. chten Sie diese Dokumente weiterhin l
  20693. schen, oder sollen sie statt dessen aus der Ansicht 'Gesendet' entfernt werden?X
  20694. Action
  20695.     1S2S3S
  20696. schenX
  20697.        X
  20698. Action
  20699.     1S2S3S
  20700.     EntfernenX
  20701.        X
  20702. Action
  20703.     1S2S3S
  20704.     AbbrechenX
  20705. tmpDontAsk
  20706. Diese Frage nicht mehr anzeigen|1X
  20707. O=Lotus Notes
  20708. O=Lotus Notes
  20709. PURSAFO
  20710. |.:#U
  20711. O=Lotus Notes
  20712. CN=Lotus Notes Template Development/O=Lotus Notes
  20713. PURSAFO
  20714. $Info
  20715. $$Script_O
  20716. $$ScriptName
  20717. $$FormAction2
  20718. $Body
  20719. $Language
  20720. $LastBuildTime
  20721. $BabelInfo
  20722. CN=Lotus Notes Template Development/O=Lotus Notes
  20723. // For convenience
  20724. var fieldSendTo ;
  20725. var fieldCopyTo;
  20726. var fieldBlindCopyTo;
  20727. var fieldSendToRef;
  20728. var fieldCopyToRef;
  20729. var fieldBlindCopyToRef;
  20730. var fieldEntryList;
  20731. function OKClick()
  20732.     // put the values back in the underlying form in the right format
  20733.     if(window.opener)
  20734.         window.opener.document.forms[0].SendTo.value = selectToString(fieldSendTo);
  20735.         window.opener.document.forms[0].CopyTo.value = selectToString(fieldCopyTo);
  20736.         window.opener.document.forms[0].BlindCopyTo.value = selectToString(fieldBlindCopyTo);
  20737.     self.close();
  20738. function CancelClick() 
  20739.     self.close();
  20740. function AddClick(field)
  20741.     if(fieldEntryList.selectedIndex != -1)
  20742.         for (var i=0; i < fieldEntryList.options.length; ++i)
  20743.         if (fieldEntryList.options[i].selected)
  20744.             {        
  20745.                 var selection = FixName(fieldEntryList.options[i].value);
  20746.                 field.options[field.options.length] = new Option(selection);
  20747. function substring2(string, start, length) {
  20748.     return string.substring(start,start+length);
  20749. function FixName(name)
  20750.     if (name.indexOf("CN=")!= -1)
  20751.             tmpstring=name.substring(3)
  20752.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  20753.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  20754.             strpos = tmpstring.indexOf("=")+1;
  20755.             while (strpos != -1)
  20756.                  tmpstring=substring2(tmpstring,strpos,tmpstring.length);     
  20757.                 if (tmpstring.indexOf("/")!= -1)
  20758.                 {
  20759.                 restofname=substring2(tmpstring,0,tmpstring.indexOf("/")); 
  20760.                 tmpstring = substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  20761.                 if (restofname.length!=0)
  20762.                     {                      
  20763.                     fullname=fullname+"/"+restofname;
  20764.                     }
  20765.                 strpos=tmpstring.indexOf("=") + 1;  
  20766.                 } else {
  20767.                     fullname=fullname+"/"+tmpstring;
  20768.                     strpos=-1;
  20769.                     }        
  20770.             return fullname;
  20771.         } else return name;
  20772. function RemoveClick(field)
  20773.     if (field.length != 0){ 
  20774.     if (field.selectedIndex != -1)
  20775.         for(var i=0;i<field.options.length ; ++i)
  20776.                 if (field.options[i].selected)
  20777.                     {
  20778.                         field.options[i] = null;
  20779.                     }
  20780. function RemoveAllClick()
  20781.     fieldSendTo.options.length=0;
  20782.     fieldCopyTo.options.length=0;
  20783.     fieldBlindCopyTo.options.length=0;
  20784. function trim(str)
  20785.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  20786.     return str.substring(i,str.length); 
  20787. function stringToSelect(str,field)
  20788.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  20789.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  20790.         var entry = trim(str.substring(beg,end));
  20791.         if(entry!="") field.options[field.options.length++].text = entry;
  20792. function selectToString(field)
  20793.     if (field.length!=0)
  20794.     var str = "";
  20795.     for(i=0 ; i < field.options.length-1 ; i++)
  20796.         str += field.options[i].text + ",";
  20797.     return str += field.options[i].text;
  20798.     } else return "";
  20799. // For convenience
  20800. fieldSendTo = document.forms[0].tmpSendTo;
  20801. fieldCopyTo = document.forms[0].tmpCopyTo;
  20802. fieldBlindCopyTo = document.forms[0].tmpBlindCopyTo;
  20803. fieldSendToRef = document.forms[0].tmpSendToRef;
  20804. fieldCopyToRef = document.forms[0].tmpCopyToRef;
  20805. fieldBlindCopyToRef = document.forms[0].tmpBlindCopyToRef;
  20806. fieldEntryList = document.forms[0].EntryList;
  20807. // Grab original values from underlying document
  20808. var OrigSendTo;
  20809. var OrigCopyTo;
  20810. var OrigBlindCopyTo;
  20811. if ((window.location.href.indexOf("Seq"))==-1)  {
  20812. if(window.opener)
  20813.     OrigSendTo = window.opener.document.forms[0].SendTo.value;
  20814.     OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
  20815.     OrigBlindCopyTo = window.opener.document.forms[0].BlindCopyTo.value;
  20816.     document.forms[0].tmpSendToRef.value = OrigSendTo;
  20817.     document.forms[0].tmpCopyToRef.value = OrigCopyTo;
  20818.     document.forms[0].tmpBlindCopyToRef.value = OrigBlindCopyTo;
  20819. else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
  20820. // Initialize fields
  20821. RemoveAllClick();
  20822. stringToSelect(OrigSendTo,fieldSendTo);
  20823. stringToSelect(OrigCopyTo,fieldCopyTo);
  20824. stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
  20825. } else {
  20826. if(window.opener)
  20827.      OrigSendTo = document.forms[0].tmpSendToRef.value;
  20828.     OrigCopyTo = document.forms[0].tmpCopyToRef.value;
  20829.     OrigBlindCopyTo = document.forms[0].tmpBlindCopyToRef.value;
  20830. else    OrigSendTo = OrigCopyTo = OrigBlindCopyTo = "";
  20831. //If this is a reload -- move the reference values into the current visible fields
  20832. RemoveAllClick();
  20833. stringToSelect(OrigSendTo,fieldSendTo);
  20834. stringToSelect(OrigCopyTo,fieldCopyTo);
  20835. stringToSelect(OrigBlindCopyTo,fieldBlindCopyTo);
  20836. Adresse
  20837. wAddressOpen
  20838. Lotus Product
  20839. OBJECT
  20840.  wAddress'++LotusScript Development Environment:2:5:(Options):0:66
  20841. '++LotusScript Development Environment:2:5:(Forward):0:1
  20842. Declare Sub Initialize
  20843. '++LotusScript Development Environment:2:5:(Declarations):0:2
  20844. '++LotusScript Development Environment:2:2:BindEvents:1:129
  20845. Private Sub BindEvents(Byval Objectname_ As String)
  20846.     Static Source As FIELD
  20847.     Set Source = Bind(Objectname_)
  20848. End Sub
  20849. '++LotusScript Development Environment:2:2:Initialize:1:10
  20850. Sub Initialize
  20851. End Sub
  20852. Lotus Product
  20853. <NOSCRIPT><H2>
  20854. Diese Seite erfordert JavaScript Version 1.1 oder h
  20855. </H2><HR></NOSCRIPT>
  20856. <SCRIPT LANGUAGE="JavaScript"><!--
  20857.     _version_=10 //--></SCRIPT>
  20858. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  20859.     _version_=11 //--></SCRIPT>
  20860. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  20861.     _version_=12 //--></SCRIPT>
  20862. <SCRIPT LANGUAGE="JavaScript"><!--
  20863.     if(_version_<11)
  20864.         document.write('<H2>
  20865. Diese Seite erfordert JavaScript Version 1.1 oder h
  20866. </H2><HR>');
  20867.         document.close();
  20868. //--></SCRIPT>
  20869. tmpSendToRef
  20870. tmpSendToRef
  20871. tmpCopyToRef
  20872. tmpCopyToRef
  20873. tmpBlindCopyToRef
  20874. tmpBlindCopyToRef
  20875. SaveOptions
  20876. query_string
  20877. Query_string
  20878.      
  20879. javascript:alert('W
  20880. hlen Sie, in welchem Adre
  20881. buch die Empf
  20882. nger gesucht werden sollen.')
  20883. javascript:alert('W
  20884. hlen Sie, in welchem Adre
  20885. buch die Empf
  20886. nger gesucht werden sollen.')
  20887.     Suchen in:
  20888.     <font size=-1>
  20889. names.nsf
  20890. Addressbooks
  20891.     0S0E
  20892. NABs_1
  20893.     </font>
  20894. javascript:alert('Geben Sie zum Suchen einige Anfangsbuchstaben des Nachnamens ein, und klicken Sie auf Suchen.')
  20895. javascript:alert('Geben Sie zum Suchen einige Anfangsbuchstaben des Nachnamens ein, und klicken Sie auf Suchen.')
  20896.     Beginnt mit:
  20897. FindTextz
  20898. FindText_1SIZE=15
  20899. tmpCurIndex
  20900. Domino
  20901. LoadAddressListByName
  20902. EntryList
  20903. FindText
  20904.     1S2S3S7S9S11S13S15S
  20905. tmpNextIndex
  20906. tmpCurIndex
  20907.     0R1S2S3S5S9S10S11S
  20908.     Suchen  z
  20909. FONT Size=2
  20910.      
  20911. New Button
  20912. Need a newer version of Notes to execute this button.
  20913.     0S0E
  20914. AddClick(fieldSendTo);
  20915. document.forms[0].tmpSendToRef.value=selectToString(fieldSendTo);
  20916.      An > z
  20917. FONT Size=2
  20918. tmpSendTo
  20919. ________________________________
  20920. tmpSendTo_1SIZE=6
  20921. New Button
  20922. Need a newer version of Notes to execute this button.
  20923.     0S0E
  20924. AddClick(tmpCopyTo);
  20925. document.forms[0].tmpCopyToRef.value=selectToString(fieldCopyTo);
  20926.      Kopie > 
  20927. FONT Size=2
  20928. tmpCopyTo
  20929. ________________________________
  20930. tmpCopyTo_1SIZE=6
  20931.     <font size=-1>
  20932. EntryList
  20933. EntryList
  20934. EntryList_1FONT Size=2
  20935.     </font>
  20936. New Button
  20937. Need a newer version of Notes to execute this button.
  20938.     0S0E
  20939. AddClick(tmpBlindCopyTo);
  20940. document.forms[0].tmpBlindCopyToRef.value=selectToString(fieldBlindCopyTo);
  20941.     Blindkopie >z
  20942. FONT Size=2
  20943. tmpBlindCopyTo
  20944. ________________________________z
  20945. tmpBlindCopyTo_1SIZE=6
  20946. tmpIndexStr
  20947. tmpCurIndex
  20948.     1S2S8S9S
  20949. tmpCurIndex
  20950. Domino
  20951. LoadAddressListByIndex
  20952. EntryList
  20953. tmpIndexStr
  20954.     0R1S2S3S7S9S11S13S15S
  20955. tmpNextIndex
  20956. tmpCurIndex
  20957.     0R1S2S3S5S9S10S11S
  20958.     < Zur
  20959. font size=1
  20960. tmpCurIndex
  20961. Domino
  20962. LoadAddressListByIndex
  20963. EntryList
  20964. tmpNextIndex
  20965.     1S2S3S7S9S11S13S15S
  20966. tmpNextIndex
  20967. tmpCurIndex
  20968.     0R1S2S3S5S9S10S11S
  20969.     Vor >    
  20970. font size=1
  20971. New Button
  20972. Need a newer version of Notes to execute this button.
  20973.     0S0E
  20974. RemoveClick(tmpSendTo);
  20975. RemoveClick(tmpBlindCopyTo);
  20976. RemoveClick(tmpCopyTo);RemoveClick(tmpSendTo);
  20977. RemoveClick(tmpBlindCopyTo);
  20978. RemoveClick(tmpCopyTo);
  20979. document.forms[0].tmpSendToRef.value=selectToString(fieldSendTo);
  20980. document.forms[0].tmpCopyToRef.value=selectToString(fieldCopyTo);
  20981. document.forms[0].tmpBlindCopyToRef.value=selectToString(fieldBlindCopyTo);
  20982.        Entfernen   
  20983. FONT Size=2
  20984. New Button
  20985. Need a newer version of Notes to execute this button.
  20986.     0S0E
  20987. RemoveAllClick();
  20988. document.forms[0].tmpSendToRef.value="";
  20989. document.forms[0].tmpCopyToRef.value="";
  20990. document.forms[0].tmpBlindCopyToRef.value="";
  20991.     Alle entfernenz
  20992. FONT Size=2
  20993. New Button
  20994. Need a newer version of Notes to execute this button.
  20995.     0S0E
  20996. OKClick();
  20997.        OK   z
  20998. font size=2
  20999. New Button
  21000. Need a newer version of Notes to execute this button.
  21001.     0S0E
  21002. CancelClick()
  21003.      Abbrechenz
  21004. font size=2
  21005. query_stringa
  21006. Domino
  21007. LoadAddressListByIndex
  21008. EntryList
  21009.     18S20S22S24S26StmpCurIndex
  21010. tmpCurIndex
  21011. tmpCurIndex
  21012.     2S6S7S8S
  21013. tmpNextIndexz
  21014. tmpNextIndex
  21015. AddressBooksz
  21016. AddressBooks
  21017. <BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<BR>.<P>
  21018. ExtraInputz
  21019. size=1
  21020. O=Lotus Notes
  21021. O=Lotus Notes
  21022. PURSAFO
  21023. |.:#U
  21024. O=Lotus Notes
  21025. CN=Lotus Notes Template Development/O=Lotus Notes
  21026. PURSAFO
  21027. $Language
  21028. $LastBuildTime
  21029. $BabelInfo
  21030. $HTMLCode
  21031. $Info
  21032. $WINDOWTITLE
  21033. $WEBQueryOpen
  21034. $WebFlags
  21035. $$Script_O
  21036. $$ScriptName
  21037. $$AddressBooks
  21038. $AddressBooks_O
  21039. $Body
  21040. &Arial
  21041. function getBack() {
  21042. if (window.name ==  "" )
  21043. history.back()
  21044.  else window.close();
  21045.  $$ReturnAuthorizationFailure
  21046. _KategorisierenX
  21047. Dokument _bearbeiten
  21048. Dokument _senden
  21049. _WeiterleitenX
  21050. In Ordner _verschieben...X
  21051. Aus Ordner _entfernenX
  21052. _KategorisierenX
  21053. Dokument _bearbeiten
  21054. Dokument _senden
  21055. _WeiterleitenX
  21056. In Ordner _verschieben...X
  21057. Aus Ordner _entfernenX
  21058.     Autorisierungsfehler
  21059. [<BR><BR>]
  21060.     Sie sind zum Ausf
  21061. hren dieser Operation nicht berechtigt.X
  21062. <a href="javascript: onClick=getBack()">
  21063. O=Lotus Notes
  21064. O=Lotus Notes
  21065. PURSAFO
  21066. |.:#U
  21067. O=Lotus Notes
  21068. CN=Lotus Notes Template Development/O=Lotus Notes
  21069. PURSAFO
  21070. U7b^E^
  21071. $HTMLCode
  21072. $Info
  21073. $$ScriptName
  21074. $PublicAccess
  21075. $ACTIONS
  21076. $V5ACTIONS
  21077. $Body
  21078. $Language
  21079. $LastBuildTime
  21080. $BabelInfo
  21081. &Arial
  21082. function getBack() {
  21083. if (window.name ==  "" )
  21084. history.back()
  21085.  else window.close();
  21086.  $$ReturnGeneralError
  21087. _KategorisierenX
  21088. Dokument _bearbeiten
  21089. Dokument _senden
  21090. _WeiterleitenX
  21091. In Ordner _verschieben...X
  21092. Aus Ordner _entfernenX
  21093. _KategorisierenX
  21094. Dokument _bearbeiten
  21095. Dokument _senden
  21096. _WeiterleitenX
  21097. In Ordner _verschieben...X
  21098. Aus Ordner _entfernenX
  21099.     0S0E
  21100.     0S0E
  21101.     Antwort-NachrichtX
  21102. [<BR><BR>]
  21103. MessageString
  21104. MessageStringX
  21105. #R&")
  21106. <a href="javascript: getBack()">
  21107. O=Lotus Notes
  21108. O=Lotus Notes
  21109. PURSAFO
  21110. |.:#U
  21111. O=Lotus Notes
  21112. CN=Lotus Notes Template Development/O=Lotus Notes
  21113. PURSAFO
  21114. $HTMLCode
  21115. $Info
  21116. $$ScriptName
  21117. $PublicAccess
  21118. $ACTIONS
  21119. $V5ACTIONS
  21120. $Body
  21121. $Language
  21122. $LastBuildTime
  21123. $BabelInfo
  21124. window.opener.parent.frames[1].location.reload();
  21125. window.close();
  21126. (wFolderCreateSave)
  21127. (wFolderCreateOpen)
  21128.  FolderCreate
  21129. SaveOptionsX
  21130. folderlist
  21131.     <br>
  21132.     Neuer Ordner
  21133.     Geben Sie den Namen des neuen Ordners hier ein.  X
  21134.     Um den neuen Ordner in einen bestehenden Ordner aufzunehmen, geben Sie X
  21135.     den vollst
  21136. ndigen Pfad unter Verwendung von '\' als Trennzeichen ein.  (z. B. 'Bestehender Ordner\Neuer Ordner')
  21137. FolderNamez
  21138. size="40"
  21139.     <br>
  21140.     Aktuelle OrdnerX
  21141.     Sie k
  21142. nnen einen bestehenden Ordner w
  21143. hlen, in den der neue Ordner aufgenommen wird. Treffen Sie eine Auswahl aus der untenstehenden Liste, und klicken Sie auf 'Beginnt mit', um den Namen des neuen Ordners zu initialisieren. X
  21144. CurrentFolders
  21145. CurrentFolders
  21146. folderlist
  21147.     0S0E
  21148. if(form.CurrentFolders.selectedIndex != -1)
  21149.         for (var i=0; i < form.CurrentFolders.options.length; ++i)
  21150.         if (form.CurrentFolders.options[i].selected)
  21151.             {        
  21152.                 var selection = form.CurrentFolders.options[i].value;
  21153.                 alert(selection);
  21154. Neue Schaltfl
  21155. Zum Ausf
  21156. hren dieser Schaltfl
  21157. che ist eine neuere Version von Notes erforderlich.
  21158.     0S0E
  21159. form.FolderName.value= form.CurrentFolders.options[form.CurrentFolders.selectedIndex].text+"\\"+form.FolderName.value
  21160.     Beginnt mitXz
  21161. FONT Size=2
  21162.     <br>
  21163.     0S0E
  21164.     0S0E
  21165.       OK  
  21166. Neue Schaltfl
  21167. Zum Ausf
  21168. hren dieser Schaltfl
  21169. che ist eine neuere Version von Notes erforderlich.
  21170.     0S0E
  21171. window.close()
  21172.     AbbrechenX
  21173. O=Lotus Notes
  21174. O=Lotus Notes
  21175. PURSAFO
  21176. |.:#U
  21177. O=Lotus Notes
  21178. CN=Lotus Notes Template Development/O=Lotus Notes
  21179. PURSAFO
  21180. $HTMLCode
  21181. $Info
  21182. $WEBQuerySave
  21183. $WEBQueryOpen
  21184. $WebFlags
  21185. $$ScriptName
  21186. $Body
  21187. $Language
  21188. $LastBuildTime
  21189. $BabelInfo
  21190. window.opener.parent.frames[1].location.reload();
  21191. window.close();
  21192. (wFolderCreateSave)
  21193. (wFolderCreateOpen)
  21194.  FolderRemove
  21195. SaveOptionsX
  21196. folderlist
  21197.     <br>
  21198.     Ordner l
  21199. schen
  21200.     Sie k
  21201. nnen einen Ordner ausw
  21202. hlen, der aus der Datenbank gel
  21203. scht werden soll. Treffen Sie eine Auswahl aus der untenstehenden Liste, und klicken Sie auf  'OK', um den Ordner zu l
  21204. schen.
  21205. CurrentFolders
  21206. CurrentFolders
  21207. folderlist
  21208.     0S0E
  21209. if(form.CurrentFolders.selectedIndex != -1)
  21210.         for (var i=0; i < form.CurrentFolders.options.length; ++i)
  21211.         if (form.CurrentFolders.options[i].selected)
  21212.             {        
  21213.                 var selection = form.CurrentFolders.options[i].value;
  21214.                 alert(selection);
  21215.     <br>
  21216.     0S0E
  21217.     0S0E
  21218.       OK  
  21219. Neue Schaltfl
  21220. Zum Ausf
  21221. hren dieser Schaltfl
  21222. che ist eine neuere Version von Notes erforderlich.
  21223.     0S0E
  21224. window.close()
  21225.     AbbrechenX
  21226. O=Lotus Notes
  21227. O=Lotus Notes
  21228. PURSAFO
  21229. |.:#U
  21230. O=Lotus Notes
  21231. CN=Lotus Notes Template Development/O=Lotus Notes
  21232. PURSAFO
  21233. =:)es
  21234. $HTMLCode
  21235. $Info
  21236. $WEBQuerySave
  21237. $WEBQueryOpen
  21238. $WebFlags
  21239. $$ScriptName
  21240. $Body
  21241. $Language
  21242. $LastBuildTime
  21243. $BabelInfo
  21244. wAddressOpen
  21245. Lotus Product
  21246. OBJECT
  21247.  wResources'++LotusScript Development Environment:2:5:(Options):0:66
  21248. '++LotusScript Development Environment:2:5:(Forward):0:1
  21249. Declare Sub Initialize
  21250. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21251. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21252. Private Sub BindEvents(Byval Objectname_ As String)
  21253.     Static Source As FIELD
  21254.     Set Source = Bind(Objectname_)
  21255. End Sub
  21256. '++LotusScript Development Environment:2:2:Initialize:1:10
  21257. Sub Initialize
  21258. End Sub
  21259. Lotus Product
  21260. <NOSCRIPT><H2>
  21261. Diese Seite erfordert JavaScript Version 1.1 oder h
  21262. </H2><HR></NOSCRIPT>
  21263. <SCRIPT LANGUAGE="JavaScript"><!--
  21264.     _version_=10 //--></SCRIPT>
  21265. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  21266.     _version_=11 //--></SCRIPT>
  21267. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  21268.     _version_=12 //--></SCRIPT>
  21269. <SCRIPT LANGUAGE="JavaScript"><!--
  21270.     if(_version_<11)
  21271.         document.write('<H2>
  21272. Diese Seite erfordert JavaScript Version 1.1 oder h
  21273. </H2><HR>');
  21274.         document.close();
  21275. //--></SCRIPT>
  21276.      
  21277.     Suchen in:
  21278.     <font size=-1>
  21279. names.nsf
  21280. Addressbooks
  21281.     0S0E
  21282. NABs_1
  21283.     </font>
  21284.     Standort und Ressource:
  21285. Size=10
  21286. EntryList
  21287. names.nsf
  21288. ($Resources)
  21289.     0S0E
  21290. EntryListFONT Size=2
  21291. New Button
  21292. Need a newer version of Notes to execute this button.
  21293.     0S0E
  21294. AddClick(fieldResources)
  21295.      Hinzuf
  21296. gen >> 
  21297. FONT Size=2
  21298. Resources
  21299. 12345678901234567890123456789012
  21300. Resources_1FONT Size=2SIZE=4 
  21301. New Button
  21302. Need a newer version of Notes to execute this button.
  21303.     0S0E
  21304. RemoveClick(Resources);
  21305.         Entfernen   z
  21306. FONT Size=2
  21307. New Button
  21308. Need a newer version of Notes to execute this button.
  21309.     0S0E
  21310. RemoveAllClick()
  21311.     Alle entfernenz
  21312. FONT Size=2
  21313. New Button
  21314. Need a newer version of Notes to execute this button.
  21315.     0S0E
  21316. OKClick();
  21317.        OK   z
  21318. font size=2
  21319. New Button
  21320. Need a newer version of Notes to execute this button.
  21321.     0S0E
  21322. CancelClick()
  21323.      Abbrechenz
  21324. font size=2
  21325. AddressBooksz
  21326. AddressBooks
  21327. <SCRIPT LANGUAGE="JavaScript1.1">
  21328. // For convenience
  21329. var fieldResources = document.forms[0].Resources;
  21330. var fieldEntryList = document.forms[0].EntryList;
  21331. function OKClick()
  21332.     // put the values back in the underlying form in the right format
  21333.     if(window.opener)
  21334.         window.opener.document.forms[0].Resources.value = selectToString(fieldResources);
  21335.     self.close();
  21336. function CancelClick() 
  21337.     self.close();
  21338. function AddClick(field)
  21339.     if(fieldEntryList.selectedIndex != -1)
  21340.         for (var i=0; i < fieldEntryList.options.length; ++i)
  21341.         if (fieldEntryList.options[i].selected)
  21342.             {        
  21343.                 field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
  21344. function substring2(string, start, length){
  21345.     return string.substring(start,start+length);
  21346. function FixName(name)
  21347.     if (name.indexOf("CN=")!= -1)
  21348.             tmpstring=name.substring(3)
  21349.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  21350.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  21351.             strpos = tmpstring.indexOf("=")+1;
  21352.             tmpstring=substring2(tmpstring,strpos,tmpstring.length);
  21353.             while (strpos != -1)
  21354.                 if (tmpstring.indexOf("/")!= -1)
  21355.                 {
  21356.                 restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  21357.                 if (restofname.length!=0)
  21358.                     {                      
  21359.                     fullname=fullname+"/"+restofname;
  21360.                     }
  21361.                 strpos=tmpstring.indexOf("=");
  21362.                 } else {
  21363.                     fullname=fullname+"/"+tmpstring;
  21364.                     strpos=-1;
  21365.                     }        
  21366.             return fullname;
  21367.         } else return name;
  21368. function RemoveClick(field)
  21369.     if (field.length != 0){ 
  21370.     if (field.selectedIndex != -1)
  21371.         for(var i=0;i<field.options.length ; ++i)
  21372.                 if (field.options[i].selected)
  21373.                     {
  21374.                         field.options[i] = null;
  21375.                     }
  21376. function RemoveAllClick()
  21377.     fieldResources.options.length=0;
  21378. function trim(str)
  21379.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  21380.     return str.substring(i,str.length); 
  21381. function stringToSelect(str,field)
  21382.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  21383.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  21384.         var entry = trim(str.substring(beg,end));
  21385.         if(entry!="") field.options[field.options.length++].text = entry;
  21386. function selectToString(field)
  21387.     if (field.length!=0)
  21388.     var str = "";
  21389.     for(i=0 ; i < field.options.length-1 ; i++)
  21390.         str += field.options[i].text + ",";
  21391.     return str += field.options[i].text;
  21392.     } else return "";
  21393. // Grab original values from underlying document
  21394. var OrigResources;
  21395. if(window.opener)
  21396.     OrigResources = window.opener.document.forms[0].Resources.value;
  21397. else    OrigResources = "";
  21398. // Initialize fields
  21399. RemoveAllClick();
  21400. stringToSelect(OrigResources,fieldResources);
  21401. //-->
  21402. </SCRIPT>
  21403. O=Lotus Notes
  21404. O=Lotus Notes
  21405. PURSAFO
  21406. |.:#U
  21407. O=Lotus Notes
  21408. CN=Lotus Notes Template Development/O=Lotus Notes
  21409. PURSAFO
  21410. $Language
  21411. $LastBuildTime
  21412. $BabelInfo
  21413. $Info
  21414. $WEBQueryOpen
  21415. $WebFlags
  21416. $$Script_O
  21417. $$ScriptName
  21418. $$AddressBooks
  21419. $AddressBooks_O
  21420. $Body
  21421. $HideMailHeader
  21422. BGTableColor
  21423. if ((window.location.href.indexOf('Format'))!=-1)  {
  21424. formatchar=window.location.href.charAt(window.location.href.indexOf('Format')+7);
  21425. if (formatchar=='4')  {
  21426.  offsetchar='>>';
  21427. } else {
  21428. offsetchar='>'
  21429.  setFormattedReplyText(offsetchar);
  21430. function setFormattedReplyText(offsetchar) {
  21431. var form = document.forms[0];
  21432. var offset;
  21433. var newtext = new String("");
  21434. for(i=0;i<form.elements.length;i++) {
  21435.      if(form.elements[i].editorApplet != null) {
  21436.      var replytext = new String(form.elements[i].editorApplet.getText("text//html"));
  21437. //Start parsing the string for P and BR
  21438. var regexp = /<P>/g
  21439. newtext = replytext.replace(regexp,'<P>'+offsetchar);
  21440. regexp = /<BR>/g
  21441. newtext = newtext.replace(regexp,'<BR>'+offsetchar)
  21442. form.elements[i].editorApplet.setText('TEXT/HTML',newtext );
  21443.      }
  21444. HeaderRegion
  21445. BodyRegion
  21446. Neues Memo
  21447. Subject
  21448. Subject
  21449. Subject
  21450.     4S6S12S13S14S15S17S21S23S25S26S28S
  21451. wMemo
  21452. returnreceipt
  21453. wMemoOpen
  21454. Query_string
  21455. Forward
  21456. wMemoOpen
  21457.     13R24S
  21458. (Help)
  21459. MAIL_F_MEMO
  21460.     0S0E
  21461. &Arial
  21462. FComic Sans MS
  21463. '++LotusScript Development Environment:2:5:(Options):0:74
  21464. Option Public
  21465. Option Explicit
  21466. Use "CoreEmailClasses"
  21467. '++LotusScript Development Environment:2:5:(Forward):0:1
  21468. '++LotusScript Development Environment:2:5:(Declarations):0:10
  21469. Dim cMemoObject As Variant
  21470. Lotus Product
  21471.  wForward'++LotusScript Development Environment:2:5:(Options):0:66
  21472. '++LotusScript Development Environment:2:5:(Forward):0:1
  21473. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  21474. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  21475. Declare Sub Postmodechange(Source As Notesuidocument)
  21476. Declare Sub Postopen(Source As Notesuidocument)
  21477. Declare Sub Postsave(Source As Notesuidocument)
  21478. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  21479. Declare Sub Postrecalc(Source As Notesuidocument)
  21480. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  21481. Declare Sub Click(Source As Button)
  21482. '++LotusScript Development Environment:2:5:(Declarations):0:2
  21483. '++LotusScript Development Environment:2:2:BindEvents:1:129
  21484. Private Sub BindEvents(Byval Objectname_ As String)
  21485.     Static Source As NOTESUIDOCUMENT
  21486.     Set Source = Bind(Objectname_)
  21487.     On Event Queryopen From Source Call Queryopen
  21488.     On Event Querysave From Source Call Querysave
  21489.     On Event Postmodechange From Source Call Postmodechange
  21490.     On Event Postopen From Source Call Postopen
  21491.     On Event Postsave From Source Call Postsave
  21492.     On Event Queryclose From Source Call Queryclose
  21493.     On Event Postrecalc From Source Call Postrecalc
  21494.     On Event Querymodechange From Source Call Querymodechange
  21495. End Sub
  21496. '++LotusScript Development Environment:2:2:Queryopen:1:12
  21497. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  21498.     Set cMemoObject = New UIMemoDocument         
  21499.     Call cMemoObject.Init(Source,Isnewdoc)  
  21500. End Sub
  21501. '++LotusScript Development Environment:2:2:Querysave:1:12
  21502. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  21503.     Call cMemoObject.QuerySave(Continue)
  21504. End Sub
  21505. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  21506. Sub Postmodechange(Source As Notesuidocument)
  21507.     Call cMemoObject.PostModeChange()    
  21508. End Sub
  21509. '++LotusScript Development Environment:2:2:Postopen:1:12
  21510. Sub Postopen(Source As Notesuidocument)
  21511.     Call cMemoObject.PostOpen(Source)    
  21512. End Sub
  21513. '++LotusScript Development Environment:2:2:Postsave:1:12
  21514. Sub Postsave(Source As Notesuidocument)
  21515.     Call cMemoObject.PostSave()
  21516. End Sub
  21517. '++LotusScript Development Environment:2:2:Queryclose:1:12
  21518. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  21519.     Call cMemoObject.QueryClose(Continue)
  21520. End Sub
  21521. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  21522. Sub Postrecalc(Source As Notesuidocument)
  21523. End Sub
  21524. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  21525. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  21526.     Continue = cMemoObject.QueryModeChange(Source)
  21527. End Sub
  21528. '++LotusScript Development Environment:2:2:Click:1:8
  21529. Sub Click(Source As Button)
  21530.     Call cMemoObject.SetOptionFlag(MEMO_ISSTATIONERY)
  21531.     Call cMemoObject.noteUIMemo.save()
  21532.     Call cMemoObject.noteUIMemo.close()
  21533. End Sub
  21534. Lotus Product
  21535.     Always hidden: 
  21536.     0S0E
  21537. NamePreferencez
  21538. NamePreference
  21539.     0S0E
  21540. LanguagePreference
  21541. Principal
  21542. CalendarProfile
  21543. Owner
  21544.     1S2S3S7S
  21545. FromPerson memo is from.z
  21546. AltFrom
  21547.     10SAltFrom
  21548. CalendarProfile
  21549. DefaultLogo
  21550. stdNotesLtr0
  21551. CalendarProfile
  21552. DefaultLogo
  21553. StdNotesLtrGateway
  21554.     4S13S24R25S29S32S34S
  21555. Logoz
  21556. BG_IMAGE_PREFIX
  21557.     0S0E
  21558. StdNotesLtr0
  21559.     0RR1RT2RT3S4S6RTT13RT14RT
  21560. Image
  21561. StdNotesLtr
  21562. Image
  21563. Gateway
  21564. BG_IMAGE_PREFIX
  21565. Image
  21566. Image
  21567.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  21568. Image
  21569. BG_IMAGE_PREFIX
  21570. Image
  21571. BG_IMAGE_PREFIX
  21572. Image
  21573. BG_IMAGE_PREFIX
  21574. Image
  21575. BG_IMAGE_PREFIX
  21576. Image
  21577. BG_IMAGE_PREFIX
  21578. BG_IMAGE_PREFIX
  21579.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  21580. Principal
  21581. Principal
  21582. Principal
  21583. NamePreference
  21584. AltFrom
  21585. PostedDateh
  21586. $LangFrom
  21587. LanguagePreferencet
  21588. AltFrom
  21589.     1S2S5S7S8S9S10S12RTTTT14TRTTT19S20S21S23S24S35S41RTTTT43RTTT44RTTT
  21590.     0R1S2S8S
  21591.     0R1S2S5S6S8S14S18S
  21592.     0R1S2S5S6S8S14S18S
  21593. SentBy
  21594. X400FreeForm^
  21595.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  21596. SentBy
  21597. FromDomain
  21598. FromDomain
  21599. FromDomain
  21600. FromDomain
  21601.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  21602. FromName
  21603. Principal
  21604. Principal
  21605. Principal
  21606.     0RR1S2S10S11S16S18S
  21607. FromStops
  21608.     0RR1S2S6S
  21609. FromName
  21610. FromStops
  21611. FromStops
  21612. FromStops
  21613.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  21614. tmpDisplayFrom_Preview
  21615.     0S0E
  21616. Signz
  21617.     0S0E
  21618. Encrypt
  21619. Encrypt
  21620. $KeepPrivate
  21621. $KeepPrivate
  21622. $KeepPrivate
  21623.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  21624.     0S0E
  21625. DefaultMailSaveOptionsz
  21626. DefaultMailSaveOptions
  21627. .,$,  , :
  21628. Path_Info_DEcoded
  21629. Path_Info
  21630. .,$,  , :
  21631. Query_String_Decoded
  21632. Query_String
  21633. (WebSpecificFields)
  21634.     0S0E
  21635.     Von:
  21636. tmpDisplayFrom_Preview
  21637. tmpDisplayFrom_NoLogo
  21638. tmpDisplayFrom_NoLogo
  21639. NamesList
  21640. NamePreference
  21641. AltSendTo
  21642. $NameLanguageTags
  21643. LanguagePreferencet
  21644. AltSendTo
  21645. SendTo
  21646.     11S12S15S16S20S
  21647. ImplodedNamesList
  21648. NamesList
  21649. ImplodedNamesList
  21650. ImplodedNamesList
  21651. ImplodedNamesList
  21652. tmpDisplaySendTo
  21653.     Thema:
  21654. Subject
  21655. Subject
  21656. Subject
  21657.     0S0E
  21658. TmpDisplaySubject_1
  21659.     Kopie:
  21660. CC_Content
  21661. NamePreference
  21662. AltCopyTo
  21663. $NameLanguageTags
  21664. LanguagePreferencet
  21665. AltCopyTo
  21666. CopyTo
  21667.     7S8S9S11S12S16S
  21668. BCC_Content
  21669. DeliveredDate
  21670. BlindCopyTo
  21671.  (Blindkopie: 
  21672. BlindCopyTo
  21673.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  21674. NamesList
  21675. CC_Content
  21676. BCC_Content
  21677.     0R9S10S
  21678. ImplodedNamesList
  21679. NamesList
  21680. ImplodedNamesList
  21681. ImplodedNamesList
  21682. ImplodedNamesList
  21683. tmpDisplayCC
  21684. V5DOTBL=true
  21685. SendToz
  21686. SIZE=80
  21687.     Kopie:
  21688. CopyToz
  21689. SIZE=80
  21690.     Blindkopie:
  21691. BlindCopyTo
  21692. SIZE=80
  21693.     Thema:
  21694. Subject
  21695. WebSubjectz
  21696. SIZE=80
  21697. tmpDisplayFrom_Preview
  21698. DisplayFrom_Preview
  21699. DisplayFrom_Preview_1
  21700. $HideMailHeader
  21701. Principal
  21702. Principal
  21703. Principal
  21704. Principal
  21705. Principal
  21706.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
  21707.     Gesendet von: 
  21708. FromDomain
  21709. FromDomain
  21710. FromDomain
  21711. FromDomain
  21712.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  21713. FromName
  21714.     0RR1S2S6S
  21715. FromStops
  21716.     0R1S2S6S
  21717. FromName
  21718. FromStops
  21719. FromStops
  21720. FromStops
  21721.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  21722. tmpDisplaySentBy_1
  21723. PostedDateh
  21724. PostedDate
  21725.     4S5S10S12S
  21726. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  21727. tmpDisplayDate_Preview_1
  21728. ReplyDate
  21729. ReplyTo
  21730. $HideMailHeader
  21731.     2S3S4S5S6S7S9S10S14S15R
  21732. Bitte antworten
  21733. ReplyTo
  21734. ReplyTo
  21735. ReplyDate
  21736.  bis 
  21737. ReplyDate
  21738.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfo
  21739. tmpDisplayReplyInfo_1
  21740.     <font size=-1>
  21741.     </font>
  21742. V5DOTBL=true
  21743. $HideMailHeader
  21744.     0S0E
  21745. tmpDisplayFrom_Preview
  21746. DisplayFrom
  21747. DisplayFrom_Pre
  21748. $HideMailHeader
  21749. Principal
  21750. Principal
  21751. Principal
  21752. Principal
  21753. Principal
  21754.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  21755.     Gesendet von: 
  21756. FromDomain
  21757. FromDomain
  21758. FromDomain
  21759. FromDomain
  21760.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  21761. FromName
  21762.     0RR1S2S6S
  21763. FromStops
  21764.     0R1S2S6S
  21765. FromName
  21766. FromStops
  21767. FromStops
  21768. FromStops
  21769.     0RR1S2S3S4S10S13S17S20SDisplaySent
  21770. tmpDisplaySent
  21771. PostedDateh
  21772. PostedDate
  21773.     4S5S10S12S
  21774. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  21775. tmpDisplayDate_Pre
  21776. Bitte antworten
  21777. ReplyTo
  21778. ReplyTo
  21779. ReplyDate
  21780.  bis 
  21781. ReplyDate
  21782.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  21783. tmpDisplayReply
  21784. $HideMailHeader
  21785. IsMailStationery
  21786.     4S5S
  21787.     Name der Vorlage:
  21788. MAILSTATIONERYNAME
  21789. -Unbenannt-
  21790. MAILSTATIONERYNAME
  21791.     0S0E
  21792. StatNamez
  21793. Statio
  21794. $HideMailHeader
  21795. StdNotesLtr16
  21796.     7S9S10S11S13S15S
  21797.         An:    
  21798. NamePreference
  21799. AltSendTo
  21800. $NameLanguageTags
  21801. LanguagePreferencet
  21802. AltSendTo
  21803. SendTo
  21804.     5S6S9S10S14S
  21805. EnterSendTo
  21806.     0S0E
  21807. EnterSendTo
  21808.         Kopie:    
  21809. NamePreference
  21810. AltCopyTo
  21811. $NameLanguageTags
  21812. LanguagePreferencet
  21813. AltCopyTo
  21814. CopyTo
  21815.     5S6S7S9S10S14S
  21816. EnterCopyTo
  21817.     0S0E
  21818. EnterCopyTo
  21819.         Kopie:    
  21820. CC_Content
  21821. NamePreference
  21822. AltCopyTo
  21823. $NameLanguageTags
  21824. LanguagePreferencet
  21825. AltCopyTo
  21826. CopyTo
  21827.     11S12S13S15S16S20S
  21828. BCC_Content
  21829. DeliveredDate
  21830. BlindCopyTo
  21831.  (Blindkopie: 
  21832. BlindCopyTo
  21833.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  21834. CC_Content
  21835. BCC_Content
  21836.     0R3S4S
  21837. tmpEnterCopyTo
  21838.         Blindkopie:    
  21839. NamePreference
  21840. AltBlindCopyTo
  21841. $NameLanguageTags
  21842. LanguagePreferencet
  21843. AltBlindCopyTo
  21844. BlindCopyTo
  21845.     5S6S7S9S10S14S
  21846. EnterBlindCopyTo}
  21847.     0S0E
  21848. EnterBlindCopyTo
  21849. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  21850.         Thema:    
  21851. SIZE=50
  21852. Subject
  21853. ISMAILSTATIONERYh
  21854.     0S0E
  21855. MailedThisPass
  21856. MailedThisPass
  21857. MailedThisPass
  21858.     0R1RT4RTTT11RT
  21859. ReplyDate
  21860. ReplyDate
  21861. ReplyDate
  21862. Importanceh
  21863. Importance
  21864. Importance
  21865. Importance(
  21866. DeliveryReporth
  21867. DeliveryReport
  21868. DeliveryReport
  21869. DeliveryReport(
  21870. DeliveryPriorityh
  21871. DeliveryPriority
  21872. DeliveryPriority
  21873. DeliveryPriority(
  21874. UpdateProfileNote
  21875. UpdateProfileNote
  21876. UpdateProfileNote
  21877. ReturnReceipt
  21878. ReturnReceipt
  21879. ReturnReceipt
  21880. $KeepPrivateh
  21881. $KeepPrivate
  21882. $KeepPrivate(
  21883. ExpireDateh
  21884. ExpireDate
  21885. ExpireDate(
  21886. ReplyTo
  21887. ReplyTo
  21888. ReplyTo
  21889. MimeFormath
  21890. MimeFormat
  21891. MimeFormat
  21892. MimeFormat(
  21893. SMTPEncodingh
  21894. SMTPEncoding
  21895. SMTPEncoding
  21896. SMTPEncoding(
  21897. MIMEMailCharset
  21898. MIMEMailCharset
  21899. MIMEMailCharset
  21900. MIMEMailCharset
  21901. $AutoSpellh
  21902. $AutoSpell
  21903. $AutoSpell(
  21904. WebSubjecth
  21905. WebSubject
  21906. WebSubject(
  21907. tmpSenderTagh
  21908. tmpSenderTag
  21909. tmpSenderTag
  21910. tmpSenderTag(
  21911.     0R1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S325S326S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItems
  21912. $HideMailHeader
  21913. Moods
  21914. PostedDate
  21915. SenderTag
  21916. Moods
  21917.     7S9S11S13S14S15S16S17S19S20S21S22S25S27S
  21918. Bodyz
  21919. nderungen verwerfen
  21920. MEMO_CANCEL
  21921. 4194304
  21922.     0S0E
  21923. ActionInProgress
  21924. MEMO_CANCEL
  21925.     0R1S
  21926. IsMailStationery
  21927.     1S2S3S
  21928. Speichern und schlie
  21929. MEMO_DRAFT
  21930.     0S0E
  21931. ActionInProgress
  21932. MEMO_DRAFT
  21933.     0R1S
  21934. PostedDateh
  21935. IsMailStationery
  21936.     7S8S9S10S13S14S15S16S
  21937. act_save.GIF|act_CSSAVE?
  21938. Speichern und ablegen
  21939. MEMO_DRAFT_FILE
  21940.     0S0E
  21941. ActionInProgress
  21942. MEMO_DRAFT_FILE
  21943.     0R1S
  21944. PostedDateh
  21945. IsMailStationery
  21946.     7S8S9S10S13S14S15S16S
  21947. act_FOLDER.GIF|act_FOLDER?
  21948. Schlie
  21949. MEMO_CANCEL
  21950. 4194304
  21951.     0S0E
  21952. ActionInProgress
  21953. MEMO_CANCEL
  21954.     0R1S
  21955. IsMailStationery
  21956.     0S1S2S
  21957. Neues Memo(
  21958.     0S0E
  21959. act_NEWMEMO.GIF|act_NEWMEMO?
  21960. Antwort\Antwort 0
  21961. Reply
  21962.     0S0E
  21963. act_REPLY.GIF|act_REPLY?
  21964. Antwort\Antwort mit Protokoll
  21965. Antwort mit Protokoll
  21966. Dieses Dokument ist nicht vollst
  21967. ndig.
  21968.     4S8S10S13S
  21969. Reply with history
  21970. act_REPLY.GIF|act_REPLY?
  21971. Antwort\Allen antworten
  21972. MailStEd
  21973.     0S0E
  21974. Reply
  21975. act_REPLY.GIF|act_REPLY?
  21976. Antwort\Allen antworten (mit Protokoll)
  21977. MailStEd
  21978.     0S0E
  21979. Antwort mit Protokoll
  21980. Dieses Dokument ist nicht vollst
  21981. ndig.
  21982.     0R4S8S10S13S
  21983. Reply with history
  21984. act_REPLY.GIF|act_REPLY?
  21985. _Kategorisieren
  21986. Dokument _bearbeiten
  21987. Dokument _senden
  21988. Weiterleiten 
  21989.     0S0E
  21990. ISMAILSTATIONERY
  21991.     1S2S
  21992. act_FORWARD.GIF|act_FORWARD?
  21993. _Weiterleiten0
  21994. schen
  21995.     0S0E
  21996. act_DELETE.GIF|act_DELETE?
  21997. In Ordner _verschieben...1
  21998. Aus Ordner _entfernen
  21999. Senden
  22000. MEMO_SEND
  22001.     0S0E
  22002. ActionInProgress
  22003. MEMO_SEND
  22004.     0R1S
  22005. PostedDateh
  22006. IsMailStationery
  22007.     5S6S7S8S10S11S12S13S
  22008. act_SEND.GIF|act_SEND?
  22009. Senden und ablegen
  22010. MEMO_SEND_FILE
  22011.     0S0E
  22012. ActionInProgress
  22013. MEMO_SEND_FILE
  22014.     0R1S
  22015. PostedDateh
  22016. IsMailStationery
  22017.     5S6S7S8S12S13S
  22018. act_SENDFILE|act_SENDFILE?
  22019. Speichern
  22020. MEMO_STATIONERYSAVE
  22021.     0S0E
  22022. ActionInProgress
  22023. MEMO_STATIONERYSAVE
  22024.     0R1S
  22025. IsMailStationery
  22026.     2S3S
  22027. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  22028. Als Entwurf speichern
  22029. MEMO_DRAFT
  22030.     0S0E
  22031. ActionInProgress
  22032. MEMO_DRAFT
  22033.     0R1S
  22034. PostedDateh
  22035. IsMailStationery
  22036.     5S6S7S8S10S11S12S13S
  22037. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  22038. Vorlage umbenennen...kx
  22039. xxERROR
  22040. Es ist kein Dokument ausgew
  22041.     0S0E
  22042. xxTitle
  22043. Vorlage umbenennen
  22044. xxPrompt
  22045. Bitte geben Sie den neuen Namen f
  22046. r die Vorlage ein.
  22047. xxERROR
  22048. MailStationeryName
  22049. xxTitle
  22050. xxPrompt
  22051. MailStationeryName
  22052.     0RR1S
  22053.     0RS>
  22054. IsMailStationery
  22055.     2S3S4S5S
  22056. act_RENAME.GIF|act_RENAME?
  22057. Adresse...T
  22058. EnterSendTo
  22059. EnterCopyTo
  22060. EnterBlindCopyTo
  22061.     0S0E
  22062. PostedDateh
  22063. IsMailStationery
  22064.     5S6S7S8S10S11S12S13S
  22065. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  22066. Zustelloptionen...
  22067. $KeepPrivate
  22068. $KeepPrivate
  22069. $KeepPrivate
  22070. $KeepPrivate
  22071. DeliveryOptions
  22072. Zustelloptionen
  22073.     0R4S10S
  22074. PostedDateh
  22075.     5S6S7S8S
  22076. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  22077. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  22078. Use "CommonUI"
  22079. '++LotusScript Development Environment:2:5:(Forward):0:1
  22080. Declare Sub Click(Source As Button)
  22081. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22082. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22083. Private Sub BindEvents(Byval Objectname_ As String)
  22084. Static Source As BUTTON
  22085. Set Source = Bind(Objectname_)
  22086. On Event Click From Source Call Click
  22087. End Sub
  22088. '++LotusScript Development Environment:2:2:Click:1:12
  22089. Sub Click(Source As Button)
  22090.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  22091. End Sub
  22092. act_COPYINTO.GIF|act_COPYINTO?
  22093. Kopieren in\Neuen Kalendereintrag
  22094. '++LotusScript Development Environment:2:5:(Options):0:74
  22095. Use "CommonUI"
  22096. '++LotusScript Development Environment:2:5:(Forward):0:1
  22097. Declare Sub Click(Source As Button)
  22098. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22099. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22100. Private Sub BindEvents(Byval Objectname_ As String)
  22101. Static Source As BUTTON
  22102. Set Source = Bind(Objectname_)
  22103. On Event Click From Source Call Click
  22104. End Sub
  22105. '++LotusScript Development Environment:2:2:Click:1:12
  22106. Sub Click(Source As Button)
  22107.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  22108. End Sub
  22109. act_COPYINTO.GIF|act_COPYINTO?
  22110. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  22111. Use "CommonUI"
  22112. '++LotusScript Development Environment:2:5:(Forward):0:1
  22113. Declare Sub Click(Source As Button)
  22114. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22115. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22116. Private Sub BindEvents(Byval Objectname_ As String)
  22117.     Static Source As BUTTON
  22118.     Set Source = Bind(Objectname_)
  22119.     On Event Click From Source Call Click
  22120. End Sub
  22121. '++LotusScript Development Environment:2:2:Click:1:12
  22122. Sub Click(Source As Button)
  22123.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  22124. End Sub
  22125. act_COPYINTO.GIF|act_COPYINTO?
  22126. Werkzeuge\Vorgaben...
  22127. DialogMode
  22128. (Preferences)
  22129. act_TOOLS.GIF|act_TOOLS?
  22130. Werkzeuge\Zustellinformationen...l
  22131. xxTitle
  22132. Zustellinformationen
  22133.     0S0E
  22134. DeliveryInfo
  22135. xxTitle
  22136.     0RR4S5S6S7S8S9S10S11S12S14S
  22137. act_TOOLS.GIF|act_TOOLS?
  22138. Werkzeuge\Abwesenheit...8
  22139. (EditOfficeProfile)
  22140.     0S0E
  22141. act_TOOLS.GIF|act_TOOLS?
  22142. Werkzeuge\Absender in Adre
  22143. buch aufnehmen
  22144. (AddSenderToAddressBook)
  22145.     0S0E
  22146. act_TOOLS.GIF|act_TOOLS?
  22147. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  22148. '++LotusScript Development Environment:2:5:(Forward):0:1
  22149. Declare Sub Click(Source As Button)
  22150. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22151. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22152. Private Sub BindEvents(Byval Objectname_ As String)
  22153.     Static Source As BUTTON
  22154.     Set Source = Bind(Objectname_)
  22155.     On Event Click From Source Call Click
  22156. End Sub
  22157. '++LotusScript Development Environment:2:2:Click:1:12
  22158. Sub Click(Source As Button)
  22159.     Dim session As New notessession
  22160.     Dim uiws As New notesuiworkspace
  22161.     Dim collection As notesdocumentcollection
  22162.     Dim noteUIEditDocument As notesuidocument
  22163.     Dim database As NotesDatabase
  22164.     Set noteCursorDoc = session.currentdatabase.createdocument
  22165.     Set database = session.currentdatabase
  22166.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  22167. hlen", "W
  22168. hlen Sie bitte eine Vorlage f
  22169. r das neue Memo.")
  22170.     Set noteCursorDoc = collection.getfirstdocument
  22171.     If Not noteCursorDoc Is Nothing Then
  22172.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  22173.     End If
  22174. End Sub
  22175. act_TOOLS.GIF|act_TOOLS?
  22176. Werkzeuge\Signatur einf
  22177. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  22178. '++LotusScript Development Environment:2:5:(Forward):0:1
  22179. Declare Sub Click(Source As Button)
  22180. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22181. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22182. Private Sub BindEvents(Byval Objectname_ As String)
  22183.     Static Source As BUTTON
  22184.     Set Source = Bind(Objectname_)
  22185.     On Event Click From Source Call Click
  22186. End Sub
  22187. '++LotusScript Development Environment:2:2:Click:1:12
  22188. Sub Click(Source As Button)
  22189.     Call cMemoObject.InsertSignature(False)
  22190. End Sub
  22191. PostedDateh
  22192.     5S6S7S8S
  22193. act_TOOLS.GIF|act_TOOLS?
  22194. Werkzeuge\Als Vorlage speichern...
  22195. MEMO_ISSTATIONERY
  22196.     0S0E
  22197. MEMO_STATIONERYSAVE
  22198. ActionInProgress
  22199. MEMO_STATIONERYSAVE
  22200.     0R1S
  22201. MergeFlag
  22202. MEMO_ISSTATIONERY
  22203.     0R1S
  22204. PostedDateh
  22205. IsMailStationery
  22206.     5S6S7S8S10S11S12S13S
  22207. act_TOOLS.GIF|act_TOOLS?
  22208. Neues Memo
  22209. qstring
  22210. Query_String
  22211. Query_String
  22212. Query_String
  22213.     1S2S8S11S15S18S
  22214. pathinfo
  22215. Path_Info
  22216. &ClickG
  22217. Path_Info
  22218. &Click_
  22219. Path_Info
  22220.     0R1S2S8S11S15S18S
  22221.     0R1S10S14S16S23S
  22222. qstring
  22223. OpenDocument
  22224. path"
  22225. /Memo?OpenForm&docurl="
  22226. pathinfo"
  22227. path"
  22228. /Memo?OpenForm"
  22229.     0R1S3S13S14S17S
  22230. act_NEW.GIF|act_NEW?
  22231. Weiterleiten
  22232. Format
  22233. CalendarProfile
  22234. FormatReplies
  22235. FormatChar
  22236. CalendarProfile
  22237. OffsetChar
  22238.     0R1S10S14S16S23S
  22239. Format
  22240. path"
  22241. /wForward?OpenForm&ParentUNID="
  22242. Forward
  22243. path"
  22244. /wForward?OpenForm&ParentUNID="
  22245. Forward&Format=
  22246. FormatChar"
  22247.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  22248. act_FORWARD.GIF|act_FORWARD?
  22249. Senden\Senden
  22250. tmpSendOptions
  22251. act_SEND.GIF|act_SEND?
  22252. Senden\Senden und speichern
  22253. tmpSendOptions
  22254. act_SEND.GIF|act_SEND?
  22255. Senden\Als Entwurf speichern`
  22256. tmpSendOptions
  22257. act_SEND.GIF|act_SEND?
  22258. Antwort\Antwort
  22259. wReply
  22260.     0S0E
  22261. act_REPLY.GIF|act_REPLY?
  22262. Antwort\Allen antworten
  22263.     0R1S10S14S16S23S
  22264. path"
  22265. /wReply?OpenForm&xxxxxxUNID="
  22266. &All"
  22267.     0R3S4S5S6S7S8S15S17S18S
  22268. Antwort\Antwort mit ProtokollI
  22269.     1S10S14S16S23S
  22270. Format
  22271. CalendarProfile
  22272. FormatReplies
  22273.     0R6S
  22274. FormatChar
  22275. CalendarProfile
  22276. OffsetChar
  22277. Format
  22278. path"
  22279. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  22280. &Format="
  22281. Formatchar"
  22282. Reply With History
  22283.     0R9S10S11S12S13S14S21S23S24S
  22284. act_REPLY.GIF|act_REPLY?
  22285. Antwort\Allen antworten (mit Protokoll)e
  22286.     1S10S14S16S23S
  22287. Format
  22288. CalendarProfile
  22289. FormatReplies
  22290.     0R6S
  22291. FormatChar
  22292. CalendarProfile
  22293. OffsetChar
  22294. Format
  22295. path"
  22296. /Reply+With+History?OpenForm&ParentUNID="
  22297. &Format="
  22298. FormatChar"
  22299. &All"
  22300. path"
  22301. /Reply+With+History?OpenForm&ParentUNID="
  22302. &All"
  22303.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  22304. Adresse...
  22305. Appointment
  22306. AppointmentType
  22307. TaskType
  22308. tmpOwner
  22309. Chair
  22310.     20S21S22S
  22311. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  22312. var pathname = (window.location.pathname);
  22313. if (navigator.appVersion.indexOf('X11') != -1)  
  22314.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  22315.     } else 
  22316.     if (navigator.appName =='Netscape') 
  22317.             if (navigator.appVersion.indexOf("Win") != -1)
  22318.                 {
  22319.                 window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  22320.                 } else
  22321.                 {
  22322.                  window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  22323.                 }
  22324.             } else    
  22325.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=750,height=540');
  22326. Zustelloptionen...
  22327. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  22328. var pathname = (window.location.pathname);
  22329. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
  22330. Bearbeiten 
  22331.     0S0E
  22332. act_EDIT.GIF|act_EDIT?
  22333. schen
  22334.     1S10S14S16S23S
  22335.     0R5S
  22336. path"
  22337. /wDelete?OpenAgent&
  22338. UNID"
  22339. &From="
  22340. view"
  22341. tmpWasMailed
  22342.     1S2S
  22343. act_DELETE.GIF|act_DELETE?
  22344. Gehe zu\Eingang
  22345.     1S2S
  22346. path"
  22347. /MailFS?OpenFrameset"
  22348.     0R3S4S5S6S
  22349. act_goto.gif|act_goto?
  22350. Gehe zu\Kalender
  22351.     1S2S
  22352. path"
  22353. /CalendarFS?OpenFrameset"
  22354.     0R3S4S5S6S
  22355. act_goto.gif|act_goto?
  22356. Gehe zu\Aufgabe
  22357.     1S2S
  22358. path"
  22359. /ToDoFS?OpenFrameset"
  22360.     0R3S4S5S6S
  22361. act_goto.gif|act_goto?
  22362. Gehe zu\Vor
  22363.     0S0E
  22364. act_goto.gif|act_goto?
  22365. Gehe zu\Zur
  22366.     0S0E
  22367. act_goto.gif|act_goto?
  22368. Kopieren in\Neue Aufgabe
  22369.     1S10S14S16S23S
  22370. path"
  22371. /Task?OpenForm&UNID="
  22372. &CopyInto
  22373.     0R3S4S5S6S7S8S15S17S18S
  22374. act_COPYINTO.GIF|act_COPYINTO?
  22375. Kopieren in\Neuen Kalendereintrag
  22376.     1S10S14S16S23S
  22377. path"
  22378. /Appointment?OpenForm&UNID=
  22379. &CopyInto
  22380.     0R3S4S5S6S7S8S15S17S18S
  22381. act_COPYINTO.GIF|act_COPYINTO?
  22382. nderungen verwerfen
  22383. MEMO_CANCEL
  22384. 4194304
  22385.     0S0E
  22386. ActionInProgress
  22387. MEMO_CANCEL
  22388.     0R1S
  22389. IsMailStationery
  22390.     1S2S3S
  22391. Speichern und schlie
  22392. MEMO_DRAFT
  22393.     0S0E
  22394. ActionInProgress
  22395. MEMO_DRAFT
  22396.     0R1S
  22397. PostedDateh
  22398. IsMailStationery
  22399.     7S8S9S10S13S14S15S16S
  22400. Speichern und ablegen
  22401. MEMO_DRAFT_FILE
  22402.     0S0E
  22403. ActionInProgress
  22404. MEMO_DRAFT_FILE
  22405.     0R1S
  22406. PostedDateh
  22407. IsMailStationery
  22408.     7S8S9S10S13S14S15S16S
  22409. Schlie
  22410. MEMO_CANCEL
  22411. 4194304
  22412.     0S0E
  22413. ActionInProgress
  22414. MEMO_CANCEL
  22415.     0R1S
  22416. IsMailStationery
  22417.     0S1S2S
  22418. Neues Memo(
  22419.     0S0E
  22420. Antwort\Antwort
  22421. Reply
  22422.     0S0E
  22423. Antwort\Antwort mit Protokoll
  22424. Antwort mit Protokoll
  22425. Dieses Dokument ist nicht vollst
  22426. ndig.
  22427.     4S8S10S13S
  22428. Reply with history
  22429. Antwort\Allen antworten
  22430. MailStEd
  22431.     0S0E
  22432. Reply
  22433. Antwort\Allen antworten (mit Protokoll)i
  22434. MailStEd
  22435.     0S0E
  22436. Antwort mit Protokoll
  22437. Dieses Dokument ist nicht vollst
  22438. ndig.
  22439.     0R4S8S10S13S
  22440. Reply with history
  22441. _Kategorisierena
  22442. Dokument _bearbeiten
  22443. Dokument _senden
  22444. Weiterleiten 
  22445.     0S0E
  22446. ISMAILSTATIONERY
  22447.     1S2S
  22448. _WeiterleitenF
  22449. schenk 
  22450.     0S0E
  22451. In Ordner _verschieben...S
  22452. Aus Ordner _entfernenS
  22453. Senden
  22454. MEMO_SEND
  22455.     0S0E
  22456. ActionInProgress
  22457. MEMO_SEND
  22458.     0R1S
  22459. PostedDateh
  22460. IsMailStationery
  22461.     5S6S7S8S10S11S12S13S
  22462. Senden und ablegen
  22463. MEMO_SEND_FILE
  22464.     0S0E
  22465. ActionInProgress
  22466. MEMO_SEND_FILE
  22467.     0R1S
  22468. PostedDateh
  22469. IsMailStationery
  22470.     5S6S7S8S12S13S
  22471. Speichern
  22472. MEMO_STATIONERYSAVE
  22473.     0S0E
  22474. ActionInProgress
  22475. MEMO_STATIONERYSAVE
  22476.     0R1S
  22477. IsMailStationery
  22478.     2S3S
  22479. Als Entwurf speicherny
  22480. MEMO_DRAFT
  22481.     0S0E
  22482. ActionInProgress
  22483. MEMO_DRAFT
  22484.     0R1S
  22485. PostedDateh
  22486. IsMailStationery
  22487.     5S6S7S8S10S11S12S13S
  22488. Vorlage umbenennen...
  22489. xxERROR
  22490. Es ist kein Dokument ausgew
  22491.     0S0E
  22492. xxTitle
  22493. Vorlage umbenennen
  22494. xxPrompt
  22495. Bitte geben Sie den neuen Namen f
  22496. r die Vorlage ein.
  22497. xxERROR
  22498. MailStationeryName
  22499. xxTitle
  22500. xxPrompt
  22501. MailStationeryName
  22502.     0RR1S
  22503.     0RS>
  22504. IsMailStationery
  22505.     2S3S4S5S
  22506. Adresse...T
  22507. EnterSendTo
  22508. EnterCopyTo
  22509. EnterBlindCopyTo
  22510.     0S0E
  22511. PostedDateh
  22512. IsMailStationery
  22513.     5S6S7S8S10S11S12S13S
  22514. Zustelloptionen...
  22515. $KeepPrivate
  22516. $KeepPrivate
  22517. $KeepPrivate
  22518. $KeepPrivate
  22519. DeliveryOptions
  22520. Zustelloptionen
  22521.     0R4S10S
  22522. PostedDateh
  22523.     5S6S7S8S
  22524. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  22525. Use "CommonUI"
  22526. '++LotusScript Development Environment:2:5:(Forward):0:1
  22527. Declare Sub Click(Source As Button)
  22528. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22529. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22530. Private Sub BindEvents(Byval Objectname_ As String)
  22531. Static Source As BUTTON
  22532. Set Source = Bind(Objectname_)
  22533. On Event Click From Source Call Click
  22534. End Sub
  22535. '++LotusScript Development Environment:2:2:Click:1:12
  22536. Sub Click(Source As Button)
  22537.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  22538. End Sub
  22539. Kopieren in\Neuen Kalendereintrag
  22540. '++LotusScript Development Environment:2:5:(Options):0:74
  22541. Use "CommonUI"
  22542. '++LotusScript Development Environment:2:5:(Forward):0:1
  22543. Declare Sub Click(Source As Button)
  22544. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22545. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22546. Private Sub BindEvents(Byval Objectname_ As String)
  22547. Static Source As BUTTON
  22548. Set Source = Bind(Objectname_)
  22549. On Event Click From Source Call Click
  22550. End Sub
  22551. '++LotusScript Development Environment:2:2:Click:1:12
  22552. Sub Click(Source As Button)
  22553.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  22554. End Sub
  22555. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  22556. Use "CommonUI"
  22557. '++LotusScript Development Environment:2:5:(Forward):0:1
  22558. Declare Sub Click(Source As Button)
  22559. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22560. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22561. Private Sub BindEvents(Byval Objectname_ As String)
  22562.     Static Source As BUTTON
  22563.     Set Source = Bind(Objectname_)
  22564.     On Event Click From Source Call Click
  22565. End Sub
  22566. '++LotusScript Development Environment:2:2:Click:1:12
  22567. Sub Click(Source As Button)
  22568.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  22569. End Sub
  22570. Werkzeuge\Vorgaben...oR
  22571. DialogMode
  22572. (Preferences)
  22573. Werkzeuge\Zustellinformationen...
  22574. xxTitle
  22575. Zustellinformationen
  22576.     0S0E
  22577. DeliveryInfo
  22578. xxTitle
  22579.     0RR4S5S6S7S8S9S10S11S12S14S
  22580. Werkzeuge\Abwesenheit...8
  22581. (EditOfficeProfile)
  22582.     0S0E
  22583. Werkzeuge\Absender in Adre
  22584. buch aufnehmend<
  22585. (AddSenderToAddressBook)
  22586.     0S0E
  22587. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  22588. '++LotusScript Development Environment:2:5:(Forward):0:1
  22589. Declare Sub Click(Source As Button)
  22590. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22591. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22592. Private Sub BindEvents(Byval Objectname_ As String)
  22593.     Static Source As BUTTON
  22594.     Set Source = Bind(Objectname_)
  22595.     On Event Click From Source Call Click
  22596. End Sub
  22597. '++LotusScript Development Environment:2:2:Click:1:12
  22598. Sub Click(Source As Button)
  22599.     Dim session As New notessession
  22600.     Dim uiws As New notesuiworkspace
  22601.     Dim collection As notesdocumentcollection
  22602.     Dim noteUIEditDocument As notesuidocument
  22603.     Dim database As NotesDatabase
  22604.     Set noteCursorDoc = session.currentdatabase.createdocument
  22605.     Set database = session.currentdatabase
  22606.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  22607. hlen", "W
  22608. hlen Sie bitte eine Vorlage f
  22609. r das neue Memo.")
  22610.     Set noteCursorDoc = collection.getfirstdocument
  22611.     If Not noteCursorDoc Is Nothing Then
  22612.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  22613.     End If
  22614. End Sub
  22615. Werkzeuge\Signatur einf
  22616. gen...'++LotusScript Development Environment:2:5:(Options):0:66
  22617. '++LotusScript Development Environment:2:5:(Forward):0:1
  22618. Declare Sub Click(Source As Button)
  22619. '++LotusScript Development Environment:2:5:(Declarations):0:2
  22620. '++LotusScript Development Environment:2:2:BindEvents:1:129
  22621. Private Sub BindEvents(Byval Objectname_ As String)
  22622.     Static Source As BUTTON
  22623.     Set Source = Bind(Objectname_)
  22624.     On Event Click From Source Call Click
  22625. End Sub
  22626. '++LotusScript Development Environment:2:2:Click:1:12
  22627. Sub Click(Source As Button)
  22628.     Call cMemoObject.InsertSignature(False)
  22629. End Sub
  22630. PostedDateh
  22631.     5S6S7S8S
  22632. Werkzeuge\Als Vorlage speichern...
  22633. MEMO_ISSTATIONERY
  22634.     0S0E
  22635. MEMO_STATIONERYSAVE
  22636. ActionInProgress
  22637. MEMO_STATIONERYSAVE
  22638.     0R1S
  22639. MergeFlag
  22640. MEMO_ISSTATIONERY
  22641.     0R1S
  22642. PostedDateh
  22643. IsMailStationery
  22644.     5S6S7S8S10S11S12S13S
  22645. Neues Memo
  22646. qstring
  22647. Query_String
  22648. Query_String
  22649. Query_String
  22650.     1S2S8S11S15S18S
  22651. pathinfo
  22652. Path_Info
  22653. &ClickG
  22654. Path_Info
  22655. &Click_
  22656. Path_Info
  22657.     0R1S2S8S11S15S18S
  22658.     0R1S10S14S16S23S
  22659. qstring
  22660. OpenDocument
  22661. path"
  22662. /Memo?OpenForm&docurl="
  22663. pathinfo"
  22664. path"
  22665. /Memo?OpenForm"
  22666.     0R1S3S13S14S17S
  22667. Weiterleiten
  22668. Format
  22669. CalendarProfile
  22670. FormatReplies
  22671. FormatChar
  22672. CalendarProfile
  22673. OffsetChar
  22674.     0R1S10S14S16S23S
  22675. Format
  22676. path"
  22677. /wForward?OpenForm&ParentUNID="
  22678. Forward
  22679. path"
  22680. /wForward?OpenForm&ParentUNID="
  22681. Forward&Format=
  22682. FormatChar"
  22683.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  22684. Senden\Senden
  22685. tmpSendOptions
  22686. Senden\Senden und speichern
  22687. tmpSendOptions
  22688. Senden\Als Entwurf speichern`
  22689. tmpSendOptions
  22690. Antwort\Antwort
  22691. wReply
  22692.     0S0E
  22693. Antwort\Allen antworten
  22694.     0R1S10S14S16S23S
  22695. path"
  22696. /wReply?OpenForm&xxxxxxUNID="
  22697. &All"
  22698.     0R3S4S5S6S7S8S15S17S18S
  22699. Antwort\Antwort mit Protokoll
  22700.     1S10S14S16S23S
  22701. Format
  22702. CalendarProfile
  22703. FormatReplies
  22704.     0R6S
  22705. FormatChar
  22706. CalendarProfile
  22707. OffsetChar
  22708. Format
  22709. path"
  22710. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  22711. &Format="
  22712. Formatchar"
  22713. Reply With History
  22714.     0R9S10S11S12S13S14S21S23S24S
  22715. Antwort\Allen antworten (mit Protokoll)
  22716.     1S10S14S16S23S
  22717. Format
  22718. CalendarProfile
  22719. FormatReplies
  22720.     0R6S
  22721. FormatChar
  22722. CalendarProfile
  22723. OffsetChar
  22724. Format
  22725. path"
  22726. /Reply+With+History?OpenForm&ParentUNID="
  22727. &Format="
  22728. FormatChar"
  22729. &All"
  22730. path"
  22731. /Reply+With+History?OpenForm&ParentUNID="
  22732. &All"
  22733.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  22734. Bearbeiten 
  22735.     0S0E
  22736. schen
  22737.     1S10S14S16S23S
  22738.     0R5S
  22739. path"
  22740. /wDelete?OpenAgent&
  22741. UNID"
  22742. &From="
  22743. view"
  22744. tmpWasMailed
  22745.     1S2S
  22746. Gehe zu\Eingang!
  22747.     1S2S
  22748. path"
  22749. /MailFS?OpenFrameset"
  22750.     0R3S4S5S6S
  22751. Gehe zu\Kalender
  22752.     1S2S
  22753. path"
  22754. /CalendarFS?OpenFrameset"
  22755.     0R3S4S5S6S
  22756. Gehe zu\Aufgaber
  22757.     1S2S
  22758. path"
  22759. /ToDoFS?OpenFrameset"
  22760.     0R3S4S5S6S
  22761. Gehe zu\Vorh 
  22762.     0S0E
  22763. Gehe zu\Zur
  22764.     0S0E
  22765. Kopieren in\Neue Aufgabe
  22766.     1S10S14S16S23S
  22767. path"
  22768. /Task?OpenForm&UNID="
  22769. &CopyInto
  22770.     0R3S4S5S6S7S8S15S17S18S
  22771. Kopieren in\Neuen Kalendereintrag
  22772.     1S10S14S16S23S
  22773. path"
  22774. /Appointment?OpenForm&UNID=
  22775. &CopyInto
  22776.     0R3S4S5S6S7S8S15S17S18S
  22777. Lotus Product
  22778. OBJECT
  22779. Lotus Product
  22780. OBJECT
  22781. Lotus Product
  22782. OBJECT
  22783. Lotus Product
  22784. OBJECT
  22785. O=Lotus Notes
  22786. O=Lotus Notes
  22787. PURSAFO
  22788. |.:#U
  22789. O=Lotus Notes
  22790. CN=Lotus Notes Template Development/O=Lotus Notes
  22791. PURSAFO
  22792. 2"A?t
  22793. $Language
  22794. $LastBuildTime
  22795. $BabelInfo
  22796. $BackgroundR5
  22797. $HTMLCode
  22798. $HeaderArea
  22799. $RegionFrameset
  22800. $Info
  22801. $SubForms
  22802. $WINDOWTITLE
  22803. $WEBQuerySave
  22804. $WEBQueryOpen
  22805. $AppHelpFormula
  22806. $WebFlags
  22807. $Script
  22808. $$Script_O
  22809. $$ScriptName
  22810. $$FormScript
  22811. $$$FormScript_O
  22812. $Body
  22813. $V5ACTIONS
  22814. $ACTIONS
  22815. $SCRIPTOBJ_24
  22816. $SCRIPTOBJ_25
  22817. $SCRIPTOBJ_26
  22818. $SCRIPTOBJ_31
  22819. var fieldStartDate;
  22820. var fieldStartTime;
  22821. var fieldEndTime;
  22822. var fieldEndDate;
  22823. var fieldSendTo;
  22824. var fieldCopyTo;
  22825. var CurrStartTime;
  22826. var CurrStartDate;
  22827. var CurrEndDate;
  22828. var CurrEndTime;
  22829. var OrigSendTo;
  22830. var OrigCopyTo;
  22831. var ThisForm;
  22832. function OKClick()
  22833.     // put the values back in the underlying form in the right format
  22834.     if(window.opener)
  22835.         window.opener.document.forms[0].StartTime.value = document.forms[0].tmpStartTime.value;
  22836.         window.opener.document.forms[0].StartDate.value = document.forms[0].tmpStartDate.value;
  22837.         window.opener.document.forms[0].EndTime.value = document.forms[0].tmpEndTime.value;
  22838.         window.opener.document.forms[0].EndDate.value = document.forms[0].tmpEndDate.value;
  22839.     self.close();
  22840. function CancelClick() 
  22841.     self.close();
  22842. //Initialize fields in the dialog
  22843. if ((document.forms[0].tmpStartDateRef.value=="") || (document.forms[0].tmpEndDateRef.value=="") || (document.forms[0].tmpEndTimeRef.value=="")||(document.forms[0].tmpStartTimeRef.value=="")){
  22844. //Pull the current field object off the dialog
  22845. fieldStartTime=document.forms[0].tmpStartTime;
  22846. fieldStartDate=document.forms[0].tmpStartDate;
  22847. fieldEndTime=document.forms[0].tmpEndTime;
  22848. fieldEndDate=document.forms[0].tmpEndDate;
  22849. fieldSendTo = document.forms[0].SendTo;
  22850. fieldCopyTo=document.forms[0].CopyTo;
  22851. //Pull the current values off the underlying form
  22852. CurrStartDate = window.opener.document.forms[0].StartDate.value;
  22853. CurrStartTime = window.opener.document.forms[0].StartTime.value;
  22854. CurrEndDate=window.opener.document.forms[0].EndDate.value;
  22855. CurrEndTime=window.opener.document.forms[0].EndTime.value;
  22856. OrigSendTo = window.opener.document.forms[0].SendTo.value;
  22857. OrigCopyTo = window.opener.document.forms[0].CopyTo.value;
  22858. //Set the dialog with the underlying document values
  22859. //Only want to do this the first time through
  22860. fieldStartTime.value=CurrStartTime;
  22861. fieldStartDate.value=CurrStartDate;
  22862. fieldEndTime.value=CurrEndTime;
  22863. fieldEndDate.value=CurrEndDate;
  22864. fieldSendTo.value=OrigSendTo;
  22865. fieldCopyTo.value=OrigCopyTo;
  22866. //Set the current values as reference values
  22867. document.forms[0].tmpChair.value=window.opener.document.forms[0].Chair.value;
  22868. document.forms[0].tmpStartDateRef.value=CurrStartDate;
  22869. document.forms[0].tmpStartTimeRef.value=CurrStartTime;
  22870. document.forms[0].tmpEndDateRef.value=CurrEndDate;
  22871. document.forms[0].tmpEndTimeRef.value=CurrEndTime;
  22872. document.forms[0].tmpRooms.value = window.opener.document.forms[0].RoomToReserve.value
  22873. document.forms[0].tmpResources.value = window.opener.document.forms[0].Resources.value
  22874. if ((window.location.href.indexOf("Seq"))==-1)  {
  22875.     document.links[0].onclick();
  22876. } else {
  22877. //If this is a reload -- move the reference values into the current visible fields
  22878. document.forms[0].tmpStartDate.value=document.forms[0].tmpStartDateRef.value;
  22879. document.forms[0].tmpEndDate.value=document.forms[0].tmpEndDateRef.value;
  22880. document.forms[0].tmpStartTime.value=document.forms[0].tmpStartTimeRef.value;
  22881. document.forms[0].tmpEndTime.value=document.forms[0].tmpEndTimeRef.value;
  22882. Lotus Product
  22883.  wFreeTime
  22884. Suche nach freier Zeit
  22885. <NOSCRIPT><H2>
  22886. Diese Seite erfordert JavaScript Version 1.1 oder h
  22887. </H2><HR></NOSCRIPT>
  22888. <SCRIPT LANGUAGE="JavaScript"><!--
  22889.     _version_=10 //--></SCRIPT>
  22890. <SCRIPT LANGUAGE="JavaScript1.1"><!--X
  22891.     _version_=11 //--></SCRIPT>
  22892. <SCRIPT LANGUAGE="JavaScript1.2"><!--X
  22893.     _version_=12 //--></SCRIPT>
  22894. <SCRIPT LANGUAGE="JavaScript"><!--
  22895.     if(_version_<11)X
  22896.         document.write('<H2>
  22897. Diese Seite erfordert JavaScript Version 1.1 oder h
  22898. </H2><HR>');
  22899.         document.close();X
  22900. //--></SCRIPT>
  22901.     Uhrzeit der BesprechungX
  22902.     Anfangsdatum:  X
  22903.     Startzeit: X
  22904. tmpStartDate
  22905. document.forms[0].tmpStartDateRef.value=document.forms[0].tmpStartDate.value;
  22906. FONT Size=2
  22907.      X
  22908. tmpStartTime
  22909. document.forms[0].tmpStartTimeRef.value=document.forms[0].tmpStartTime.value;
  22910. FONT Size=2
  22911.     Enddatum:   
  22912.     Endezeit:  X
  22913. tmpEndDate
  22914. document.forms[0].tmpEndDateRef.value=document.forms[0].tmpEndDate.value;
  22915. FONT Size=2
  22916.      X
  22917. tmpEndTime
  22918. document.forms[0].tmpEndTimeRef.value=document.forms[0].tmpEndTime.value;
  22919. FONT Size=2
  22920.     <font size=-1> X
  22921. tmpMessages
  22922. tmpMessagesXz
  22923. FONT Size=2
  22924.     </font>X
  22925.     Sofern sich Terminschwierigkeiten ergeben, k
  22926. nnen Sie eine neue Uhrzeit eingeben bzw. aus der Liste der empfohlenen Besprechungszeiten ausw
  22927. hlen. Klicken Sie anschlie
  22928. end auf 'Aktualisieren'.X
  22929.     <br><br>
  22930.     <font size=-1><br>
  22931. tmpTimes
  22932. tmpTimesz
  22933. FONT Size=2
  22934.     <font>
  22935. bersicht - Freie Zeit
  22936.     br>X
  22937. tmpGridFormat
  22938. Nach Tag|0Nach Person|1
  22939. document.links[0].onclick();
  22940. FONT Size=2
  22941. tmpGridField
  22942. tmpGridFieldz
  22943. FONT Size=2
  22944.     <br><br>
  22945. tmpStartDateTime
  22946. tmpStartDate
  22947. tmpStartTime
  22948.     1S2S10S11S12S
  22949. tmpEndDateTime
  22950. tmpEndDate
  22951. tmpEndTime
  22952.     0R1S2S10S11S12S13S
  22953. Duration
  22954. tmpEndDateTime
  22955. tmpStartDateTime#
  22956. Chair
  22957. tmpChair
  22958.     0R1S2S6S
  22959. prep attendee list
  22960.     0RR1S
  22961. tmpST2
  22962. tmpSendTo
  22963.     0R1S2S8S
  22964. tmpCT2
  22965. tmpCopyTo
  22966.     0R1S2S8S
  22967. tmpSendToArg
  22968. SendTo^
  22969. tmpST2
  22970. tmpST2
  22971. SendTo
  22972.     0R1S2S5S6S11S13S14S15S21S24S
  22973. tmpCopyToArg
  22974. CopyTo^
  22975. tmpCT2
  22976. tmpCT2
  22977. CopyTo
  22978.     0R1S2S5S6S11S13S14S15S21S24S
  22979. Domino
  22980. RefreshFreeTimeGrid
  22981. tmpGridField
  22982. tmpTimes
  22983. tmpMessages
  22984. tmpStartDateRef
  22985. tmpStartTimeRef
  22986. Duration
  22987. tmpGridFormat
  22988. Chair
  22989. tmpSendToArg
  22990. tmpCopyToArg
  22991.     0R4S6S8S10S12S28S30S32S36S38S
  22992. ftbusy.gif
  22993. sample
  22994.      BelegtX
  22995. ftfree.gif
  22996.      FreiX
  22997. ftok.gif
  22998.      OKX
  22999. ftconf.gif
  23000.      KonfliktX
  23001. ftno.gif
  23002.      Keine Informationen
  23003. tmpStartDate
  23004.     0S0E
  23005. tmpStartDateTime
  23006. tmpStartDate
  23007. tmpStartTime
  23008.     1S2S10S11S12S
  23009. tmpEndDateTime
  23010. tmpEndDate
  23011. tmpEndTime
  23012.     0R1S2S10S11S12S13S
  23013. Duration
  23014. tmpEndDateTime
  23015. tmpStartDateTime#
  23016. Chair
  23017. tmpChair
  23018.     0RR1S2S6S
  23019. prep attendee list
  23020.     0RR1S
  23021. tmpST2
  23022. tmpSendTo
  23023.     0R1S2S8S
  23024. tmpCT2
  23025. tmpCopyTo
  23026.     0R1S2S8S
  23027. tmpSendToArg
  23028. SendTo^
  23029. tmpST2
  23030. tmpST2
  23031. SendTo
  23032.     0R1S2S5S6S11S13S14S15S21S24S
  23033. tmpCopyToArg
  23034. CopyTo^
  23035. tmpCT2
  23036. tmpCT2
  23037. CopyTo
  23038.     0R1S2S5S6S11S13S14S15S21S24S
  23039. parse the suggestion selection (which may not be made)
  23040.     0RR1S
  23041. tmpList
  23042. tmpTimes
  23043.     0R1S2S6S
  23044. tmpIsEmptySelection
  23045. tmpList
  23046.     0R1S2S8S
  23047. tmpDateSugg
  23048. tmpList
  23049.     0R1S2S8S
  23050. tmpTimeSugg
  23051. tmpList
  23052.     0R1S2S2E10S13S
  23053. tmpDurationSugg
  23054. tmpList
  23055.     0R1S2S8S
  23056. update the manual input fields
  23057.     0RR1S
  23058. tmpStartDateRef
  23059. tmpIsEmptySelection
  23060. tmpTimes
  23061. tmpStartDateRef
  23062. tmpDateSugg
  23063.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  23064. tmpStartTimeRef
  23065. tmpIsEmptySelection
  23066. tmpTimes
  23067. tmpStartTimeRef
  23068. tmpTimeSugg
  23069.     0R1S2S3S4S6S7S8S9S10S11S13S15S
  23070. tmpNewDateTime
  23071. tmpDateSugg
  23072. tmpTimeSugg
  23073. tmpDurationSugg
  23074.     0R1S2S12S13S14S
  23075. tmpEndDateRef
  23076. tmpIsEmptySelection
  23077. tmpTimes
  23078. tmpEndDateRef
  23079. tmpNewDateTime
  23080.     0R1S6S7S10S11S15S
  23081. tmpEndTimeRef
  23082. tmpIsEmptySelection
  23083. tmpTimes
  23084. tmpEndTimeRef
  23085. tmpNewDateTime
  23086.     0R1S6S7S10S11S15S
  23087. tmpRoomList
  23088. tmpRooms
  23089.     0RR1S2S
  23090. tmpResourceList
  23091. tmpResources
  23092.     0R1S2S
  23093. perform the freetime search
  23094.     0RR1S
  23095. tmpIsEmptySelection
  23096. tmpTimes
  23097. Domino
  23098. RefreshFreeTimeGrid
  23099. tmpGridField
  23100. tmpTimes
  23101. tmpMessages
  23102. tmpStartDateRef
  23103. tmpStartTimeRef
  23104. Duration
  23105. tmpGridFormat
  23106. Chair
  23107. tmpSendToArg
  23108. tmpRoomList
  23109. tmpResourceList
  23110. tmpCopyToArg
  23111. Domino
  23112. RefreshFreeTimeGrid
  23113. tmpGridField
  23114. tmpTimes
  23115. tmpMessages
  23116. tmpDateSugg
  23117. tmpTimeSugg
  23118. tmpDurationSugg
  23119. tmpGridFormat
  23120. Chair
  23121. tmpSendToArg
  23122. tmpRoomList
  23123. tmpResourceList
  23124. tmpCopyToArg
  23125.     0R1S3S4S5S6S7S8S10R14S16S18S20S22S30S38S40S42S44S46S55S58R62S64S66S68S70S72S74S76S78S80S82S91S93S
  23126.     AktualisierenXz
  23127. FONT Size=2
  23128. Neue Schaltfl
  23129. Zum Ausf
  23130. hren dieser Schaltfl
  23131. che ist eine neuere Version von Notes erforderlich.
  23132.     0S0E
  23133. OKClick()
  23134.       OK  z
  23135. FONT Size=2
  23136. Neue Schaltfl
  23137. Zum Ausf
  23138. hren dieser Schaltfl
  23139. che ist eine neuere Version von Notes erforderlich.
  23140.     0S0E
  23141. CancelClick()
  23142.     AbbrechenXz
  23143. FONT Size=2
  23144. tmpStartDateRef
  23145. tmpStartDateRefX
  23146. tmpStartTimeRef
  23147. tmpStartTimeRefX
  23148. tmpEndDateRef
  23149. tmpEndDateRefX
  23150. tmpEndTimeRef
  23151. tmpEndTimeRefX
  23152. tmpDurationRef[<TYPE=hidden >]
  23153. DateFormatHelper2
  23154. DateFormatHelper2[<TYPE=hidden >]X
  23155. TimeFormatHelper2
  23156. TimeFormatHelper2[<TYPE=hidden >]X
  23157. DurationFormatHelper2
  23158. DurationFormatHelper2[<TYPE=hidden >]X
  23159. tmpChair
  23160. SendTo
  23161. CopyTo
  23162. tmpCopyToX
  23163. tmpSendToX
  23164. tmpRooms
  23165. tmpResources
  23166. O=Lotus Notes
  23167. O=Lotus Notes
  23168. PURSAFO
  23169. |.:#U
  23170. O=Lotus Notes
  23171. CN=Lotus Notes Template Development/O=Lotus Notes
  23172. PURSAFO
  23173. StartDate
  23174. StartTime
  23175. EndDate
  23176. EndTime
  23177. $HTMLCode
  23178. $Info
  23179. $WebFlags
  23180. $$Script_O
  23181. $$ScriptName
  23182. tmpStartDate
  23183. tmpStartTime
  23184. tmpEndDate
  23185. tmpEndTime
  23186. $WINDOWTITLE
  23187. $Body
  23188. $Language
  23189. $LastBuildTime
  23190. $BabelInfo
  23191. &Arial
  23192. (wMemo)
  23193. Lotus Product
  23194.  NonDelivery Report
  23195. *** Nachricht nicht zugestellt ***
  23196. _KategorisierenX
  23197. Schlie
  23198.     0S0E
  23199. Dokument bearbeitenX
  23200. Erneut sendenX
  23201. Erneut sendenX
  23202. $AutoSpell(
  23203.     1S3S
  23204.     0R7S9S
  23205. SaveOptions
  23206.     0R1S2S3S
  23207. _WeiterleitenX
  23208. In Ordner _verschieben...X
  23209. Aus Ordner _entfernen...
  23210. Erneut sendenX
  23211. Erneut sendenX<
  23212.     0S0E
  23213. schenX
  23214.     1S10S14S16S23S
  23215.     0R5S
  23216. path"
  23217. /wDelete?OpenAgent&
  23218. UNID"
  23219. &From="
  23220. view"
  23221. Gehe zu\EingangX
  23222.     1S2S
  23223. path"
  23224. /MailFS?OpenFrameset"
  23225.     0R3S4S5S6S
  23226. Gehe zu\Kalender
  23227.     1S2S
  23228. path"
  23229. /CalendarFS?OpenFrameset"
  23230.     0R3S4S5S6S
  23231. Gehe zu\AufgabeX
  23232.     1S2S
  23233. path"
  23234. /ToDoFS?OpenFrameset"
  23235.     0R3S4S5S6S
  23236. Gehe zu\VorX 
  23237.     0S0E
  23238. Gehe zu\Zur
  23239.     0S0E
  23240. _KategorisierenX
  23241. Schlie
  23242.     0S0E
  23243. act_discardchanges.GIF|act_CSDISCARD
  23244. Dokument bearbeitenX
  23245. Erneut sendenX
  23246. act_SEND.GIF|act_SENDX
  23247. Erneut sendenX
  23248. $AutoSpell(
  23249.     1S3S
  23250.     0R7S9S
  23251. SaveOptions
  23252.     0R1S2S3S
  23253. act_SEND.GIF|act_SENDX
  23254. _WeiterleitenX
  23255. In Ordner _verschieben...X
  23256. Aus Ordner _entfernen...
  23257. Erneut sendenX
  23258. act_SEND
  23259. Erneut sendenX<
  23260.     0S0E
  23261. act_SEND.GIF|act_SENDX
  23262. schenX
  23263.     1S10S14S16S23S
  23264.     0R5S
  23265. path"
  23266. /wDelete?OpenAgent&
  23267. UNID"
  23268. &From="
  23269. view"
  23270. act_DELETE.GIF|act_DELETEX
  23271. Gehe zu\EingangX
  23272.     1S2S
  23273. path"
  23274. /MailFS?OpenFrameset"
  23275.     0R3S4S5S6S
  23276. act_goto.gif|act_gotoX
  23277. Gehe zu\Kalender
  23278.     1S2S
  23279. path"
  23280. /CalendarFS?OpenFrameset"
  23281.     0R3S4S5S6S
  23282. act_goto.gif|act_gotoX
  23283. Gehe zu\AufgabeX
  23284.     1S2S
  23285. path"
  23286. /ToDoFS?OpenFrameset"
  23287.     0R3S4S5S6S
  23288. act_goto.gif|act_gotoX
  23289. Gehe zu\VorX 
  23290.     0S0E
  23291. act_goto.gif|act_gotoX
  23292. Gehe zu\Zur
  23293.     0S0E
  23294. act_goto.gif|act_gotoX
  23295.     Always hidden: X
  23296.     0S0E
  23297. NamePreferencez
  23298. NamePreference
  23299.     0S0E
  23300. LanguagePreference
  23301. Principal
  23302. CalendarProfile
  23303. Owner
  23304.     1S2S3S7S
  23305. FromPerson memo is from.z
  23306. tmpNewDoc
  23307. AltFrom
  23308.     1RT2RT3S4S9RTT10RTTT11RTTT15S18RTTTT23RTTT27RTTT29RT30RT
  23309. AltFromX
  23310. CalendarProfile
  23311. DefaultLogo
  23312. stdNotesLtr0
  23313. CalendarProfile
  23314. DefaultLogo
  23315. StdNotesLtrGateway
  23316.     4S13S24R25S29S32S34S
  23317. Logoz
  23318. BG_IMAGE_PREFIX
  23319.     0S0E
  23320. StdNotesLtr0
  23321.     0RR1RT2RT3S4S6RTT13RT14RT
  23322. Image
  23323. StdNotesLtr
  23324. Image
  23325. Gateway
  23326. BG_IMAGE_PREFIX
  23327. Image
  23328. Image
  23329.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  23330. Image
  23331. BG_IMAGE_PREFIX
  23332. Image
  23333. BG_IMAGE_PREFIX
  23334. Image
  23335. BG_IMAGE_PREFIX
  23336. Image
  23337. BG_IMAGE_PREFIX
  23338. Image
  23339. BG_IMAGE_PREFIX
  23340. BG_IMAGE_PREFIX
  23341.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  23342. Principal
  23343. Principal
  23344. Principal
  23345. NamePreference
  23346. AltFrom
  23347. $LangFrom
  23348. LanguagePreferencet
  23349. AltFrom
  23350.     1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
  23351.     0RR1S2S8S
  23352.     0R1S2S5S6S8S14S18S
  23353.     0R1S2S5S6S8S14S18S
  23354. SentBy
  23355. X400FreeForm^
  23356.     0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  23357. SentBy
  23358. FromDomain
  23359. FromDomain
  23360. FromDomain
  23361. FromDomain
  23362.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  23363. FromName
  23364. Principal
  23365. Principal
  23366. Principal
  23367.     0RR1S2S10S11S16S18S
  23368. FromStops
  23369.     0RR1S2S6S
  23370. FromName
  23371. FromStops
  23372. FromStops
  23373. FromStops
  23374.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  23375. tmpDisplayFrom_Preview
  23376.     0S0E
  23377. Signz
  23378.     0S0E
  23379. EncryptXz
  23380. Encrypt
  23381. $KeepPrivate
  23382. $KeepPrivate
  23383. $KeepPrivate
  23384.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  23385.     0S0E
  23386. DefaultMailSaveOptionsz
  23387. DefaultMailSaveOptions
  23388. .,$,  , :
  23389. Path_Info_DEcoded
  23390. Path_InfoX
  23391. .,$,  , :
  23392. Query_String_Decoded
  23393. Query_String
  23394. (WebSpecificFields)
  23395.     0S0E
  23396. $HideMailHeader
  23397.     0S0E
  23398. Zustellungsfehlerbericht
  23399.     Ihr Dokument:X
  23400. Subject
  23401. OriginalSubjectX
  23402.     wurde nicht zugestellt anX
  23403. IntendedRecipient
  23404. IntendedRecipient
  23405.     0S0E
  23406. IntendedRecipientX
  23407.     weil:X
  23408. FailureReason
  23409. FailureReasonX
  23410.     Was k
  23411. nnen Sie tun?X
  23412.     Sie k
  23413. nnen das unzustellbare Dokument erneut an die oben aufgef
  23414. hrten Empf
  23415. nger senden, indem Sie auf die Schaltfl
  23416. che 'Erneut senden' klicken oder im Men
  23417.  'Aktionen' den Befehl 'Erneut senden' w
  23418. hlen.  X
  23419.     Nachdem Sie das Dokument erneut gesendet haben, k
  23420. nnen Sie diesen Zustellungsfehlerbericht l
  23421. schen.X
  23422.     Wenn auch das erneut gesendete Dokument nicht zustellbar ist, erhalten Sie einen neuen ZustellungsfehlerberichtX
  23423.     Wenn Sie keine weiteren Zustellungsfehlerberichte erhalten, wurde das Dokument erfolgreich an alle anderen Empf
  23424. nger gesendet.
  23425.     Routing-Pfad
  23426. RouteServers
  23427. RouteServers
  23428. bertragende ServerX
  23429.     <BR><P>X
  23430.     An:X
  23431. SendToz
  23432. SIZE=80
  23433.     Kopie:
  23434. CopyToz
  23435. SIZE=80
  23436.     Thema:
  23437. Subject
  23438. SubjectXz
  23439. SIZE=80
  23440. tmpDisplayFrom_Preview
  23441. DisplayFrom_PreviewXz
  23442. DisplayFrom_Preview_1
  23443. $HideMailHeader
  23444. Principal
  23445. Principal
  23446. Principal
  23447. Principal
  23448. Principal
  23449.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S43S45S46S50S
  23450.     Gesendet von: 
  23451. FromDomain
  23452. FromDomain
  23453. FromDomain
  23454. FromDomain
  23455.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  23456. FromName
  23457.     0RR1S2S6S
  23458. FromStops
  23459.     0R1S2S6S
  23460. FromName
  23461. FromStops
  23462. FromStops
  23463. FromStops
  23464.     0RR1S2S3S4S10S13S17S20StmpDisplaySentByz
  23465. tmpDisplaySentBy_1
  23466. PostedDateh
  23467. PostedDate
  23468.     4S5S10S12S
  23469. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  23470. tmpDisplayDate_Preview_1
  23471. ReplyDate
  23472. ReplyTo
  23473. $HideMailHeader
  23474.     2S3S4S5S6S7S9S10S14S15R
  23475. Bitte antworten
  23476. ReplyTo
  23477. ReplyTo
  23478. ReplyDate
  23479.  bis 
  23480. ReplyDate
  23481.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReplyInfoXz
  23482. tmpDisplayReplyInfo_1
  23483. BodyText des Dokuments
  23484. O=Lotus Notes
  23485. O=Lotus Notes
  23486. PURSAFO
  23487. |.:#U
  23488. O=Lotus Notes
  23489. CN=Lotus Notes Template Development/O=Lotus Notes
  23490. PURSAFO
  23491. _|Q=w 
  23492. $Info
  23493. $WEBQuerySave
  23494. $WebFlags
  23495. $$Script_O
  23496. $$ScriptName
  23497. $WINDOWTITLE
  23498. $ACTIONS
  23499. $V5ACTIONS
  23500. $Body
  23501. $Language
  23502. $LastBuildTime
  23503. $BabelInfo
  23504. &Arial
  23505.  CSDeliveryOptions
  23506.     Zustelloptionen
  23507.     Zustellungsbericht:
  23508. DeliveryReport
  23509. Kein|NNur bei Fehler|BZustellung best
  23510. tigen|CGesamten Pfad aufzeichnen|Tz
  23511. DeliveryReport
  23512.     Zustellungspriorit
  23513. DeliveryPriority
  23514. Niedrig|LNormal|NHoch|H
  23515. DeliveryPriority
  23516. ReturnReceipt
  23517. Empfangsbest
  23518. tigung|1z
  23519. ReturnReceipt
  23520. Broadcast
  23521. Ich m
  23522. chte keine Antworten von den Teilnehmern erhalten|1
  23523. PreventCounter
  23524. Gegenvorschl
  23525. ge nicht zulassen|1
  23526. PreventDelegate
  23527. Delegieren nicht zulassen|1
  23528.     Sicherheitsoptionen
  23529. Signieren|1
  23530. Encrypt
  23531. Verschl
  23532. sseln|1
  23533. New Button
  23534. Need a newer version of Notes to execute this button.
  23535.     0S0E
  23536. window.opener.document.forms[0].DeliveryReport.value = document.forms[0].DeliveryReport.value;
  23537. window.opener.document.forms[0].DeliveryPriority.value = document.forms[0].DeliveryPriority.value;
  23538. if (ReturnReceipt.checked){
  23539.     window.opener.document.forms[0].ReturnReceipt.value="1"
  23540.     else {
  23541.     window.opener.document.forms[0].ReturnReceipt.value=""
  23542. if (Broadcast.checked) {
  23543.     window.opener.document.forms[0].Broadcast.value="1";
  23544. else {
  23545.     window.opener.document.forms[0].Broadcast.value="";
  23546.     if (PreventCounter.checked) {
  23547.     window.opener.document.forms[0].PreventCounter.value="1";
  23548.     else {
  23549.     window.opener.document.forms[0].PreventCounter.value="";
  23550.     if (PreventDelegate.checked) {
  23551.     window.opener.document.forms[0].PreventDelegate.value="1";
  23552.     else {
  23553.     window.opener.document.forms[0].PreventDelegate.value="";
  23554. self.close();
  23555.        OK   
  23556. New Button
  23557. Need a newer version of Notes to execute this button.
  23558.     0S0E
  23559. self.close()
  23560.     Abbrechen
  23561. O=Lotus Notes
  23562. O=Lotus Notes
  23563. PURSAFO
  23564. |.:#U
  23565. O=Lotus Notes
  23566. CN=Lotus Notes Template Development/O=Lotus Notes
  23567. PURSAFO
  23568. $Language
  23569. $LastBuildTime
  23570. $BabelInfo
  23571. $Info
  23572. $$ScriptName
  23573. $Body
  23574. $PublicAccess
  23575. &Arial
  23576.  $LotusFaxMemoSubform
  23577. Lotus Fax PlatzhalterX
  23578. O=Lotus Notes
  23579. O=Lotus Notes
  23580. PURSAFO
  23581. |.:#U
  23582. O=Lotus Notes
  23583. CN=Lotus Notes Template Development/O=Lotus Notes
  23584. PURSAFO
  23585. $Info
  23586. $$ScriptName
  23587. $Body
  23588. $Language
  23589. $LastBuildTime
  23590. $BabelInfo
  23591. parentform = window.opener.document.forms[0]
  23592. thisform = document.forms[0]
  23593. var isFirstLoad = document.location.search.indexOf("&Seq=") == -1;
  23594. if (isFirstLoad) {
  23595.    if (parentform.OrgRepeat.value == "") {
  23596.     // We have not been here before; copy the startdate value
  23597.     thisform.RepeatStartDate.value = parentform.StartDate.value
  23598.    }    else    {
  23599.      // We have been here before; pull info stored in opener
  23600.      pullRepeatInfo();
  23601.      // Don't use "thisform.RepeatUnit" when transferring next value
  23602.      // since Netscape doesn't have a "select-one" value the way
  23603.      // IE does.  You also can't get its value via selectedIndex
  23604.      // because the field may be of type "hidden" instead.  The 
  23605.      // parentform version of the value is exactly what we need.
  23606.      thisform.tmpRepeatUnit.value = parentform.RepeatUnit.value;
  23607.      thisform.RepeatUnit.onchange(); // NB: causes refresh!!!
  23608. // Push all the pertinent "repeat" information to the "opener".
  23609. function pushRepeatInfo () {
  23610.    for (i = 0; i< thisform.elements.length; i++) {
  23611.       var item = thisform.elements[i];
  23612.       if (item.name.indexOf("Repeat") == 0) { // starts with "Repeat"
  23613.          var parentItem = parentform.elements[item.name];
  23614.          if (item.type == "radio") {
  23615.             if (item.checked) {    
  23616.                parentItem.value = item.value;
  23617.             }
  23618.          } else if (item.type.indexOf("select") == 0) {
  23619.             parentItem.value = getSelectValue(item);
  23620.          } else if (item.type == "checkbox") {
  23621.             parentItem.value = item.checked ? item.value : "";
  23622.          } else { // text, textarea, hidden, ...
  23623.             parentItem.value = item.value
  23624.          }
  23625.       }
  23626. // Pull all the pertinent "repeat" information from the "opener".
  23627. function pullRepeatInfo () {
  23628.   for (var i = 0; i < thisform.elements.length; i++) {
  23629.      var item = thisform.elements[i];
  23630.      if (item.name.indexOf("Repeat") == 0) { // starts with "Repeat"
  23631.         var parentValue = parentform.elements[item.name].value
  23632.         if (item.type == "radio") {
  23633.            // item.checked = (item.value == parentValue);  // Can't code this way due to Netscape 3.0 bug.
  23634.            if (item.value == parentValue) item.checked = true;
  23635.         } else if (item.type.indexOf("select") == 0) {
  23636.            setSelectOptions (item, parentValue); 
  23637.         } else if (item.type == "checkbox") {
  23638.            item.value = parentValue;
  23639.         } else { // text, textarea, hidden, ...
  23640.            item.value = parentValue;
  23641.         }
  23642.      }
  23643. // The "value" of a SELECT is defined as all its selected OPTION 
  23644. // values concatenated (separated by commas).
  23645. function getSelectValue (select) {
  23646.    if (select.type == "select-one") 
  23647.       return select.options[select.selectedIndex].value;
  23648.       
  23649.    // Type is "select-multiple"
  23650.    var answer = "";
  23651.    for (var i = 0; i < select.options.length; i++) {
  23652.       var option = select.options[i];
  23653.       if (option.selected) answer += "," + option.value;
  23654.    return answer.substring(1);
  23655. // Given a SELECT's value (see "getSelectValue"), select each
  23656. // appropriate OPTION.
  23657. function setSelectOptions (select, value) {
  23658.    // Note: We don't presently short-circuit the select-single case;
  23659.    //       "select.value = value" works for IE but not for Netscape.
  23660.    value = "," + value; // add comma to make usage of "indexOf" regular
  23661.    for (var i = 0; i < select.options.length; i++) {
  23662.       var opt = select.options[i];
  23663.       opt.selected = (value.indexOf("," + opt.value) != -1);
  23664. Wiederholungsinformationen
  23665.  wRepeatForm
  23666. Jeden Monat am|1
  23667. Jeden zweiten Monat am|2
  23668. Jeden 3. Monat am|3
  23669. Jeden 4. Monat am|4
  23670. Jeden 5. Monat am|5
  23671. Jeden 6. Monat am|6
  23672. Jeden 7. Monat am|7
  23673. Jeden 8. Monat am|8
  23674. Jeden 9. Monat am|9
  23675. Jeden 10. Monat am|10
  23676. Jeden 11. Monat am|11
  23677. Jeden 12. Monat am|12
  23678.     8R16RtmpRIMDMP
  23679. Jedes Jahr|1
  23680. Jedes 2. Jahr|2
  23681. Jedes 3. Jahr|3
  23682. Jedes 4. Jahr|4
  23683. Jedes 5. Jahr|5
  23684. Jedes 6. Jahr|6
  23685. Jedes 7. Jahr|7
  23686. Jedes 8. Jahr|8
  23687. Jedes 9. Jahr|9
  23688. Jedes 10. Jahr|10
  23689.     10RtmpRIY
  23690. Jeden|1
  23691. Jeden 2.|2
  23692. Jeden 3.|3
  23693. Jeden 4.|4
  23694. Jeden 5.|5
  23695. Jeden 6.|6
  23696. Jeden 7.|7
  23697. Jeden 8.|8
  23698. tmpRIW
  23699. Jeden Tag|1
  23700. Jeden 2. Tag|2
  23701. Jeden 3. Tag|3
  23702. Jeden 4. Tag|4
  23703. Jeden 5. Tag|5
  23704. Jeden 6. Tag|6
  23705. Jeden 7. Tag|7
  23706. Jeden 8. Tag|8
  23707. Jeden 9. Tag|9
  23708. Jeden 10. Tag|10
  23709. Jeden 11. Tag|11
  23710. Jeden 12. Tag|12
  23711. Jeden 13. Tag|13
  23712. Jeden 14. Tag|14
  23713. Jeden 15. Tag|15
  23714. Jeden 16. Tag|16
  23715. Jeden 17. Tag|17
  23716. Jeden 18. Tag|18
  23717. Jeden 19. Tag|19
  23718. Jeden 20. Tag|20
  23719. Jeden 21. Tag|21
  23720. Jeden 22. Tag|22
  23721. Jeden 23. Tag|23
  23722. Jeden 24. Tag|24
  23723. Jeden 25. Tag|25
  23724. Jeden 26. Tag|26
  23725. Jeden 27. Tag|27
  23726. Jeden 28. Tag|28
  23727. Jeden 29. Tag|29
  23728. Jeden 30. Tag|30
  23729. Jeden 31. Tag|31
  23730.     10R20R30R40R50R60R
  23731. tmpRID
  23732. 1. Tag|1
  23733. 2. Tag|2
  23734. 3. Tag|3
  23735. 4. Tag|4
  23736. 5. Tag|5
  23737. 6. Tag|6
  23738. 7. Tag|7
  23739. 8. Tag|8
  23740. 9. Tag|9
  23741. 10. Tag|10
  23742. 11. Tag|11
  23743. 12. Tag|12
  23744. 13. Tag|13
  23745. 14. Tag|14
  23746. 15. Tag|15
  23747. 16. Tag|16
  23748. 17. Tag|17
  23749. 18. Tag|18
  23750. 19. Tag|19
  23751. 20. Tag|20
  23752. 21. Tag|21
  23753. 22. Tag|22
  23754. 23. Tag|23
  23755. 24. Tag|24
  23756. 25. Tag|25
  23757. 26. Tag|26
  23758. 27. Tag|27
  23759. 28. Tag|28
  23760. 29. Tag|29
  23761. 30. Tag|30
  23762. 31. Tag|31
  23763.     20R38R56RtmpRAMD
  23764. Sonntag|0
  23765. Montag|1
  23766. Dienstag|2
  23767. Mittwoch|3
  23768. Donnerstag|4
  23769. Freitag|5
  23770. Samstag|6
  23771.     0S0E
  23772. tmpRAW
  23773. 1. Sonntag|1.0
  23774. 1. Montag|1.1
  23775. 1. Dienstag|1.2
  23776. 1. Mittwoch|1.3
  23777. 1. Donnerstag|1.4
  23778. 1. Freitag|1.5
  23779. 1. Samstag|1.6
  23780. 2. Sonntag|2.0
  23781. 2. Montag|2.1
  23782. 2. Dienstag|2.2
  23783. 2. Mittwoch|2.3
  23784. 2. Donnerstag|2.4
  23785. 2. Freitag|2.5
  23786. 2. Samstag|2.6
  23787. 3. Sonntag|3.0
  23788. 3. Montag|3.1
  23789. 3. Dienstag|3.2
  23790. 3. Mittwoch|3.3
  23791. 3. Donnerstag|3.4
  23792. 3. Freitag|3.5
  23793. 3. Samstag|3.6
  23794. 4. Sonntag|4.0
  23795. 4. Montag|4.1
  23796. 4. Dienstag|4.2
  23797. 4. Mittwoch|4.3
  23798. 4. Donnerstag|4.4
  23799. 4. Freitag|4.5
  23800. 4. Samstag|4.6
  23801. Letzten Sonntag|5.0
  23802. Letzten Montag|5.1
  23803. Letzten Dienstag|5.2
  23804. Letzten Mittwoch|5.3
  23805. Letzten Donnerstag|5.4
  23806. Letzten Freitag|5.5
  23807. Letzten Samstag|5.6
  23808.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
  23809. tmpRepeatUnit
  23810. RepeatUnit
  23811.     1S2S
  23812.      Wie
  23813. RepeatUnit
  23814.     1S2S
  23815. RepeatUnit
  23816. AppointmentType
  23817. RepeatUnit
  23818. RepeatUnit
  23819.     3S4S6S9S10S12S14S17S18S19S
  23820. RepeatUnit
  23821. RepeatUnit
  23822. RepeatForUnit
  23823. RepeatForUnit
  23824.     0R1S
  23825. tmpRepeatUnit
  23826. RepeatUnit
  23827. RepeatForUnit
  23828. RepeatUnit
  23829. tmpRepeatUnit
  23830. RepeatUnit
  23831. RepeatUnit
  23832. RepeatUnit
  23833. RepeatUnit
  23834.     0R1RT2RT3S4S6RTT7RTTT8RTTT20RTTT27RTTT33RTTT35RT36RT
  23835. RepeatUnit
  23836. Notes
  23837. glich|D
  23838. chentlich|W
  23839. Monatlich nach Datum|MD
  23840. Monatlich nach Tag|MP
  23841. hrlich|Y
  23842. Benutzerdefiniert|C
  23843. glich|D
  23844. chentlich|W
  23845. Monatlich nach Datum|MD
  23846. Monatlich nach Tag|MP
  23847. hrlich|Y
  23848.     8R10R12R14R16R20R22R24R26R
  23849. RepeatInterval
  23850. RepeatInterval
  23851.     3S4S8S
  23852. RepeatUnit
  23853. RepeatInterval
  23854. Sie m
  23855. ssen ein Wiederholungsintervall ausw
  23856. hlen.{
  23857.     3S4S5S6S7S8S10SRepeatInterval
  23858. RepeatUnit
  23859. tmpRID
  23860. RepeatUNit
  23861. tmpRIMDMP
  23862. RepeatUNit
  23863. tmpRIY
  23864. RepeatUnit
  23865. tmpRIW
  23866.     3S4S6S8S9S10S11S12S14S16S17S18S20S22S23S24S26S28S
  23867. RepeatUnit
  23868.     1S2S
  23869. RepeatUnit
  23870. RepeatStartDate
  23871.     3S4S6S16S
  23872. RepeatUnit
  23873. RepeatAdjust
  23874. Sie m
  23875. ssen mindestens eine Einstellung w
  23876. hlen.{
  23877.     3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
  23878. RepeatUnit
  23879. RepeatUnit
  23880. tmpRAMD
  23881. RepeatUnit
  23882. tmpRAMP
  23883. RepeatUnit
  23884. tmpRAW
  23885.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26Sz
  23886. SIZE=4
  23887. RepeatUnit
  23888.     1S2S
  23889. RepeatFromEnd
  23890. Am Monatsende beginnen|1
  23891. RepeatUnit
  23892.     1S2S
  23893.     Geben Sie die Liste der Termine ein
  23894. RepeatCustomz
  23895. ROWS=5
  23896. RepeatUnit
  23897.     1S2S3S4S5S6S
  23898.      Wochenenden
  23899. RepeatUnit
  23900.     1S2S3S4S5S6S
  23901.     Wenn das Datum auf ein Wochenende f
  23902. llt: 
  23903. RepeatWeekends
  23904. Nicht verschieben|DAuf Freitag verschieben|FAuf Montag verschieben|MAuf n
  23905. chsten Wochentag verschieben|NL
  23906. schen|X
  23907.      Dauer
  23908.     Beginn:
  23909. StartDateTime
  23910. StartDateTime
  23911.     10S12S
  23912. RepeatStartDate
  23913. Die Eingabe eines Anfangdatums ist erforderlich.{
  23914.     3S4S6S11SRepeatStartDate
  23915. RepeatHow
  23916. an|UDauer:|F
  23917. RepeatUnit
  23918. RepeatHow
  23919.     1S2S3S4S5S6S
  23920. StartDate
  23921. RepeatStartDate
  23922.     1S2S
  23923. RepeatUnit
  23924. StartDate
  23925. RepeatUnit
  23926. StartDate
  23927. RepeatUnit
  23928. StartDate
  23929. RepeatUnit
  23930. StartDate
  23931. StartDate
  23932.     0R3S4S6S10S12S14S16S18S20S23S24S25S27S31S33S35S37S39S41S44S48S50S51S53S57S59S61S63S65S67S70S74S76S77S79S83S85S87S89S91S93S96S<
  23933. xxFAILURE
  23934. Das Datum f
  23935. r das Ende der Wiederholung mu
  23936.  nach dem Datum f
  23937. r den Beginn der Wiederholung liegen.
  23938. xxEMPTYDATE
  23939. Sie m
  23940. ssen sowohl das Datum f
  23941. r den Wiederholungsbeginn als auch das Datum f
  23942. r das Ende der Wiederholung angeben.
  23943. RepeatHow
  23944. RepeatUntil
  23945. RepeatStartDate
  23946. xxEMPTYDATE
  23947. RepeatUntil
  23948. RepeatStartDate
  23949. xxFAILURE
  23950.     0RR1RT2RT6RTT7RTTT8RTTT10S11S12S13S14S15S18RTTTT23RTTT24S25S27RTTTT32RTTT33RTTT35RT36RTRepeatUntil
  23951. RepeatUnit
  23952. RepeatHow
  23953.     1S2S3S4S5S6S
  23954. RepeatFor
  23955. RepeatForUnit
  23956. AppointmentType
  23957. RepeatUnit
  23958. RepeatForUnit
  23959.     3S4S6S9S10S12S14SRepeatForUnit
  23960. Tag(e)|D
  23961.     1S2S
  23962. Weeks
  23963. Woche(n)|W
  23964.     0R1S2S
  23965. Months
  23966. Monat(e)|M
  23967.     0R1S2S
  23968. Years
  23969. Jahr(e)|Y
  23970.     0R1S2S
  23971. RepeatUnit
  23972. Weeks
  23973. Months
  23974. Years
  23975. RepeatUnit
  23976. Weeks
  23977. Months
  23978. Years
  23979. RepeatUnit
  23980. Months
  23981. Years
  23982. Years
  23983.     0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S
  23984. New Button
  23985. Need a newer version of Notes to execute this button.
  23986.     0S0E
  23987. pushRepeatInfo();
  23988. // Mark the fact that we've been here!
  23989. parentform.OrgRepeat.value = "1";
  23990. self.close()
  23991. New Button
  23992. Need a newer version of Notes to execute this button.
  23993.     0S0E
  23994. self.close()
  23995.     Abbrechen
  23996. O=Lotus Notes
  23997. O=Lotus Notes
  23998. PURSAFO
  23999. |.:#U
  24000. O=Lotus Notes
  24001. CN=Lotus Notes Template Development/O=Lotus Notes
  24002. PURSAFO
  24003. =;f7j
  24004. $Language
  24005. $LastBuildTime
  24006. $BabelInfo
  24007. $HTMLCode
  24008. $Info
  24009. $WINDOWTITLE
  24010. $WebFlags
  24011. $$ScriptName
  24012. RepeatCustom
  24013. RepeatStartDate
  24014. RepeatUntil
  24015. RepeatFor
  24016. $Body
  24017. Vorgaben
  24018. wPreferencesSave
  24019. wPreferencesOpen
  24020. &Arial
  24021. 5Courier New
  24022. Times New Roman
  24023. Lotus Product
  24024. OBJECT
  24025.  wPreferences
  24026. Hidden Fields:
  24027. FromPerson memo is from.z
  24028. FromDomain
  24029. FromDomain
  24030. FromDomain
  24031. FromDomain
  24032.     7S10S18S19S23S25S28S29S31S33S34S35S41S44S48S51S57S
  24033. FromName
  24034.     0RR1S2S6S
  24035. FromStops
  24036.     0R1S2S6S
  24037. FromName
  24038. FromStops
  24039.     0RR1S2S3S4S8StmpDisplayFrom_Previewz
  24040. tmpDisplayFrom_Preview
  24041. .,$ //:
  24042. PostedDateh
  24043. PostedDate
  24044.     7S9S
  24045. tmpDisplayDate_PreviewDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.z
  24046. tmpDisplayDate_Preview
  24047. Path_Info
  24048. Path_Info
  24049. Query_String
  24050. Query_String
  24051. SaveOptions
  24052. .,$,  , :
  24053. PROTECTFROMARCHIVE
  24054.     don't allow these documents to be marked as "expired"
  24055. Vorgaben
  24056. $PreferencesPage
  24057.     4S6S
  24058. $PreferencesPage
  24059.     field driven table name
  24060. Vorgaben
  24061. SignatureOption
  24062.     2S3S4S5S6S7S
  24063.     Mail
  24064. $PreferencesPage
  24065. Preferences
  24066.     0R3S4S6S11S
  24067. $PreferencesPage
  24068. Preferences
  24069.     0R1S2S3S
  24070.     Allgemein
  24071.     Kalender
  24072. $PreferencesPage
  24073. Freetime
  24074.     0R3S4S6S11S
  24075. $PreferencesPage
  24076. Freetime
  24077.     0R1S2S3S
  24078.     Freie Zeit
  24079. $PreferencesPage
  24080. Entries
  24081.     0R3S4S6S11S
  24082. $PreferencesPage
  24083. Entries
  24084.     0R1S2S3S
  24085.     Eintr
  24086. $PreferencesPage
  24087. Autoprocess
  24088.     0R3S4S6S11S
  24089. $PreferencesPage
  24090. Autoprocess
  24091.     0R1S2S3S
  24092.     Autom. verarbeiten
  24093.     Delegierung
  24094. $PreferencesPage
  24095.     0R3S4S6S11S
  24096. $PreferencesPage
  24097.     0R1S2S3S
  24098.     Mail
  24099. $PreferencesPage
  24100. Calendar
  24101.     0R3S4S6S11S
  24102. $PreferencesPage
  24103. Calendar
  24104.     0R1S2S3S
  24105.     Kalender
  24106. PreferencesPage
  24107. PreferencesPage
  24108. Mail - Allgemein
  24109.     Benutzerkonfiguration 
  24110. javascript:alert('Kanonischer Name des Besitzers der Mail-Datei. Normalerweise mu
  24111.  dieser Name nicht ge
  24112. ndert werden.')
  24113. javascript:alert('Kanonischer Name des Besitzers der Mail-Datei. Normalerweise mu
  24114.  dieser Name nicht ge
  24115. ndert werden.')
  24116.     Besitzer dieser Mail-Datei:
  24117. Owner
  24118. Owner
  24119.     Format f
  24120. r Internet-Mail-Nachrichten 
  24121. FormatReplies
  24122. Formatierte Antworten mit einem Markierzeichen|1
  24123. FormatReplies
  24124. FormatReplies
  24125.     0S0E
  24126. OffSetChar
  24127. >|1>>|4
  24128. OffSetChar
  24129. FormatReplies
  24130.     0S0E
  24131. Vorgaben
  24132. Preferences
  24133. Preferences
  24134. Kalender - Freie Zeit
  24135. javascript:alert('W
  24136. hlen Sie die Zeiten, zu denen Sie von anderen Benutzern zu Besprechungen eingeladen werden k
  24137. nnen.')
  24138. javascript:alert('W
  24139. hlen Sie die Zeiten, zu denen Sie von anderen Benutzern zu Besprechungen eingeladen werden k
  24140. nnen.')
  24141.     Verf
  24142. gbarkeit
  24143. Sunday
  24144. Sonntag|1
  24145. Sunday
  24146.     0S0E
  24147. Size=40
  24148.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times1
  24149. Monday
  24150. Montag|2
  24151. Monday
  24152.     1S2S
  24153. Size=40
  24154.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times2
  24155. Tuesday
  24156. Dienstag|3
  24157. Tuesday
  24158.     1S2S
  24159. Size=40
  24160.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times3
  24161. Wednesday
  24162. Mittwoch|4
  24163. Wednesday
  24164.     1S2S
  24165. Size=40
  24166.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times4
  24167. Thursday
  24168. Donnerstag|5
  24169. Thursday
  24170.     0S0E
  24171. Size=40
  24172.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times5
  24173. Friday
  24174. Freitag|6
  24175. Friday
  24176.     1S2S
  24177. Size=40
  24178.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times6
  24179. Saturday
  24180. Samstag|7
  24181. Saturday
  24182.     1S2S
  24183. Size=40
  24184.     8S10S12S14S16S18S21S22S23S24S30S32S34S36S38S40S44S45S53S55S57S59S61S63S66S67S68S69S75S77S79S81S83S85S$Times7
  24185. javascript:alert('W
  24186. hlen Sie, wer Ihre freie Zeit einsehen darf. Keine Angabe bedeutet, da
  24187.  jeder darf.')
  24188. javascript:alert('W
  24189. hlen Sie, wer Ihre freie Zeit einsehen darf. Keine Angabe bedeutet, da
  24190.  jeder darf.')
  24191.     Angaben zu meiner freien Zeit k
  24192. nnen nur von folgenden Benutzern angefordert werden:
  24193. AllowBusyAccess
  24194. Freie Zeit
  24195. Freetime
  24196. Freetime
  24197. Kalender - Automatisch verarbeiten
  24198. AutoProcessMeetings
  24199.     1S2S
  24200. AutoProcessType
  24201. AutoProcessType
  24202.     3S4S6S8S
  24203. AutoProcessType
  24204. Besprechungsvorschl
  24205. ge nicht automatisch verarbeiten|DBesprechungsvorschl
  24206. ge von allen Benutzern automatisch verarbeiten|0Besprechungsvorschl
  24207. ge von folgenden Benutzern automatisch verarbeiten|2Besprechungsvorschl
  24208. ge an folgende Person weiterleiten|1
  24209. AutoProcessType
  24210.     1S2S
  24211. Size=40
  24212. AutoprocessUserList
  24213. AutoProcessType
  24214.     1S2S
  24215. Size=40
  24216. AutoProcessForwardTo
  24217. AutoRemoveFromInbox
  24218. Veranstaltungsanforderungen aus meinem Posteingang entfernen nachdem ich sie beantwortet habe|1
  24219. PreventRepliesFromInbox
  24220. Antworten auf Veranstaltungseinladungen nicht in meinen Posteingang setzen|1
  24221. Autom. verarbeiten
  24222. Autoprocess
  24223. Autoprocess
  24224. Kalender - Eintr
  24225.     Vorgaben
  24226.     Dauer des Termins bzw. der Besprechung:
  24227. DefaultDuration
  24228. DefaultDuration
  24229. DefaultDuration
  24230.     3S4S5S6S7S8S9S10S12S
  24231. DefaultDuration
  24232.      (Minuten)
  24233.     Jahrestag allj
  24234. hrlich wiederholen:
  24235. .,$///:
  24236. AutoAnniversaryRepeat
  24237. AutoAnniversaryRepeat
  24238. AutoAnniversaryRepeat
  24239.     3S4S5S6S7S8S10S12S
  24240. AutoAnniversaryRepeat
  24241.      Jahre
  24242. PreventAll
  24243. Kalendereintr
  24244. ge in Ansicht 'Alle Dokumente' anzeigen|1
  24245. PreventSent
  24246. Besprechungseinladungen in Ansicht 'Gesendet' anzeigen|1
  24247. Eintr
  24248. Entries
  24249. Entries
  24250. Delegierung - Mail
  24251. PublicRead
  24252.     1S2S
  24253.     Die folgenden Personen/Gruppen k
  24254. nnen: 
  24255.     Meine Mail und meinen Kalender lesen:
  24256. ReadMailz
  24257. ReadMailsize=40
  24258.     Mail in meinem Namen lesen und senden und meinen Kalender lesen:
  24259. WriteMail
  24260. WriteMailsize=40
  24261.     Beliebige Dokumente in meiner Mail-Datei lesen, senden und bearbeiten:
  24262. EditMailz
  24263. EditMailsize=40
  24264.     Mail und Kalendereintr
  24265. schen 
  24266.     (zul
  24267. ssig nur f
  24268. r Benutzer, die Mail senden oder bearbeiten k
  24269. nnen)
  24270. DeleteMailz
  24271. DeleteMailsize=40
  24272. *Sonstige (Entwickler oder Manager)
  24273. .,$,  , :
  24274. OtherUsers
  24275.     0S0E
  24276. OtherUsers
  24277.         *Diese Eintr
  24278. nnen nicht 
  24279. ber dieses Dialogfeld ge
  24280. ndert werden
  24281. Delegierung - Kalender
  24282.     Lesezugriff auf Kalender 
  24283. PublicRead
  24284.     3S4S
  24285. PublicRead
  24286. Jeder kann meinen Kalender lesen|1Nur die folgenden Personen/Gruppen k
  24287. nnen meinen Kalender lesen|0
  24288. ReadCalendar
  24289.     Erstell-/Bearbeitungszugriff auf Kalender 
  24290. PublicWrite
  24291.     3S4S
  24292. PublicWrite
  24293. Jeder kann meinen Kalender verwalten.|1Nur die folgenden Personen/Gruppen k
  24294. nnen meinen Kalender verwalten|0
  24295. PublicWrite
  24296.     1S2S
  24297. WriteCalendar
  24298. Kalender
  24299. Calendar
  24300. Calendar
  24301. Owner
  24302. $BusyName
  24303. $NoPurge
  24304. $NoPurge
  24305. Sunday
  24306. Monday
  24307. Tuesday
  24308. Wednesday
  24309. Thursday
  24310. Friday
  24311. Saturday
  24312.     0S0E
  24313. $AvailableDays
  24314. $PublicAccess
  24315. $CSVersion
  24316. _Kategorisieren
  24317. Dokument _bearbeiten
  24318. Dokument _senden
  24319. _Weiterleiten
  24320. In Ordner _verschieben...
  24321. Aus Ordner _entfernen
  24322. Speichern und schlie
  24323.     0S0E
  24324. Hide if 'New doc' button was clicked
  24325. QUERY_STRING_DECODED
  24326.     0R1S2S6S
  24327.     0R1S2S
  24328. act_save.GIF|act_CSSAVE?
  24329. Abbrechen
  24330.     0S0E
  24331. Hide if person clicked 'New doc' button
  24332. QUERY_STRING_DECODED
  24333.     0R1S2S6S
  24334.     0R1S2S3S4S
  24335. act_DELETE.GIF|act_DELETE?
  24336. _Kategorisieren
  24337. Dokument _bearbeiten
  24338. Dokument _senden
  24339. _Weiterleiten
  24340. In Ordner _verschieben...
  24341. Aus Ordner _entfernene
  24342. Speichern und schlie
  24343.     0S0E
  24344. Hide if 'New doc' button was clicked
  24345. QUERY_STRING_DECODED
  24346.     0R1S2S6S
  24347.     0R1S2S
  24348. Abbrechen
  24349.     0S0E
  24350. Hide if person clicked 'New doc' button
  24351. QUERY_STRING_DECODED
  24352.     0R1S2S6S
  24353.     0R1S2S3S4S
  24354. O=Lotus Notes
  24355. O=Lotus Notes
  24356. PURSAFO
  24357. |.:#U
  24358. O=Lotus Notes
  24359. CN=Lotus Notes Template Development/O=Lotus Notes
  24360. PURSAFO
  24361. dP+aw
  24362. $Language
  24363. $LastBuildTime
  24364. $BabelInfo
  24365. $Info
  24366. $WINDOWTITLE
  24367. $WEBQuerySave
  24368. $WEBQueryOpen
  24369. $WebFlags
  24370. $$Script_O
  24371. $$ScriptName
  24372. $Times1
  24373. $Times2
  24374. $Times3
  24375. $Times4
  24376. $Times5
  24377. $Times6
  24378. $Times7
  24379. DefaultDuration
  24380. AutoAnniversaryRepeat
  24381. $Body
  24382. $V5ACTIONS
  24383. $ACTIONS
  24384. wAddressOpen
  24385. Lotus Product
  24386. V0.0\
  24387.  wRooms'++LotusScript Development Environment:2:5:(Options):0:66
  24388. '++LotusScript Development Environment:2:5:(Forward):0:1
  24389. Declare Sub Initialize
  24390. '++LotusScript Development Environment:2:5:(Declarations):0:2
  24391. '++LotusScript Development Environment:2:2:BindEvents:1:129
  24392. Private Sub BindEvents(Byval Objectname_ As String)
  24393.     Static Source As FIELD
  24394.     Set Source = Bind(Objectname_)
  24395. End Sub
  24396. '++LotusScript Development Environment:2:2:Initialize:1:10
  24397. Sub Initialize
  24398. End Sub
  24399. Lotus Product
  24400. <NOSCRIPT><H2>
  24401. Diese Seite erfordert JavaScript Version 1.1 oder h
  24402. </H2><HR></NOSCRIPT>
  24403. <SCRIPT LANGUAGE="JavaScript"><!--
  24404.     _version_=10 //--></SCRIPT>
  24405. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  24406.     _version_=11 //--></SCRIPT>
  24407. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  24408.     _version_=12 //--></SCRIPT>
  24409. <SCRIPT LANGUAGE="JavaScript"><!--
  24410.     if(_version_<11)
  24411.         document.write('<H2>
  24412. Diese Seite erfordert JavaScript Version 1.1 oder h
  24413. </H2><HR>');
  24414.         document.close();
  24415. //--></SCRIPT>
  24416.      
  24417.     Suchen in:
  24418.     <font size=-1>
  24419. names.nsf
  24420. Addressbooks
  24421.     0S0E
  24422. NABs_1
  24423.     </font>
  24424.     Standort und R
  24425. size=10
  24426. EntryList
  24427. names.nsf
  24428. ($Rooms)
  24429.     0S0E
  24430. EntryListFONT Size=2
  24431. New Button
  24432. Need a newer version of Notes to execute this button.
  24433.     0S0E
  24434. AddClick(fieldRooms)
  24435.      Hinzuf
  24436. gen >> 
  24437. FONT Size=2
  24438. Rooms
  24439. 12345678901234567890123456789012
  24440. RoomsFONT Size=2SIZE=4 
  24441. New Button
  24442. Need a newer version of Notes to execute this button.
  24443.     0S0E
  24444. RemoveClick(Rooms);
  24445.         Entfernen   z
  24446. FONT Size=2
  24447. New Button
  24448. Need a newer version of Notes to execute this button.
  24449.     0S0E
  24450. RemoveAllClick()
  24451.     Alle entfernenz
  24452. FONT Size=2
  24453. New Button
  24454. Need a newer version of Notes to execute this button.
  24455.     0S0E
  24456. OKClick();
  24457.        OK   z
  24458. font size=2
  24459. New Button
  24460. Need a newer version of Notes to execute this button.
  24461.     0S0E
  24462. CancelClick()
  24463.      Abbrechenz
  24464. font size=2
  24465. AddressBooksz
  24466. AddressBooks
  24467. <SCRIPT LANGUAGE="JavaScript1.1">
  24468. // For convenience
  24469. var fieldRooms = document.forms[0].Rooms;
  24470. var fieldEntryList = document.forms[0].EntryList;
  24471. function OKClick()
  24472.     // put the values back in the underlying form in the right format
  24473.     if(window.opener)
  24474.         window.opener.document.forms[0].RoomToReserve.value = selectToString(fieldRooms);
  24475.     self.close();
  24476. function CancelClick() 
  24477.     self.close();
  24478. function AddClick(field)
  24479.     if(fieldEntryList.selectedIndex != -1)
  24480.         for (var i=0; i < fieldEntryList.options.length; ++i)
  24481.         if (fieldEntryList.options[i].selected)
  24482.             {        
  24483.                 field.options[field.options.length] = new Option(fieldEntryList.options[i].text);
  24484. function substring2(string, start, length){
  24485.     return string.substring(start,start+length);
  24486. function FixName(name)
  24487.     if (name.indexOf("CN=")!= -1)
  24488.             tmpstring=name.substring(3)
  24489.             var fullname=substring2(tmpstring,0,tmpstring.indexOf("/"));
  24490.             tmpstring=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  24491.             strpos = tmpstring.indexOf("=")+1;
  24492.             tmpstring=substring2(tmpstring,strpos,tmpstring.length);
  24493.             while (strpos != -1)
  24494.                 if (tmpstring.indexOf("/")!= -1)
  24495.                 {
  24496.                 restofname=substring2(tmpstring,tmpstring.indexOf("/"),tmpstring.length);
  24497.                 if (restofname.length!=0)
  24498.                     {                      
  24499.                     fullname=fullname+"/"+restofname;
  24500.                     }
  24501.                 strpos=tmpstring.indexOf("=");
  24502.                 } else {
  24503.                     fullname=fullname+"/"+tmpstring;
  24504.                     strpos=-1;
  24505.                     }        
  24506.             return fullname;
  24507.         } else return name;
  24508. function RemoveClick(field)
  24509.     if (field.length != 0){ 
  24510.     if (field.selectedIndex != -1)
  24511.         for(var i=0;i<field.options.length ; ++i)
  24512.                 if (field.options[i].selected)
  24513.                     {
  24514.                         field.options[i] = null;
  24515.                     }
  24516. function RemoveAllClick()
  24517.     fieldRooms.options.length=0;
  24518. function trim(str)
  24519.     for(var i = 0 ; i<str.length && str.charAt(i)==" " ; i++ ) ;
  24520.     return str.substring(i,str.length); 
  24521. function stringToSelect(str,field)
  24522.     for(var  beg=0 ; beg < str.length ; beg = end+1)
  24523.         if(-1 == (end = str.indexOf(",",beg))) end = str.length;
  24524.         var entry = trim(str.substring(beg,end));
  24525.         if(entry!="") field.options[field.options.length++].text = entry;
  24526. function selectToString(field)
  24527.     if (field.length!=0)
  24528.     var str = "";
  24529.     for(i=0 ; i < field.options.length-1 ; i++)
  24530.         str += field.options[i].text + ",";
  24531.     return str += field.options[i].text;
  24532.     } else return "";
  24533. // Grab original values from underlying document
  24534. var OrigRooms;
  24535. if(window.opener)
  24536.     OrigRooms = window.opener.document.forms[0].RoomToReserve.value;
  24537. else    OrigRooms = "";
  24538. // Initialize fields
  24539. RemoveAllClick();
  24540. stringToSelect(OrigRooms,fieldRooms);
  24541. //-->
  24542. </SCRIPT>
  24543. O=Lotus Notes
  24544. O=Lotus Notes
  24545. PURSAFO
  24546. |.:#U
  24547. O=Lotus Notes
  24548. CN=Lotus Notes Template Development/O=Lotus Notes
  24549. PURSAFO
  24550. ,Rhz|
  24551. $Language
  24552. $LastBuildTime
  24553. $BabelInfo
  24554. $Info
  24555. $WEBQueryOpen
  24556. $WebFlags
  24557. $$Script_O
  24558. $$ScriptName
  24559. $$AddressBooks
  24560. $AddressBooks_O
  24561. $Body
  24562. form = document.forms[0];
  24563. if ((window.location.href.indexOf("OpenDocument"))==-1)  {
  24564. form.ConditionListDisplay.options[0] = form.ExceptionListDisplay.options[0]
  24565.     = form.ActionListDisplay.options[0] = null;
  24566. refreshAllDisplays();
  24567. var TYPE_CONDITION = "0";
  24568. var COND_IMPORTANCE = "4";
  24569. var COND_DELIVERY = "5";
  24570. var COND_DOMAIN = "B";
  24571. var COND_SIZE = "C";
  24572. var LIST_SEP = "; ";
  24573. var MSG_1="Mehrfach-Aktionen d
  24574. rfen kein L
  24575. schen von Dokumenten enthalten."
  24576. var IF_OP="IF"
  24577. var validationstr ='Eine g
  24578. ltige Aktion mu
  24579.  mindestens eine Bedingung und eine Aktion enthalten.'
  24580. var form;
  24581. function getSelectOneValue (select) { 
  24582.     var answer = (select.type == "hidden")  ? select.value :
  24583.                       (select.type == "select-one") ? select.options[select.selectedIndex].value : 0;
  24584. //    alert("getSelectOneValue: " + select.name + ", " + select.type + ", " + select.tagName + ", " + answer);
  24585.     return answer;
  24586. function list_append(field,str)
  24587.     if(field.value.length) field.value += LIST_SEP;
  24588.     field.value += str;
  24589. function list_removeelem(field,index)
  24590.     var value = field.value;
  24591.     for(i=pos=0 ; i<index ; i++)
  24592.         pos = value.indexOf(LIST_SEP,++pos);
  24593.     field.value = value.substring(0,pos);
  24594.     pos = value.indexOf(LIST_SEP,++pos);
  24595.     if(pos != -1) field.value += value.substring(pos+(i?0:LIST_SEP.length),value.length);
  24596. function list_replaceinvalidsep(str)
  24597.     var newstr = "";
  24598.     for(last=0, pos=str.indexOf(LIST_SEP) ; pos != -1 ; last=pos, pos=str.indexOf(LIST_SEP,pos))
  24599.         newstr += str.substring(last,pos) + ", ";
  24600.         pos += LIST_SEP.length;
  24601.     return newstr += str.substring(last,str.length);
  24602. function refreshDisplay(field)
  24603.     var list = eval("form."+field).value;
  24604.     var toklist = eval("form.tok"+field).value;
  24605.     var display = eval("form."+field+"Display").options;
  24606.     var pos = list.indexOf(LIST_SEP);
  24607.     for(i=last=0 ; pos!=-1 ; last=++pos, pos=list.indexOf(LIST_SEP,++pos), i++)
  24608.         display[i] = new Option(list.substring(last,pos));
  24609.     display[i] = new Option(list.substring(last,list.length));
  24610.     for(j=++i ; j<display.length ; j++) display[j] = null;
  24611.     display.length = i;
  24612. function refreshAllDisplays()
  24613.     refreshDisplay("ConditionList");
  24614.     refreshDisplay("ExceptionList");
  24615.     refreshDisplay("ActionList");
  24616.     refreshOperatorField();
  24617. function getANDOperator()
  24618.     var v = form.OperatorValues.value;
  24619.     return v.substring(0,v.indexOf(LIST_SEP));
  24620. function getOROperator()
  24621.     var v = form.OperatorValues.value;
  24622.     return v.substring(v.indexOf(LIST_SEP)+LIST_SEP.length,v.length);
  24623. function refreshOperatorField()
  24624.     var op = form.Operator.options;
  24625.     if(form.ConditionList.value.length)
  24626.         if(op.length == 2) return;
  24627.         op[0] = new Option(getANDOperator(),0,true,true);        
  24628.         op[1] = new Option(getOROperator(),1,true,true);
  24629.         op.selectedIndex=0;
  24630.         op.length = 2;
  24631.     else
  24632.         if(op.length == 1) return;
  24633.         op[0] = new Option(IF_OP,0,true,true);
  24634.         op[1] = null;
  24635.         op.length = 1;
  24636. function getKeyword(field)
  24637.     return eval("form."+field+".options[form."+field+".selectedIndex].text");
  24638. function getConditionString()
  24639.     var cond = getSelectOneValue(form.Condition);
  24640.     if(cond == COND_IMPORTANCE || cond == COND_DELIVERY) return getKeyword("Importance");
  24641.     if(cond == COND_DOMAIN) return form.DomainList.value;
  24642.     return form.String.value;
  24643. function addConditionLine(field)
  24644.     var list = eval("form."+field);
  24645.     var toklist = eval("form.tok"+field);
  24646.     var condstr = list_replaceinvalidsep(getConditionString());
  24647.     var strcondition = (list.value.length ? getKeyword("Operator") + " " : "")
  24648.                 + getKeyword("Condition") + " "
  24649.                 + getKeyword("Logic") + " "
  24650.                 + condstr;
  24651.     var tokcondition =  getSelectOneValue(form.Condition) + ":" 
  24652.                 + Number(getSelectOneValue(form.Logic)).toString() + ":" 
  24653.                 + (getSelectOneValue(form.Condition) == COND_IMPORTANCE || getSelectOneValue(form.Condition) == COND_DELIVERY ? 
  24654.                     getSelectOneValue(form.Importance) : condstr) + ":"
  24655.                 +Number(getSelectOneValue(form.Operator)).toString();
  24656.     list_append(list,strcondition);
  24657.     list_append(toklist,tokcondition);
  24658.     refreshDisplay(field);
  24659. function addAction()
  24660.     var list = form.ActionList;
  24661.     var toklist = form.tokActionList;
  24662.     var action = getSelectOneValue(form.Action)
  24663.     if(toklist.value.indexOf("3:") != -1)
  24664.         alert(MSG_1);
  24665.         return;
  24666.     var straction = list.value.length ? getANDOperator() + " " : "";
  24667.     straction += getKeyword("Action");
  24668.     var tokaction = Number(getSelectOneValue(form.Action)).toString() + ":" + Number(getSelectOneValue(form.NewImportance)).toString() +":";
  24669.     if (action == "1" || action=="4")  
  24670.                 var folder = list_replaceinvalidsep(form.CurrentFolders.options[form.CurrentFolders.selectedIndex].text);
  24671.                 straction += " " + folder;
  24672.                 tokaction += folder;
  24673.         } else if (action == "2") 
  24674.         if (getSelectOneValue(form.NewImportance) == "1") straction += " high" 
  24675.         if (getSelectOneValue(form.NewImportance) == "2") straction += " normal" 
  24676.         if (getSelectOneValue(form.NewImportance) == "3") straction += " low" 
  24677.     list_append(list,straction);
  24678.     list_append(toklist,tokaction);
  24679.     refreshDisplay("ActionList");
  24680. function removeLine(field)
  24681.     var list = eval("form."+field);
  24682.     var toklist = eval("form.tok"+field);
  24683.     var display = eval("form."+field+"Display");
  24684.     list_removeelem(list,display.selectedIndex);
  24685.     list_removeelem(toklist,display.selectedIndex);
  24686.     if(!display.selectedIndex){ var v = list.value; list.value = v.substring(v.indexOf(" ")+1,v.length); }
  24687.     refreshDisplay(field);
  24688. function removeAllLines(field)
  24689.     var list = eval("form."+field);
  24690.     var toklist = eval("form.tok"+field);
  24691.     var display = eval("form."+field+"Display").options;
  24692.     list.value = "";
  24693.     toklist.value = "";
  24694.     for(i=0 ; i<display.length ; i++) display[i]=null;
  24695.     display.length = 0;
  24696. Mail-Regel
  24697. wMailRuleSubmit
  24698. (wFolderCreateOpen)
  24699. 5Courier New
  24700. Lotus Product
  24701.  Mailrule
  24702. Translate
  24703. OperatorValues
  24704. Translate
  24705. Absender
  24706. Thema
  24707. Dringlichkeit
  24708. Zustellungspriorit
  24709. Kopie
  24710. Blindkopie
  24711. An oder Kopie an
  24712. Text oder Thema
  24713. Internet-Dom
  24714. e (Byte)
  24715. ConditionValues
  24716. Translate
  24717. ist kleiner als
  24718. ist mehr als
  24719. ist nicht
  24720. Logic1Values
  24721. Translate
  24722. lt nicht
  24723. ist nicht
  24724. Logic2Values
  24725. Translate
  24726. Normal
  24727. Niedrig
  24728. ImportanceValues
  24729. In Ordner verschieben
  24730. In Ordner kopieren
  24731. Dringlichkeit 
  24732. ndern in
  24733. schen
  24734.     0S0E
  24735. ActionValues
  24736. $FilterFormula
  24737. $FilterFormula
  24738. tokConditionList
  24739. folderlist
  24740. tokExceptionList
  24741. tokActionList
  24742. Mailrule
  24743. .,$,  , :
  24744. Path_Info_DEcoded
  24745. Path_Info
  24746. .,$,  , :
  24747. Query_String_Decoded
  24748. Query_String
  24749. HTTP_Referer
  24750. HTTP_Referer
  24751. <NOSCRIPT><H2>
  24752. Translate
  24753. Diese Seite erfordert JavaScript Version 1.1 oder h
  24754. </H2><HR></NOSCRIPT>
  24755. <SCRIPT LANGUAGE="JavaScript"><!--
  24756.     _version_=10 //--></SCRIPT>
  24757. <SCRIPT LANGUAGE="JavaScript1.1"><!--
  24758.     _version_=11 //--></SCRIPT>
  24759. <SCRIPT LANGUAGE="JavaScript1.2"><!--
  24760.     _version_=12 //--></SCRIPT>
  24761. <SCRIPT LANGUAGE="JavaScript"><!--
  24762.     if(_version_<11)
  24763.         document.write('<H2>
  24764. Translate
  24765. Diese Seite erfordert JavaScript Version 1.1 oder h
  24766. </H2><HR>');
  24767.         document.close();
  24768. //--></SCRIPT>
  24769. <A NAME="_RefreshKW_Condition"></A>
  24770. ConditionList
  24771.     0S0E
  24772.     Regel ist:  
  24773. Enable
  24774. In Kraft|1Au
  24775. er Kraft|0
  24776. {Font Size="2"}
  24777.       
  24778.     Bedingungen und Ausnahmen angeben
  24779.       
  24780.     Neue Bedingung oder Ausnahme:
  24781. Operator
  24782. OperatorValues
  24783.     0S0E
  24784. Condition
  24785. ConditionValues
  24786.     0S0E
  24787. Logic
  24788. Condition
  24789. Logic1Values
  24790. Logic2Values
  24791.     0S0E
  24792. condition
  24793.     0S0E
  24794. String
  24795. condition
  24796.     0S0E
  24797. Importance
  24798. ImportanceValues
  24799.     1S2S
  24800. condition
  24801.     0S0E
  24802. DomainList
  24803.      
  24804.     Wenn Mail empfangen wird, die folgenden Bedingungen entspricht:
  24805. ConditionListDisplay
  24806. _________________________________________
  24807. size=5
  24808. ConditionList
  24809. javascript:addConditionLine('ConditionList'); refreshOperatorField();
  24810. javascript:addConditionLine('ConditionList'); refreshOperatorField();
  24811.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24812. javascript:removeLine('ConditionList'); refreshOperatorField();
  24813. javascript:removeLine('ConditionList'); refreshOperatorField();
  24814.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24815. Notes D.O.M.
  24816. Reference
  24817. Classe
  24818. Reference
  24819. javascript:removeAllLines('ConditionList'); refreshOperatorField();
  24820. javascript:removeAllLines('ConditionList'); refreshOperatorField();
  24821.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24822. Notes D.O.M.
  24823.      
  24824. er wenn:
  24825. ExceptionListDisplay
  24826. _________________________________________
  24827. size=5
  24828. ExceptionList
  24829. javascript:addConditionLine('ExceptionList'); refreshOperatorField();
  24830. javascript:addConditionLine('ExceptionList'); refreshOperatorField();
  24831.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24832. \Prehandover\Mai
  24833. javascript:removeLine('ExceptionList'); refreshOperatorField();
  24834. javascript:removeLine('ExceptionList'); refreshOperatorField();
  24835.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24836. _trans_response
  24837. "###$$$%%%&&&'''
  24838. javascript:removeAllLines('ExceptionList'); refreshOperatorField();
  24839. javascript:removeAllLines('ExceptionList'); refreshOperatorField();
  24840.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24841. Notes D.O.M.
  24842. Formula @Comm
  24843. Objects
  24844. Referenc
  24845.       
  24846.     Aktionen angeben
  24847.       
  24848.     Neue Aktion:
  24849. Action
  24850.     1S2S
  24851. Action
  24852. ActionValues
  24853.     0S0E
  24854. Action
  24855. Action
  24856.     0S0E
  24857. CurrentFolders
  24858. CurrentFolders
  24859. folderlist
  24860.     0S0E
  24861. if(form.CurrentFolders.selectedIndex != -1)
  24862.         for (var i=0; i < form.CurrentFolders.options.length; ++i)
  24863.         if (form.CurrentFolders.options[i].selected)
  24864.             {        
  24865.                 var selection = form.CurrentFolders.options[i].value;
  24866.                 alert(selection);
  24867. Action
  24868.     0S0E
  24869. NewImportance
  24870. ImportanceValues
  24871.     1S2S
  24872. action
  24873.     0S0E
  24874.       
  24875.     Folgende Aktionen durchf
  24876. hren:
  24877. ActionListDisplay
  24878. _________________________________________z
  24879. size=5
  24880. ActionList
  24881. javascript:addAction()
  24882. javascript:addAction()
  24883.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24884. Notes D.O.M.
  24885. Referenc
  24886. ator)).toString(
  24887. e full text
  24888.     list_appen
  24889. javascript:removeLine('ActionList')
  24890. javascript:removeLine('ActionList')
  24891.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24892. rence
  24893. javascript:removeAllLines('ActionList')
  24894. javascript:removeAllLines('ActionList')
  24895.    !!!"""###$$$%%%&&&'''((()))***+++,,,---...///000111222333444555666777888999:::;;;<<<===>>>???@@@AAABBBCCCDDDEEEFFFGGGHHHIIIJJJKKKLLLMMMNNNOOOPPPQQQRRRSSSTTTUUUVVVWWWXXXYYYZZZ[[[\\\]]]^^^___```aaabbbcccdddeeefffggghhhiiijjjkkklllmmmnnnooopppqqqrrrssstttuuuvvvwwwxxxyyyzzz{{{|||}}}~~~
  24896. Notes D.O.M.
  24897.           Set  
  24898. , Empty$, Empty$
  24899. This field is used for Ordering the Filter documents in the folder
  24900. OrderNum
  24901. OrderNum
  24902. Categori_ze
  24903. _Edit Document
  24904. Send Docu_ment
  24905. _Forward
  24906. _Move To Folder...
  24907. _Remove From Folder
  24908. Speichern und schlie
  24909. act_ok.GIF|act_CSOK?
  24910. //validations for having at least one condition and one action
  24911. if (form.ConditionList.value=="" || form.ActionList.value=="") {
  24912. alert(validationstr);
  24913. } else form.submit();
  24914. nderungen verwerfen 
  24915.     0S0E
  24916. act_discardchanges.GIF|act_CSDISCARD
  24917. Bearbeiten 
  24918.     0S0E
  24919. act_EDIT.GIF|act_EDIT?
  24920. schen
  24921.     1S10S14S16S23S
  24922.     0R5S
  24923. path"
  24924. /wDelete?OpenAgent&
  24925. UNID"
  24926. &From="
  24927. view"
  24928. tmpWasMailed
  24929.     1S2S
  24930. act_DELETE.GIF|act_DELETE?
  24931. Gehe zu\Eingang
  24932.     1S2S
  24933. path"
  24934. /MailFS?OpenFrameset"
  24935.     0R3S4S5S6S
  24936. act_goto.gif|act_goto?
  24937. Gehe zu\Kalender
  24938.     1S2S
  24939. path"
  24940. /CalendarFS?OpenFrameset"
  24941.     0R3S4S5S6S
  24942. act_goto.gif|act_goto?
  24943. Gehe zu\Aufgabe
  24944.     1S2S
  24945. path"
  24946. /ToDoFS?OpenFrameset"
  24947.     0R3S4S5S6S
  24948. act_goto.gif|act_goto?
  24949. Categori_ze
  24950. _Edit Document
  24951. Send Docu_ment
  24952. _Forward
  24953. _Move To Folder...
  24954. _Remove From Folder
  24955. nderungen verwerfen 
  24956.     0S0E
  24957. Bearbeiten 
  24958.     0S0E
  24959. schen
  24960.     1S10S14S16S23S
  24961.     0R5S
  24962. path"
  24963. /wDelete?OpenAgent&
  24964. UNID"
  24965. &From="
  24966. view"
  24967. tmpWasMailed
  24968.     1S2S
  24969. Gehe zu\Eingang
  24970.     1S2S
  24971. path"
  24972. /MailFS?OpenFrameset"
  24973.     0R3S4S5S6S
  24974. Gehe zu\Kalender
  24975.     1S2S
  24976. path"
  24977. /CalendarFS?OpenFrameset"
  24978.     0R3S4S5S6S
  24979. Gehe zu\Aufgabei
  24980.     1S2S
  24981. path"
  24982. /ToDoFS?OpenFrameset"
  24983.     0R3S4S5S6S
  24984. O=Lotus Notes
  24985. O=Lotus Notes
  24986. PURSAFO
  24987. |.:#U
  24988. O=Lotus Notes
  24989. CN=Lotus Notes Template Development/O=Lotus Notes
  24990. PURSAFO
  24991. $Language
  24992. $LastBuildTime
  24993. $BabelInfo
  24994. $HTMLCode
  24995. $Info
  24996. $WINDOWTITLE
  24997. $WEBQuerySave
  24998. $WEBQueryOpen
  24999. $WebFlags
  25000. $$Script_O
  25001. $$ScriptName
  25002. $Body
  25003. $V5ACTIONS
  25004. $ACTIONS
  25005. "Small Fonts
  25006.  $Subscription
  25007. Neues Abonnement
  25008. $HLTitle
  25009.     2S4S6S
  25010. (Help)
  25011. subscriptions
  25012.     0S0E
  25013. _KategorisierenX
  25014. Dokument _bearbeiten
  25015. Dokument _senden
  25016. _WeiterleitenX
  25017. In Ordner _verschieben...X
  25018. Aus Ordner _entfernenX
  25019.     2S7S12S
  25020. AbbrechenXF
  25021. SaveOptions
  25022.     1S2S3S
  25023. _KategorisierenX
  25024. Dokument _bearbeiten
  25025. Dokument _senden
  25026. _WeiterleitenX
  25027. In Ordner _verschieben...X
  25028. Aus Ordner _entfernenX
  25029.     2S7S12S
  25030. AbbrechenXF
  25031. SaveOptions
  25032.     1S2S3S
  25033. '++LotusScript Development Environment:2:5:(Options):0:74
  25034. Option Public
  25035. '++LotusScript Development Environment:2:5:(Forward):0:1
  25036. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25037. $HLMLastServer
  25038. .,$ //:
  25039. $HLMLastCheckedX
  25040. .,$,  , :
  25041. $NoPurge
  25042. .,$,  , :
  25043. $HLTypeX
  25044. Mail-AbonnementX
  25045. xxDisabled
  25046. Deaktiviert
  25047.     1S2S
  25048. $HlDisabled
  25049. xxDisabled"
  25050.     0R2S3S4S6S7S8S10SDispDisabled
  25051. MainTable
  25052. MainTable
  25053.     Name
  25054.     Abonnementname:  X
  25055. Geben Sie einen Namen f
  25056. r das Abonnement ein
  25057. $HLTitle
  25058.     AbrufenX
  25059. $HLType
  25060.     1S2S
  25061.     Abrufen:    
  25062. $QueryType
  25063. Alle eingehenden Mail-Nachrichten  | allEingehende Mail-Nachrichten die einem der angegebenen Auswahlkriterien entsprechen | sel
  25064. QueryType
  25065. QueryType
  25066. CritSentOnlyToMe
  25067. Mails die nur an mich addressiert sind|1
  25068. CritSentDirectlyToMe
  25069. An mich direkt gesendete Mails (meine Adresse ist im Feld 'An:' explizit aufgef
  25070. hrt)|1
  25071. CritHighPriority
  25072. Hohe Priorit
  25073. t oder Dringlichkeit |1
  25074. CritReturnReceipt
  25075. Empfangsbest
  25076. tigung wurde angefordert|1
  25077. CritToDo
  25078. Mir zugewiesene Aufgaben|1
  25079. CritToDoComplete
  25080. Abgeschlossene Aufgaben|1X
  25081. CritMeetInvite
  25082. Besprechungseinladungen|1X
  25083. CritMeetResponse
  25084. Antworten auf Besprechungseinladungen|1X
  25085. CritFrom
  25086. Von:|1
  25087. CritFrom
  25088.     1S2S
  25089. CritFromNamesX
  25090.       Geben Sie den vollqualifizierten Namen ein (z.B. 'Hugo Schmidt/FirmaX/Vertrieb/D'). Trennen Sie mehrere Namen durch Kommas.X
  25091. xKnE0BpBA04PbRo0BpOEsel~}
  25092.     AktivierungX
  25093. $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
  25094. $HLEnabled
  25095.     0RR2S3S4S6S8S$HLDisabled
  25096. Dieses Abonnement vor
  25097. bergehend aussetzen | 1
  25098. Allgemein
  25099. pBA04Ph$80BpOEBasics~}
  25100. basics
  25101. basics
  25102.     Zuletzt 
  25103. berpr
  25104.     Uhrzeit:    X
  25105. .,$ //:
  25106. $HLMLastChecked
  25107. Nicht zutreffend
  25108. $HLMLastChecked
  25109.     2S3S4S6S8S
  25110. Disp$HLMLastCheckedX
  25111.     Server:    
  25112. $HLMLastChecked
  25113. Nicht zutreffend
  25114. $HLMLastServer
  25115. Lokal
  25116. $HLMLastServer
  25117.     2S3S4S6S8S9S10S12S14S18S
  25118. Disp$HLMLastServer
  25119. $HLMError
  25120.     1S2S
  25121.     Status:    
  25122. $HLMError
  25123. Disp$HLMErrorX
  25124.     Weitere InformationenX
  25125.     Replik-ID:    X
  25126. $HLMonitorDBh
  25127. $HLMonitorDB
  25128. Nicht vorhanden
  25129. $HLMonitorDB_Display
  25130.     Formula used:X
  25131. $QueryType
  25132. Select @IsAvailable( DeliveredDate)
  25133. Continue
  25134.     2S3S4S6S8S9S11S
  25135. tCrit1
  25136. CritHighPriority
  25137. ( DeliveryPriority = "H" | Importance = "1")
  25138.     0RR1S2S4S5S6S8S10S
  25139. tCrit2
  25140. CritReturnReceipt
  25141. ( ReturnReciept = "1")
  25142.     0R1S2S4S5S6S8S10S
  25143. tCrit3
  25144. CritToDo
  25145. (Form = "Task" & AssignedState = "2")
  25146.     0R1S2S4S5S6S8S10S
  25147. tCrit4
  25148. CritToDo
  25149. (Form = "Task" & AssignedState = "9")
  25150.     0R1S2S4S5S6S8S10S
  25151. tCrit5
  25152. CritMeetInvite
  25153. (Form = "Notice" &  NoticeType = "I")
  25154.     0R1S2S4S5S6S8S10S
  25155. tCrit6
  25156. CritMeetInvite
  25157. (Form = "Notice" & NoticeType = "N")
  25158.     0R1S2S4S5S6S8S10S
  25159. tCrit7
  25160. CritFrom
  25161. (@LowerCase( From : AltFrom) = "
  25162. CritFromNames
  25163. " : "
  25164.     0R1S2S4S5S6S8S9S10R14S16S19S20S22S
  25165. tCrit8
  25166. CritSentOnlyToMe
  25167. (@LowerCase( SendTo) = "
  25168. " & @Elements(SendTo) = 1 & CopyTo = "")"
  25169.     0R1S2S4S5S6S8S9S10S12S14S15S17S
  25170. tCrit9
  25171. CritSentDirectlyToMe
  25172. (@LowerCase( SendTo) = "
  25173.     0R1S2S4S5S6S8S9S10S12S14S15S17S
  25174. tAllCrit
  25175. tCrit1
  25176. tCrit2
  25177. tCrit3
  25178. tCrit4
  25179. tCrit5
  25180. tCrit6
  25181. tCrit7
  25182. tCrit8
  25183. tCrit9
  25184.     0RR1S2S4S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S25S
  25185. Select @IsAvailable( DeliveredDate)
  25186. tAllCrit
  25187. tAllCrit"
  25188.     0RR1S2S4S5S6S8S10S11S12S13S14S
  25189. $HLFormula
  25190.     Marker:    
  25191. Abonnements
  25192. $HLSubscriptionX
  25193.     Monitor Type:    
  25194. $HLMonitorType
  25195. Erweitert
  25196. pBA04PYmE0BpOEAdvanced~}
  25197. Lotus Product
  25198. O=Lotus Notes
  25199. O=Lotus Notes
  25200. PURSAFO
  25201. |.:#U
  25202. O=Lotus Notes
  25203. CN=Lotus Notes Template Development/O=Lotus Notes
  25204. PURSAFO
  25205. geo0n?
  25206. Untitled2
  25207. SizeValue
  25208. $Info
  25209. $$ScriptName
  25210. $HLMLastChecked
  25211. $WINDOWTITLE
  25212. $AppHelpFormula
  25213. $ACTIONS
  25214. $V5ACTIONS
  25215. $Script
  25216. $Body
  25217. $$Script_O
  25218. $Language
  25219. $LastBuildTime
  25220. $BabelInfo
  25221. VersionOpt|
  25222.     6S7S9S14S
  25223. $VersionOpt
  25224.     0R1S2S3S
  25225. SavedOnce
  25226.     0R1S2S3S
  25227. PostedDate(
  25228.     0R1S2S3S
  25229. DeliveredDate
  25230.     0R1S2S3S
  25231. $AutoEditMode
  25232.     0R1S2S3S
  25233. MailSaveOptions
  25234.     0R1S2S3S
  25235. VersionOpt
  25236.     0R4S
  25237. Neue Verkn
  25238. pfungsnachricht
  25239. Subject
  25240. Subject
  25241. Subject
  25242.     4S6S12S13S14S15S17S21S23S25S26S28S
  25243. (Help)
  25244. MAIL_F_LINKMESSAGE
  25245.     0S0E
  25246. Times New Roman
  25247. '++LotusScript Development Environment:2:5:(Options):0:74
  25248. Option Public
  25249. Option Explicit
  25250. Use "CoreEmailClasses" 
  25251. '++LotusScript Development Environment:2:5:(Forward):0:1
  25252. '++LotusScript Development Environment:2:5:(Declarations):0:10
  25253. Dim cMemoObject As Variant
  25254. Lotus Product
  25255.  Bookmark'++LotusScript Development Environment:2:5:(Options):0:66
  25256. '++LotusScript Development Environment:2:5:(Forward):0:1
  25257. Declare Sub Postopen(Source As Notesuidocument)
  25258. Declare Sub Postmodechange(Source As Notesuidocument)
  25259. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  25260. Declare Sub Postsave(Source As Notesuidocument)
  25261. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  25262. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  25263. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25264. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25265. Private Sub BindEvents(Byval Objectname_ As String)
  25266.     Static Source As NOTESUIDOCUMENT
  25267.     Set Source = Bind(Objectname_)
  25268.     On Event Postopen From Source Call Postopen
  25269.     On Event Postmodechange From Source Call Postmodechange
  25270.     On Event Querysave From Source Call Querysave
  25271.     On Event Postsave From Source Call Postsave
  25272.     On Event Queryclose From Source Call Queryclose
  25273.     On Event Queryopen From Source Call Queryopen
  25274. End Sub
  25275. '++LotusScript Development Environment:2:2:Postopen:1:12
  25276. Sub Postopen(Source As Notesuidocument)
  25277.     Call cMemoObject.PostOpen(Source)    
  25278. End Sub
  25279. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  25280. Sub Postmodechange(Source As Notesuidocument)
  25281. End Sub
  25282. '++LotusScript Development Environment:2:2:Querysave:1:12
  25283. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  25284.     Call cMemoObject.QuerySave(Continue)
  25285. End Sub
  25286. '++LotusScript Development Environment:2:2:Postsave:1:12
  25287. Sub Postsave(Source As Notesuidocument)
  25288.     Call cMemoObject.PostSave()
  25289. End Sub
  25290. '++LotusScript Development Environment:2:2:Queryclose:1:12
  25291. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  25292.     Call cMemoObject.QueryClose(Continue)
  25293. End Sub
  25294. '++LotusScript Development Environment:2:2:Queryopen:1:12
  25295. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  25296.     Set cMemoObject = New UIMemoDocument          
  25297.     Call cMemoObject.Init(Source,Isnewdoc) 
  25298. End Sub
  25299. Lotus Product
  25300.     Always hidden: 
  25301. Bookmark
  25302. Principal
  25303. CalendarProfile
  25304. Owner
  25305.     1S2S3S7S
  25306. Principal
  25307. Principal
  25308.     0R3S4S6S8S
  25309. FromPerson memo is from.
  25310.     0S0E
  25311.     0S0E
  25312. Encrypt
  25313.     0S0E
  25314. DefaultMailSaveOptions
  25315. $KeepPrivate
  25316. $KeepPrivate
  25317. $KeepPrivate
  25318.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  25319. Path_Info
  25320. Path_Info
  25321. .,$,  , :
  25322. Query_String
  25323. Query_String
  25324. $HideMailHeader
  25325.     0S0E
  25326. Verkn
  25327. pfungsnachricht
  25328. ?_?__
  25329. `!b`1
  25330. 7`^///?
  25331. ?b___
  25332. `bOOO
  25333. `<b!R
  25334. Built\Mail50.ntf
  25335. Verkn
  25336. pfungsnachricht
  25337. Verkn
  25338. pfungsnachricht
  25339.     Von:    
  25340. Principal
  25341. Principal
  25342. FromDomain
  25343. FromDomain
  25344. FromDomain
  25345. FromDomain
  25346.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  25347. FromName
  25348. Principal
  25349. Principal
  25350. Principal
  25351.     0RR1S2S10S11S16S18S
  25352. FromStops
  25353. Principal
  25354. Principal
  25355. Principal
  25356.     0RR1S2S10S11S16S18S21S
  25357. FromName
  25358. FromStops
  25359. FromStops
  25360. FromStops
  25361.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  25362.      am 
  25363. PostedDateh
  25364. PostedDate
  25365.     4S5S10S12S
  25366. tmpDisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  25367. ReplyDate
  25368. ReplyTo
  25369. $HideMailHeader
  25370.     2S3S4S5S6S7S9S10S
  25371. Bitte antworten
  25372. ReplyTo
  25373. ReplyTo
  25374. ReplyDate
  25375.  bis 
  25376. ReplyDate
  25377.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfo
  25378. $HideMailHeader
  25379. Principal
  25380. Principal
  25381. Principal
  25382. Principal
  25383. Principal
  25384.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  25385.     Gesendet von:    
  25386. FromDomain
  25387. FromDomain
  25388. FromDomain
  25389. FromDomain
  25390.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  25391. FromName
  25392.     0RR1S2S6S
  25393. FromStops
  25394.     0R1S2S6S
  25395. FromName
  25396. FromStops
  25397. FromStops
  25398. FromStops
  25399.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  25400. SendTo
  25401. CopyTo
  25402.   Kopie:  
  25403. CopyTo
  25404.     1S8S13S14S2E17S18S21S28S31S
  25405. MailAddress
  25406. InheritedReplyToh
  25407. InheritedReplyTo
  25408. InheritedReplyTo
  25409. InheritedFrom
  25410.     1S2S8S9S10S11S13S15S
  25411. MailAddress
  25412.     0RR 
  25413. SendTo}
  25414.     0S0E
  25415. SendToListe der Personen, an die das Memo (Original) gesendet werden soll
  25416.     Kopie:
  25417. CopyTo}
  25418.     0S0E
  25419. CopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  25420. DeliveredDate
  25421. BlindCopyTo
  25422. (Blindkopie: 
  25423. BlindCopyTo
  25424.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpBlindCopyTo
  25425.     Blindkopie:
  25426. BlindCopyTo
  25427.     0S0E
  25428. BlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.
  25429.     Thema:
  25430. InheritedSubject
  25431. Subject
  25432. Subject
  25433. Topic
  25434. Topic
  25435. Title
  25436. Title
  25437. BriefDescriptionh
  25438. BriefDescription
  25439.     1S2S3S5R10S12R17S19R24S26R31S33R
  25440. Verkn
  25441. pfungsnachricht
  25442. InheritedSubjecth
  25443. InheritedSubject"
  25444.     0RR2S"
  25445. Subject
  25446.     0S0E
  25447. SubjectThema des Memos.
  25448. InheritedDBTitle
  25449. InheritedSubject
  25450. FlowStatus
  25451. DueDateTime
  25452.     1S2S3S2E4S5S6S7S8S9S10S11S12S13S14S
  25453.     Dokumentverkn
  25454. pfungsinformationen:
  25455. InheritedDBTitle
  25456.     1S2S
  25457.     Datenbank:    
  25458. InheritedDBTitle
  25459. InheritedDBTitle
  25460. InheritedSubject
  25461.     1S2S
  25462.     Dokument:    
  25463. InheritedSubject
  25464. InheritedSubject
  25465. FlowStatus
  25466.     1S2S
  25467.     Workflow-Status:    
  25468. FlowStatus
  25469. FlowStatus
  25470. DueDateTime
  25471.     1S2S
  25472. lligkeitsdatum:    
  25473. DueDateTime
  25474. DueDateTime
  25475. BodyText der Nachricht
  25476.  @  @@ @` @
  25477. @@ @@@@@`@@
  25478. `@ `@@`@``@
  25479.       Sie k
  25480. nnen das Dokument durch Klicken auf diese Verkn
  25481. pfung 
  25482. ffnen.
  25483.     Always Hidden: 
  25484. ReplyDate
  25485. ReplyDate
  25486. ReplyDate
  25487. Importanceh
  25488. Importance
  25489. Importance
  25490. Importance(
  25491. DeliveryReporth
  25492. DeliveryReport
  25493. DeliveryReport
  25494. DeliveryReport(
  25495. DeliveryPriorityh
  25496. DeliveryPriority
  25497. DeliveryPriority
  25498. DeliveryPriority(
  25499. UpdateProfileNote
  25500. UpdateProfileNote
  25501. UpdateProfileNote
  25502. ReturnReceipt
  25503. ReturnReceipt
  25504. ReturnReceipt
  25505. $KeepPrivateh
  25506. $KeepPrivate
  25507. $KeepPrivate(
  25508. ExpireDateh
  25509. ExpireDate
  25510. ExpireDate(
  25511. ReplyTo
  25512. ReplyTo
  25513. ReplyTo
  25514. MimeFormath
  25515. MimeFormat
  25516. MimeFormat
  25517. MimeFormat(
  25518. SMTPEncodingh
  25519. SMTPEncoding
  25520. SMTPEncoding
  25521. SMTPEncoding(
  25522. MIMEMailCharset
  25523. MIMEMailCharset
  25524. MIMEMailCharset
  25525. MIMEMailCharset
  25526. $AutoSpellh
  25527. $AutoSpell
  25528. $AutoSpell(
  25529. WebSubjecth
  25530. WebSubject(
  25531. tmpSenderTagh
  25532. tmpSenderTag
  25533. tmpSenderTag
  25534. tmpSenderTag(
  25535.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  25536. RemoveNoteItems
  25537. nderungen verwerfen
  25538. MEMO_CANCEL
  25539. 4194304
  25540.     0S0E
  25541. ActionInProgress
  25542. MEMO_CANCEL
  25543.     0R1S
  25544. IsMailStationery
  25545.     1S2S3S
  25546. Speichern und schlie
  25547. MEMO_DRAFT
  25548.     0S0E
  25549. ActionInProgress
  25550. MEMO_DRAFT
  25551.     0R1S
  25552. PostedDateh
  25553. IsMailStationery
  25554.     7S8S9S10S13S14S15S16S
  25555. act_save.GIF|act_CSSAVE?
  25556. Speichern und ablegenT'++LotusScript Development Environment:2:5:(Options):0:66
  25557. '++LotusScript Development Environment:2:5:(Forward):0:1
  25558. Declare Sub Click(Source As Button)
  25559. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25560. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25561. Private Sub BindEvents(Byval Objectname_ As String)
  25562.     Static Source As BUTTON
  25563.     Set Source = Bind(Objectname_)
  25564.     On Event Click From Source Call Click
  25565. End Sub
  25566. '++LotusScript Development Environment:2:2:Click:1:12
  25567. Sub Click(Source As Button)
  25568.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  25569.     Call cMemoObject.noteUIMemo.save()
  25570.     Call cMemoObject.noteUIMemo.close()
  25571. End Sub
  25572. PostedDateh
  25573. IsMailStationery
  25574.     7S8S9S10S13S14S15S16S
  25575. Schlie
  25576. MEMO_CANCEL
  25577. 4194304
  25578.     0S0E
  25579. ActionInProgress
  25580. MEMO_CANCEL
  25581.     0R1S
  25582. IsMailStationery
  25583.     0S1S2S
  25584. Neues Memo(
  25585.     0S0E
  25586. act_NEWMEMO.GIF|act_NEWMEMO?
  25587. Antwort\Antwort)0
  25588. Reply
  25589.     0S0E
  25590. act_REPLY.GIF|act_REPLY?
  25591. Antwort\Antwort mit Protokoll
  25592. Antwort mit Protokoll
  25593. Dieses Dokument ist nicht vollst
  25594. ndig.
  25595.     4S8S10S13S
  25596. Reply with history
  25597. act_REPLY.GIF|act_REPLY?
  25598. Antwort\Allen antworten+X
  25599. MailStEd
  25600.     0S0E
  25601. Reply
  25602. act_REPLY.GIF|act_REPLY?
  25603. Antwort\Allen antworten (mit Protokoll)
  25604. MailStEd
  25605.     0S0E
  25606. Antwort mit Protokoll
  25607. Dieses Dokument ist nicht vollst
  25608. ndig.
  25609.     0R4S8S10S13S
  25610. Reply with history
  25611. act_REPLY.GIF|act_REPLY?
  25612. Dokument bearbeiten
  25613. Weiterleiten 
  25614.     0S0E
  25615. schen
  25616.     0S0E
  25617. In Ordner _verschieben...
  25618. Senden
  25619. MEMO_SEND
  25620.     0S0E
  25621. ActionInProgress
  25622. MEMO_SEND
  25623.     0R1S
  25624. PostedDateh
  25625. IsMailStationery
  25626.     5S6S7S8S10S11S12S13S
  25627. act_SEND.GIF|act_SEND?
  25628. Senden und ablegen
  25629. MEMO_SEND_FILE
  25630.     0S0E
  25631. ActionInProgress
  25632. MEMO_SEND_FILE
  25633.     0R1S
  25634. PostedDateh
  25635. IsMailStationery
  25636.     5S6S7S8S12S13S
  25637. act_SENDFILE|act_SENDFILE?
  25638. Speichern
  25639. MEMO_STATIONERYSAVE
  25640.     0S0E
  25641. ActionInProgress
  25642. MEMO_STATIONERYSAVE
  25643.     0R1S
  25644. IsMailStationery
  25645.     2S3S
  25646. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  25647. Als Entwurf speichern
  25648. MEMO_DRAFT
  25649.     0S0E
  25650. ActionInProgress
  25651. MEMO_DRAFT
  25652.     0R1S
  25653. PostedDateh
  25654. IsMailStationery
  25655.     5S6S7S8S10S11S12S13S
  25656. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  25657. Zustelloptionen...
  25658. $KeepPrivate
  25659. $KeepPrivate
  25660. $KeepPrivate
  25661. $KeepPrivate
  25662. DeliveryOptions
  25663. Zustelloptionen
  25664.     0R4S10S
  25665. PostedDateh
  25666.     5S6S7S8S
  25667. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  25668. Zustellinformationen...
  25669. DeliveryInfo
  25670. Zustellinformationen
  25671.     4S5S6S7S8S9S10S12S
  25672. _Weiterleiten
  25673. Antwort
  25674. Reply
  25675.     0S0E
  25676. Antwort mit Protokolln
  25677. Antwort mit Protokoll
  25678. Dieses Dokument ist nicht vollst
  25679. ndig.
  25680.     4S8S10S13S
  25681. Reply with history
  25682. Adresse... 
  25683.     0S0E
  25684. PostedDateh
  25685.     5S6S7S8S
  25686. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  25687. Aus Ordner _entfernen...
  25688. _Kategorisieren 
  25689. Senden
  25690. Neues Memo(
  25691.     0S0E
  25692. act_NEW.GIF|act_NEW?
  25693. Weiterleiten
  25694. Format
  25695. CalendarProfile
  25696. FormatReplies
  25697. FormatChar
  25698. CalendarProfile
  25699. OffsetChar
  25700.     0R1S10S14S16S23S
  25701. Format
  25702. path"
  25703. /wForward?OpenForm&ParentUNID="
  25704. Forward
  25705. path"
  25706. /wForward?OpenForm&ParentUNID="
  25707. Forward&Format=
  25708. FormatChar"
  25709.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  25710. act_FORWARD.GIF|act_FORWARD?
  25711. Antwort\Antwort
  25712. wReply
  25713.     0S0E
  25714. act_REPLY.GIF|act_REPLY?
  25715. Antwort\Allen antworten8
  25716.     0R1S10S14S16S23S
  25717. path"
  25718. /wReply?OpenForm&xxxxxxUNID="
  25719. &All"
  25720.     0R3S4S5S6S7S8S15S17S18S
  25721. Antwort\Antwort mit Protokoll
  25722.     1S10S14S16S23S
  25723. Format
  25724. CalendarProfile
  25725. FormatReplies
  25726.     0R6S
  25727. FormatChar
  25728. CalendarProfile
  25729. OffsetChar
  25730. Format
  25731. path"
  25732. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  25733. &Format="
  25734. Formatchar"
  25735. Reply With History
  25736.     0R9S10S11S12S13S14S21S23S24S
  25737. act_REPLY.GIF|act_REPLY?
  25738. Antwort\Allen antworten (mit Protokoll)
  25739.     1S10S14S16S23S
  25740. Format
  25741. CalendarProfile
  25742. FormatReplies
  25743.     0R6S
  25744. FormatChar
  25745. CalendarProfile
  25746. OffsetChar
  25747. Format
  25748. path"
  25749. /Reply+With+History?OpenForm&ParentUNID="
  25750. &Format="
  25751. FormatChar"
  25752. &All"
  25753. path"
  25754. /Reply+With+History?OpenForm&ParentUNID="
  25755. &All"
  25756.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  25757. Senden\Senden
  25758. tmpSendOptions
  25759. act_SEND.GIF|act_SEND?
  25760. Senden\Senden und speichern
  25761. tmpSendOptions
  25762. act_SEND.GIF|act_SEND?
  25763. Senden\Als Entwurf speichern`
  25764. tmpSendOptions
  25765. act_SEND.GIF|act_SEND?
  25766. Adresse...
  25767. Appointment
  25768. AppointmentType
  25769. TaskType
  25770. tmpOwner
  25771. Chair
  25772.     20S21S22S
  25773. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  25774. var pathname = (window.location.pathname);
  25775. if (navigator.appVersion.indexOf('X11') != -1)  
  25776.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  25777.     } else 
  25778.     if (navigator.appName =='Netscape') 
  25779.             if (navigator.appVersion.indexOf("Win") != -1)
  25780.                 {
  25781.                 window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  25782.                 } else
  25783.                 {
  25784.                  window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  25785.                 }
  25786.             } else    
  25787.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=750,height=540');
  25788. Zustelloptionen...
  25789. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  25790. var pathname = (window.location.pathname);
  25791. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'DeliveryOptions?OpenForm','Address','scrollbars,resizable=yes,screenX=150,screenY=200,width=500,height=180');
  25792. Bearbeiten 
  25793.     0S0E
  25794. act_EDIT.GIF|act_EDIT?
  25795. schenl
  25796.     1S10S14S16S23S
  25797.     0R5S
  25798. path"
  25799. /wDelete?OpenAgent&
  25800. UNID"
  25801. &From="
  25802. view"
  25803. tmpWasMailed
  25804.     1S2S
  25805. act_DELETE.GIF|act_DELETE?
  25806. Gehe zu\Eingang
  25807.     1S2S
  25808. path"
  25809. /MailFS?OpenFrameset"
  25810.     0R3S4S5S6S
  25811. act_goto.gif|act_goto?
  25812. Kopieren in\Neue Aufgabe
  25813.     1S10S14S16S23S
  25814. path"
  25815. /Task?OpenForm&UNID="
  25816. &CopyInto
  25817.     0R3S4S5S6S7S8S15S17S18S
  25818. act_COPYINTO.GIF|act_COPYINTO?
  25819. Kopieren in\Neuen Kalendereintrag
  25820.     1S10S14S16S23S
  25821. path"
  25822. /Appointment?OpenForm&UNID=
  25823. &CopyInto
  25824.     0R3S4S5S6S7S8S15S17S18S
  25825. act_COPYINTO.GIF|act_COPYINTO?
  25826. Gehe zu\VorA 
  25827.     0S0E
  25828. act_goto.gif|act_goto?
  25829. Gehe zu\Zur
  25830.     0S0E
  25831. act_goto.gif|act_goto?
  25832. nderungen verwerfen
  25833. MEMO_CANCEL
  25834. 4194304
  25835.     0S0E
  25836. ActionInProgress
  25837. MEMO_CANCEL
  25838.     0R1S
  25839. IsMailStationery
  25840.     1S2S3S
  25841. Speichern und schlie
  25842. MEMO_DRAFT
  25843.     0S0E
  25844. ActionInProgress
  25845. MEMO_DRAFT
  25846.     0R1S
  25847. PostedDateh
  25848. IsMailStationery
  25849.     7S8S9S10S13S14S15S16S
  25850. Speichern und ablegenT'++LotusScript Development Environment:2:5:(Options):0:66
  25851. '++LotusScript Development Environment:2:5:(Forward):0:1
  25852. Declare Sub Click(Source As Button)
  25853. '++LotusScript Development Environment:2:5:(Declarations):0:2
  25854. '++LotusScript Development Environment:2:2:BindEvents:1:129
  25855. Private Sub BindEvents(Byval Objectname_ As String)
  25856.     Static Source As BUTTON
  25857.     Set Source = Bind(Objectname_)
  25858.     On Event Click From Source Call Click
  25859. End Sub
  25860. '++LotusScript Development Environment:2:2:Click:1:12
  25861. Sub Click(Source As Button)
  25862.     Call cMemoObject.SetActionInProgress(MEMO_DRAFT_FILE)
  25863.     Call cMemoObject.noteUIMemo.save()
  25864.     Call cMemoObject.noteUIMemo.close()
  25865. End Sub
  25866. PostedDateh
  25867. IsMailStationery
  25868.     7S8S9S10S13S14S15S16S
  25869. Schlie
  25870. MEMO_CANCEL
  25871. 4194304
  25872.     0S0E
  25873. ActionInProgress
  25874. MEMO_CANCEL
  25875.     0R1S
  25876. IsMailStationery
  25877.     0S1S2S
  25878. Neues Memo(
  25879.     0S0E
  25880. Antwort\Antwortl0
  25881. Reply
  25882.     0S0E
  25883. Antwort\Antwort mit Protokoll
  25884. Antwort mit Protokoll
  25885. Dieses Dokument ist nicht vollst
  25886. ndig.
  25887.     4S8S10S13S
  25888. Reply with history
  25889. Antwort\Allen antworten?X
  25890. MailStEd
  25891.     0S0E
  25892. Reply
  25893. Antwort\Allen antworten (mit Protokoll)
  25894. MailStEd
  25895.     0S0E
  25896. Antwort mit Protokoll
  25897. Dieses Dokument ist nicht vollst
  25898. ndig.
  25899.     0R4S8S10S13S
  25900. Reply with history
  25901. Dokument bearbeiten
  25902. Weiterleiten 
  25903.     0S0E
  25904. schen\ 
  25905.     0S0E
  25906. In Ordner _verschieben...
  25907. Senden
  25908. MEMO_SEND
  25909.     0S0E
  25910. ActionInProgress
  25911. MEMO_SEND
  25912.     0R1S
  25913. PostedDateh
  25914. IsMailStationery
  25915.     5S6S7S8S10S11S12S13S
  25916. Senden und ablegen
  25917. MEMO_SEND_FILE
  25918.     0S0E
  25919. ActionInProgress
  25920. MEMO_SEND_FILE
  25921.     0R1S
  25922. PostedDateh
  25923. IsMailStationery
  25924.     5S6S7S8S12S13S
  25925. Speichern
  25926. MEMO_STATIONERYSAVE
  25927.     0S0E
  25928. ActionInProgress
  25929. MEMO_STATIONERYSAVE
  25930.     0R1S
  25931. IsMailStationery
  25932.     2S3S
  25933. Als Entwurf speichern0
  25934. MEMO_DRAFT
  25935.     0S0E
  25936. ActionInProgress
  25937. MEMO_DRAFT
  25938.     0R1S
  25939. PostedDateh
  25940. IsMailStationery
  25941.     5S6S7S8S10S11S12S13S
  25942. Zustelloptionen...
  25943. $KeepPrivate
  25944. $KeepPrivate
  25945. $KeepPrivate
  25946. $KeepPrivate
  25947. DeliveryOptions
  25948. Zustelloptionen
  25949.     0R4S10S
  25950. PostedDateh
  25951.     5S6S7S8S
  25952. Zustellinformationen...Dz
  25953. DeliveryInfo
  25954. Zustellinformationen
  25955.     4S5S6S7S8S9S10S12S
  25956. _Weiterleiten
  25957. Antworto4
  25958. Reply
  25959.     0S0E
  25960. Antwort mit Protokoll
  25961. Antwort mit Protokoll
  25962. Dieses Dokument ist nicht vollst
  25963. ndig.
  25964.     4S8S10S13S
  25965. Reply with history
  25966. Adresse... 
  25967.     0S0E
  25968. PostedDateh
  25969.     5S6S7S8S
  25970. Aus Ordner _entfernen...
  25971. _Kategorisieren
  25972. Senden
  25973. Neues Memo(
  25974.     0S0E
  25975. Weiterleiten
  25976. Format
  25977. CalendarProfile
  25978. FormatReplies
  25979. FormatChar
  25980. CalendarProfile
  25981. OffsetChar
  25982.     0R1S10S14S16S23S
  25983. Format
  25984. path"
  25985. /wForward?OpenForm&ParentUNID="
  25986. Forward
  25987. path"
  25988. /wForward?OpenForm&ParentUNID="
  25989. Forward&Format=
  25990. FormatChar"
  25991.     0R9S10S11S12S13S14S18S20S25S26S27S28S29S30S34S
  25992. Antwort\Antwort
  25993. wReply
  25994.     0S0E
  25995. Antwort\Allen antworten_
  25996.     0R1S10S14S16S23S
  25997. path"
  25998. /wReply?OpenForm&xxxxxxUNID="
  25999. &All"
  26000.     0R3S4S5S6S7S8S15S17S18S
  26001. Antwort\Antwort mit Protokoll
  26002.     1S10S14S16S23S
  26003. Format
  26004. CalendarProfile
  26005. FormatReplies
  26006.     0R6S
  26007. FormatChar
  26008. CalendarProfile
  26009. OffsetChar
  26010. Format
  26011. path"
  26012. /Antwort+mit+Protokoll?OpenForm&ParentUNID=
  26013. &Format="
  26014. Formatchar"
  26015. Reply With History
  26016.     0R9S10S11S12S13S14S21S23S24S
  26017. Antwort\Allen antworten (mit Protokoll)9
  26018.     1S10S14S16S23S
  26019. Format
  26020. CalendarProfile
  26021. FormatReplies
  26022.     0R6S
  26023. FormatChar
  26024. CalendarProfile
  26025. OffsetChar
  26026. Format
  26027. path"
  26028. /Reply+With+History?OpenForm&ParentUNID="
  26029. &Format="
  26030. FormatChar"
  26031. &All"
  26032. path"
  26033. /Reply+With+History?OpenForm&ParentUNID="
  26034. &All"
  26035.     0R9S10S11S12S13S14S21S23S24S36S37S38S39S40S41S48S50S51S
  26036. Senden\Senden
  26037. tmpSendOptions
  26038. Senden\Senden und speicherna`
  26039. tmpSendOptions
  26040. Senden\Als Entwurf speichern`
  26041. tmpSendOptions
  26042. Bearbeiten 
  26043.     0S0E
  26044. schen
  26045.     1S10S14S16S23S
  26046.     0R5S
  26047. path"
  26048. /wDelete?OpenAgent&
  26049. UNID"
  26050. &From="
  26051. view"
  26052. tmpWasMailed
  26053.     1S2S
  26054. Gehe zu\Eingang
  26055.     1S2S
  26056. path"
  26057. /MailFS?OpenFrameset"
  26058.     0R3S4S5S6S
  26059. Kopieren in\Neue Aufgabe
  26060.     1S10S14S16S23S
  26061. path"
  26062. /Task?OpenForm&UNID="
  26063. &CopyInto
  26064.     0R3S4S5S6S7S8S15S17S18S
  26065. Kopieren in\Neuen Kalendereintrag
  26066.     1S10S14S16S23S
  26067. path"
  26068. /Appointment?OpenForm&UNID=
  26069. &CopyInto
  26070.     0R3S4S5S6S7S8S15S17S18S
  26071. Gehe zu\Vors 
  26072.     0S0E
  26073. Gehe zu\Zur
  26074.     0S0E
  26075. Lotus Product
  26076. O=Lotus Notes
  26077. O=Lotus Notes
  26078. PURSAFO
  26079. |.:#U
  26080. O=Lotus Notes
  26081. CN=Lotus Notes Template Development/O=Lotus Notes
  26082. PURSAFO
  26083. T5OfQ
  26084. 7{w3> 
  26085. &EVJ=
  26086. $$FormPostOpenAction
  26087. ExpireDate
  26088. ReplyDate
  26089. $TypeIcon
  26090. ReplyNumber
  26091. ComposedDate
  26092. DueDate
  26093. $Language
  26094. $LastBuildTime
  26095. $BabelInfo
  26096. $AUTOLAUNCH
  26097. $Info
  26098. $WINDOWTITLE
  26099. $AppHelpFormula
  26100. $Script
  26101. $$Script_O
  26102. $$ScriptName
  26103. $$FormScript
  26104. $$$FormScript_O
  26105. DueDateTime
  26106. $Body
  26107. $V5ACTIONS
  26108. $ACTIONS
  26109. $SCRIPTOBJ_2
  26110. Lotus Product
  26111. (RepeatOpenList)
  26112. type=hidden
  26113. tmpListOfDates
  26114. StartDateTime
  26115. tmpListOfDates
  26116.     3S4S6S
  26117. tmpListOfDates
  26118. type=hidden
  26119. tmpRepeatOptions
  26120. Notes
  26121. tmpPrompt
  26122.     3S4S11S
  26123. PartialName
  26124. Query_String
  26125. &Prompt=`
  26126.     0R1S2S
  26127. CompleteName
  26128. PartialName
  26129. PartialName
  26130. PartialName
  26131.     0R1S2S18S
  26132. CompleteName
  26133. tmpPromptX
  26134.     <BR>
  26135. tmpRepeatOptions
  26136.     0S0E
  26137. xxErr_NONE_SELECTED
  26138. Es wurde keine Auswahl getroffen.
  26139. tmpDateList
  26140. tmpRepeatOptions
  26141. xxErr_NONE_SELECTED
  26142.     0R5S6S11StmpDateList
  26143. Notes
  26144. tmpListOfDatesV
  26145. --------------------------
  26146.     3S4S6S11SXz
  26147. size=4
  26148. tmpRepeatOptions
  26149. tmpMultiDateList
  26150. Notes
  26151. tmpListOfDatesV
  26152.     3S4S6S11S
  26153. tmpRepeatOptions
  26154. tmpRepeatOptions
  26155.     5S7S8S12S
  26156. tmpRepeatConflictDates
  26157. tmpRepeatOptions
  26158. tmpListOfDates
  26159. tmpRepeatConflictOption
  26160. tmpMultiDateListW
  26161.     1S2S3S12S14S15S16S18S23S
  26162. tmpRepeatConflictOption
  26163. xxNONESELECTED
  26164. Sie m
  26165. ssen ein Datum ausw
  26166. hlen.
  26167.     0S0E
  26168. tmpMultiDateList
  26169. tmpMultiDateList
  26170.     0RR1S
  26171. tmpDateList
  26172. tmpDateList
  26173. tmpRepeatConflictOption
  26174. tmpMultiDateList
  26175. tmpDateList
  26176. xxNONESELECTED{
  26177.     0RR1RT2RT4S5S7S8S10S11S12S13S14S15S18RTT23RT24RT
  26178. tmpRepeatConflictOption
  26179. Ausgew
  26180. hlte Termine aus Liste entfernen|1
  26181.     <BR><P>X
  26182. Neue Schaltfl
  26183. Zum Ausf
  26184. hren dieser Schaltfl
  26185. che ist eine neuere Version von Notes erforderlich.
  26186.     0S0E
  26187. parentwindow = window.opener
  26188. url = parentwindow.location.href
  26189. var fSelectedItem = false
  26190. datelist = window.document.forms[0].tmpDateList
  26191. for (i = 0; i < datelist.options.length; i++)
  26192.     if (datelist.options[i].selected)
  26193.         datevalue = datelist.options[i].value.substring(0, datelist.options[i].value.indexOf(" "))
  26194.         dateinstance = new Date()
  26195.         month = datevalue.substring(0, datevalue.indexOf("/"))
  26196.         datevalue = datevalue.substring(3, datevalue.length)
  26197.         day = datevalue.substring(0, datevalue.indexOf("/"))
  26198.         year = datevalue.substring(3, datevalue.length)
  26199.         if (year.length < 4)
  26200.             year = "19" + year
  26201.         url = url + "&Date=" + year + "-" + month + "-" + day
  26202.         fSelectedItem = true
  26203.         break
  26204.     if (fSelectedItem)
  26205.         parentwindow.location.href = url
  26206.         self.close()
  26207.     else
  26208.         alert("You need to select a date value from the list.")
  26209.         return
  26210. Neue Schaltfl
  26211. Zum Ausf
  26212. hren dieser Schaltfl
  26213. che ist eine neuere Version von Notes erforderlich.
  26214.     0S0E
  26215. self.close()
  26216.     AbbrechenX
  26217. .,$ //:
  26218. tmpDateList
  26219.     0S0E
  26220. tmpDateSelectedX
  26221. O=Lotus Notes
  26222. O=Lotus Notes
  26223. PURSAFO
  26224. |.:#U
  26225. O=Lotus Notes
  26226. CN=Lotus Notes Template Development/O=Lotus Notes
  26227. PURSAFO
  26228. $Info
  26229. $$Script_O
  26230. $$ScriptName
  26231. tmpListOfDates
  26232. tmpDateSelected
  26233. $PublicAccess
  26234. $Body
  26235. $Language
  26236. $LastBuildTime
  26237. $BabelInfo
  26238. Times New Roman
  26239. Lotus Product
  26240. Lotus Product
  26241. Lotus Product
  26242. Lotus Product
  26243. if (window.location.href.indexOf('Notes')==-1)
  26244.     if ((window.location.href.indexOf("Seq"))==-1) openV5RepeatInstance();
  26245. xxNew
  26246. Neuer Kalendereintrag f
  26247. CalendarProfile
  26248. Owner
  26249.     1S2S3S4S
  26250. xxNew
  26251. Subject
  26252.     0R4S6S
  26253. BACKGROUND = /
  26254. path"
  26255. /calendarbckgnd.gif
  26256.     0S0E
  26257. tmpOwnera
  26258. Chair
  26259. AppointmentType
  26260. (Help)
  26261. MAIL_F_APPOINTMENT_APP
  26262. AppointmentType
  26263. (Help)
  26264. MAIL_F_APPOINTMENT_ANN
  26265. AppointmentType
  26266. (Help)
  26267. MAIL_F_APPOINTMENT_EVE
  26268. AppointmentType
  26269. (Help)
  26270. MAIL_F_APPOINTMENT_INV
  26271. AppointmentType
  26272. (Help)
  26273. MAIL_F_APPOINTMENT_REM
  26274. (Help)
  26275. MAIL_F_APPOINTMENT_INV_REC_MOD
  26276.     6S7S12RTTT14T15S16S18RTTTTTT22S24S29RTTTTT30S31S33RTTTTTT44RTTTTT45S46S48RTTTTTT59RTTTTT60S61S63RTTTTTT74RTTTTT75S76S78RTTTTTT89RTTTTT95RTTT
  26277. '++LotusScript Development Environment:2:5:(Options):0:74
  26278. Option Public  
  26279. Option Explicit
  26280. Use "CSUIDocClass"
  26281. '++LotusScript Development Environment:2:5:(Forward):0:1
  26282. '++LotusScript Development Environment:2:5:(Declarations):0:10
  26283. Dim uicsdoc As UIEventDocument
  26284. Lotus Product
  26285.  Appointment'++LotusScript Development Environment:2:5:(Options):0:66
  26286. '++LotusScript Development Environment:2:5:(Forward):0:1
  26287. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  26288. Declare Sub Postopen(Source As Notesuidocument)
  26289. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  26290. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  26291. Declare Sub Postrecalc(Source As Notesuidocument)
  26292. Declare Sub Postsave(Source As Notesuidocument)
  26293. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  26294. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26295. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26296. Private Sub BindEvents(Byval Objectname_ As String)
  26297.     Static Source As NOTESUIDOCUMENT
  26298.     Set Source = Bind(Objectname_)
  26299.     On Event Queryopen From Source Call Queryopen
  26300.     On Event Postopen From Source Call Postopen
  26301.     On Event Queryclose From Source Call Queryclose
  26302.     On Event Querysave From Source Call Querysave
  26303.     On Event Postrecalc From Source Call Postrecalc
  26304.     On Event Postsave From Source Call Postsave
  26305.     On Event Querymodechange From Source Call Querymodechange
  26306. End Sub
  26307. '++LotusScript Development Environment:2:2:Queryopen:1:12
  26308. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  26309.     If (source.InPreviewPane) Then Exit Sub
  26310.     Set uicsdoc = CSUIDocOpen(1, source, mode, isnewdoc, continue)    
  26311. End Sub
  26312. '++LotusScript Development Environment:2:2:Postopen:1:12
  26313. Sub Postopen(Source As Notesuidocument)
  26314.     If (source.InPreviewPane) Then Exit Sub
  26315.     Call uicsdoc.PostOpen()
  26316. End Sub
  26317. '++LotusScript Development Environment:2:2:Queryclose:1:12
  26318. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  26319.     If (source.InPreviewPane) Then Exit Sub    
  26320.     If(uicsdoc.WasSaved) Then Call uicsdoc.QueryClose( Continue)
  26321. End Sub
  26322. '++LotusScript Development Environment:2:2:Querysave:1:12
  26323. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  26324.     If (source.InPreviewPane) Then Exit Sub
  26325.     Call uicsdoc.QuerySave( Continue)
  26326. End Sub
  26327. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  26328. Sub Postrecalc(Source As Notesuidocument)
  26329.     Dim note As NotesDocument
  26330.     Dim strType As String
  26331.     If (source.InPreviewPane) Then Exit Sub
  26332.     Set note = source.document
  26333.     strType = note.GetItemValue("AppointmentType")(0)
  26334.     Select Case strType
  26335.     Case "1"
  26336.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_ANNIVERSARY)
  26337.     Case "2"
  26338.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_PLANNER)
  26339.     Case Else
  26340.         Call note.replaceitemvalue("OrgTable", ORS_ITEM_CALENDAR)
  26341.     End Select
  26342.     Call uicsdoc.PostRecalc()
  26343. End Sub
  26344. '++LotusScript Development Environment:2:2:Postsave:1:12
  26345. Sub Postsave(Source As Notesuidocument)
  26346.     If (source.InPreviewPane) Then Exit Sub
  26347.     Call uicsdoc.PostSave()    
  26348. End Sub
  26349. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  26350. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  26351.     If (source.InPreviewPane) Then continue = False
  26352. End Sub
  26353. Lotus Product
  26354. '++LotusScript Development Environment:2:5:(Options):0:66
  26355. '++LotusScript Development Environment:2:5:(Forward):0:1
  26356. Declare Sub Entering(Source As Field)
  26357. Declare Sub Exiting(Source As Field)
  26358. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26359. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26360. Private Sub BindEvents(Byval Objectname_ As String)
  26361.     Static Source As FIELD
  26362.     Set Source = Bind(Objectname_)
  26363.     On Event Entering From Source Call Entering
  26364.     On Event Exiting From Source Call Exiting
  26365. End Sub
  26366. '++LotusScript Development Environment:2:2:Entering:1:12
  26367. Sub Entering(Source As Field)
  26368.     Call AutoAdjustWindowEntering( uicsdoc.UIDocument, "StartDate", "StartTime", "EndDate", "EndTime")
  26369. End Sub
  26370. '++LotusScript Development Environment:2:2:Exiting:1:12
  26371. Sub Exiting(Source As Field)
  26372.     Call AutoAdjustWindowExiting( uicsdoc.UIDocument, "StartDate", "StartTime", "EndDate", "EndTime")
  26373. End Sub
  26374. Lotus Product
  26375. '++LotusScript Development Environment:2:5:(Options):0:66
  26376. '++LotusScript Development Environment:2:5:(Forward):0:1
  26377. Declare Sub Exiting(Source As Field)
  26378. Declare Sub Entering(Source As Field)
  26379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26381. Private Sub BindEvents(Byval Objectname_ As String)
  26382.     Static Source As FIELD
  26383.     Set Source = Bind(Objectname_)
  26384.     On Event Exiting From Source Call Exiting
  26385.     On Event Entering From Source Call Entering
  26386. End Sub
  26387. '++LotusScript Development Environment:2:2:Exiting:1:12
  26388. Sub Exiting(Source As Field)
  26389.     Call AutoAdjustWindowExiting( uicsdoc.UIDocument, "StartDate", "StartTime", "EndDate", "EndTime")
  26390. End Sub
  26391. '++LotusScript Development Environment:2:2:Entering:1:12
  26392. Sub Entering(Source As Field)
  26393.     Call AutoAdjustWindowEntering( uicsdoc.UIDocument, "StartDate", "StartTime", "EndDate", "EndTime")
  26394. End Sub
  26395. Lotus Product
  26396. Notes
  26397. (wCSItems)
  26398.     3S4S
  26399. Appointment
  26400. tmpOwner
  26401. Chair
  26402.     8S11S12S21S22S
  26403. tmpOwner
  26404. Chair
  26405.     8S11S12S21S22S
  26406. tmpOwnerHW
  26407. tmpDoNotProcess
  26408. tmpOwner
  26409. BlindCopyTo
  26410.     1RT2RT3S4S6RTT8RT17S18S28RTTS30RT31RT
  26411. tmpDoNotProcess
  26412. tmpOwner
  26413. BlindCopyTo
  26414.     3S4S6S8S17S18S28StmpNoActionBar
  26415. $ExpandGroups
  26416. CalendarProfile
  26417. DefaultLogo
  26418. stdNotesLtr0
  26419. CalendarProfile
  26420. DefaultLogo
  26421. StdNotesLtrGateway
  26422.     4S13S24R25S29S32S34S
  26423. Logoz
  26424.     Kalendereintrag:
  26425. AppointmentType
  26426.     1S2S
  26427. Besprechung
  26428. AppointmentType
  26429.     1S2S
  26430. Termin
  26431. AppointmentType
  26432.     1S2S
  26433. Ganzt
  26434. gige Veranstaltung
  26435. AppointmentType
  26436.     1S2S
  26437. Jahrestag
  26438. AppointmentType
  26439.     1S2S
  26440. Erinnerung
  26441. tmpWasMailed
  26442. principal
  26443.     4S14S15S
  26444.     Thema
  26445. SubjectGeben Sie ein Thema einz
  26446. size=42
  26447.     Ort:
  26448. LocationGeben Sie einen Standort ein
  26449.     Beginnt:
  26450.     Anfangsdatum:
  26451. .,$ //:
  26452. StartDate
  26453. StartDateTime
  26454. StartDateTime
  26455. StartDate
  26456.     3S4S6S15S18S
  26457. xxFailed
  26458. Die Eingabe eines Startdatums ist erforderlich.
  26459. StartDate
  26460. xxFailed{
  26461.     0R3S4S6S11SStartDateGeben Sie ein Anfangsdatum ein
  26462. if (window.location.href.indexOf('Notes')==-1)
  26463. thisform = document.forms[0];
  26464. newstart = thisform.StartDate.value;
  26465. newend = thisform.EndDate.value;
  26466. if (newend < newstart) 
  26467.     alert('Das Enddatum der Besprechung mu
  26468.  nach dem Anfangsdatum liegen.');
  26469.     thisform.EndDate.value = thisform.StartDate.value
  26470. AppointmentType
  26471.     1S2S
  26472.     Anfangszeit:
  26473. .,$ //:
  26474. StartTime
  26475. StartDateTime
  26476. StartDateTime
  26477. StartTime
  26478.     3S4S6S15S18S
  26479. xxFailed
  26480. Die Eingabe einer Startzeit ist erforderlich.
  26481. StartTime
  26482. AppointmentType
  26483. AppointmentType
  26484. xxFailed{
  26485.     0R3S4S5S6S7S8S9S10S11S12S14S19SStartTimeGeben Sie eine Anfangszeit ein
  26486. if (window.location.href.indexOf('Notes')==-1)
  26487. thisform = document.forms[0];
  26488. newstart = thisform.StartTime.value;
  26489. newend = thisform.EndTime.value;
  26490. if (newend < newstart) 
  26491.     alert('Die Endezeit der Besprechung mu
  26492.  nach der Anfangszeit liegen.');
  26493.     thisform.EndTime.value = thisform.StartTime.value
  26494.     Eintragstyp:
  26495. UserType
  26496. Notes
  26497. CSDocType
  26498.     1S2S5S6S8S
  26499. DefType
  26500. UserType
  26501. UserType
  26502. CalendarProfile
  26503. CalEntryType
  26504.     0R1S2S9S11S
  26505. Notes
  26506. CSDocType
  26507.     0R3S4S6S13S
  26508. DefType
  26509. DefType
  26510. AppointmentTypeW
  26511. hlen Sie den Eintragstyp (z. B. Besprechung, Termin, Ganzt
  26512. gige Veranstaltung, Erinnerung)
  26513. Besprechung | 3Termin | 0Ganzt
  26514. gige Veranstaltung | 2Jahrestag | 1Erinnerung | 4
  26515. AppointmentType
  26516.     1S2S
  26517.     Endet:
  26518.     Enddatum:
  26519. .,$ //:
  26520. EndDate
  26521. EndDateTime
  26522. EndDateTime
  26523. EndDate
  26524.     3S4S6S15S18S
  26525. Notes
  26526. EndDate
  26527. StartDate
  26528. StartDate
  26529. EndDate
  26530. enddate
  26531.     8S12S13S18SN
  26532. xxFailed
  26533. Die Eingabe eines Enddatums ist erforderlich.
  26534. xxSpanMidnight
  26535. AppointmentType
  26536. Termine d
  26537. rfen Mitternacht nicht 
  26538. berschreiten.
  26539. AppointmentType
  26540. Besprechungstermine d
  26541. rfen Mitternacht nicht 
  26542. berschreiten.
  26543.     0R1S2S5S6S8S10S11S12S14S
  26544. EndDate
  26545. AppointmentType
  26546. AppointmentType
  26547. xxFailed{
  26548. xxSpanMidnight
  26549. EndDate
  26550. StartDate
  26551. xxSpanMidnight{
  26552.     0R3S4S5S6S7S8S9S10S11S12S14S19S23S24S29S30S36S
  26553. EndDateGeben Sie ein Enddatum ein
  26554. if (window.location.href.indexOf('Notes')==-1)
  26555. thisform = document.forms[0];
  26556. newstart = thisform.StartDate.value;
  26557. newend = thisform.EndDate.value;
  26558. if (newend < newstart) 
  26559.     alert('Das Enddatum der Besprechung mu
  26560.  nach dem Anfangsdatum liegen.');
  26561.     thisform.EndDate.value = thisform.StartDate.value
  26562. AppointmentType
  26563.     1S2S
  26564.     Endezeit:
  26565. .,$ //:
  26566. EndTime
  26567. EndDateTime
  26568. EndDateTime
  26569. EndTime
  26570.     3S4S6S15S 
  26571. Notes
  26572. EndDate
  26573. StartDate
  26574. EndTime
  26575. StartTime
  26576. StartTime
  26577. EndTime
  26578. endtime
  26579.     8S12S13S17S18S22S23S28S30S32S34S35S36S38S40S41S42S45S
  26580. xxFailed
  26581. Die Eingabe einer Endezeit ist erforderlich.
  26582. EndTime
  26583. AppointmentType
  26584. AppointmentType
  26585. AppointmentType
  26586. xxFailed{
  26587.     0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTimeGeben Sie eine Endezeit ein
  26588. if (window.location.href.indexOf('Notes')==-1)
  26589. thisform = document.forms[0];
  26590. newstart = thisform.StartTime.value;
  26591. newend = thisform.EndTime.value;
  26592. if (newend < newstart) 
  26593.     alert('Die Endezeit der Besprechung mu
  26594.  nach der Anfangszeit liegen.');
  26595.     thisform.EndTime.value = thisform.StartTime.value
  26596. tmpNewDoc
  26597.     2S3S4S5S
  26598. Repeats
  26599. OrgRepeat
  26600. Repeats
  26601.     7S14S16S19SRepeatsKlicken Sie hier, wenn es sich um einen wiederholenden Eintrag handelt
  26602. Wiederholend |1
  26603. tmpNewDoc
  26604.     1S2S5S6S7S8S
  26605. Repeats
  26606. OrgRepeat
  26607. Repeats
  26608.     7S14S16S19SdispRepeatsKlicken Sie hier, wenn es sich um einen wiederholenden Eintrag handelt
  26609. Wiederholend |1
  26610. Repeats
  26611.     1S2S
  26612. '++LotusScript Development Environment:2:5:(Options):0:66
  26613. '++LotusScript Development Environment:2:5:(Forward):0:1
  26614. Declare Sub Click(Source As Button)
  26615. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26616. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26617. Private Sub BindEvents(Byval Objectname_ As String)
  26618. Static Source As BUTTON
  26619. Set Source = Bind(Objectname_)
  26620. On Event Click From Source Call Click
  26621. End Sub
  26622. '++LotusScript Development Environment:2:2:Click:1:12
  26623. Sub Click(Source As Button)
  26624.     Call uicsdoc.UIObject.RepeatDialog()
  26625. End Sub
  26626. Lotus Product
  26627. New Button
  26628. Need a newer version of Notes to execute this button.
  26629.     0S0E
  26630.     Einstellungen...
  26631. Repeats
  26632. New Button
  26633. Need a newer version of Notes to execute this button.
  26634.     0S0E
  26635. var pathname = (window.location.pathname);
  26636. if (navigator.appName =='Netscape') {
  26637. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRepeatForm?OpenForm','Repeat','status=yes,scrollbars=no,resizable=yes,screenX=100,screenY=100,width=500,height=300');
  26638.     } else {
  26639. window.open(pathname.substring(0,(pathname.lastIndexOf('/')+1))+'wRepeatForm?OpenForm','Repeat','status=yes,scrollbars=no,resizable=yes,top=120,left=100,width=500,height=300');
  26640.     Wiederholend
  26641. tmpOwnerHW
  26642. chair
  26643.     1S2S3S4S11S14S15S21S
  26644.     Leitung:
  26645. Chair
  26646. tmpChair
  26647.     Gesendet von:
  26648. tmpSentBy
  26649. Allgemein
  26650. AppointmentType
  26651. tmpWasMailed
  26652.     1S2E2S3S
  26653. AppointmentType
  26654. PostedDate
  26655. RequiredAttendees
  26656. OptionalAttendees
  26657. FYIAttendees
  26658.     1S2E2S3S4S5S6S7S2E8S19S20S
  26659.     Bereits gesendete Einladungen
  26660. AppointmentType
  26661. PostedDate
  26662. tmpOwnerHW
  26663. RequiredAttendees
  26664. OptionalAttendees
  26665. FYIAttendees
  26666.     1S2E2S3S4S5S6S7S8S9S10S11S12S23S24S
  26667. '++LotusScript Development Environment:2:5:(Options):0:66
  26668. '++LotusScript Development Environment:2:5:(Forward):0:1
  26669. Declare Sub Click(Source As Button)
  26670. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26671. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26672. Private Sub BindEvents(Byval Objectname_ As String)
  26673.     Static Source As BUTTON
  26674.     Set Source = Bind(Objectname_)
  26675.     On Event Click From Source Call Click
  26676. End Sub
  26677. '++LotusScript Development Environment:2:2:Click:1:12
  26678. Sub Click(Source As Button)
  26679.     If (uicsdoc.UIObject.RemoveParticipants() = True) Then
  26680.         Call uicsdoc.PerformActionAndClose(Null, REM_PART_TITLE,ACTION_REMOVE_PEOPLE, "(OwnerDlg)", 1)        
  26681.     End If
  26682. End Sub
  26683. Lotus Product
  26684. New Button
  26685. Need a newer version of Notes to execute this button.
  26686.     0S0E
  26687.     Entfernen...
  26688. AppointmentType
  26689. tmpWasMailed
  26690. RequiredAttendees
  26691. OptionalAttendees
  26692. FYIAttendees
  26693.     1S2E2S3S4S7S2E8S19S20S
  26694. AppointmentType
  26695. PostedDate
  26696. RequiredAttendees
  26697. OptionalAttendees
  26698. FYIAttendees
  26699.     1S2E2S3S4S5S6S7S8S19S20S
  26700. RequiredAttendees
  26701.     0S0E
  26702. tmpRequired
  26703.     Kopie:
  26704. OptionalAttendees
  26705.     0S0E
  26706. tmpOptional
  26707. AppointmentType
  26708. PostedDate
  26709. RequiredAttendees
  26710. OptionalAttendees
  26711. FYIAttendees
  26712. tmpOwnerHW
  26713. tmpFYI
  26714.     1S2E2S3S4S5S6S7S8S19S20S21S22S24S25S26S27S31S32S
  26715.     Blindkopie:
  26716. tmpOwnerHW
  26717. FYIAttendees^
  26718. BlindCopyTo
  26719.     3S4S6S11StmpFYI
  26720. AppointmentType
  26721. tmpWasMailed
  26722.     1S2E2S3S4S
  26723. AppointmentType
  26724. RequiredResources
  26725.     1S2E2S3S4S6S7S8S9S10S11S
  26726.     Bereits get
  26727. tigte Reservierungen
  26728. AppointmentType
  26729. tmpOwnerHW
  26730. Room^
  26731.     1S2E2S3S4S5S6S7S8S15S16S
  26732. '++LotusScript Development Environment:2:5:(Options):0:66
  26733. '++LotusScript Development Environment:2:5:(Forward):0:1
  26734. Declare Sub Click(Source As Button)
  26735. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26736. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26737. Private Sub BindEvents(Byval Objectname_ As String)
  26738.     Static Source As BUTTON
  26739.     Set Source = Bind(Objectname_)
  26740.     On Event Click From Source Call Click
  26741. End Sub
  26742. '++LotusScript Development Environment:2:2:Click:1:12
  26743. Sub Click(Source As Button)
  26744.     If (uicsdoc.UIObject.RemoveRoomsResources(False)) Then
  26745.         Call uicsdoc.UIDocument.Save
  26746.         Call uicsdoc.UIDocument.Close
  26747.     End If
  26748. End Sub
  26749. Lotus Product
  26750. New Button
  26751. Need a newer version of Notes to execute this button.
  26752.     0S0E
  26753.     Raum stornieren...
  26754. ("A5("
  26755. AppointmentType
  26756. tmpOwnerHW
  26757. RequiredResources
  26758.     1S2E2S3S4S5S6S7S8S15S16S
  26759. '++LotusScript Development Environment:2:5:(Options):0:66
  26760. '++LotusScript Development Environment:2:5:(Forward):0:1
  26761. Declare Sub Click(Source As Button)
  26762. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26763. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26764. Private Sub BindEvents(Byval Objectname_ As String)
  26765.     Static Source As BUTTON
  26766.     Set Source = Bind(Objectname_)
  26767.     On Event Click From Source Call Click
  26768. End Sub
  26769. '++LotusScript Development Environment:2:2:Click:1:12
  26770. Sub Click(Source As Button)
  26771.     If (uicsdoc.UIObject.RemoveRoomsResources(True)) Then
  26772.         Call uicsdoc.UIDocument.Save
  26773.         Call uicsdoc.UIDocument.Close
  26774.     End If
  26775. End Sub
  26776. Lotus Product
  26777. New Button
  26778. Need a newer version of Notes to execute this button.
  26779.     0S0E
  26780.     Ressource stornieren...
  26781. AppointmentType
  26782. RequiredResources
  26783.     1S2E2S3S4S6S7S8S9S10S11S
  26784. AppointmentType
  26785.     1S2E2S3S4S5S6S
  26786. Room^
  26787.     0S0E
  26788. tmpRooms
  26789. AppointmentType
  26790. RequiredResources
  26791.     1S2E2S3S4S5S6S
  26792.     Ressourcen:
  26793. RequiredResources
  26794.     0S0E
  26795. tmpResources
  26796. AppointmentType
  26797. tmpOwnerHW
  26798.     1S2E2S3S4S5S6S7S8S
  26799.     Geben Sie neue Einladungen und Reservierungen unten ein...
  26800. AppointmentType
  26801. tmpOwnerHW
  26802.     1S2E2S3S4S5S6S
  26803.     Einladen:
  26804. SendToGeben Sie die Namen der eingeladenen Personen ein
  26805. size=80
  26806. DialogButton Address.GIF|Address
  26807. SendList_1
  26808.     0S0E
  26809. var pathname = (window.location.pathname);
  26810. if (navigator.appVersion.indexOf('X11') != -1)  
  26811.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  26812.     } else 
  26813.     if (navigator.appName =='Netscape') 
  26814.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  26815.             } else 
  26816.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=700,height=540');
  26817. DialogButton Address.GIF|Address
  26818.     Kopie (optional):
  26819. CopyToGeben Sie die Namen der Personen ein, die eine Kopie erhalten sollenz
  26820. size=80
  26821. DialogButton Address.GIF|Address
  26822. CopyList_1
  26823.     0S0E
  26824. var pathname = (window.location.pathname);
  26825. if (navigator.appVersion.indexOf('X11') != -1)  
  26826.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  26827.     } else 
  26828.     if (navigator.appName =='Netscape') 
  26829.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  26830.             } else 
  26831.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=700,height=540');
  26832. DialogButton Address.GIF|Address
  26833. $HideMailHeader
  26834. StdNotesLtr16
  26835.     7S9S10S11S13S15S
  26836.     Blindkopie (nur zur Kenntnis):
  26837. BlindCopyToGeben Sie die Namen der Personen ein, die eine Blindkopie erhalten sollenz
  26838. size=80
  26839. DialogButton Address.GIF|Address
  26840. BCCList_1
  26841.     0S0E
  26842. var pathname = (window.location.pathname);
  26843. if (navigator.appVersion.indexOf('X11') != -1)  
  26844.         window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=100,screenY=100,width=750,height=630');
  26845.     } else 
  26846.     if (navigator.appName =='Netscape') 
  26847.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,screenX=120,screenY=100,width=740,height=470');    
  26848.             } else 
  26849.             window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wAddress?OpenForm','Address','status=yes,scrollbars=no,top=120,left=100,width=700,height=540');
  26850. DialogButton Address.GIF|Address
  26851. AppointmentType
  26852. tmpOwnerHW
  26853.     1S2E2S3S4S5S6S
  26854. ume reservieren:
  26855. RoomToReserveR
  26856. ume reservierenz
  26857. size=80
  26858. rooms.GIF
  26859. RoomList_1
  26860. RoomsToReserve
  26861.     1S2S
  26862. RoomToReserve
  26863. RoomToReserve
  26864. RoomsToReserve
  26865.     0R1S2S3S
  26866. var pathname = (window.location.pathname);
  26867. if (navigator.appName =='Netscape') {
  26868. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=290');
  26869.     } else {
  26870. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wRooms?OpenForm','Rooms','status=yes,scrollbars=no,top=120,left=100,width=600,height=280');
  26871. rooms.GIF
  26872.     Ressourcen reservieren:
  26873. ResourcesRessourcen reservieren
  26874. size=80
  26875. rooms.GIF
  26876. ResourceList_1
  26877. ResourcesToReserve
  26878.     1S2S
  26879. Resources
  26880. Resources
  26881. ResourcesToReserve
  26882.     0R1S2S3S
  26883. var pathname = (window.location.pathname);
  26884. if (navigator.appName =='Netscape') {
  26885. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,screenX=100,screenY=100,width=640,height=290');
  26886.     } else {
  26887. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'wResources?OpenForm','Resources','status=yes,scrollbars=no,top=120,left=100,width=600,height=280');
  26888. rooms.GIF
  26889. Einladungen und Reservierungen
  26890. AppointmentType
  26891.     1S2S
  26892. AppointmentType
  26893.     3S4S6S8S
  26894. tmpApptType
  26895. tmpApptType
  26896. AppointmentType
  26897. AppointmentType
  26898. BookFreeTime
  26899.     6S7S8S9S11S14S15S17S19S22S
  26900. tmpApptType
  26901. AppointmentType
  26902.     0R1S2S3S
  26903. BookFreeTimeKlicken Sie hier, wenn die in diesem Eintrag festgehaltene Zeit f
  26904. r andere Benutzer als freie Zeit angezeigt werden soll
  26905. Vormerken|1
  26906. r andere Personen wird diese Zeit als 'freie Zeit' angezeigt.
  26907. OrgConfidentialKlicken Sie hier, wenn Details zu dieser Veranstaltung vor anderen Benutzern verborgen bleiben sollen
  26908. Als 'Privat' markieren|1
  26909.     Andere Personen k
  26910. nnen keine Einzelheiten 
  26911. ber diese Veranstaltung anzeigen.
  26912. AlarmsY
  26913. $Alarmh
  26914. Alarms
  26915.     7S14S16S19SAlarmsKlicken Sie hier, wenn Sie vor der Veranstaltung von Notes benachrichtigt werden m
  26916. chten
  26917. Ich m
  26918. chte benachrichtigt werden|1
  26919.     Lassen Sie sich von Notes vor Veranstaltungsbeginn benachrichtigen.
  26920. Alarms
  26921.     1S2S
  26922. '++LotusScript Development Environment:2:5:(Options):0:66
  26923. '++LotusScript Development Environment:2:5:(Forward):0:1
  26924. Declare Sub Click(Source As Button)
  26925. '++LotusScript Development Environment:2:5:(Declarations):0:2
  26926. '++LotusScript Development Environment:2:2:BindEvents:1:129
  26927. Private Sub BindEvents(Byval Objectname_ As String)
  26928.     Static Source As BUTTON
  26929.     Set Source = Bind(Objectname_)
  26930.     On Event Click From Source Call Click
  26931. End Sub
  26932. '++LotusScript Development Environment:2:2:Click:1:12
  26933. Sub Click(Source As Button)
  26934.     If (uicsdoc.UIObject.AlarmDialog() = True) Then
  26935.         Call uicsdoc.UIDocument.Reload()
  26936.         Call uicsdoc.UIDocument.RefreshHideFormulas()
  26937.     End If
  26938. End Sub
  26939. Lotus Product
  26940. New Button
  26941. Need a newer version of Notes to execute this button.
  26942.     0S0E
  26943.     Alarmeinstellungen...
  26944.     Kategorisieren:
  26945. CategoriesGeben Sie eine oder mehrere Kategorien ein
  26946. xxNotesCats
  26947. Feiertag|H
  26948. Urlaub|V
  26949. Projekte|P
  26950. Kunden|C
  26951. Anrufe|PC
  26952. Unterwegs|T
  26953.     1S2S
  26954. xxNotesCats
  26955. CalendarProfile
  26956. UserCategories
  26957. Optionen
  26958. entrybg
  26959.     <BR>
  26960.     Beschreibung:
  26961. ROWS=10 COLS=100 WRAP=VIRTUAL
  26962. BodyGeben Sie eine detaillierte Beschreibung dieser Veranstaltung ein
  26963. _Kategorisieren
  26964. Dokument _bearbeiten
  26965. Dokument _senden
  26966. _Weiterleiten
  26967. In Ordner _verschieben...
  26968. Aus Ordner _entfernen
  26969. Speichern und schlie
  26970.     4S11S16S19S0
  26971. AppointmentType
  26972.     1S2S
  26973. act_ok.GIF|act_CSOK?
  26974. Speichern und Einladungen sendenh
  26975. tmpAction
  26976.     1S2S3S
  26977.     0R7S12SR
  26978. AppointmentType
  26979. tmpOwnerHW
  26980.     1S2S3S4S2E5S6S
  26981. act_SEND.GIF|act_SEND?
  26982. Als Entwurf speichernhh
  26983. tmpAction
  26984.     1S2S3S
  26985.     0R7S12SR
  26986. AppointmentType
  26987. tmpOwnerHW
  26988.     1S2S3S4S2E5S6S
  26989. act_save.GIF|act_CSSAVE?
  26990. Planer\Alle Zeitpl
  26991. ne pr
  26992. fen...
  26993. RequiredList
  26994. Chair
  26995. RequiredAttendees
  26996. SendTo
  26997.     1S2S
  26998. OptionalList
  26999. OptionalAttendees
  27000. CopyTo
  27001.     0R1S2S
  27002. RoomList
  27003. RoomToReserve
  27004.     0R1S2S
  27005. ResourceList
  27006. RequiredResources
  27007. Resources
  27008.     0R1S2S
  27009. tmpFTSStartDateTime
  27010. StartDate
  27011. StartTime
  27012.     0RRR1S2S3S11S12S13S14S
  27013. tmpFTSEndDateTime
  27014. EndDate
  27015. EndTime
  27016.     0R1S2S3S11S12S13S14S
  27017. RequiredList
  27018. OptionalList
  27019. RoomList
  27020. ResourceList
  27021. Uninvited
  27022. tmpFTSStartDateTime
  27023. tmpFTSEndDateTime
  27024.     0RR20RTTT25S27S
  27025. StartDate
  27026. tmpFTSStartDateTime
  27027.     0R1S2S3S
  27028. StartTime
  27029. tmpFTSStartDateTime
  27030.     0R1S2S3S
  27031. EndDate
  27032. tmpFTSEndDateTime
  27033.     0R1S2S3S
  27034. EndTime
  27035. tmpFTSEndDateTime
  27036.     0R1S2S3S
  27037. tmpOwnerHW
  27038. AppointmentType
  27039.     1S2S3S4S5S6S
  27040. act_participantactions.GIF|act_CSPARTACTIONS
  27041. Planer\R
  27042. ume suchen...\
  27043. tmpResourceType
  27044. tmpResourceName
  27045.     0R1S
  27046. tmpResourceNameSingle
  27047.     0R1S
  27048. tmpResourceNameMulti
  27049.     0R1S
  27050. tmpResourceNameBlank
  27051.     0R1S
  27052. tmpAddressBooks
  27053.     0R1S
  27054. (Room Resource Scheduler)
  27055. Planer
  27056. tmpOwnerHW
  27057. AppointmentType
  27058.     1S2S3S4S5S6S
  27059. act_participantactions.GIF|act_CSPARTACTIONS
  27060. Planer\Ressource(n) suchen...3\
  27061. tmpResourceType
  27062. tmpResourceName
  27063.     0R1S
  27064. tmpResourceNameSingle
  27065.     0R1S
  27066. tmpResourceNameMulti
  27067.     0R1S
  27068. tmpResourceNameBlank
  27069.     0R1S
  27070. tmpAddressBooks
  27071.     0R1S
  27072. (Room Resource Scheduler)
  27073. Planer
  27074. tmpOwnerHW
  27075. AppointmentType
  27076.     1S2S3S4S5S6S
  27077. act_participantactions.GIF|act_CSPARTACTIONS
  27078. Zustelloptionen...P
  27079. (C&S DeliveryOptions)
  27080. tmpOwnerHW
  27081. AppointmentType
  27082.     1S2S3S4S5S6S
  27083. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  27084. Aktionen\Neu planene'++LotusScript Development Environment:2:5:(Options):0:66
  27085. '++LotusScript Development Environment:2:5:(Forward):0:1
  27086. Declare Sub Click(Source As Button)
  27087. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27088. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27089. Private Sub BindEvents(Byval Objectname_ As String)
  27090.     Static Source As BUTTON
  27091.     Set Source = Bind(Objectname_)
  27092.     On Event Click From Source Call Click
  27093. End Sub
  27094. '++LotusScript Development Environment:2:2:Click:1:12
  27095. Sub Click(Source As Button)
  27096.     Call uicsdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)", 1)
  27097. End Sub
  27098. tmpWasMailed
  27099. tmpOwnerHW
  27100. AppointmentType
  27101.     4S5S6S7S8S9S10S11S12S13S
  27102. act_csowneractions.GIF|act_CSOWNERACTIONS?
  27103. Aktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:66
  27104. '++LotusScript Development Environment:2:5:(Forward):0:1
  27105. Declare Sub Click(Source As Button)
  27106. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27107. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27108. Private Sub BindEvents(Byval Objectname_ As String)
  27109.     Static Source As BUTTON
  27110.     Set Source = Bind(Objectname_)
  27111.     On Event Click From Source Call Click
  27112. End Sub
  27113. '++LotusScript Development Environment:2:2:Click:1:12
  27114. Sub Click(Source As Button)
  27115.     Call uicsdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 1)
  27116. End Sub
  27117. tmpWasMailed
  27118. tmpOwnerHW
  27119. AppointmentType
  27120.     4S5S6S7S8S9S11S12S13S
  27121. Aktionen\Best
  27122. tigen
  27123. '++LotusScript Development Environment:2:5:(Options):0:66
  27124. '++LotusScript Development Environment:2:5:(Forward):0:1
  27125. Declare Sub Click(Source As Button)
  27126. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27127. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27128. Private Sub BindEvents(Byval Objectname_ As String)
  27129.     Static Source As BUTTON
  27130.     Set Source = Bind(Objectname_)
  27131.     On Event Click From Source Call Click
  27132. End Sub
  27133. '++LotusScript Development Environment:2:2:Click:1:12
  27134. Sub Click(Source As Button)
  27135.     Dim uievent As UIEventObject
  27136.     Set uievent = uicsdoc.uiobject
  27137.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 1) Then
  27138.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  27139.         If (uievent.SendComments) Then Call uievent.EditNotice
  27140.     End If
  27141. End Sub
  27142. tmpWasMailed
  27143. tmpOwnerHW
  27144. AppointmentType
  27145.     4S5S6S7S8S9S11S12S13S
  27146. Aktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:66
  27147. '++LotusScript Development Environment:2:5:(Forward):0:1
  27148. Declare Sub Click(Source As Button)
  27149. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27150. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27151. Private Sub BindEvents(Byval Objectname_ As String)
  27152. Static Source As BUTTON
  27153. Set Source = Bind(Objectname_)
  27154. On Event Click From Source Call Click
  27155. End Sub
  27156. '++LotusScript Development Environment:2:2:Click:1:12
  27157. Sub Click(Source As Button)
  27158.     Call uicsdoc.uiobject.ViewParticipantStatus()
  27159. End Sub
  27160. tmpWasMailed
  27161. tmpOwnerHW
  27162. AppointmentType
  27163.     4S5S6S7S8S9S11S12S13S
  27164. Aktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:66
  27165. '++LotusScript Development Environment:2:5:(Forward):0:1
  27166. Declare Sub Click(Source As Button)
  27167. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27168. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27169. Private Sub BindEvents(Byval Objectname_ As String)
  27170. Static Source As BUTTON
  27171. Set Source = Bind(Objectname_)
  27172. On Event Click From Source Call Click
  27173. End Sub
  27174. '++LotusScript Development Environment:2:2:Click:1:12
  27175. Sub Click(Source As Button)
  27176.     Call uicsdoc.uiobject.creatememo(True)
  27177. End Sub
  27178. tmpWasMailed
  27179. tmpOwnerHW
  27180. AppointmentType
  27181.     4S5S6S7S8S9S11S12S13S
  27182. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  27183. '++LotusScript Development Environment:2:5:(Forward):0:1
  27184. Declare Sub Click(Source As Button)
  27185. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27186. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27187. Private Sub BindEvents(Byval Objectname_ As String)
  27188.     Static Source As BUTTON
  27189.     Set Source = Bind(Objectname_)
  27190.     On Event Click From Source Call Click
  27191. End Sub
  27192. '++LotusScript Development Environment:2:2:Click:1:12
  27193. Sub Click(Source As Button)
  27194.     uicsdoc.UIObject.SendComments = False
  27195.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 0)
  27196. End Sub
  27197. tmpOwnerHW
  27198. tmpNoActionBar
  27199. NoticeType
  27200. Broadcast
  27201.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  27202. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  27203. '++LotusScript Development Environment:2:5:(Forward):0:1
  27204. Declare Sub Click(Source As Button)
  27205. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27206. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27207. Private Sub BindEvents(Byval Objectname_ As String)
  27208.     Static Source As BUTTON
  27209.     Set Source = Bind(Objectname_)
  27210.     On Event Click From Source Call Click
  27211. End Sub
  27212. '++LotusScript Development Environment:2:2:Click:1:12
  27213. Sub Click(Source As Button)
  27214.     uicsdoc.UIObject.SendComments = False
  27215.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 0)
  27216. End Sub
  27217. tmpOwnerHW
  27218. tmpNoActionBar
  27219. Broadcast
  27220. PreventDelegate
  27221.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  27222. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  27223. '++LotusScript Development Environment:2:5:(Forward):0:1
  27224. Declare Sub Click(Source As Button)
  27225. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27226. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27227. Private Sub BindEvents(Byval Objectname_ As String)
  27228.     Static Source As BUTTON
  27229.     Set Source = Bind(Objectname_)
  27230.     On Event Click From Source Call Click
  27231. End Sub
  27232. '++LotusScript Development Environment:2:2:Click:1:12
  27233. Sub Click(Source As Button)
  27234.     uicsdoc.UIObject.SendComments = False
  27235.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 0)
  27236. End Sub
  27237. tmpOwnerHW
  27238. tmpNoActionBar
  27239. Broadcast
  27240. PreventCounter
  27241.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  27242. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  27243. '++LotusScript Development Environment:2:5:(Forward):0:1
  27244. Declare Sub Click(Source As Button)
  27245. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27246. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27247. Private Sub BindEvents(Byval Objectname_ As String)
  27248.     Static Source As BUTTON
  27249.     Set Source = Bind(Objectname_)
  27250.     On Event Click From Source Call Click
  27251. End Sub
  27252. '++LotusScript Development Environment:2:2:Click:1:12
  27253. Sub Click(Source As Button)
  27254.     uicsdoc.UIObject.SendComments = True
  27255.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 0)
  27256. End Sub
  27257. tmpOwnerHW
  27258. tmpNoActionBar
  27259. NoticeType
  27260. Broadcast
  27261.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  27262. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  27263. '++LotusScript Development Environment:2:5:(Forward):0:1
  27264. Declare Sub Click(Source As Button)
  27265. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27266. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27267. Private Sub BindEvents(Byval Objectname_ As String)
  27268.     Static Source As BUTTON
  27269.     Set Source = Bind(Objectname_)
  27270.     On Event Click From Source Call Click
  27271. End Sub
  27272. '++LotusScript Development Environment:2:2:Click:1:12
  27273. Sub Click(Source As Button)
  27274.     uicsdoc.UIObject.SendComments = True
  27275.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 0)
  27276. End Sub
  27277. tmpOwnerHW
  27278. tmpNoActionBar
  27279. Broadcast
  27280. PreventDelegate
  27281.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  27282. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  27283. '++LotusScript Development Environment:2:5:(Forward):0:1
  27284. Declare Sub Click(Source As Button)
  27285. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27286. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27287. Private Sub BindEvents(Byval Objectname_ As String)
  27288.     Static Source As BUTTON
  27289.     Set Source = Bind(Objectname_)
  27290.     On Event Click From Source Call Click
  27291. End Sub
  27292. '++LotusScript Development Environment:2:2:Click:1:12
  27293. Sub Click(Source As Button)
  27294.     uicsdoc.UIObject.SendComments = True
  27295.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 0)
  27296. End Sub
  27297. tmpOwnerHW
  27298. tmpNoActionBar
  27299. Broadcast
  27300. PreventCounter
  27301.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  27302. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  27303. '++LotusScript Development Environment:2:5:(Forward):0:1
  27304. Declare Sub Click(Source As Button)
  27305. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27306. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27307. Private Sub BindEvents(Byval Objectname_ As String)
  27308.     Static Source As BUTTON
  27309.     Set Source = Bind(Objectname_)
  27310.     On Event Click From Source Call Click
  27311. End Sub
  27312. '++LotusScript Development Environment:2:2:Click:1:12
  27313. Sub Click(Source As Button)
  27314.     Dim uievent As UIEventObject
  27315.     Set uievent = uicsdoc.UIObject
  27316.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 1) Then
  27317.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  27318.         If (uievent.SendComments) Then Call uievent.EditNotice
  27319.     End If
  27320. End Sub
  27321. tmpOwnerHW
  27322.     1S2S
  27323. _Kategorisieren
  27324. Dokument _bearbeiten
  27325. Dokument _senden
  27326. _Weiterleitenr
  27327. In Ordner _verschieben...
  27328. Aus Ordner _entfernene
  27329. Speichern und schlie
  27330.     4S11S16S19S0
  27331. AppointmentType
  27332.     1S2S
  27333. Speichern und Einladungen sendenh
  27334. tmpAction
  27335.     1S2S3S
  27336.     0R7S12SR
  27337. AppointmentType
  27338. tmpOwnerHW
  27339.     1S2S3S4S2E5S6S
  27340. Als Entwurf speichern
  27341. tmpAction
  27342.     1S2S3S
  27343.     0R7S12SR
  27344. AppointmentType
  27345. tmpOwnerHW
  27346.     1S2S3S4S2E5S6S
  27347. Planer\Alle Zeitpl
  27348. ne pr
  27349. fen...
  27350. RequiredList
  27351. Chair
  27352. RequiredAttendees
  27353. SendTo
  27354.     1S2S
  27355. OptionalList
  27356. OptionalAttendees
  27357. CopyTo
  27358.     0R1S2S
  27359. RoomList
  27360. RoomToReserve
  27361.     0R1S2S
  27362. ResourceList
  27363. RequiredResources
  27364. Resources
  27365.     0R1S2S
  27366. tmpFTSStartDateTime
  27367. StartDate
  27368. StartTime
  27369.     0RRR1S2S3S11S12S13S14S
  27370. tmpFTSEndDateTime
  27371. EndDate
  27372. EndTime
  27373.     0R1S2S3S11S12S13S14S
  27374. RequiredList
  27375. OptionalList
  27376. RoomList
  27377. ResourceList
  27378. Uninvited
  27379. tmpFTSStartDateTime
  27380. tmpFTSEndDateTime
  27381.     0RR20RTTT25S27S
  27382. StartDate
  27383. tmpFTSStartDateTime
  27384.     0R1S2S3S
  27385. StartTime
  27386. tmpFTSStartDateTime
  27387.     0R1S2S3S
  27388. EndDate
  27389. tmpFTSEndDateTime
  27390.     0R1S2S3S
  27391. EndTime
  27392. tmpFTSEndDateTime
  27393.     0R1S2S3S
  27394. tmpOwnerHW
  27395. AppointmentType
  27396.     1S2S3S4S5S6S
  27397. Planer\R
  27398. ume suchen...\
  27399. tmpResourceType
  27400. tmpResourceName
  27401.     0R1S
  27402. tmpResourceNameSingle
  27403.     0R1S
  27404. tmpResourceNameMulti
  27405.     0R1S
  27406. tmpResourceNameBlank
  27407.     0R1S
  27408. tmpAddressBooks
  27409.     0R1S
  27410. (Room Resource Scheduler)
  27411. Planer
  27412. tmpOwnerHW
  27413. AppointmentType
  27414.     1S2S3S4S5S6S
  27415. Planer\Ressource(n) suchen...1\
  27416. tmpResourceType
  27417. tmpResourceName
  27418.     0R1S
  27419. tmpResourceNameSingle
  27420.     0R1S
  27421. tmpResourceNameMulti
  27422.     0R1S
  27423. tmpResourceNameBlank
  27424.     0R1S
  27425. tmpAddressBooks
  27426.     0R1S
  27427. (Room Resource Scheduler)
  27428. Planer
  27429. tmpOwnerHW
  27430. AppointmentType
  27431.     1S2S3S4S5S6S
  27432. Zustelloptionen...P
  27433. (C&S DeliveryOptions)
  27434. tmpOwnerHW
  27435. AppointmentType
  27436.     1S2S3S4S5S6S
  27437. Aktionen\Neu planen
  27438. '++LotusScript Development Environment:2:5:(Options):0:66
  27439. '++LotusScript Development Environment:2:5:(Forward):0:1
  27440. Declare Sub Click(Source As Button)
  27441. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27442. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27443. Private Sub BindEvents(Byval Objectname_ As String)
  27444.     Static Source As BUTTON
  27445.     Set Source = Bind(Objectname_)
  27446.     On Event Click From Source Call Click
  27447. End Sub
  27448. '++LotusScript Development Environment:2:2:Click:1:12
  27449. Sub Click(Source As Button)
  27450.     Call uicsdoc.PerformActionAndClose(Null, RESC_TITLE, ACTION_RESCHEDULE, "(OwnerDlg)", 1)
  27451. End Sub
  27452. tmpWasMailed
  27453. tmpOwnerHW
  27454. AppointmentType
  27455.     4S5S6S7S8S9S10S11S12S13S
  27456. Aktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:66
  27457. '++LotusScript Development Environment:2:5:(Forward):0:1
  27458. Declare Sub Click(Source As Button)
  27459. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27460. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27461. Private Sub BindEvents(Byval Objectname_ As String)
  27462.     Static Source As BUTTON
  27463.     Set Source = Bind(Objectname_)
  27464.     On Event Click From Source Call Click
  27465. End Sub
  27466. '++LotusScript Development Environment:2:2:Click:1:12
  27467. Sub Click(Source As Button)
  27468.     Call uicsdoc.PerformActionAndClose(Null, CANC_TITLE, ACTION_CANCEL, "(OwnerDlg)", 1)
  27469. End Sub
  27470. tmpWasMailed
  27471. tmpOwnerHW
  27472. AppointmentType
  27473.     4S5S6S7S8S9S11S12S13S
  27474. Aktionen\Best
  27475. tigen
  27476. '++LotusScript Development Environment:2:5:(Options):0:66
  27477. '++LotusScript Development Environment:2:5:(Forward):0:1
  27478. Declare Sub Click(Source As Button)
  27479. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27480. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27481. Private Sub BindEvents(Byval Objectname_ As String)
  27482.     Static Source As BUTTON
  27483.     Set Source = Bind(Objectname_)
  27484.     On Event Click From Source Call Click
  27485. End Sub
  27486. '++LotusScript Development Environment:2:2:Click:1:12
  27487. Sub Click(Source As Button)
  27488.     Dim uievent As UIEventObject
  27489.     Set uievent = uicsdoc.uiobject
  27490.     If uievent.OkToPerformAction(Null, CONF_TITLE, ACTION_CONFIRM, "(OwnerDlg)", 1) Then
  27491.         Call uievent.PerformAction(ORS_MSGTYPE_CONFIRMATION, 0)
  27492.         If (uievent.SendComments) Then Call uievent.EditNotice
  27493.     End If
  27494. End Sub
  27495. tmpWasMailed
  27496. tmpOwnerHW
  27497. AppointmentType
  27498.     4S5S6S7S8S9S11S12S13S
  27499. Aktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:66
  27500. '++LotusScript Development Environment:2:5:(Forward):0:1
  27501. Declare Sub Click(Source As Button)
  27502. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27503. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27504. Private Sub BindEvents(Byval Objectname_ As String)
  27505. Static Source As BUTTON
  27506. Set Source = Bind(Objectname_)
  27507. On Event Click From Source Call Click
  27508. End Sub
  27509. '++LotusScript Development Environment:2:2:Click:1:12
  27510. Sub Click(Source As Button)
  27511.     Call uicsdoc.uiobject.ViewParticipantStatus()
  27512. End Sub
  27513. tmpWasMailed
  27514. tmpOwnerHW
  27515. AppointmentType
  27516.     4S5S6S7S8S9S11S12S13S
  27517. Aktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:66
  27518. '++LotusScript Development Environment:2:5:(Forward):0:1
  27519. Declare Sub Click(Source As Button)
  27520. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27521. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27522. Private Sub BindEvents(Byval Objectname_ As String)
  27523. Static Source As BUTTON
  27524. Set Source = Bind(Objectname_)
  27525. On Event Click From Source Call Click
  27526. End Sub
  27527. '++LotusScript Development Environment:2:2:Click:1:12
  27528. Sub Click(Source As Button)
  27529.     Call uicsdoc.uiobject.creatememo(True)
  27530. End Sub
  27531. tmpWasMailed
  27532. tmpOwnerHW
  27533. AppointmentType
  27534.     4S5S6S7S8S9S11S12S13S
  27535. Antwort\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  27536. '++LotusScript Development Environment:2:5:(Forward):0:1
  27537. Declare Sub Click(Source As Button)
  27538. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27539. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27540. Private Sub BindEvents(Byval Objectname_ As String)
  27541.     Static Source As BUTTON
  27542.     Set Source = Bind(Objectname_)
  27543.     On Event Click From Source Call Click
  27544. End Sub
  27545. '++LotusScript Development Environment:2:2:Click:1:12
  27546. Sub Click(Source As Button)
  27547.     uicsdoc.UIObject.SendComments = False
  27548.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 0)
  27549. End Sub
  27550. tmpOwnerHW
  27551. tmpNoActionBar
  27552. NoticeType
  27553. Broadcast
  27554.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  27555. Antwort\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  27556. '++LotusScript Development Environment:2:5:(Forward):0:1
  27557. Declare Sub Click(Source As Button)
  27558. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27559. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27560. Private Sub BindEvents(Byval Objectname_ As String)
  27561.     Static Source As BUTTON
  27562.     Set Source = Bind(Objectname_)
  27563.     On Event Click From Source Call Click
  27564. End Sub
  27565. '++LotusScript Development Environment:2:2:Click:1:12
  27566. Sub Click(Source As Button)
  27567.     uicsdoc.UIObject.SendComments = False
  27568.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 0)
  27569. End Sub
  27570. tmpOwnerHW
  27571. tmpNoActionBar
  27572. Broadcast
  27573. PreventDelegate
  27574.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  27575. Antwort\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  27576. '++LotusScript Development Environment:2:5:(Forward):0:1
  27577. Declare Sub Click(Source As Button)
  27578. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27579. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27580. Private Sub BindEvents(Byval Objectname_ As String)
  27581.     Static Source As BUTTON
  27582.     Set Source = Bind(Objectname_)
  27583.     On Event Click From Source Call Click
  27584. End Sub
  27585. '++LotusScript Development Environment:2:2:Click:1:12
  27586. Sub Click(Source As Button)
  27587.     uicsdoc.UIObject.SendComments = False
  27588.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 0)
  27589. End Sub
  27590. tmpOwnerHW
  27591. tmpNoActionBar
  27592. Broadcast
  27593. PreventCounter
  27594.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  27595. Antwort mit Kommentar\Ablehnen'++LotusScript Development Environment:2:5:(Options):0:66
  27596. '++LotusScript Development Environment:2:5:(Forward):0:1
  27597. Declare Sub Click(Source As Button)
  27598. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27599. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27600. Private Sub BindEvents(Byval Objectname_ As String)
  27601.     Static Source As BUTTON
  27602.     Set Source = Bind(Objectname_)
  27603.     On Event Click From Source Call Click
  27604. End Sub
  27605. '++LotusScript Development Environment:2:2:Click:1:12
  27606. Sub Click(Source As Button)
  27607.     uicsdoc.UIObject.SendComments = True
  27608.     Call uicsdoc.PerformActionAndClose(Null, DECL_TITLE, ACTION_DECLINE, "(InviteeReplyDlg)", 0)
  27609. End Sub
  27610. tmpOwnerHW
  27611. tmpNoActionBar
  27612. NoticeType
  27613. Broadcast
  27614.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S
  27615. Antwort mit Kommentar\Delegieren'++LotusScript Development Environment:2:5:(Options):0:66
  27616. '++LotusScript Development Environment:2:5:(Forward):0:1
  27617. Declare Sub Click(Source As Button)
  27618. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27619. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27620. Private Sub BindEvents(Byval Objectname_ As String)
  27621.     Static Source As BUTTON
  27622.     Set Source = Bind(Objectname_)
  27623.     On Event Click From Source Call Click
  27624. End Sub
  27625. '++LotusScript Development Environment:2:2:Click:1:12
  27626. Sub Click(Source As Button)
  27627.     uicsdoc.UIObject.SendComments = True
  27628.     Call uicsdoc.PerformActionAndClose(Null, DELE_TITLE, ACTION_DELEGATE, "(InviteeReplyDlg)", 0)
  27629. End Sub
  27630. tmpOwnerHW
  27631. tmpNoActionBar
  27632. Broadcast
  27633. PreventDelegate
  27634.     1S2S3S4S5S6S7S8S2E9S10S11S12S13S14S
  27635. Antwort mit Kommentar\Neue Uhrzeit vorschlagen'++LotusScript Development Environment:2:5:(Options):0:66
  27636. '++LotusScript Development Environment:2:5:(Forward):0:1
  27637. Declare Sub Click(Source As Button)
  27638. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27639. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27640. Private Sub BindEvents(Byval Objectname_ As String)
  27641.     Static Source As BUTTON
  27642.     Set Source = Bind(Objectname_)
  27643.     On Event Click From Source Call Click
  27644. End Sub
  27645. '++LotusScript Development Environment:2:2:Click:1:12
  27646. Sub Click(Source As Button)
  27647.     uicsdoc.UIObject.SendComments = True
  27648.     Call uicsdoc.PerformActionAndClose(Null, CNTR_TITLE, ACTION_COUNTER_PROPOSE, "(InviteeReplyDlg)", 0)
  27649. End Sub
  27650. tmpOwnerHW
  27651. tmpNoActionBar
  27652. Broadcast
  27653. PreventCounter
  27654.     1S2S3S4S5S6S8S9S10S11S12S13S14S
  27655. Informationen anfordern...'++LotusScript Development Environment:2:5:(Options):0:66
  27656. '++LotusScript Development Environment:2:5:(Forward):0:1
  27657. Declare Sub Click(Source As Button)
  27658. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27659. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27660. Private Sub BindEvents(Byval Objectname_ As String)
  27661.     Static Source As BUTTON
  27662.     Set Source = Bind(Objectname_)
  27663.     On Event Click From Source Call Click
  27664. End Sub
  27665. '++LotusScript Development Environment:2:2:Click:1:12
  27666. Sub Click(Source As Button)
  27667.     Dim uievent As UIEventObject
  27668.     Set uievent = uicsdoc.UIObject
  27669.     If uievent.OkToPerformAction(Null, 0, ACTION_REFRESHINFO, "(InviteeReplyDlg)", 1) Then
  27670.         Call uievent.PerformAction(ORS_MSGTYPE_REFRESHINFO, 114)
  27671.         If (uievent.SendComments) Then Call uievent.EditNotice
  27672.     End If
  27673. End Sub
  27674. tmpOwnerHW
  27675.     1S2S
  27676. Lotus Product
  27677. Lotus Product
  27678. Lotus Product
  27679. Lotus Product
  27680. Lotus Product
  27681. Lotus Product
  27682. Lotus Product
  27683. Lotus Product
  27684. Lotus Product
  27685. Lotus Product
  27686. Lotus Product
  27687. Lotus Product
  27688. O=Lotus Notes
  27689. O=Lotus Notes
  27690. PURSAFO
  27691. |.:#U
  27692. O=Lotus Notes
  27693. CN=Lotus Notes Template Development/O=Lotus Notes
  27694. PURSAFO
  27695. }]m"O
  27696. tmpAlarmValue
  27697. tmpAlarmOnDate
  27698. tmpAlarmOnTime
  27699. tmpSort
  27700. tmpShow
  27701. $HTMLDocumentStyles
  27702. $SCRIPTOBJ_25
  27703. $SCRIPTOBJ_26
  27704. $SCRIPTOBJ_27
  27705. $SCRIPTOBJ_28
  27706. $Language
  27707. $LastBuildTime
  27708. $BabelInfo
  27709. $HTMLCode
  27710. $Info
  27711. $WINDOWTITLE
  27712. $HTMLBodyTag
  27713. $AppHelpFormula
  27714. $WebFlags
  27715. $Script
  27716. $$Script_O
  27717. $$ScriptName
  27718. $$FormScript
  27719. $$$FormScript_O
  27720. $$StartDate
  27721. $StartDate_O
  27722. $$StartTime
  27723. $StartTime_O
  27724. StartDate
  27725. StartTime
  27726. EndDate
  27727. EndTime
  27728. $Body
  27729. $V5ACTIONS
  27730. $ACTIONS
  27731. $SCRIPTOBJ_13
  27732. $SCRIPTOBJ_14
  27733. $SCRIPTOBJ_15
  27734. $SCRIPTOBJ_16
  27735. $SCRIPTOBJ_17
  27736. $SCRIPTOBJ_18
  27737. $SCRIPTOBJ_19
  27738. $SCRIPTOBJ_20
  27739. $SCRIPTOBJ_21
  27740. $SCRIPTOBJ_22
  27741. $SCRIPTOBJ_23
  27742. $SCRIPTOBJ_24
  27743. $PublicAccess
  27744. VersionOpt|
  27745.     6S7S9S14S
  27746. $VersionOpt
  27747.     0R1S2S3S
  27748. SavedOnce
  27749.     0R1S2S3S
  27750. PostedDate(
  27751.     0R1S2S3S
  27752. DeliveredDate
  27753.     0R1S2S3S
  27754. $AutoEditMode
  27755.     0R1S2S3S
  27756. MailSaveOptions
  27757.     0R1S2S3S
  27758. VersionOpt
  27759.     0R4S
  27760. Times New Roman
  27761. &Arial
  27762.  Phone Message
  27763. Telefonnachricht
  27764. Subject
  27765. Subject
  27766. Subject
  27767.     4S6S12S13S14S15S17S21S23S25S26S28S
  27768. (Help)
  27769. MAIL_F_PHONE-MESSAGE
  27770.     0S0E
  27771. Dokument bearbeitenX
  27772. Weiterleiten 
  27773.     0S0E
  27774. Neues Memo(
  27775.     0S0E
  27776. Antwort\AntwortX0
  27777. Reply
  27778.     0S0E
  27779. Antwort\Antwort mit ProtokollX
  27780. Antwort mit Protokoll
  27781. Dieses Dokument ist nicht vollst
  27782. ndig.
  27783.     4S8S10S13S
  27784. Reply with history
  27785. Antwort\Allen antwortenXX
  27786. MailStEd
  27787.     0S0E
  27788. Reply
  27789. Antwort\Allen antworten (mit Protokoll)X
  27790. MailStEd
  27791.     0S0E
  27792. Antwort mit Protokoll
  27793. Dieses Dokument ist nicht vollst
  27794. ndig.
  27795.     0R4S8S10S13S
  27796. Reply with history
  27797. schenX 
  27798.     0S0E
  27799. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  27800. Use "CommonUI"
  27801. '++LotusScript Development Environment:2:5:(Forward):0:1
  27802. Declare Sub Click(Source As Button)
  27803. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27804. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27805. Private Sub BindEvents(Byval Objectname_ As String)
  27806. Static Source As BUTTON
  27807. Set Source = Bind(Objectname_)
  27808. On Event Click From Source Call Click
  27809. End Sub
  27810. '++LotusScript Development Environment:2:2:Click:1:12
  27811. Sub Click(Source As Button)
  27812.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  27813. End Sub
  27814. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  27815. Use "CommonUI"
  27816. '++LotusScript Development Environment:2:5:(Forward):0:1
  27817. Declare Sub Click(Source As Button)
  27818. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27819. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27820. Private Sub BindEvents(Byval Objectname_ As String)
  27821. Static Source As BUTTON
  27822. Set Source = Bind(Objectname_)
  27823. On Event Click From Source Call Click
  27824. End Sub
  27825. '++LotusScript Development Environment:2:2:Click:1:12
  27826. Sub Click(Source As Button)
  27827.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  27828. End Sub
  27829. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  27830. Use "CommonUI"
  27831. '++LotusScript Development Environment:2:5:(Forward):0:1
  27832. Declare Sub Click(Source As Button)
  27833. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27834. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27835. Private Sub BindEvents(Byval Objectname_ As String)
  27836.     Static Source As BUTTON
  27837.     Set Source = Bind(Objectname_)
  27838.     On Event Click From Source Call Click
  27839. End Sub
  27840. '++LotusScript Development Environment:2:2:Click:1:12
  27841. Sub Click(Source As Button)
  27842.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  27843. End Sub
  27844. In Ordner _verschieben...X
  27845. Zustellinformationen...Xz
  27846. DeliveryInfo
  27847. Zustellinformationen
  27848.     4S5S6S7S8S9S10S12S
  27849. _WeiterleitenX
  27850. Schlie
  27851.     0S0E
  27852. IsMailStationeryh
  27853. PostedDateh
  27854.     6S7S
  27855. Senden
  27856. MEMO_SEND
  27857.     0S0E
  27858. ActionInProgress
  27859. MEMO_SEND
  27860.     0R1S
  27861. PostedDateh
  27862. IsMailStationery
  27863.     5S6S7S8S10S11S12S13S
  27864. Senden und ablegen
  27865. MEMO_SEND_FILE
  27866.     0S0E
  27867. ActionInProgress
  27868. MEMO_SEND_FILE
  27869.     0R1S
  27870. PostedDateh
  27871. IsMailStationery
  27872.     5S6S7S8S12S13S
  27873. Als Entwurf speichernX
  27874. MEMO_DRAFT
  27875.     0S0E
  27876. ActionInProgress
  27877. MEMO_DRAFT
  27878.     0R1S
  27879. PostedDateh
  27880. IsMailStationery
  27881.     5S6S7S8S10S11S12S13S
  27882. Adresse... 
  27883.     0S0E
  27884. PostedDateh
  27885.     5S6S7S8S
  27886. Zustelloptionen...
  27887. $KeepPrivate
  27888. $KeepPrivate
  27889. $KeepPrivate
  27890. $KeepPrivate
  27891. DeliveryOptions
  27892. Zustelloptionen
  27893.     0R4S10S
  27894. PostedDateh
  27895.     5S6S7S8S
  27896. Aus Ordner _entfernen...
  27897. _KategorisierenX
  27898. Senden
  27899. Dokument bearbeitenX
  27900. Weiterleiten 
  27901.     0S0E
  27902. Neues Memo(
  27903.     0S0E
  27904. act_NEWMEMO.GIF|act_NEWMEMOX
  27905. Antwort\AntwortX0
  27906. Reply
  27907.     0S0E
  27908. act_REPLY.GIF|act_REPLYX
  27909. Antwort\Antwort mit ProtokollX
  27910. Antwort mit Protokoll
  27911. Dieses Dokument ist nicht vollst
  27912. ndig.
  27913.     4S8S10S13S
  27914. Reply with history
  27915. act_REPLY.GIF|act_REPLYX
  27916. Antwort\Allen antwortenXX
  27917. MailStEd
  27918.     0S0E
  27919. Reply
  27920. act_REPLY.GIF|act_REPLYX
  27921. Antwort\Allen antworten (mit Protokoll)X
  27922. MailStEd
  27923.     0S0E
  27924. Antwort mit Protokoll
  27925. Dieses Dokument ist nicht vollst
  27926. ndig.
  27927.     0R4S8S10S13S
  27928. Reply with history
  27929. act_REPLY.GIF|act_REPLYX
  27930. schenX 
  27931.     0S0E
  27932. act_DELETE.GIF|act_DELETEX
  27933. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  27934. Use "CommonUI"
  27935. '++LotusScript Development Environment:2:5:(Forward):0:1
  27936. Declare Sub Click(Source As Button)
  27937. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27938. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27939. Private Sub BindEvents(Byval Objectname_ As String)
  27940. Static Source As BUTTON
  27941. Set Source = Bind(Objectname_)
  27942. On Event Click From Source Call Click
  27943. End Sub
  27944. '++LotusScript Development Environment:2:2:Click:1:12
  27945. Sub Click(Source As Button)
  27946.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  27947. End Sub
  27948. act_COPYINTO.GIF|act_COPYINTOX
  27949. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  27950. Use "CommonUI"
  27951. '++LotusScript Development Environment:2:5:(Forward):0:1
  27952. Declare Sub Click(Source As Button)
  27953. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27954. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27955. Private Sub BindEvents(Byval Objectname_ As String)
  27956. Static Source As BUTTON
  27957. Set Source = Bind(Objectname_)
  27958. On Event Click From Source Call Click
  27959. End Sub
  27960. '++LotusScript Development Environment:2:2:Click:1:12
  27961. Sub Click(Source As Button)
  27962.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  27963. End Sub
  27964. act_COPYINTO.GIF|act_COPYINTOX
  27965. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  27966. Use "CommonUI"
  27967. '++LotusScript Development Environment:2:5:(Forward):0:1
  27968. Declare Sub Click(Source As Button)
  27969. '++LotusScript Development Environment:2:5:(Declarations):0:2
  27970. '++LotusScript Development Environment:2:2:BindEvents:1:129
  27971. Private Sub BindEvents(Byval Objectname_ As String)
  27972.     Static Source As BUTTON
  27973.     Set Source = Bind(Objectname_)
  27974.     On Event Click From Source Call Click
  27975. End Sub
  27976. '++LotusScript Development Environment:2:2:Click:1:12
  27977. Sub Click(Source As Button)
  27978.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  27979. End Sub
  27980. act_COPYINTO.GIF|act_COPYINTOX
  27981. In Ordner _verschieben...X
  27982. Zustellinformationen...Xz
  27983. DeliveryInfo
  27984. Zustellinformationen
  27985.     4S5S6S7S8S9S10S12S
  27986. _WeiterleitenX
  27987. Schlie
  27988.     0S0E
  27989. IsMailStationeryh
  27990. PostedDateh
  27991.     6S7S
  27992. Senden
  27993. MEMO_SEND
  27994.     0S0E
  27995. ActionInProgress
  27996. MEMO_SEND
  27997.     0R1S
  27998. PostedDateh
  27999. IsMailStationery
  28000.     5S6S7S8S10S11S12S13S
  28001. act_SEND.GIF|act_SENDX
  28002. Senden und ablegen
  28003. MEMO_SEND_FILE
  28004.     0S0E
  28005. ActionInProgress
  28006. MEMO_SEND_FILE
  28007.     0R1S
  28008. PostedDateh
  28009. IsMailStationery
  28010.     5S6S7S8S12S13S
  28011. act_SENDFILE|act_SENDFILEX
  28012. Als Entwurf speichernX
  28013. MEMO_DRAFT
  28014.     0S0E
  28015. ActionInProgress
  28016. MEMO_DRAFT
  28017.     0R1S
  28018. PostedDateh
  28019. IsMailStationery
  28020.     5S6S7S8S10S11S12S13S
  28021. act_SAVEASDRAFT.GIF|act_SAVEASDRAFTX
  28022. Adresse... 
  28023.     0S0E
  28024. PostedDateh
  28025.     5S6S7S8S
  28026. act_ADDRESSBOOK.GIF|act_ADDRESSBOOKX
  28027. Zustelloptionen...
  28028. $KeepPrivate
  28029. $KeepPrivate
  28030. $KeepPrivate
  28031. $KeepPrivate
  28032. DeliveryOptions
  28033. Zustelloptionen
  28034.     0R4S10S
  28035. PostedDateh
  28036.     5S6S7S8S
  28037. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONSX
  28038. Aus Ordner _entfernen...
  28039. _KategorisierenX
  28040. Senden
  28041. '++LotusScript Development Environment:2:5:(Options):0:74
  28042. Option Public
  28043. Option Explicit
  28044. Use "CoreEmailClasses"
  28045. '++LotusScript Development Environment:2:5:(Forward):0:1
  28046. '++LotusScript Development Environment:2:5:(Declarations):0:10
  28047. Dim cMemoObject As Variant
  28048. '++LotusScript Development Environment:2:5:(Options):0:66
  28049. '++LotusScript Development Environment:2:5:(Forward):0:1
  28050. Declare Sub Postopen(Source As Notesuidocument)
  28051. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  28052. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  28053. Declare Sub Postmodechange(Source As Notesuidocument)
  28054. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  28055. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  28056. Declare Sub Postsave(Source As Notesuidocument)
  28057. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28058. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28059. Private Sub BindEvents(Byval Objectname_ As String)
  28060.     Static Source As NOTESUIDOCUMENT
  28061.     Set Source = Bind(Objectname_)
  28062.     On Event Postopen From Source Call Postopen
  28063.     On Event Querysave From Source Call Querysave
  28064.     On Event Queryclose From Source Call Queryclose
  28065.     On Event Postmodechange From Source Call Postmodechange
  28066.     On Event Queryopen From Source Call Queryopen
  28067.     On Event Querymodechange From Source Call Querymodechange
  28068.     On Event Postsave From Source Call Postsave
  28069. End Sub
  28070. '++LotusScript Development Environment:2:2:Postopen:1:12
  28071. Sub Postopen(Source As Notesuidocument)
  28072.     Call cMemoObject.PostOpen(Source)    
  28073. End Sub
  28074. '++LotusScript Development Environment:2:2:Querysave:1:12
  28075. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  28076.     Call cMemoObject.QuerySave(Continue)
  28077. End Sub
  28078. '++LotusScript Development Environment:2:2:Queryclose:1:12
  28079. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  28080.     Call cMemoObject.QueryClose(Continue)
  28081. End Sub
  28082. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  28083. Sub Postmodechange(Source As Notesuidocument)
  28084.     Call cMemoObject.PostModeChange()    
  28085. End Sub
  28086. '++LotusScript Development Environment:2:2:Queryopen:1:12
  28087. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  28088.     Set cMemoObject = New UIMemoDocument         
  28089.     Call cMemoObject.Init(Source,Isnewdoc)  
  28090. End Sub
  28091. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  28092. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  28093.     Continue = cMemoObject.QueryModeChange(Source)
  28094. End Sub
  28095. '++LotusScript Development Environment:2:2:Postsave:1:12
  28096. Sub Postsave(Source As Notesuidocument)
  28097.     Call cMemoObject.PostSave()
  28098. End Sub
  28099.     Always Hidden: X
  28100. Phone Message
  28101. Principal
  28102. CalendarProfile
  28103. Owner
  28104.     1S2S3S7S
  28105. Principal
  28106. Principal
  28107.     0R3S4S6S8S
  28108. FromPerson memo is from.
  28109.     0S0E
  28110.     0S0E
  28111. EncryptX
  28112.     0S0E
  28113. DefaultMailSaveOptions
  28114. $KeepPrivate
  28115. $KeepPrivate
  28116. $KeepPrivate
  28117.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  28118. (WebSpecificFields)
  28119.     0S0E
  28120.     Von:    X
  28121. Principal
  28122. Principal
  28123. FromDomain
  28124. FromDomain
  28125. FromDomain
  28126. FromDomain
  28127.     7S10S15S16S18S22S25S29S32S33S37S39S42S43S45S47S48S49S55S58S62S65S71S
  28128. FromName
  28129. Principal
  28130. Principal
  28131. Principal
  28132.     0RR1S2S10S11S16S18S
  28133. FromStops
  28134. Principal
  28135. Principal
  28136. Principal
  28137.     0RR1S2S10S11S16S18S21S
  28138. FromName
  28139. FromStops
  28140. FromStops
  28141. FromStops
  28142.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom
  28143.      am 
  28144. PostedDateh
  28145. PostedDate
  28146.     7S9S
  28147. tmpDisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  28148. ReplyDate
  28149. ReplyTo
  28150.     1S2S3S4S5S6S
  28151. Bitte antworten
  28152. ReplyTo
  28153. ReplyTo
  28154. ReplyDate
  28155.  bis 
  28156. ReplyDate
  28157.     1S2S5S6S8S10S11S12S14S15S18S19S21S23S24S25StmpDisplayReplyInfoX
  28158. $HideMailHeader
  28159. Principal
  28160. Principal
  28161. Principal
  28162. Principal
  28163. Principal
  28164.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  28165.     Gesendet von:    
  28166. FromDomain
  28167. FromDomain
  28168. FromDomain
  28169. FromDomain
  28170.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  28171. FromName
  28172.     0RR1S2S6S
  28173. FromStops
  28174.     0R1S2S6S
  28175. FromName
  28176. FromStops
  28177. FromStops
  28178. FromStops
  28179.     0RR1S2S3S4S10S13S17S20StmpDisplaySentBy
  28180. SendTo
  28181. CopyTo
  28182.   Kopie:  
  28183. CopyTo
  28184.     1S8S13S14S2E17S18S21S28S31S
  28185.     An:X
  28186. SendTo}
  28187.     0S0E
  28188. SendToListe der Personen, an die das Memo (Original) gesendet werden sollX
  28189.     Kopie:
  28190. CopyTo}
  28191.     0S0E
  28192. CopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  28193. DeliveredDate
  28194. BlindCopyTo
  28195. (Blindkopie: 
  28196. BlindCopyTo
  28197.     3S4S5S6S7S8S10S11S12S16S18S19S21StmpDisplayBlindCopyToX
  28198.     Blindkopie:X
  28199. BlindCopyTo
  28200.     0S0E
  28201. BlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.X
  28202. bg_MessagePad|bg_MessagePadX
  28203. Telefonnotiz
  28204. Frau/Herr:
  28205. PhoneCallerX
  28206. FirmaX
  28207. CompanyNameX
  28208. Telefon:
  28209. PhoneNumberX
  28210. FAXNumberX
  28211. PhoneReason    
  28212. Hat angerufen|TBittet um R
  28213. ckruf|PWird nochmals anrufen|WHat zur
  28214. ckgerufen|RWar hier|IWird nochmals kommen|LHat Paket hiergelassen|KBittet um R
  28215. cksprache|MDringend|N
  28216.     Meldung:
  28217. BodyText der Nachricht
  28218. Telefonnachricht von 
  28219. PhoneCaller
  28220.     1S2S
  28221. SubjectX
  28222.     Always Hidden: X
  28223. ReplyDate
  28224. ReplyDate
  28225. ReplyDate
  28226. Importanceh
  28227. Importance
  28228. Importance
  28229. Importance(
  28230. DeliveryReporth
  28231. DeliveryReport
  28232. DeliveryReport
  28233. DeliveryReport(
  28234. DeliveryPriorityh
  28235. DeliveryPriority
  28236. DeliveryPriority
  28237. DeliveryPriority(
  28238. UpdateProfileNote
  28239. UpdateProfileNote
  28240. UpdateProfileNote
  28241. ReturnReceipt
  28242. ReturnReceipt
  28243. ReturnReceipt
  28244. $KeepPrivateh
  28245. $KeepPrivate
  28246. $KeepPrivate(
  28247. ExpireDateh
  28248. ExpireDate
  28249. ExpireDate(
  28250. ReplyTo
  28251. ReplyTo
  28252. ReplyTo
  28253. MimeFormath
  28254. MimeFormat
  28255. MimeFormat
  28256. MimeFormat(
  28257. SMTPEncodingh
  28258. SMTPEncoding
  28259. SMTPEncoding
  28260. SMTPEncoding(
  28261. MIMEMailCharset
  28262. MIMEMailCharset
  28263. MIMEMailCharset
  28264. MIMEMailCharset
  28265. $AutoSpellh
  28266. $AutoSpell
  28267. $AutoSpell(
  28268. WebSubjecth
  28269. WebSubject(
  28270. tmpSenderTagh
  28271. tmpSenderTag
  28272. tmpSenderTag
  28273. tmpSenderTag(
  28274.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RTRemoveNoteItemsX
  28275. Lotus Product
  28276. Lotus Product
  28277. Lotus Product
  28278. Lotus Product
  28279. Lotus Product
  28280. O=Lotus Notes
  28281. O=Lotus Notes
  28282. PURSAFO
  28283. |.:#U
  28284. O=Lotus Notes
  28285. CN=Lotus Notes Template Development/O=Lotus Notes
  28286. PURSAFO
  28287. $$FormPostOpenAction
  28288. $TypeIcon
  28289. ExpireDate
  28290. ReplyDate
  28291. ComposedDate
  28292. $Info
  28293. $$ScriptName
  28294. $WINDOWTITLE
  28295. $AppHelpFormula
  28296. $ACTIONS
  28297. $V5ACTIONS
  28298. $Script
  28299. $$FormScript
  28300. $Body
  28301. $$Script_O
  28302. $$$FormScript_O
  28303. $SCRIPTOBJ_8
  28304. $SCRIPTOBJ_9
  28305. $SCRIPTOBJ_10
  28306. $Language
  28307. $LastBuildTime
  28308. $BabelInfo
  28309. 29FB8414250BFCF038F51072FC347194AF5CB9E208931A2E889B51112269D913de-DE
  28310. 0000031A
  28311. _Dokument-Memo$DocMemoWord.Document$Word MemoWordPro.Document$Word Pro MemoAlternateMemo
  28312. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformw
  28313. BodyOLEBodySubjectEnterBlindCopyToEnterCopyToEnterSendToCopyTo$OLEObjRichTextField$OLEObjFieldDefaultMailSaveOptions$KeepPrivateEncryptSignLogoAltFromFromInheritedFromDomainInheritedAltFromInheritedFromInheritedReplyToInheritedAltSendToInheritedSendToInetBlindCopyToAltCopyToInetSendToInetCopyTo$StorageBcc$StorageTo$StorageCc$AltNameLanguageTags
  28314. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes########################################
  28315. tmpDontAskAction
  28316. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(DeleteSentDlg)de-DE
  28317. 0000033A###################
  28318. CUA3x
  28319. DurationSelStartTime
  28320. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(GroupCalendarOptions)de-DElWP
  28321. 0000034A###################
  28322. tmpFromInfo_1tmpPostedDateInfo_1CDU3x1
  28323. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  28324. (Delivery Info)DeliveryInfode-DE
  28325. 0000033E#############################
  28326. CUA3x
  28327. MembersSubject$PublicAccess1
  28328. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(GroupCalendarDlg)de-DE
  28329. 00000346#####################################################
  28330. de-DE
  28331. 00000342
  28332. (Delivery Options)DeliveryOptionsCDU3wx
  28333. SenderTagMailFormatSMTPEncodingMIMEMailCharsetReplyToExpireDateReplyDatetmpSenderTagUpdateProfileNoteEncryptSign$AutoSpellDeliveryPriority$KeepPrivateDeliveryReportReturnReceiptImportance$Moods1
  28334. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###########
  28335. SelectedItems
  28336. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  28337. (ListResource)(ListResource)de-DE
  28338. 00000352#############
  28339. CUA3x
  28340. tmpIncludeCommentstmpKeepPostedNewEndTimeNewEndDateNewStartTimeNewStartDateDelegeetmpPencilIntmpFTSEndDateTimetmpFTSStartDateTimetmpActionType1
  28341. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(InviteeReplyDlg)de-DE
  28342. 0000034E##########################################################
  28343. SignatureSignatureOption
  28344. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(SignatureOption)de-DE
  28345. 00000366#########################################################
  28346. de-DE
  28347. 00000356(OwnerDlg)CUA3x
  28348. tmpIncludeCommentstmpDeleteEntryEndTimeEndDateStartTimeStartDatetmpActionType1
  28349. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#############################################
  28350. CUA3x
  28351. tmpDateSelectedtmpRepeatConflictOptiontmpMultiDateListtmpDateListtmpRepeatOptionstmpListOfDates1
  28352. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(RepeatOpenList)de-DE
  28353. 0000035E#########################
  28354. de-DEx
  28355. 0000035A(RepeatForm)CUA3x
  28356. RepeatForUnitRepeatForRepeatUntilRepeatHowRepeatStartDateRepeatWeekendsRepeatCustomRepeatFromEndRepeatAdjustRepeatIntervalRepeatUnittmpRAMPtmpRAWtmpRAMDtmpRIDtmpRIWtmpRIYtmpRIMDMP1
  28357. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes###############################
  28358. CUA3x
  28359. tmpDontShow
  28360. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(subTrackMessage)de-DE
  28361. 0000036E#########################################
  28362. CUA3x
  28363. tmpResourceNameMultitmpResourceNameSingletmpResourceNameBlanktmpResourceCategorytmpCapacitytmpSitetmpNABsEndTimeStartTimeStartDateEndDatetmpSubsetCategorytmpCategoriesAlltmpSitesAlltmpAddressBookstmpResourceNametmpResourceType1
  28364. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(Room Resource Scheduler)de-DE
  28365. 00000362##########################
  28366. TraceTypeUserDefinedNameSelectedOptionsUserOptionsExpandedCU3x
  28367. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(subTrackingRequest)de-DE4
  28368. 0000036A#
  28369. AbortGracefullyPrincipalReplyToPostedDateSaveOptionsMailOptionsReturnReceipttmpSendOptionsDeliveryPriorityDeliveryReportImportance
  28370. CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(WebSpecificFields)de-DE
  28371. 00000376######
  28372. de-DE
  28373. 00000372(wCSItems)CUA3x2
  28374. pathDueStateNoticeTypetmpOwnertmpWasMailedtmpPencilIntmpWebEndDateTimetmpWebStartDateTimetmpDeleteItemstmpChangeWhichDelegeeNewEndTimeNewStartTimeNewEndDateNewStartDatetmpKeepPostedtmpActionPreventDelegatePreventCounterBroadcastReturnReceiptDeliveryPriorityDeliveryReportWebDateTimeInit$CSVersionChairtmpResponsetmpRepeatCheckDueDateTimePrincipal$CSFlagstmpDBtmpOriginalEndtmpOriginalStarttmpCalInstanceDateOrgRepeatRepeatWeekendsRepeatFromEndRepeatUntilRepeatForUnitRepeatForRepeatHowRepeatCustomRepeatAdjustRepeatIntervalRepeatUnitRepeatStartDateEndDateTimeStartDateTimeApptUNID
  28375. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes#################################################
  28376. CUA3x
  28377. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  28378. $LotusFaxMemoSubform1.0$LotusFaxMemoSubformde-DE[
  28379. 00000326##################################
  28380. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
  28381. $MoodsMoodsde-DE
  28382. 0000032A##########
  28383. tmpChangeWhich1
  28384. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(ChangeRepeat)de-DE
  28385. 00000332#################################
  28386. de-DE,
  28387. 0000032E
  28388. (AlarmOptions)AlarmOptionsCUA3x
  28389. $AlarmDisabled$AlarmSendTo$AlarmMemoOptionstmpAlarmPathtmpPlaySoundtmpAlarmPopuptmpOffsetDir$AlarmUnittmpOffsettmpAlarmFiles1
  28390. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes################################
  28391. 1/P=1681$
  28392. $65$59$55
  28393. $66$66
  28394. (Help)
  28395. MAIL_V_STATIONERY
  28396.     0S0E
  28397. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesVorlagede-DEM
  28398. 0000037A##################################################
  28399. /P=1681
  28400. $68$106
  28401. $102$68
  28402. $106YdB
  28403. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(Default)de-DE
  28404. 0000037E################################
  28405. /P=3601
  28406. $39$13
  28407. $13YB
  28408. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(Discussion Threads)|Threadsde-DE
  28409. 00000382#############
  28410. /P=3601$
  28411. $65$59$55
  28412. $66$66
  28413. $55YB
  28414. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($Drafts)
  28415. de-DEK
  28416. 00000396####################################################
  28417. de-DE
  28418. 0000072E
  28419. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##
  28420. VersionOpt|
  28421.     6S7S9S14S
  28422. $VersionOpt
  28423.     0R1S2S3S
  28424. SavedOnce
  28425.     0R1S2S3S
  28426. PostedDate(
  28427.     0R1S2S3S
  28428. DeliveredDate
  28429.     0R1S2S3S
  28430. $AutoEditMode
  28431.     0R1S2S3S
  28432. MailSaveOptions
  28433.     0R1S2S3S
  28434. VersionOpt
  28435.     0R4S
  28436. $HideMailHeader
  28437. BGTableColor
  28438. HeaderRegion
  28439. BodyRegion
  28440. Neues Memo
  28441. Subject
  28442. Subject
  28443. Subject
  28444.     4S6S12S13S14S15S17S21S23S25S26S28S
  28445. &Arial
  28446. '++LotusScript Development Environment:2:5:(Options):0:74
  28447. Option Public
  28448. Use "CoreEmailClasses"
  28449. '++LotusScript Development Environment:2:5:(Forward):0:1
  28450. Declare Class OLEUIMemoDocument As UIMemoDocument
  28451. '++LotusScript Development Environment:2:5:(Declarations):0:10
  28452. Dim cMemoObject As Variant
  28453. Class OLEUIMemoDocument As UIMemoDocument
  28454.     Private m_strProgid As String
  28455.     Private m_vOLEObject As Variant
  28456.     Private m_nUserRepliedToSender As Integer
  28457. Declare Public Function ReplyToSender()
  28458.     Function PostOpen(note As notesuidocument)    
  28459.         If Not note.inpreviewpane Then            
  28460.             Me.m_strProgid = note.document.GetItemValue("$OLEObjProgId")(0)
  28461.             If (note.isnewdoc) Then     
  28462.                 Call note.document.ReplaceItemValue("OriginalEditor", m_strProgid)
  28463.                 Call note.GotoField(note.document.GetItemValue("$OLEObjField")(0))
  28464.                 Call note.CreateObject("OLEObject", m_strProgid ,"")
  28465.             Else
  28466.                 If Lcase(note.document.GetItemValue("OriginalEditor")(0)) = Lcase(m_strProgid) Then
  28467.                     note.editmode = True
  28468.                     Set m_vOLEObject = note.GetObject("OLEObject")
  28469.                     If Not(Isobject(m_vOLEObject)) Then
  28470.                         note.EditMode = True
  28471.                         Call note.document.ReplaceItemValue("OriginalEditor", m_strProgid)
  28472.                         Call note.GotoField(note.document.GetItemValue("$OLEObjField")(0))
  28473.                         Call note.CreateObject("OLEObject",m_strProgid,"")      
  28474.                         Exit Function
  28475.                     End If
  28476.                 Else
  28477.                     Call note.document.ReplaceItemValue("tmpUseOLE", "")
  28478.                     Call note.RefreshHideFormulas               
  28479.                 End If
  28480.             End If     
  28481.             Call UIMemoDocument..PostOpen(note)
  28482.         End If
  28483.     End Function        
  28484.     Public Function ReplyToSender()
  28485.         With Me.m_noteMemo
  28486.             If Len(.GetItemValue("Subject")(0)) = 0 Then
  28487.                 Call .ReplaceItemValue("Subject", .GetItemValue("InheritedSubject")(0))
  28488.             End If
  28489.             If Not IsDocAltNameCandidate(Me.m_noteMemo) Then
  28490.                 If Len( .GetItemValue("InheritedReplyTo")(0)) > 0  Then
  28491.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedReplyTo")(0))                
  28492.                 Else
  28493.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedFrom")(0))                
  28494.                 End If
  28495.             Else
  28496.                 If Len( .GetItemValue("InheritedAltReplyTo")(0)) > 0  Then
  28497.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedAltReplyTo")(0))                
  28498.                 Else
  28499.                     Call .ReplaceItemValue("EnterSendTo", .GetItemValue("InheritedAltFrom")(0))                
  28500.                 End If
  28501.             End If
  28502.             Me.m_nUserRepliedToSender = True
  28503.             Call reload()        
  28504.         End With
  28505.     End Function
  28506.     Sub ReplyToAll
  28507.         'this over-rides the superclass so we can test for basic reply data
  28508.         Call MEMOReplyToAll(Me.m_noteMemo)        
  28509.         If Not Me.m_nUserRepliedToSender Then
  28510.             Call ReplyToSender()        
  28511.         Else
  28512.             Call Reload()            
  28513.         End If
  28514.     End Sub
  28515.     Sub InsertSignature(FromMailPreference As Integer)
  28516.         '//Child class doesn't support this.
  28517.     End Sub
  28518. End Class
  28519. Lotus Product
  28520.  AlternateMemo'++LotusScript Development Environment:2:5:(Options):0:66
  28521. '++LotusScript Development Environment:2:5:(Forward):0:1
  28522. Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
  28523. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  28524. Declare Sub Postmodechange(Source As Notesuidocument)
  28525. Declare Sub Postopen(Source As Notesuidocument)
  28526. Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  28527. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  28528. Declare Sub Postsave(Source As Notesuidocument)
  28529. '++LotusScript Development Environment:2:5:(Declarations):0:2
  28530. '++LotusScript Development Environment:2:2:BindEvents:1:129
  28531. Private Sub BindEvents(Byval Objectname_ As String)
  28532.     Static Source As NOTESUIDOCUMENT
  28533.     Set Source = Bind(Objectname_)
  28534.     On Event Querysave From Source Call Querysave
  28535.     On Event Queryclose From Source Call Queryclose
  28536.     On Event Postmodechange From Source Call Postmodechange
  28537.     On Event Postopen From Source Call Postopen
  28538.     On Event Querymodechange From Source Call Querymodechange
  28539.     On Event Queryopen From Source Call Queryopen
  28540.     On Event Postsave From Source Call Postsave
  28541. End Sub
  28542. '++LotusScript Development Environment:2:2:Querysave:1:12
  28543. Sub Querysave(Source As Notesuidocument, Continue As Variant)
  28544.     Call cMemoObject.QuerySave(Continue)
  28545. End Sub
  28546. '++LotusScript Development Environment:2:2:Queryclose:1:12
  28547. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  28548.     Call cMemoObject.QueryClose(Continue)
  28549. End Sub
  28550. '++LotusScript Development Environment:2:2:Postmodechange:1:12
  28551. Sub Postmodechange(Source As Notesuidocument)
  28552.     Call cMemoObject.PostModeChange()        
  28553. End Sub
  28554. '++LotusScript Development Environment:2:2:Postopen:1:12
  28555. Sub Postopen(Source As Notesuidocument)
  28556.     Call cMemoObject.PostOpen(Source)    
  28557. End Sub
  28558. '++LotusScript Development Environment:2:2:Querymodechange:1:12
  28559. Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
  28560.     Continue = cMemoObject.QueryModeChange(Source)
  28561. End Sub
  28562. '++LotusScript Development Environment:2:2:Queryopen:1:12
  28563. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  28564.     Set cMemoObject = New OLEUIMemoDocument         
  28565.     Call cMemoObject.Init(Source,Isnewdoc)  
  28566. End Sub
  28567. '++LotusScript Development Environment:2:2:Postsave:1:12
  28568. Sub Postsave(Source As Notesuidocument)
  28569.     Call cMemoObject.PostSave()
  28570. End Sub
  28571. Lotus Product
  28572. N<    TH    ]
  28573. N<    TT    ]
  28574. N<    T`    '
  28575. N<    Tl    ]
  28576. N<    Sx    ]
  28577.     Always Hidden:
  28578. $AltNameLanguageTags
  28579. $AltNameLanguageTags
  28580. $StorageTo
  28581. $StorageCc
  28582.     1S2S
  28583. $StorageCc
  28584. NoteHasNativeMime
  28585.     1RT2RT7RTT9RT10RT$StorageTo
  28586. $StorageBcc
  28587. $StorageBcc
  28588. InetSendTo
  28589. InetCopyTo
  28590.     1S2S
  28591. InetCopyTo
  28592. InetFrom
  28593. InetSendTo
  28594. AltSendTo
  28595. AltCopyTo
  28596.     1S2S
  28597. AltCopyTo
  28598. InetBlindCopyTo
  28599. InetBlindCopyTo
  28600.     0S0E
  28601. NamePreferencez
  28602. NamePreference
  28603.     0S0E
  28604. LanguagePreference
  28605. Notes
  28606. PostedDateh
  28607. SendTo
  28608. CopyTo
  28609. InheritedSendTo
  28610. SendTo
  28611. CopyTo
  28612.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT29S30TTTTRTT33RT35R38R
  28613. InheritedSendTo
  28614. InheritedSendTo
  28615. Notes
  28616. PostedDateh
  28617. NamePreference
  28618. AltSendTo
  28619. AltSendTo
  28620. AltCopyTo
  28621. SendTo
  28622. CopyTo
  28623. InheritedAltSendTo
  28624. SendTo
  28625. CopyTo
  28626.     1RT6RTT7RTTT9S10S12S13S19RTTTT21RTT22RTTT24S25S27RTTTT28RTTTTT32S33S37RTTTTTT38S39S41RTTTT43S44RTTTT45RTT48RT50R53RInheritedAltSendToz
  28627. InheritedSendTo_1
  28628. Notes
  28629. PostedDateh
  28630. ReplyTo
  28631. ReplyTo
  28632.     1RT6RTT7RTTT9S10S12S13S18RTTTT21RTTT22RTT24RT25R
  28633. InheritedReplyToz
  28634. InheritedReplyTo
  28635. Principal
  28636. Principal
  28637. Principal
  28638. Fromh
  28639.     1S2S3RTTTT8S9S10S11S13RTTTTT15RTTTT20RTTTTT22RTTTT23RTTTT
  28640. FromDomainh
  28641. FromDomain"
  28642.     0R1RT7RTT8S9S10S11S13RT14RTInheritedFrom
  28643. InheritedFrom
  28644. AltPrincipalh
  28645. AltPrincipal
  28646. AltPrincipal
  28647. AltFrom
  28648. AltFrom
  28649.     1S2RT3RTT8S9S10S11S13RTTT15RTT20RTTT22RTT23RTT
  28650. FromDomainh
  28651. FromDomain"
  28652.     0R1RT7RTT8S9S10S11S13RT14RTInheritedAltFromz
  28653. InheritedFrom_1
  28654. Notes
  28655. PostedDateh
  28656. FromDomain
  28657. InheritedFromDomain
  28658. FromDomain
  28659.     9S10S12S13SInheritedFromDomain
  28660. InheritedFromDomain
  28661. Principal
  28662. CalendarProfile
  28663. Owner
  28664.     1S2S3S7S
  28665. FromPerson memo is from.z
  28666. AltFrom
  28667.     10SAltFrom
  28668. CalendarProfile
  28669. DefaultLogo
  28670. stdNotesLtr0
  28671. CalendarProfile
  28672. DefaultLogo
  28673. StdNotesLtrGateway
  28674.     4S13S24R25S29S32S34S
  28675. Logoz
  28676. BG_IMAGE_PREFIX
  28677.     0S0E
  28678. StdNotesLtr0
  28679.     0RR1RT2RT3S4S6RTT13RT14RT
  28680. Image
  28681. StdNotesLtr
  28682. Image
  28683. Gateway
  28684. BG_IMAGE_PREFIX
  28685. Image
  28686. Image
  28687.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT20S21S24RTT33RTT
  28688. Image
  28689. BG_IMAGE_PREFIX
  28690. Image
  28691. BG_IMAGE_PREFIX
  28692. Image
  28693. BG_IMAGE_PREFIX
  28694. Image
  28695. BG_IMAGE_PREFIX
  28696. Image
  28697. BG_IMAGE_PREFIX
  28698. BG_IMAGE_PREFIX
  28699.     0RT1RTT2RTT3S4S10RTTT13S14S17RTT18S19S27RTTT30S31S34RTT35S36S46RTTT49S50S53RTT54S55S61RTTT64S65S68RTT69S70S76RTTT79S80S83RTT86S87S89RTTBGTableColor
  28700. Principal
  28701. Principal
  28702. Principal
  28703. NamePreference
  28704. AltFrom
  28705. $LangFrom
  28706. LanguagePreferencet
  28707. AltFrom
  28708.     1S2S3RTTTT4RTTTT5S7S8S9S10S12RTTTTT14TRTTTT15RTTTTT16RTTTTT19RTTTTT20S21S23RTTTTT24S25RTTTTTTT26RTTTTTTT28RTTTTTTTT30RTTTTTTT36RTTTTTTT38RTTTTTT40RTTTTT41RTTTTT42RTTTT
  28709.     0RR1S2S8S
  28710.     0R1S2S5S6S8S14S18S
  28711.     0R1S2S5S6S8S14S18S
  28712. SentBy
  28713. X400FreeForm^
  28714.     0RR1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  28715. SentBy
  28716. FromDomain
  28717. FromDomain
  28718. FromDomain
  28719. FromDomain
  28720.     0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
  28721. FromName
  28722. Principal
  28723. Principal
  28724. Principal
  28725.     0RR1S2S10S11S16S18S
  28726. FromStops
  28727. Principal
  28728. Principal
  28729. Principal
  28730.     0RR1S2S10S11S16S18S21S
  28731. FromName
  28732. FromStops
  28733. FromStops
  28734. FromStops
  28735.     0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
  28736. tmpDisplayFrom_Preview
  28737.     0S0E
  28738. Signz
  28739.     0S0E
  28740. Encrypt
  28741. Encrypt
  28742. $KeepPrivate
  28743. $KeepPrivate
  28744. $KeepPrivate
  28745.     3S4S5S6S8S13S15S17S18S19S21S23S$KeepPrivate
  28746.     0S0E
  28747. DefaultMailSaveOptionsz
  28748. DefaultMailSaveOptions
  28749. MailEditor
  28750. AltEditorProgID
  28751.     1S2S
  28752. OriginalEditorh
  28753. MailEditor
  28754. OriginalEditor
  28755. MailEditor
  28756.     0R7S10S11S13S14S15S18S19S20S
  28757. tmpUseOLE
  28758. tmpUseOLE
  28759. OLEBody
  28760. $OLEObjFieldz
  28761. $OLEObjField
  28762. $OLEObjRichTextFieldz
  28763. $OLEObjRichTextField
  28764. AltEditorProgID
  28765.     0S0E
  28766. $OLEObjProgID
  28767. $OLEObjProgID
  28768. .,$,  , :
  28769. Path_Info
  28770. Path_Info
  28771. .,$,  , :
  28772. Query_String
  28773. Query_String
  28774. CopyTo
  28775. InheritedSendTo
  28776.     1RT2RT5RTT7RT8RTT9RTT10S11S13RTTT15RTT16RTT17RTCopyToz
  28777. SIZE=80
  28778.     Von:
  28779. tmpDisplayFrom_Preview
  28780. tmpDisplayFrom_NoLogo
  28781. tmpDisplayFrom_NoLogo
  28782. NamesList
  28783. NamePreference
  28784. AltSendTo
  28785. $NameLanguageTags
  28786. LanguagePreferencet
  28787. AltSendTo
  28788. SendTo
  28789.     11S12S15S16S20S
  28790. ImplodedNamesList
  28791. NamesList
  28792. ImplodedNamesList
  28793. ImplodedNamesList
  28794. ImplodedNamesList
  28795. tmpDisplaySendTo
  28796.     Thema:
  28797. Subject
  28798. Subject
  28799. Subject
  28800.     0S0E
  28801. TmpDisplaySubject
  28802.     Kopie:
  28803. CC_Content
  28804. NamePreference
  28805. AltCopyTo
  28806. $NameLanguageTags
  28807. LanguagePreferencet
  28808. AltCopyTo
  28809. CopyTo
  28810.     7S8S9S11S12S16S
  28811. BCC_Content
  28812. DeliveredDate
  28813. BlindCopyTo
  28814.  (Blindkopie: 
  28815. BlindCopyTo
  28816.     0R5S6S7S8S9S10S12S13S14S18S20S21S23S
  28817. NamesList
  28818. CC_Content
  28819. BCC_Content
  28820.     0R9S10S
  28821. ImplodedNamesList
  28822. NamesList
  28823. ImplodedNamesList
  28824. ImplodedNamesList
  28825. ImplodedNamesList
  28826. tmpDisplayCC
  28827. V5DOTBL=true
  28828. $HideMailHeader
  28829.     0S0E
  28830. tmpDisplayFrom_Preview
  28831. DisplayFrom
  28832. DisplayFrom_Pre
  28833. $HideMailHeader
  28834. Principal
  28835. Principal
  28836. Principal
  28837. Principal
  28838. Principal
  28839.     4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
  28840.     Gesendet von: 
  28841. FromDomain
  28842. FromDomain
  28843. FromDomain
  28844. FromDomain
  28845.     4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
  28846. FromName
  28847.     0RR1S2S6S
  28848. FromStops
  28849.     0R1S2S6S
  28850. FromName
  28851. FromStops
  28852. FromStops
  28853. FromStops
  28854.     0RR1S2S3S4S10S13S17S20SDisplaySent
  28855. tmpDisplaySent
  28856. PostedDateh
  28857. PostedDate
  28858.     4S5S10S12S
  28859. DisplayDateDatum/Uhrzeit, zu dem das Memo erstellt oder gesendet wurde.
  28860. tmpDisplayDate_Pre
  28861. ReplyDate
  28862. ReplyTo
  28863. $HideMailHeader
  28864.     2S3S4S5S6S7S9S10S14S15R
  28865. Bitte antworten
  28866. ReplyTo
  28867. ReplyTo
  28868. ReplyDate
  28869.  bis 
  28870. ReplyDate
  28871.     1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30SDisplayReplyz
  28872. tmpDisplayReply
  28873. $HideMailHeader
  28874.     1RT2RT7RTT12RT13RT
  28875. tmpLogo
  28876. tmpLogo
  28877. StdNotesLtr16
  28878.     0RR1RT2RT3S4S6RTT11RT12RT
  28879. Image
  28880. tmpLogo
  28881. StdNotesLtr
  28882. Image
  28883. Gateway
  28884. tmpLogo
  28885. Image
  28886. StdNotesLtr16
  28887. tmpLogo
  28888.     0RR1RT2RT6RTT11RT12RTT13RTT14S15S17RTTT22RTT23RTTT24RTTT28S29S31RTTTT36RTTT40RTTT41RTT42RT
  28889.         An:    
  28890. MailAddress
  28891. NamePreference
  28892. AltSendTo
  28893. $NameLanguageTags
  28894. LanguagePreferencet
  28895. AltSendTo
  28896. SendTo
  28897.     1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
  28898. MailAddress
  28899. EnterSendTo
  28900.     0S0E
  28901. EnterSendToListe der Personen, an die das Memo (Original) gesendet werden soll
  28902.         Kopie:    
  28903. MailAddress
  28904. NamePreference
  28905. AltCopyTo
  28906. $NameLanguageTags
  28907. LanguagePreferencet
  28908. AltCopyTo
  28909. CopyTo
  28910.     1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
  28911. MailAddress
  28912. EnterCopyTo
  28913.     0S0E
  28914. EnterCopyToListe der Personen, an die eine Kopie des Memos gesendet werden soll
  28915.         Kopie:    
  28916. CC_Content
  28917. NamePreference
  28918. AltCopyTo
  28919. $NameLanguageTags
  28920. LanguagePreferencet
  28921. AltCopyTo
  28922. CopyTo
  28923.     2S7RTTTTTTTTTTTTTT11S12S13S15S16S20S23RTTTTTTTTTTTTTTT25RTTTTTTTTTTTTTT26RTTTTTTTTTTTTTT
  28924. BCC_Content
  28925. DeliveredDate
  28926. BlindCopyTo
  28927.  (Blindkopie: 
  28928. BlindCopyTo
  28929.     0RR3RTTTTTTT5S6S7S8S9S10S12RTTTTTTTT13S14S18S20S21S23RTTTTTTT24RTTTTTTT
  28930. CC_Content
  28931. BCC_Content
  28932.     0RR3S4StmpEnterCopyTo
  28933.         Blindkopie:    
  28934. MailAddress
  28935. NamePreference
  28936. AltBlindCopyTo
  28937. $NameLanguageTags
  28938. LanguagePreferencet
  28939. AltBlindCopyTo
  28940. BlindCopyTo
  28941.     1S2RT3RTT7RTTT8RTTTT12S2E13S14S15S16S17S21S24RTTTTT26RTTTT27RTTTT29RTT30RTT
  28942. MailAddress
  28943. EnterBlindCopyTo}
  28944.     0S0E
  28945. EnterBlindCopyToListe der Personen, an die eine Blindkopie des Memos gesendet werden soll.
  28946. $LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubform
  28947.         Thema:    
  28948. SIZE=50
  28949. SubjectThema des Memos.
  28950. ISMAILSTATIONERYh
  28951.     0S0E
  28952. ReplyDate
  28953. ReplyDate
  28954. ReplyDate
  28955. Importanceh
  28956. Importance
  28957. Importance
  28958. Importance(
  28959. DeliveryReporth
  28960. DeliveryReport
  28961. DeliveryReport
  28962. DeliveryReport(
  28963. DeliveryPriorityh
  28964. DeliveryPriority
  28965. DeliveryPriority
  28966. DeliveryPriority(
  28967. UpdateProfileNote
  28968. UpdateProfileNote
  28969. UpdateProfileNote
  28970. ReturnReceipt
  28971. ReturnReceipt
  28972. ReturnReceipt
  28973. $KeepPrivateh
  28974. $KeepPrivate
  28975. $KeepPrivate(
  28976. ExpireDateh
  28977. ExpireDate
  28978. ExpireDate(
  28979. ReplyTo
  28980. ReplyTo
  28981. ReplyTo
  28982. MimeFormath
  28983. MimeFormat
  28984. MimeFormat
  28985. MimeFormat(
  28986. SMTPEncodingh
  28987. SMTPEncoding
  28988. SMTPEncoding
  28989. SMTPEncoding(
  28990. MIMEMailCharset
  28991. MIMEMailCharset
  28992. MIMEMailCharset
  28993. MIMEMailCharset
  28994. $AutoSpellh
  28995. $AutoSpell
  28996. $AutoSpell(
  28997. WebSubjecth
  28998. WebSubject(
  28999. tmpSenderTagh
  29000. tmpSenderTag
  29001. tmpSenderTag
  29002. tmpSenderTag(
  29003.     1RT3S4S6RTT8RTTT10RTTTT14S15S16S17S19RTTTTT26RTTTT27RTTTT29RTTT31RTTTT35S36S37S38S39S40S41S42S43S46RTTTTT53RTTTT54RTTTT56RTTT58RTTTT62S63S65S66S67S68S69S70S73RTTTTT80RTTTT81RTTTT83RTTT85RTTTT89S90S92S93S94S95S96S97S100RTTTTT107RTTTT108RTTTT110RTTT112RTTTT116S117S118S119S121RTTTTT128RTTTT129RTTTT131RTTT133RTTTT137S138S139S140S142RTTTTT149RTTTT150RTTTT152RTTT154RTTTT158S159S160S161S163RTTTTT170RTTTT171RTTTT173RTTT175RTTTT179S180S181S182S184RTTTTT191RTTTT192RTTTT194RTTT196RTTTT200S201S202S203S205RTTTTT212RTTTT213RTTTT215RTTT217RTTTT221S222S224S225S226S227S228S229S232RTTTTT239RTTTT240RTTTT242RTTT244RTTTT248S249S251S252S253S254S255S256S259RTTTTT266RTTTT267RTTTT269RTTT271RTTTT275S276S278S279S280S281S282S283S286RTTTTT293RTTTT294RTTTT296RTTT298RTTTT302S303S304S305S307RTTTTT314RTTTT315RTTTT317RRTTT319RTTT323S324S328RTTTTT335RTTTT336RTTTT338RTTT340RTTTT344S345S347S348S349S350S2E352S355RTTTTT362RTTTT363RTTTT364RTT366RT367RT
  29004. RemoveNoteItems
  29005. tmpUseOLE
  29006.     1S2S
  29007. OLEBodyText der Nachricht
  29008. OLEBody
  29009. tmpUseOLE
  29010.     1S2S
  29011. BodyText der Nachrichtz
  29012. Schlie
  29013. SaveOptions
  29014. SaveOptions
  29015. MailOptions
  29016. MailOptions
  29017.     0R1S
  29018. SaveOptions
  29019. MailOptions
  29020. act_discardchanges.GIF|act_CSDISCARD
  29021. In Ordner _verschieben...
  29022. Speichern und ablegene
  29023. MEMO_DRAFT_FILE
  29024.     0S0E
  29025. ActionInProgress
  29026. MEMO_DRAFT_FILE
  29027.     0R1S
  29028. PostedDateh
  29029. IsMailStationery
  29030.     7S8S9S10S13S14S15S16S
  29031. act_FOLDER.GIF|act_FOLDER?
  29032. _Weiterleitenh
  29033. Aus Ordner _entfernen...
  29034. _Kategorisieren
  29035. Senden
  29036. nderungen verwerfen
  29037. MEMO_CANCEL
  29038. 4194304
  29039.     0S0E
  29040. ActionInProgress
  29041. MEMO_CANCEL
  29042.     0R1S
  29043. IsMailStationery
  29044.     1S2S3S
  29045. Speichern und schlie
  29046. MEMO_DRAFT
  29047.     0S0E
  29048. ActionInProgress
  29049. MEMO_DRAFT
  29050.     0R1S
  29051. PostedDateh
  29052. IsMailStationery
  29053.     7S8S9S10S13S14S15S16S
  29054. act_save.GIF|act_CSSAVE?
  29055. Schlie
  29056. MEMO_CANCEL
  29057. 4194304
  29058.     0S0E
  29059. ActionInProgress
  29060. MEMO_CANCEL
  29061.     0R1S
  29062. IsMailStationery
  29063.     0S1S2S
  29064. Weiterleiten 
  29065.     0S0E
  29066. ISMAILSTATIONERY
  29067.     1S2S
  29068. act_FORWARD.GIF|act_FORWARD?
  29069. Neues Memo(
  29070.     0S0E
  29071. act_NEWMEMO.GIF|act_NEWMEMO?
  29072. Antwort\AntwortS0
  29073. Reply
  29074.     0S0E
  29075. act_REPLY.GIF|act_REPLY?
  29076. Antwort\Antwort mit Protokoll
  29077. Antwort mit Protokoll
  29078. Dieses Dokument ist nicht vollst
  29079. ndig.
  29080.     4S8S10S13S
  29081. Reply with history
  29082. act_REPLY.GIF|act_REPLY?
  29083. Antwort\Allen antwortenFX
  29084. MailStEd
  29085.     0S0E
  29086. Reply
  29087. act_REPLY.GIF|act_REPLY?
  29088. Antwort\Allen antworten (mit Protokoll)
  29089. MailStEd
  29090.     0S0E
  29091. Antwort mit Protokoll
  29092. Dieses Dokument ist nicht vollst
  29093. ndig.
  29094.     0R4S8S10S13S
  29095. Reply with history
  29096. act_REPLY.GIF|act_REPLY?
  29097. Dokument bearbeiten
  29098.     0S1S2S
  29099. Senden
  29100. MEMO_SEND
  29101.     0S0E
  29102. ActionInProgress
  29103. MEMO_SEND
  29104.     0R1S
  29105. PostedDateh
  29106. IsMailStationery
  29107.     5S6S7S8S10S11S12S13S
  29108. act_SEND.GIF|act_SEND?
  29109. Senden und ablegen
  29110. MEMO_SEND_FILE
  29111.     0S0E
  29112. ActionInProgress
  29113. MEMO_SEND_FILE
  29114.     0R1S
  29115. PostedDateh
  29116. IsMailStationery
  29117.     5S6S7S8S12S13S
  29118. act_SENDFILE|act_SENDFILE?
  29119. Speichern_
  29120. MEMO_STATIONERYSAVE
  29121.     0S0E
  29122. ActionInProgress
  29123. MEMO_STATIONERYSAVE
  29124.     0R1S
  29125. IsMailStationery
  29126.     2S3S
  29127. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  29128. Als Entwurf speichern
  29129. MEMO_DRAFT
  29130.     0S0E
  29131. ActionInProgress
  29132. MEMO_DRAFT
  29133.     0R1S
  29134. PostedDateh
  29135. IsMailStationery
  29136.     5S6S7S8S10S11S12S13S
  29137. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  29138. Antwort\Absender antworten'++LotusScript Development Environment:2:5:(Options):0:66
  29139. '++LotusScript Development Environment:2:5:(Forward):0:1
  29140. Declare Sub Click(Source As Button)
  29141. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29142. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29143. Private Sub BindEvents(Byval Objectname_ As String)
  29144.     Static Source As BUTTON
  29145.     Set Source = Bind(Objectname_)
  29146.     On Event Click From Source Call Click
  29147. End Sub
  29148. '++LotusScript Development Environment:2:2:Click:1:12
  29149. Sub Click(Source As Button)
  29150.     Call cMemoObject.ReplyToSender()
  29151. End Sub
  29152. act_REPLY.GIF|act_REPLY?
  29153. Antwort\Allen antworten
  29154. '++LotusScript Development Environment:2:5:(Options):0:66
  29155. '++LotusScript Development Environment:2:5:(Forward):0:1
  29156. Declare Sub Click(Source As Button)
  29157. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29158. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29159. Private Sub BindEvents(Byval Objectname_ As String)
  29160.     Static Source As BUTTON
  29161.     Set Source = Bind(Objectname_)
  29162.     On Event Click From Source Call Click
  29163. End Sub
  29164. '++LotusScript Development Environment:2:2:Click:1:12
  29165. Sub Click(Source As Button)
  29166.     Call cMemoObject.ReplyToAll()
  29167. End Sub
  29168. act_REPLY.GIF|act_REPLY?
  29169. Adresse...T
  29170. EnterSendTo
  29171. EnterCopyTo
  29172. EnterBlindCopyTo
  29173.     0S0E
  29174. PostedDateh
  29175. IsMailStationery
  29176.     5S6S7S8S10S11S12S13S
  29177. act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
  29178. Ordner\Ordner erstellen
  29179.     0S0E
  29180. act_FOLDER.GIF|act_FOLDER?
  29181. Ordner\In Ordner verschieben...e 
  29182.     0S0E
  29183. act_FOLDER.GIF|act_FOLDER?
  29184. Ordner\Aus Ordner entfernen
  29185.     0S0E
  29186. act_FOLDER.GIF|act_FOLDER?
  29187. Zustelloptionen...
  29188. $KeepPrivate
  29189. $KeepPrivate
  29190. $KeepPrivate
  29191. $KeepPrivate
  29192. DeliveryOptions
  29193. Zustelloptionen
  29194.     0R4S10S
  29195. PostedDateh
  29196.     5S6S7S8S
  29197. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  29198. Werkzeuge\Vorgaben...2R
  29199. DialogMode
  29200. (Preferences)
  29201. act_TOOLS.GIF|act_TOOLS?
  29202. Werkzeuge\Zustellinformationen...a
  29203. xxTitle
  29204. Zustellinformationen
  29205.     0S0E
  29206. DeliveryInfo
  29207. xxTitle
  29208.     0RR4S5S6S7S8S9S10S11S12S14S
  29209. act_TOOLS.GIF|act_TOOLS?
  29210. Werkzeuge\Abwesenheit...8
  29211. (EditOfficeProfile)
  29212.     0S0E
  29213. act_TOOLS.GIF|act_TOOLS?
  29214. Werkzeuge\Absender in Adre
  29215. buch aufnehmen
  29216. (AddSenderToAddressBook)
  29217.     0S0E
  29218. act_TOOLS.GIF|act_TOOLS?
  29219. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  29220. '++LotusScript Development Environment:2:5:(Forward):0:1
  29221. Declare Sub Click(Source As Button)
  29222. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29223. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29224. Private Sub BindEvents(Byval Objectname_ As String)
  29225.     Static Source As BUTTON
  29226.     Set Source = Bind(Objectname_)
  29227.     On Event Click From Source Call Click
  29228. End Sub
  29229. '++LotusScript Development Environment:2:2:Click:1:12
  29230. Sub Click(Source As Button)
  29231.     Dim session As New notessession
  29232.     Dim uiws As New notesuiworkspace
  29233.     Dim collection As notesdocumentcollection
  29234.     Dim noteUIEditDocument As notesuidocument
  29235.     Dim database As NotesDatabase
  29236.     Set noteCursorDoc = session.currentdatabase.createdocument
  29237.     Set database = session.currentdatabase
  29238.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  29239. hlen", "W
  29240. hlen Sie bitte eine Vorlage f
  29241. r das neue Memo.")
  29242.     Set noteCursorDoc = collection.getfirstdocument
  29243.     If Not noteCursorDoc Is Nothing Then
  29244.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  29245.     End If
  29246. End Sub
  29247. act_TOOLS.GIF|act_TOOLS?
  29248. Schlie
  29249. SaveOptions
  29250. SaveOptions
  29251. MailOptions
  29252. MailOptions
  29253.     0R1S
  29254. SaveOptions
  29255. MailOptions
  29256. In Ordner _verschieben...
  29257. Speichern und ablegen
  29258. MEMO_DRAFT_FILE
  29259.     0S0E
  29260. ActionInProgress
  29261. MEMO_DRAFT_FILE
  29262.     0R1S
  29263. PostedDateh
  29264. IsMailStationery
  29265.     7S8S9S10S13S14S15S16S
  29266. _Weiterleiten
  29267. Aus Ordner _entfernen...
  29268. _Kategorisierent
  29269. Senden
  29270. nderungen verwerfen
  29271. MEMO_CANCEL
  29272. 4194304
  29273.     0S0E
  29274. ActionInProgress
  29275. MEMO_CANCEL
  29276.     0R1S
  29277. IsMailStationery
  29278.     1S2S3S
  29279. Speichern und schlie
  29280. MEMO_DRAFT
  29281.     0S0E
  29282. ActionInProgress
  29283. MEMO_DRAFT
  29284.     0R1S
  29285. PostedDateh
  29286. IsMailStationery
  29287.     7S8S9S10S13S14S15S16S
  29288. Schlie
  29289. MEMO_CANCEL
  29290. 4194304
  29291.     0S0E
  29292. ActionInProgress
  29293. MEMO_CANCEL
  29294.     0R1S
  29295. IsMailStationery
  29296.     0S1S2S
  29297. Weiterleiten 
  29298.     0S0E
  29299. ISMAILSTATIONERY
  29300.     1S2S
  29301. Neues Memo(
  29302.     0S0E
  29303. Antwort\Antwort
  29304. Reply
  29305.     0S0E
  29306. Antwort\Antwort mit Protokoll
  29307. Antwort mit Protokoll
  29308. Dieses Dokument ist nicht vollst
  29309. ndig.
  29310.     4S8S10S13S
  29311. Reply with history
  29312. Antwort\Allen antworten
  29313. MailStEd
  29314.     0S0E
  29315. Reply
  29316. Antwort\Allen antworten (mit Protokoll)
  29317. MailStEd
  29318.     0S0E
  29319. Antwort mit Protokoll
  29320. Dieses Dokument ist nicht vollst
  29321. ndig.
  29322.     0R4S8S10S13S
  29323. Reply with history
  29324. Dokument bearbeiten@
  29325.     0S1S2S
  29326. Senden
  29327. MEMO_SEND
  29328.     0S0E
  29329. ActionInProgress
  29330. MEMO_SEND
  29331.     0R1S
  29332. PostedDateh
  29333. IsMailStationery
  29334.     5S6S7S8S10S11S12S13S
  29335. Senden und ablegen
  29336. MEMO_SEND_FILE
  29337.     0S0E
  29338. ActionInProgress
  29339. MEMO_SEND_FILE
  29340.     0R1S
  29341. PostedDateh
  29342. IsMailStationery
  29343.     5S6S7S8S12S13S
  29344. Speicherne
  29345. MEMO_STATIONERYSAVE
  29346.     0S0E
  29347. ActionInProgress
  29348. MEMO_STATIONERYSAVE
  29349.     0R1S
  29350. IsMailStationery
  29351.     2S3S
  29352. Als Entwurf speichern
  29353. MEMO_DRAFT
  29354.     0S0E
  29355. ActionInProgress
  29356. MEMO_DRAFT
  29357.     0R1S
  29358. PostedDateh
  29359. IsMailStationery
  29360.     5S6S7S8S10S11S12S13S
  29361. Antwort\Absender antworten'++LotusScript Development Environment:2:5:(Options):0:66
  29362. '++LotusScript Development Environment:2:5:(Forward):0:1
  29363. Declare Sub Click(Source As Button)
  29364. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29365. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29366. Private Sub BindEvents(Byval Objectname_ As String)
  29367.     Static Source As BUTTON
  29368.     Set Source = Bind(Objectname_)
  29369.     On Event Click From Source Call Click
  29370. End Sub
  29371. '++LotusScript Development Environment:2:2:Click:1:12
  29372. Sub Click(Source As Button)
  29373.     Call cMemoObject.ReplyToSender()
  29374. End Sub
  29375. Antwort\Allen antworten
  29376. '++LotusScript Development Environment:2:5:(Options):0:66
  29377. '++LotusScript Development Environment:2:5:(Forward):0:1
  29378. Declare Sub Click(Source As Button)
  29379. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29380. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29381. Private Sub BindEvents(Byval Objectname_ As String)
  29382.     Static Source As BUTTON
  29383.     Set Source = Bind(Objectname_)
  29384.     On Event Click From Source Call Click
  29385. End Sub
  29386. '++LotusScript Development Environment:2:2:Click:1:12
  29387. Sub Click(Source As Button)
  29388.     Call cMemoObject.ReplyToAll()
  29389. End Sub
  29390. Adresse...T
  29391. EnterSendTo
  29392. EnterCopyTo
  29393. EnterBlindCopyTo
  29394.     0S0E
  29395. PostedDateh
  29396. IsMailStationery
  29397.     5S6S7S8S10S11S12S13S
  29398. Ordner\Ordner erstellena 
  29399.     0S0E
  29400. Ordner\In Ordner verschieben.... 
  29401.     0S0E
  29402. Ordner\Aus Ordner entfernen
  29403.     0S0E
  29404. Zustelloptionen...
  29405. $KeepPrivate
  29406. $KeepPrivate
  29407. $KeepPrivate
  29408. $KeepPrivate
  29409. DeliveryOptions
  29410. Zustelloptionen
  29411.     0R4S10S
  29412. PostedDateh
  29413.     5S6S7S8S
  29414. Werkzeuge\Vorgaben...nR
  29415. DialogMode
  29416. (Preferences)
  29417. Werkzeuge\Zustellinformationen...E
  29418. xxTitle
  29419. Zustellinformationen
  29420.     0S0E
  29421. DeliveryInfo
  29422. xxTitle
  29423.     0RR4S5S6S7S8S9S10S11S12S14S
  29424. Werkzeuge\Abwesenheit...8
  29425. (EditOfficeProfile)
  29426.     0S0E
  29427. Werkzeuge\Absender in Adre
  29428. buch aufnehmenl<
  29429. (AddSenderToAddressBook)
  29430.     0S0E
  29431. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  29432. '++LotusScript Development Environment:2:5:(Forward):0:1
  29433. Declare Sub Click(Source As Button)
  29434. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29435. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29436. Private Sub BindEvents(Byval Objectname_ As String)
  29437.     Static Source As BUTTON
  29438.     Set Source = Bind(Objectname_)
  29439.     On Event Click From Source Call Click
  29440. End Sub
  29441. '++LotusScript Development Environment:2:2:Click:1:12
  29442. Sub Click(Source As Button)
  29443.     Dim session As New notessession
  29444.     Dim uiws As New notesuiworkspace
  29445.     Dim collection As notesdocumentcollection
  29446.     Dim noteUIEditDocument As notesuidocument
  29447.     Dim database As NotesDatabase
  29448.     Set noteCursorDoc = session.currentdatabase.createdocument
  29449.     Set database = session.currentdatabase
  29450.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  29451. hlen", "W
  29452. hlen Sie bitte eine Vorlage f
  29453. r das neue Memo.")
  29454.     Set noteCursorDoc = collection.getfirstdocument
  29455.     If Not noteCursorDoc Is Nothing Then
  29456.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  29457.     End If
  29458. End Sub
  29459. Lotus Product
  29460. OBJECT
  29461. O=Lotus Notes
  29462. O=Lotus Notes
  29463. PURSAFO
  29464. |.:#U
  29465. O=Lotus Notes
  29466. CN=Lotus Notes Template Development/O=Lotus Notes
  29467. PURSAFO
  29468. q\hda
  29469. R aeZ
  29470. $$FormPostOpenAction
  29471. $TypeIcon
  29472. ExpireDate
  29473. ReplyDate
  29474. ComposedDate
  29475. $Language
  29476. $LastBuildTime
  29477. $BabelInfo
  29478. $BackgroundR5
  29479. $HeaderArea
  29480. $RegionFrameset
  29481. $Info
  29482. $SubForms
  29483. $WINDOWTITLE
  29484. $Script
  29485. $$Script_O
  29486. $$ScriptName
  29487. $$FormScript
  29488. $$$FormScript_O
  29489. $Body
  29490. $V5ACTIONS
  29491. $ACTIONS
  29492. $SCRIPTOBJ_32
  29493. (GroupCalendarOptions)
  29494.     Um:X
  29495.     Dauer:
  29496. StartTime
  29497. StartTime
  29498.     3S4S6S
  29499. StartTimeX
  29500. DurationSel
  29501. 1|12|23|34|45|56|67|78|89|910|1011|1112|12X
  29502.     Std.
  29503. O=Lotus Notes
  29504. O=Lotus Notes
  29505. PURSAFO
  29506. |.:#U
  29507. O=Lotus Notes
  29508. CN=Lotus Notes Template Development/O=Lotus Notes
  29509. PURSAFO
  29510. 0Ov,r)@R
  29511. StartDate
  29512. $Info
  29513. $$ScriptName
  29514. StartTime
  29515. $Body
  29516. $Language
  29517. $LastBuildTime
  29518. $BabelInfo
  29519. &Arial
  29520. Lotus Product
  29521. OBJECT
  29522.  DeliveryInfo
  29523.     Gesendet vonx
  29524. bg_DIALOGBAND|bg_DIALOGBANDX
  29525. FromDomain
  29526. FromDomain"
  29527.     6S7S10S11S13S15S16S17S
  29528. tmpFromInfoX
  29529.     Zustell- und RoutinginformationenXx
  29530. bg_DIALOGBAND|bg_DIALOGBANDX
  29531. xxNotSent
  29532. Noch nicht gesendet
  29533.     0S0E
  29534. xxSent
  29535.  Gesendet
  29536. xxDelivered
  29537.  Zugestellt
  29538. xxAdditionalHeader
  29539. -------- Zus
  29540. tzliche Kopfzeilen  ------
  29541. xxRoutingInformation
  29542. -------- Routing-Informationen ------
  29543. xxAtServer
  29544.  an Server 
  29545. PostedDate
  29546. xxNotSent
  29547. PostedDate
  29548. D1T1V
  29549. xxSent"
  29550. DeliveredDate
  29551. DeliveredDate
  29552. D1T1V
  29553. xxDelivered
  29554. $AdditionalHeaders
  29555. xxAdditionalHeader
  29556. $AdditionalHeaders
  29557. SMTPHeaders
  29558. xxAdditionalHeader
  29559. SMTPHeaders
  29560. DeliveredDate
  29561. xxRoutingInformation
  29562. DeliveredDate
  29563. RouteTimes
  29564. D1T1V
  29565. xxAtServer"
  29566. RouteServers
  29567.     0RR2R5S6S7S8RS8E10S16S17S20R23S24S26RS8E28S34S35S38R41S42S44RS8E46S49R50S51R54S55S57RS8E59S62R63S64R67S68S70RS8E72S75R78S79S81RS7E83S91S99S2E101RS
  29568. tmpPostedDateInfoX
  29569.     ZustelloptionenXx
  29570. bg_DIALOGBAND|bg_DIALOGBANDX
  29571.     DringlichkeitXx
  29572. bg_DIALOGBAND|bg_DIALOGBANDX
  29573. tmpSignedInfo
  29574. Signiert|1X
  29575. Encrypt
  29576. tmpEncryptInfo
  29577. Verschl
  29578. sselt|1X
  29579. $KeepPrivate
  29580.     0S0E
  29581. tmpKeepPrivateInfo
  29582. Nicht weiterleiten oder kopieren oder drucken|1X
  29583. ReturnReceipt
  29584. tmpReceiptInfo
  29585. Empfangsbest
  29586. tigung wurde angefordert|1X
  29587. Importance
  29588. Importance
  29589.     3S4S
  29590. tmpImportanceInfo
  29591. Niedrig|3Normal|2Hoch|1
  29592. O=Lotus Notes
  29593. O=Lotus Notes
  29594. PURSAFO
  29595. |.:#U
  29596. O=Lotus Notes
  29597. CN=Lotus Notes Template Development/O=Lotus Notes
  29598. PURSAFO
  29599. ExpireDate
  29600. ReplyDate
  29601. $Phone_O
  29602. $Info
  29603. $$Script_O
  29604. $$ScriptName
  29605. $PublicAccess
  29606. $Body
  29607. $Language
  29608. $LastBuildTime
  29609. $BabelInfo
  29610. &Arial
  29611. Lotus Product
  29612. (GroupCalendarDlg)
  29613.     0S0E
  29614. $PublicAccessX
  29615. Outer
  29616. Outer
  29617. Table1
  29618. Table1
  29619.     Titel: X
  29620. xxDefault
  29621. -Unbenannt-
  29622.     1S2S
  29623. Subject
  29624. xxDefault
  29625. Subject
  29626.     0R2S3S4S6S8S
  29627. SubjectX
  29628.     Mitglieder:X
  29629. MembersX
  29630. Action
  29631. ViewNow
  29632.     1S2S3S
  29633. Action
  29634. Cancel
  29635.     1S2S3S
  29636.       Abbrechen  X
  29637. O=Lotus Notes
  29638. O=Lotus Notes
  29639. PURSAFO
  29640. |.:#U
  29641. O=Lotus Notes
  29642. CN=Lotus Notes Template Development/O=Lotus Notes
  29643. PURSAFO
  29644. $Info
  29645. $$Script_O
  29646. $$ScriptName
  29647. $PublicAccess
  29648. $$FormAction2
  29649. $Body
  29650. $Language
  29651. $LastBuildTime
  29652. $BabelInfo
  29653. FComic Sans MS
  29654. '++LotusScript Development Environment:2:5:(Options):0:66
  29655. Option Public
  29656. '++LotusScript Development Environment:2:5:(Forward):0:1
  29657. Declare Class INIPreference
  29658. '++LotusScript Development Environment:2:5:(Declarations):0:10
  29659. Dim SecurityPreferences As INIPreference
  29660. Class INIPreference
  29661.     Private session As notessession
  29662.     Private note As notesdocument
  29663.     Private lngCurrentINISettings As Long
  29664.     Private nINISignSentMail As Integer
  29665.     Private nINIEncryptSentMail As Integer
  29666.     Private nINIEncryptSavedMail As Integer
  29667.     Private nUpdateINI As Integer    
  29668.     Private SIGN_SENT_MAIL As Long
  29669.     Private ENCRYPT_SENT_MAIL As Long
  29670.     Private ENCRYPT_SAVED_MAIL As Long
  29671. Declare Public Function Close()
  29672.     Sub New(hNote As notesdocument)
  29673.         Set Me.session = New notessession
  29674.         Set Me.note = hNote
  29675.         Me.SIGN_SENT_MAIL             = &h1000&        ' 4096
  29676.         Me.ENCRYPT_SENT_MAIL     = &h2000&        '  8192
  29677.         Me.ENCRYPT_SAVED_MAIL     = &h100000&    ' 1048576
  29678.         Me.lngCurrentINISettings = Me.session.Getenvironmentvalue("Preferences", True)
  29679.         If Me.lngCurrentINISettings And Me.SIGN_SENT_MAIL Then
  29680.             Me.nINISignSentMail = 1
  29681.         Else
  29682.             Me.nINISignSentMail = 0
  29683.         End If
  29684.         If Me.lngCurrentINISettings And Me.ENCRYPT_SENT_MAIL Then
  29685.             Me.nINIEncryptSentMail = 1
  29686.         Else
  29687.             Me.nINIEncryptSentMail = 0
  29688.         End If
  29689.         If Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL Then
  29690.             Me.nINIEncryptSavedMail = 1
  29691.         Else        
  29692.             Me.nINIEncryptSavedMail = 0
  29693.         End If
  29694.     End Sub    
  29695.     Public Function Close()
  29696.         If Val(Me.note.getitemvalue("Sign")(0)) <> Me.nINISignSentMail Then
  29697.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.SIGN_SENT_MAIL
  29698.             Me.nUpdateINI = True    
  29699.         End If
  29700.         If Val(Me.note.getitemvalue("Encrypt")(0)) <> Me.nINIEncryptSentMail Then    
  29701.             Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SENT_MAIL
  29702.             Me.nUpdateINI = True        
  29703.             If Val(Me.note.getitemvalue("Encrypt")(0)) = 1 Then
  29704.                 If Not (Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL) = Me.ENCRYPT_SAVED_MAIL Then
  29705.                     Me.lngCurrentINISettings = Me.lngCurrentINISettings Or Me.ENCRYPT_SAVED_MAIL
  29706.                 End If
  29707.             Else
  29708.                 Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SAVED_MAIL
  29709.             End If                
  29710.         End If
  29711.         If Me.nUpdateINI Then    
  29712.             Call Me.session.setenvironmentvar("Preferences", Cstr(Me.lngCurrentINISettings),True)
  29713.         End If
  29714.     End Function
  29715. End Class    
  29716. Lotus Product
  29717.  DeliveryOptions'++LotusScript Development Environment:2:5:(Options):0:66
  29718. '++LotusScript Development Environment:2:5:(Forward):0:1
  29719. Declare Sub Initialize
  29720. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  29721. Declare Sub Postopen(Source As Notesuidocument)
  29722. '++LotusScript Development Environment:2:5:(Declarations):0:2
  29723. '++LotusScript Development Environment:2:2:BindEvents:1:129
  29724. Private Sub BindEvents(Byval Objectname_ As String)
  29725.     Static Source As NOTESUIDOCUMENT
  29726.     Set Source = Bind(Objectname_)
  29727.     On Event Queryclose From Source Call Queryclose
  29728.     On Event Postopen From Source Call Postopen
  29729. End Sub
  29730. '++LotusScript Development Environment:2:2:Initialize:1:10
  29731. Sub Initialize
  29732. End Sub
  29733. '++LotusScript Development Environment:2:2:Queryclose:1:12
  29734. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  29735.     If Not Source.DialogBoxCanceled Then
  29736.         If Source.Document.UpdateProfileNote(0) = "1"  Then
  29737.             Call SecurityPreferences.Close()
  29738.         End If
  29739.         With Source.Document
  29740.             Select Case .SenderTag(0)
  29741.             Case "P"
  29742.                 Call .ReplaceItemValue("_ViewIcon",    170)
  29743.             Case "C"
  29744.                 Call .ReplaceItemValue("_ViewIcon",    169)
  29745.             Case "R"
  29746.                 Call .ReplaceItemValue("_ViewIcon",    163)                
  29747.             Case "T"
  29748.                 Call .ReplaceItemValue("_ViewIcon",    85)
  29749.             Case "F"
  29750.                 Call .ReplaceItemValue("_ViewIcon",    74)
  29751.             Case"G"
  29752.                 Call .ReplaceItemValue("_ViewIcon",    159)
  29753.             Case "J"
  29754.                 Call .ReplaceItemValue("_ViewIcon",    166)
  29755.             Case "Y"
  29756.                 Call .ReplaceItemValue("_ViewIcon",    23)
  29757.             Case "Q"
  29758.                 Call .ReplaceItemValue("_ViewIcon",    162)
  29759.             Case "M"
  29760.                 Call .ReplaceItemValue("_ViewIcon",    10)
  29761.             Case "N"
  29762.                 Call .RemoveItem("_ViewIcon")
  29763.             Case Else
  29764.                 Call .RemoveItem("_ViewIcon")
  29765.                 Call .RemoveItem("SenderTag")
  29766.             End Select
  29767.         End With
  29768.     End If
  29769. End Sub
  29770. '++LotusScript Development Environment:2:2:Postopen:1:12
  29771. Sub Postopen(Source As Notesuidocument)
  29772.     Set SecurityPreferences = New INIPreference(Source.document)
  29773. End Sub
  29774. Lotus Product
  29775. tmpSenderTag
  29776. tmpSenderTag
  29777.     0S0E
  29778. $Moodsz
  29779. $Moods
  29780.     Zustelloptionen
  29781. bg_DIALOGBAND|bg_DIALOGBAND
  29782.     Dringlichkeit:
  29783. Importance
  29784. Niedrig|3Normal|2Hoch|1
  29785. Importance
  29786. ReturnReceipt
  29787. Empfangsbest
  29788. tigung|1z
  29789. ReturnReceipt
  29790.     Zustellungsbericht:
  29791. DeliveryReport
  29792. Kein|NNur bei Fehler|BZustellung best
  29793. tigen|CGesamten Pfad aufzeichnen|Tz
  29794. DeliveryReport
  29795. $KeepPrivate
  29796. Keine Kopie zulassen|1z
  29797. $KeepPrivate
  29798.     Zustellungspriorit
  29799. DeliveryPriority
  29800. Niedrig|LNormal|NHoch|H
  29801. DeliveryPriority
  29802. $AutoSpell
  29803. Autom. Rechtschreibpr
  29804. fung|1
  29805.     Sicherheitsoptionen
  29806. bg_DIALOGBAND|bg_DIALOGBAND
  29807. (`+0.
  29808.     Modus
  29809. bg_DIALOGBAND|bg_DIALOGBAND
  29810.     0S0E
  29811. Signieren|1
  29812. Encrypt
  29813. Encrypt
  29814. Encrypt
  29815.     0S0E
  29816. Encrypt
  29817. Verschl
  29818. sseln|1z
  29819. Encrypt
  29820. UpdateProfileNote
  29821. UpdateProfileNote
  29822. Diese Optionen als Vorgabe f
  29823. nftige Nachrichten speichern|1z
  29824. UpdateProfileNote
  29825. SenderTag
  29826. SenderTag
  29827.     0S0E
  29828. tmpSenderTag
  29829. Normal|NPers
  29830. nlich|PVertraulich|CPrivat|RVielen Dank!|TFlamme|FGut gemacht!|GWitz|JZur Kenntnis|YFrage|QErinnerung|Mz
  29831. SenderTag
  29832. Moods
  29833. SenderTag
  29834.     0S0E
  29835. @___@
  29836. <a>7`^
  29837. `!bb!R
  29838. SenderTag
  29839.     0S0E
  29840. @___@
  29841. <a>7`^
  29842. `!bb!R
  29843. SenderTag
  29844.     0S0E
  29845. @___@
  29846. <a>7`^
  29847. `!bb!R
  29848. SenderTag
  29849.     0S0E
  29850. @___@
  29851. <a>7`^
  29852. `!bb!R
  29853. SenderTag
  29854.     0S0E
  29855. @___@
  29856. <a>7`^
  29857. `!bb!R
  29858. SenderTag
  29859.     0S0E
  29860. %12-/H
  29861. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  29862. WC9iB.xC-iF8wH8jT>zR<rd?
  29863. 2L3;FK=Dj=C:FQ8Qp<b
  29864. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  29865. SenderTag
  29866.     0S0E
  29867. SenderTag
  29868.     0S0E
  29869. @___@
  29870. <a>7`^
  29871. `!bb!R
  29872. SenderTag
  29873.     0S0E
  29874. SenderTag
  29875.     0S0E
  29876. Allgemein
  29877.     Workflow-Administationx
  29878. bg_DIALOGBAND|bg_DIALOGBAND
  29879.     Nachricht mit 'Bitte antworten bis'-Datum versehen:
  29880. gt Nachrichten der Aufgabenliste des Empf
  29881. ngers hinzu)
  29882. .,$ //:
  29883. DueDateTime
  29884. DueDateTime
  29885. ReplyDate
  29886. DueDateTime
  29887. ReplyDate
  29888. ReplyDate
  29889. DueDateTime
  29890.     0RR1RT3S6RTT8RTTT15RTTT16RTT18RT27RT
  29891. ReplyDate
  29892. ReplyDate
  29893.     Ablaufdatum (danach kann dieses Dokument archiviert oder gel
  29894. scht werden)
  29895. .,$ //:
  29896. ExpireDatez
  29897. ExpireDate
  29898.     Antworten auf dieses Memo senden an:
  29899. ReplyTo
  29900. ReplyTo
  29901.     Format f
  29902. r Internet-Mail-Nachrichtenx
  29903. bg_DIALOGBAND|bg_DIALOGBAND
  29904.     MIME-Zeichensatz: 
  29905. MIMEMailCharset
  29906.     0S0E
  29907.     Kodierung f
  29908. r Anh
  29909. SMTPEncoding
  29910. Standardeinstellung des Administrators 
  29911. bernehmen|0MIME (Base64)|BQuoted Printable|QUUencode|U
  29912. MailFormat
  29913. Dieses Notes Dokument an andere Notes Mail-Benutzer 
  29914. ber das Internet senden|E
  29915. Erweitert
  29916. tmpSenderTag
  29917. SenderTag
  29918. O=Lotus Notes
  29919. O=Lotus Notes
  29920. PURSAFO
  29921. |.:#U
  29922. O=Lotus Notes
  29923. CN=Lotus Notes Template Development/O=Lotus Notes
  29924. PURSAFO
  29925. ,43/s;1
  29926. DueDateTime
  29927. $Language
  29928. $LastBuildTime
  29929. $BabelInfo
  29930. $Info
  29931. $Script
  29932. $$Script_O
  29933. $$ScriptName
  29934. $$FormScript
  29935. $$$FormScript_O
  29936. ReplyDate
  29937. ExpireDate
  29938. $Body
  29939. $PublicAccess
  29940. &Arial
  29941. Lotus Product
  29942.  (ListResource)
  29943. ServerName
  29944. ServerName
  29945. PublicNABFileName
  29946. PublicNABFileNameX
  29947. ViewName
  29948. ViewName
  29949. tmpCategories
  29950. NoCache
  29951. ServerName
  29952. PublicNABFileName
  29953. ViewName
  29954.     1S2S5S6S8S9S10S12S14S
  29955. tmpCategories
  29956. tmpCategories
  29957. tmpCategories
  29958.     0R6S7S8S9S11S13S
  29959. CategoryChoicesX
  29960. Bild 'Feiertage importieren'
  29961. act_IMPORTHOLIDAY|act_IMPORTHOLIDAYX
  29962. ListLabel
  29963. ListLabelX
  29964. CategoryChoices
  29965.     1S2S
  29966. SelectedItems
  29967. tmpCategories
  29968. CategoryChoices
  29969.     1S2S
  29970. tmpCategories
  29971. tmpCategories
  29972. tmpCategories
  29973.     0R6S7S8S9S11S13S
  29974. O=Lotus Notes
  29975. O=Lotus Notes
  29976. PURSAFO
  29977. |.:#U
  29978. O=Lotus Notes
  29979. CN=Lotus Notes Template Development/O=Lotus Notes
  29980. PURSAFO
  29981. 6zJ\Og
  29982. $Info
  29983. $$Script_O
  29984. $$ScriptName
  29985. $Body
  29986. $Language
  29987. $LastBuildTime
  29988. $BabelInfo
  29989. Times New Roman
  29990. (InviteeReplyDlg)
  29991. '++LotusScript Development Environment:2:5:(Options):0:74
  29992. Option Public
  29993. Use "CSEventClass"
  29994. '++LotusScript Development Environment:2:5:(Forward):0:1
  29995. '++LotusScript Development Environment:2:5:(Declarations):0:10
  29996. Dim uidoc As notesuidocument
  29997. '++LotusScript Development Environment:2:5:(Options):0:66
  29998. '++LotusScript Development Environment:2:5:(Forward):0:1
  29999. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  30000. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30001. '++LotusScript Development Environment:2:2:BindEvents:1:129
  30002. Private Sub BindEvents(Byval Objectname_ As String)
  30003. Static Source As NOTESUIDOCUMENT
  30004. Set Source = Bind(Objectname_)
  30005. On Event Queryopen From Source Call Queryopen
  30006. End Sub
  30007. '++LotusScript Development Environment:2:2:Queryopen:1:12
  30008. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  30009.     Set uidoc = source
  30010.     Set note = source.document
  30011. End Sub
  30012. '++LotusScript Development Environment:2:5:(Options):0:66
  30013. '++LotusScript Development Environment:2:5:(Forward):0:1
  30014. Declare Sub Entering(Source As Field)
  30015. Declare Sub Exiting(Source As Field)
  30016. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30017. '++LotusScript Development Environment:2:2:BindEvents:1:129
  30018. Private Sub BindEvents(Byval Objectname_ As String)
  30019.     Static Source As FIELD
  30020.     Set Source = Bind(Objectname_)
  30021.     On Event Entering From Source Call Entering
  30022.     On Event Exiting From Source Call Exiting
  30023. End Sub
  30024. '++LotusScript Development Environment:2:2:Entering:1:12
  30025. Sub Entering(Source As Field)
  30026.     Call AutoAdjustWindowEntering( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
  30027. End Sub
  30028. '++LotusScript Development Environment:2:2:Exiting:1:12
  30029. Sub Exiting(Source As Field)
  30030.     Call AutoAdjustWindowExiting( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
  30031. End Sub
  30032. '++LotusScript Development Environment:2:5:(Options):0:66
  30033. '++LotusScript Development Environment:2:5:(Forward):0:1
  30034. Declare Sub Entering(Source As Field)
  30035. Declare Sub Exiting(Source As Field)
  30036. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30037. '++LotusScript Development Environment:2:2:BindEvents:1:129
  30038. Private Sub BindEvents(Byval Objectname_ As String)
  30039.     Static Source As FIELD
  30040.     Set Source = Bind(Objectname_)
  30041.     On Event Entering From Source Call Entering
  30042.     On Event Exiting From Source Call Exiting
  30043. End Sub
  30044. '++LotusScript Development Environment:2:2:Entering:1:12
  30045. Sub Entering(Source As Field)
  30046.     Call AutoAdjustWindowEntering( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
  30047. End Sub
  30048. '++LotusScript Development Environment:2:2:Exiting:1:12
  30049. Sub Exiting(Source As Field)
  30050.     Call AutoAdjustWindowExiting( uidoc, "NewStartDate", "NewStartTime", "NewEndDate", "NewEndTime")
  30051. End Sub
  30052. type=hidden
  30053. PartialName
  30054. Query_String
  30055. &ActionType=`
  30056.     1S2S
  30057. PartialName
  30058. PartialName
  30059. PartialName
  30060.     0R16StmpActionTypeX
  30061. tmpFTSStartDateTimeX
  30062. tmpFTSEndDateTimeX
  30063. NoticeType
  30064.     1S2S
  30065.         Sie haben diese Anforderung bereits delegiert an 
  30066. Delegee
  30067. tmpDelegee
  30068.     .  Die Person wird eine entsprechende Nachricht 
  30069. ber ihre Status
  30070. nderung erhalten.
  30071. tmpActionType
  30072.     1S2S
  30073.     Wenn Sie diesen Besprechungsvorschlag annehmen, wird Ihr Kalender automatisch aktualisiert. 
  30074.         Sie k
  30075. nnen diesen Vorschlag vorl
  30076. ufig annehmen, ohne da
  30077.  belegte Zeit f
  30078. r den Zeitraum vermerkt wird. X
  30079. tmpPencilIn
  30080. ufig annehmen|1X
  30081. tmpActionType
  30082.     1S2S
  30083.          An wen m
  30084. chten Sie diesen Vorschlag delegieren?X
  30085. xxDelegee
  30086. Sie m
  30087. ssen den Benutzernamen der Person angeben, an die die Anforderung delegiert wird.
  30088.     1S2S
  30089. xxAlreadySent
  30090. Der Person, deren Name eingegeben wurde, ist diese Aufgabe bereits zugewiesen worden.
  30091. Die Person, deren Name eingegeben wurde, hat eine Einladung zu dieser Besprechung bereits erhalten.
  30092.     0R1S2S5S6S8S10S
  30093. Participants
  30094. AssignedTo
  30095. OptionalAssignedTo
  30096. FYIAssignedTo
  30097. RequiredAttendees
  30098. OPtionalAttendees
  30099. FYIAttendees
  30100. Chair
  30101.     0R1S2S7S8S10S16S22S23S
  30102. tmpActionType
  30103. Delegee
  30104. xxDelegee
  30105. tmpActionType
  30106. Delegee
  30107. Participants
  30108. xxAlreadySent
  30109.     0R3S4S5S6S10S11S13S21S22S23S25S35S45S50S55S58S
  30110. DelegeeX
  30111. tmpActionType
  30112. TaskG
  30113.     1S2S3S4S8S
  30114.          Wann soll die Besprechung stattfinden?
  30115. tmpActionType
  30116. TaskG
  30117.     1S2S3S4S9S
  30118.     Wann m
  30119. chten Sie diese Aufgabe erledigen?X
  30120. tmpActionType
  30121.     1S2S
  30122.     Anfangsdatum:X
  30123. .,$ //:
  30124. NewStartDAte
  30125. NewStartDate
  30126. StartDate
  30127. StartDate
  30128. StartDateTime
  30129.     3S4S6S8S9S10S12S14SNewStartDate
  30130. tmpActionType
  30131. TaskG
  30132.     1S2S3S4S
  30133.     Anfangszeit:
  30134. .,$ //:
  30135. NewStartTime
  30136. NewStartTime
  30137. StartTime
  30138. StartTime
  30139. StartDateTime
  30140.     3S4S6S8S9S10S12S14SNewStartTime
  30141.     Enddatum:X
  30142. .,$ //:
  30143. NewEndDAte
  30144. NewEndDate
  30145. EndDate
  30146. EndDate
  30147. EndDateTime
  30148.     3S4S6S8S9S10S12S14SNewEndDate
  30149.     Endezeit:X
  30150. .,$ //:
  30151. NewEndTime
  30152. NewEndTime
  30153. EndTime
  30154. EndTime
  30155. EndDateTime
  30156.     3S4S6S8S9S10S12S14SNewEndTime
  30157. tmpActionType
  30158. tmpActionType
  30159. TaskG
  30160.     1S2S3S4S5S6S7S8S12S
  30161. xxNoDelegee
  30162. Sie haben den Namen der Person, an die die Besprechungsteilnahme delegiert werden sollte, nicht eingegeben. Bitte geben Sie den Namen ein. 
  30163.     1S2S
  30164. xxTitle
  30165. ltiger Name
  30166.     0R1S2S
  30167. tmpActionType
  30168. Delegee
  30169. xxTitle
  30170. xxNoDelegee
  30171.     0R3S4S5S6S10S11S13S19S21S24S30S
  30172. RequiredList
  30173. tmpActionType
  30174. Delegee
  30175. RequiredAttendees
  30176. Chair
  30177.     0R1S2S5S6S8S10S
  30178. OptionalList
  30179. tmpActionType
  30180. OptionalAttendees
  30181.     0R1S2S5S6S8S10S
  30182. RoomList
  30183. tmpActionType
  30184.     0R1S2S5S6S8S10S
  30185. tmpFTSStartDateTime
  30186. NewStartDate
  30187. NewStartTime
  30188.     0RRR1S2S3S11S12S13S14S
  30189. tmpFTSEndDateTime
  30190. NewEndDate
  30191. NewEndTime
  30192.     0R1S2S3S11S12S13S14S
  30193. RequiredList
  30194. OptionalList
  30195. RoomList
  30196. tmpFTSStartDateTime
  30197. tmpFTSEndDateTime
  30198.     0RR20RTTT25S27S
  30199. NewStartDate
  30200. tmpFTSStartDateTime
  30201.     0R1S2S3S
  30202. NewStartTime
  30203. tmpFTSStartDateTime
  30204.     0R1S2S3S
  30205. NewEndDate
  30206. tmpFTSEndDateTime
  30207.     0R1S2S3S
  30208. NewEndTime
  30209. tmpFTSEndDateTime
  30210.     0R1S2S3S
  30211.     Suchen...X
  30212. tmpActionType
  30213.     1S2S3S4S5S
  30214.         Wenn Sie m
  30215. chten, k
  30216. nnen Sie vom Besitzer Aktualisierungs-Benachrichtigungen weiterhin erhalten.X
  30217. tmpActionType
  30218.     1S2S3S4S5S6S
  30219. tmpKeepPosted
  30220. Mich 
  30221. ber Besprechungs
  30222. nderungen auf dem laufenden halten|1
  30223. tmpHideComments
  30224.     1S2S
  30225.         Eine Nachricht wird an den Besitzer dieses Vorschlags gesendet.
  30226. tmpIncludeComments
  30227. Antwortnachricht mit Kommentaren versehen|1X
  30228. tmpActionType
  30229.     1S2S3S4S
  30230. tmpActionType
  30231.     1S2S
  30232. tmpActionType
  30233. TaskG
  30234.     1S2S3S5S6S10S
  30235.     Wenn Sie diesen Vorschlag bereits angenommen haben, werden Ihr Kalender und Ihre belegte Zeit aktualisiert. 
  30236. tmpActionType
  30237.     1S2S
  30238. Neue Schaltfl
  30239. Zum Ausf
  30240. hren dieser Schaltfl
  30241. che ist eine neuere Version von Notes erforderlich.
  30242.     0S0E
  30243. thisform = document.forms[0]
  30244. parentwnd = window.opener
  30245. parentform = parentwnd.document.forms[0]
  30246. actiontype = thisform.tmpActionType.value
  30247. if (actiontype == "A") {
  30248.     iValue = 65536;
  30249.     if (thisform.tmpPencilIn.checked) parentform.tmpPencilIn.value = thisform.tmpPencilIn.value;
  30250. else if (actiontype == "R") {
  30251.     iValue = 131072;
  30252.     if (thisform.tmpKeepPosted.checked) parentform.tmpKeepPosted.value = thisform.tmpKeepPosted.value;
  30253. else if (actiontype == "D")
  30254.     iValue = 262144
  30255.     parentform.Delegee.value = thisform.Delegee.value
  30256.     if (thisform.tmpKeepPosted.checked) parentform.tmpKeepPosted.value = thisform.tmpKeepPosted.value;
  30257. else if (actiontype == "T")
  30258.     iValue = 524288
  30259.     parentform.NewStartDate.value = thisform.NewStartDate.value
  30260.     if (thisform.Form.value!="Task") parentform.NewStartTime.value = thisform.NewStartTime.value
  30261.     parentform.NewEndDate.value = thisform.NewEndDate.value
  30262.     if (thisform.Form.value!="Task") parentform.NewEndTime.value = thisform.NewEndTime.value
  30263.     iValue = 0
  30264. parentwnd.updateActionInProgress(iValue, true)
  30265. self.close()
  30266. parentwnd.submitDocument()
  30267. Neue Schaltfl
  30268. Zum Ausf
  30269. hren dieser Schaltfl
  30270. che ist eine neuere Version von Notes erforderlich.
  30271.     0S0E
  30272. self.close()
  30273.     AbbrechenX
  30274. Lotus Product
  30275. Lotus Product
  30276. Lotus Product
  30277. Lotus Product
  30278. O=Lotus Notes
  30279. O=Lotus Notes
  30280. PURSAFO
  30281. |.:#U
  30282. O=Lotus Notes
  30283. CN=Lotus Notes Template Development/O=Lotus Notes
  30284. PURSAFO
  30285. v)@UW
  30286. $Info
  30287. $$ScriptName
  30288. tmpFTSStartDateTime
  30289. tmpFTSEndDateTime
  30290. NewStartDate
  30291. NewStartTime
  30292. NewEndDate
  30293. NewEndTime
  30294. $PublicAccess
  30295. $Script
  30296. $$FormScript
  30297. $$NewStartDate
  30298. $$NewStartTime
  30299. $Body
  30300. $$Script_O
  30301. $$$FormScript_O
  30302. $NewStartDate_O
  30303. $NewStartTime_O
  30304. $Language
  30305. $LastBuildTime
  30306. $BabelInfo
  30307. &Arial
  30308. Lotus Product
  30309. OBJECT
  30310. (SignatureOption)
  30311. '++LotusScript Development Environment:2:5:(Options):0:66
  30312. '++LotusScript Development Environment:2:5:(Forward):0:1
  30313. Declare Sub Postrecalc(Source As Notesuidocument)
  30314. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30315. '++LotusScript Development Environment:2:2:BindEvents:1:129
  30316. Private Sub BindEvents(Byval Objectname_ As String)
  30317.     Static Source As NOTESUIDOCUMENT
  30318.     Set Source = Bind(Objectname_)
  30319.     On Event Postrecalc From Source Call Postrecalc
  30320. End Sub
  30321. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  30322. Sub Postrecalc(Source As Notesuidocument)
  30323.     Dim xxWINDOW_TITLE As String
  30324.     Dim uiws As New notesuiworkspace
  30325.     Dim noteBEDoc As notesdocument
  30326.     Dim vSignatureLocation As Variant
  30327.     xxWINDOW_TITLE = "Signatur einf
  30328.     Set noteBEDoc = uiws.currentdocument.Document
  30329.     If (noteBEDoc.SignatureOption(0) = "2")_
  30330.     And (noteBEDoc.GetItemValue("Signature")(0) = "") Then
  30331.         vSignatureLocation = uiws.openfiledialog(False,xxWINDOW_TITLE,"Textdateien|*.txt|HTML-Dateien|*.htm|Bitmap-Dateien|*.BMP||","","")        
  30332.         If Isempty(vSignatureLocation) Then
  30333.             Redim vSignatureLocation(0)
  30334.         End If
  30335.         Call noteBEDoc.ReplaceItemValue("Signature",Cstr(vSignatureLocation(0)))
  30336.     End If
  30337. End Sub
  30338.     Option w
  30339. hlen:x
  30340. bg_DIALOGBAND|bg_DIALOGBANDX
  30341. SignatureOption
  30342. Aus 'Mail-Vorgabe' w
  30343. hlen|1Aus Datei importieren|2X
  30344. SignatureOption
  30345.     0S0E
  30346.     Datei:
  30347. SignatureX
  30348. SignatureOption
  30349.     0S0E
  30350. SignatureOption
  30351.     0S0E
  30352.     Sie k
  30353. nnen Ihre E-Mails 
  30354.     automatischX
  30355.     mit einer Signatur X
  30356.     versehen. Zum Konfigurieren w
  30357. hlen Sie '
  30358.     Werkzeuge - Vorgaben
  30359.     ' von einem beliebigen Ordner/einer beliebigen Ansicht Ihrer Mail-Datei.
  30360. bg_DIALOGBAND|bg_DIALOGBANDX
  30361. !GIF89a
  30362. ?_?__
  30363. `!b`1
  30364. 7`^///?
  30365. ?b___
  30366. `bOOO
  30367. `<b!R
  30368. p].\H
  30369. }DSH8a
  30370. t(AWf
  30371. SOBiH
  30372. Us)ye
  30373. NAD:a+
  30374. /~DLm\H    
  30375. 9|#Kp
  30376. {Du8WMe~\z
  30377. ;1MIW
  30378. =sEdM
  30379. qO%f\r.b
  30380. l?gBs
  30381. Uj/r2
  30382. 5f(Rw
  30383. QI(8i
  30384. wz.ay
  30385. 6[Ry'
  30386. TR48Z
  30387. &yS%V
  30388. l1O&*
  30389. =iD_)G"
  30390. _BbKq
  30391. rA7f"'
  30392. RMoaM
  30393. (DxwB"
  30394. dKx{td
  30395. N2/c5
  30396. NB?E=
  30397. &HqQo
  30398. QT(/&
  30399. YHd\A0
  30400. H_T\V
  30401. jD83YEm
  30402. PQ[W1
  30403. DS3[B
  30404. M,1#Z
  30405. A    3W@
  30406. Bild 'Signatur-Option'
  30407. Lotus Product
  30408. O=Lotus Notes
  30409. O=Lotus Notes
  30410. PURSAFO
  30411. |.:#U
  30412. O=Lotus Notes
  30413. CN=Lotus Notes Template Development/O=Lotus Notes
  30414. PURSAFO
  30415. .~Ez|
  30416. $Info
  30417. $$Script_O
  30418. $$ScriptName
  30419. $$FormScript
  30420. $Body
  30421. $$$FormScript_O
  30422. $Language
  30423. $LastBuildTime
  30424. $BabelInfo
  30425. Lotus Product
  30426. OBJECT
  30427. (ChangeRepeat)
  30428.     Sie 
  30429. ndern einen sich wiederholenden Eintrag.X
  30430.     Wie sollen diese 
  30431. nderungen auf die dazugeh
  30432. rigen Eintr
  30433. ge angewandt werden?
  30434. tmpChangeWhich
  30435. Nur dieser Eintrag|0Alle Eintr
  30436. ge|1Diesen und alle vorherigen Eintr
  30437. ge|2Diesen und alle zuk
  30438. nftigen Eintr
  30439. Neue Schaltfl
  30440. Zum Ausf
  30441. hren dieser Schaltfl
  30442. che ist eine neuere Version von Notes erforderlich.
  30443.     0S0E
  30444. thisform = document.forms[0]
  30445. parentform = window.opener.document.forms[0]
  30446. radioitem = thisform.tmpChangeWhich
  30447. for (i=0; i < radioitem.length; i++)
  30448.     if (radioitem[i].checked)
  30449.         parentform.tmpChangeWhich.value = radioitem[i].value;
  30450.         break
  30451. self.close()
  30452. parentform.submit()
  30453. Neue Schaltfl
  30454. Zum Ausf
  30455. hren dieser Schaltfl
  30456. che ist eine neuere Version von Notes erforderlich.
  30457.     0S0E
  30458. self.close()
  30459.     AbbrechenX
  30460. O=Lotus Notes
  30461. O=Lotus Notes
  30462. PURSAFO
  30463. |.:#U
  30464. O=Lotus Notes
  30465. CN=Lotus Notes Template Development/O=Lotus Notes
  30466. PURSAFO
  30467. {!A.r>
  30468. $Info
  30469. $$Script_O
  30470. $$ScriptName
  30471. $PublicAccess
  30472. $Body
  30473. $Language
  30474. $LastBuildTime
  30475. $BabelInfo
  30476. Neues Memo.
  30477.     0S0E
  30478. schenX 
  30479.     0S0E
  30480. In Ordner verschieben... 
  30481.     0S0E
  30482. _WeiterleitenX
  30483. AntwortX4
  30484. Reply
  30485.     0S0E
  30486. Antwort mit ProtokollX@
  30487. Reply with history
  30488.     0S0E
  30489. _KategorisierenX
  30490. Dokument _bearbeiten
  30491. Senden    
  30492. Erneut sendenX
  30493. NonDelivery Report
  30494. Kein Zustellungsfehlerbericht
  30495. Sie k
  30496. nnen nur Zustellungsfehlerberichte erneut senden.
  30497.     6S12S17S23S
  30498. In Aufgabe konvertierenX0
  30499. ConvertToTask
  30500. In Ordner _verschieben...X
  30501. Aus Ordner _entfernen...
  30502. Neues Memo.
  30503.     0S0E
  30504. schenX 
  30505.     0S0E
  30506. In Ordner verschieben... 
  30507.     0S0E
  30508. _WeiterleitenX
  30509. AntwortX4
  30510. Reply
  30511.     0S0E
  30512. Antwort mit ProtokollX@
  30513. Reply with history
  30514.     0S0E
  30515. _KategorisierenX
  30516. Dokument _bearbeiten
  30517. Senden    
  30518. Erneut sendenX
  30519. NonDelivery Report
  30520. Kein Zustellungsfehlerbericht
  30521. Sie k
  30522. nnen nur Zustellungsfehlerberichte erneut senden.
  30523.     6S12S17S23S
  30524. In Aufgabe konvertierenX0
  30525. ConvertToTask
  30526. In Ordner _verschieben...X
  30527. Aus Ordner _entfernen...
  30528. O=Lotus Notes
  30529. O=Lotus Notes
  30530. PURSAFO
  30531. |.:#U
  30532. O=Lotus Notes
  30533. CN=Lotus Notes Template Development/O=Lotus Notes
  30534. PURSAFO
  30535. hw~}1
  30536. $Name
  30537. $WebFlags
  30538. $HTMLDocumentStyles
  30539. $PublicAccess
  30540. $Index
  30541. $FormulaClass
  30542. $Formula
  30543. $VIEWFORMAT
  30544. $ACTIONS
  30545. $V5ACTIONS
  30546. $Language
  30547. $LastBuildTime
  30548. $BabelInfo
  30549. _WeiterleitenX
  30550. _KategorisierenX
  30551. Nachricht bearbeiten
  30552. Senden
  30553. In Ordner _verschieben...X
  30554. Aus Ordner _entfernen...
  30555. _WeiterleitenX
  30556. _KategorisierenX
  30557. Nachricht bearbeiten
  30558. Senden
  30559. In Ordner _verschieben...X
  30560. Aus Ordner _entfernen...
  30561. O=Lotus Notes
  30562. O=Lotus Notes
  30563. PURSAFO
  30564. |.:#U
  30565. O=Lotus Notes
  30566. CN=Lotus Notes Template Development/O=Lotus Notes
  30567. PURSAFO
  30568. $Index
  30569. $FormulaClass
  30570. $Formula
  30571. $VIEWFORMAT
  30572. $ACTIONS
  30573. $V5ACTIONS
  30574. $Language
  30575. $LastBuildTime
  30576. $BabelInfo
  30577. '++LotusScript Development Environment:2:5:(Options):0:74
  30578. Option Public
  30579. Use "CSEventClass"
  30580. '++LotusScript Development Environment:2:5:(Forward):0:1
  30581. '++LotusScript Development Environment:2:5:(Declarations):0:10
  30582. Dim uidoc As notesuidocument
  30583. Lotus Product
  30584. (OwnerDlg)'++LotusScript Development Environment:2:5:(Options):0:66
  30585. '++LotusScript Development Environment:2:5:(Forward):0:1
  30586. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  30587. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30588. '++LotusScript Development Environment:2:2:BindEvents:1:129
  30589. Private Sub BindEvents(Byval Objectname_ As String)
  30590. Static Source As NOTESUIDOCUMENT
  30591. Set Source = Bind(Objectname_)
  30592. On Event Queryopen From Source Call Queryopen
  30593. End Sub
  30594. '++LotusScript Development Environment:2:2:Queryopen:1:12
  30595. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  30596.     Set uidoc = source
  30597.     Set note = source.document
  30598. End Sub
  30599. Lotus Product
  30600. '++LotusScript Development Environment:2:5:(Options):0:66
  30601. '++LotusScript Development Environment:2:5:(Forward):0:1
  30602. Declare Sub Entering(Source As Field)
  30603. Declare Sub Exiting(Source As Field)
  30604. '++LotusScript Development Environment:2:5:(Declarations):0:2
  30605. '++LotusScript Development Environment:2:2:BindEvents:1:129
  30606. Private Sub BindEvents(Byval Objectname_ As String)
  30607.     Static Source As FIELD
  30608.     Set Source = Bind(Objectname_)
  30609.     On Event Entering From Source Call Entering
  30610.     On Event Exiting From Source Call Exiting
  30611. End Sub
  30612. '++LotusScript Development Environment:2:2:Entering:1:12
  30613. Sub Entering(Source As Field)
  30614.     Call AutoAdjustWindowEntering( uidoc, "StartDate", "StartTime", "EndDate", "EndTime")
  30615. End Sub
  30616. '++LotusScript Development Environment:2:2:Exiting:1:12
  30617. Sub Exiting(Source As Field)
  30618.     Call AutoAdjustWindowExiting( uidoc, "StartDate", "StartTime", "EndDate", "EndTime")
  30619. End Sub
  30620. Lotus Product
  30621. type=hidden
  30622. Notes
  30623. tmpActionType
  30624.     3S4S6S
  30625. PartialName
  30626. Query_String
  30627. &ActionType=`
  30628.     0R1S2S
  30629. PartialName
  30630. PartialName
  30631. PartialName
  30632.     0R16StmpActionType
  30633. tmpActionType
  30634.     1S2S
  30635. xxMeeting
  30636. Wann soll die Besprechung stattfinden?
  30637.     1S2S
  30638. xxTodo
  30639. Bis wann soll diese Aufgabe erledigt werden?
  30640.     0R1S2S
  30641. TaskG
  30642. xxTodo
  30643. xxMeeting
  30644.     0R6S9S11StmpHeading
  30645. tmpActionType
  30646. tmpActionType
  30647.     2S3S4S5S6S7S
  30648.     Anfangsdatum:
  30649. .,$ //:
  30650. tmpActionType
  30651. $CSVersion
  30652. NewStartDate
  30653. NewDate
  30654. NewTimeRange
  30655. StartDate
  30656.     3S4S6S13S15S23S24S25S26S
  30657. NewStartDate
  30658. tmpActionType
  30659. StartDate
  30660.     1S2S3S6S7S9S11S
  30661. StartDate
  30662. StartDate
  30663. tmpActionType
  30664. tmpActionType
  30665. TaskG
  30666.     2S3S4S5S6S7S9S10S14S
  30667.     Anfangszeit:
  30668. tmpActionType
  30669. tmpActionType
  30670. TaskG
  30671.     2S3S4S5S6S7S9S10S14S
  30672. .,$ //:
  30673. tmpActionType
  30674. $CSVersion
  30675. NewStartTime
  30676. NewDate
  30677. NewTimeRange
  30678. StartTime
  30679.     3S4S6S13S15S23S24S25S26S
  30680. NewStartTime
  30681. tmpActionType
  30682. StartTime
  30683.     1S2S3S6S7S9S11S
  30684. StartTime
  30685. StartTime
  30686.     Enddatum:
  30687. .,$ //:
  30688. tmpActionType
  30689. $CSVersion
  30690. NewEndDate
  30691. NewDate
  30692. NewTimeRange
  30693. TaskG
  30694. DueDate
  30695. EndDate
  30696.     3S4S6S23S24S25S26S53S
  30697. NewEndDate
  30698. tmpActionType
  30699. EndDate
  30700.     1S2S3S6S7S9S11S
  30701. DueDate
  30702. tmpActionType
  30703. TaskG
  30704. EndDate
  30705.     0R1S2S3S6S7S8S9S13S
  30706. EndDate
  30707. EndDate
  30708.     Endezeit:
  30709. .,$ //:
  30710. tmpActionType
  30711. $CSVersion
  30712. NewEndTime
  30713. NewDate
  30714. NewTimeRange
  30715. EndTime
  30716.     3S4S6S23S24S25S26S
  30717. NewEndTime
  30718. tmpActionType
  30719. EndTime
  30720.     1S2S3S6S7S9S11S
  30721. EndTime
  30722. EndTime
  30723. RequiredList
  30724. RequiredAttendees
  30725. Chair
  30726.     1S2S
  30727. OptionalList
  30728. OptionalAttendees
  30729.     0R1S2S
  30730. RoomList
  30731. RoomToReserve
  30732.     0R1S2S
  30733. ResourceList
  30734. RequiredResources
  30735. Resources
  30736.     0R1S2S
  30737. tmpFTSStartDateTime
  30738. StartDate
  30739. StartTime
  30740.     0RRR1S2S3S11S12S13S14S
  30741. tmpFTSEndDateTime
  30742. EndDate
  30743. EndTime
  30744.     0R1S2S3S11S12S13S14S
  30745. RequiredList
  30746. OptionalList
  30747. RoomList
  30748. ResourceList
  30749. Uninvited
  30750. tmpFTSStartDateTime
  30751. tmpFTSEndDateTime
  30752.     0RR20RTTT25S27S
  30753. StartDate
  30754. tmpFTSStartDateTime
  30755.     0R1S2S3S
  30756. StartTime
  30757. tmpFTSStartDateTime
  30758.     0R1S2S3S
  30759. EndDate
  30760. tmpFTSEndDateTime
  30761.     0R1S2S3S
  30762. EndTime
  30763. tmpFTSEndDateTime
  30764.     0R1S2S3S
  30765.     Zeitpl
  30766. ne pr
  30767. fen...
  30768. tmpActionType
  30769.     1S2S
  30770. xxTask
  30771. Notes kann alle Dokumente l
  30772. schen, die zu dieser Aufgabe geh
  30773.     1S2S
  30774. xxMeeting
  30775. Notes kann alle Dokumente l
  30776. schen, die zu dieser Besprechung geh
  30777.     0R1S2S
  30778. TaskG
  30779. xxTask
  30780. xxMeeting
  30781.     0R6S
  30782. tmpDeleteHeading
  30783. tmpDeleteEntry
  30784. xxTodo
  30785. Aufgaben- und alle Antwortdokumente l
  30786. schen|1
  30787.     1S2S
  30788. xxMeeting
  30789. Kalendereintrag und alle Antworten l
  30790. schen|1
  30791.     0R1S2S
  30792. TaskG
  30793. xxTodo
  30794. xxMeeting
  30795. tmpHideComments
  30796.     1S2S
  30797. xxCancel
  30798. TaskG
  30799. Die Beauftragten werden davon benachrichtigt, da
  30800.  die Aufgabe zur
  30801. ckgenommen wurde. 
  30802. Die Teilnehmer werden davon benachrichtigt, da
  30803.  die Besprechung abgesagt wurde.
  30804.     1S2S8S11S
  30805. xxReschedule
  30806. TaskG
  30807. Die Beauftragten werden davon benachrichtigt, da
  30808.  die Aufgabe neu geplant wurde.
  30809. Die Teilnehmer werden davon benachrichtigt, da
  30810.  die Besprechung verlegt wurde.
  30811.     0R1S2S8S
  30812. xxConfirm
  30813. TaskG
  30814. Die Beauftragten werden davon benachrichtigt, da
  30815.  die Aufgabe best
  30816. tigt wurde.
  30817. Die Teilnehmer werden davon benachrichtigt, da
  30818.  die Besprechung best
  30819. tigt wurde.
  30820.     0R1S2S8S
  30821. xxDecline
  30822. TaskG
  30823. Die Beauftragten werden davon benachrichtigt, da
  30824.  das vorgeschlagene Datum abgelehnt wurde.
  30825. Die Teilnehmer werden davon benachrichtigt, da
  30826.  die vorgeschlagene Uhrzeit abgelehnt wurde.
  30827.     0R1S2S8S13S
  30828. xxRefresh
  30829. Die Person wird davon benachrichtigt, da
  30830.  aktualisierte Informationen ben
  30831. tigt werden.
  30832.     0R1S2S
  30833. xxRemove
  30834. TaskG
  30835. Die entsprechenden Beauftragten werden davon benachrichtigt, da
  30836.  ihnen diese Aufgabe nicht mehr zugewiesen ist.
  30837. Die entsprechenden eingeladenen Personen werden davon benachrichtigt, da
  30838.  ihre Teilnahme an der Besprechung nicht mehr erforderlich ist.
  30839.     0R1S2S11S13S
  30840. tmpActionType
  30841. xxCancel
  30842. tmpActionType
  30843. xxReschedule
  30844. tmpActionType
  30845. xxConfirm
  30846. tmpActionType
  30847. xxDecline
  30848. tmpActionType
  30849. xxRefresh
  30850. tmpActionType
  30851. xxRemove
  30852.     0R3S4S6S8S9S10S14S16S17S18S20S22S23S24S26S29S30S32S35S36StmpMessage
  30853. tmpIncludeComments
  30854. Benachrichtigung mit Kommentaren versehen|1
  30855. tmpActionType
  30856.     1S2S
  30857. tmpActionType
  30858.     1S2S3S4S5S6S
  30859.     Reservierungen von R
  30860. umen bzw. Ressourcen f
  30861. r diese Besprechung werden ebenfalls gel
  30862. scht.
  30863. tmpActionType
  30864. tmpActionType
  30865.     2S3S4S5S6S7S9S10S11S12S
  30866.     Reservierungen von R
  30867. umen bzw. Ressourcen f
  30868. r diese Besprechung werden ebenfalls verschoben.
  30869. New Button
  30870. Need a newer version of Notes to execute this button.
  30871.     0S0E
  30872. thisform = document.forms[0];
  30873. parentwnd = window.opener;
  30874. parentform = parentwnd.document.forms[0];
  30875. actiontype = thisform.tmpActionType.value;
  30876. if (actiontype == "C")
  30877.     iValue = 256;
  30878. else if (actiontype == "B") iValue=2048;
  30879. else if (actiontype == "U")
  30880.     iValue = 512;
  30881.     parentform.StartDate.value = thisform.StartDate.value;
  30882.     if (thisform.Form.value!="Task") parentform.StartTime.value = thisform.StartTime.value;
  30883.     if (thisform.Form.value!="Task")
  30884.         parentform.EndDate.value = thisform.EndDate.value;
  30885.         } else
  30886.         parentform.DueDate.value = thisform.EndDate.value;
  30887.     if (thisform.Form.value!="Task") parentform.EndTime.value = thisform.EndTime.value;
  30888. else if (actiontype == "J")    iValue = 1024;
  30889. else if (actiontype == "N")    iValue = 4096;
  30890. else    iValue = 0;
  30891. parentwnd.updateActionInProgress(iValue, true);
  30892. self.close();
  30893. parentwnd.submitDocument();
  30894. New Button
  30895. Need a newer version of Notes to execute this button.
  30896.     0S0E
  30897. self.close()
  30898.     Abbrechen
  30899. O=Lotus Notes
  30900. O=Lotus Notes
  30901. PURSAFO
  30902. |.:#U
  30903. O=Lotus Notes
  30904. CN=Lotus Notes Template Development/O=Lotus Notes
  30905. PURSAFO
  30906. 4P|=~
  30907. tmpNewStartDate
  30908. tmpNewStartTime
  30909. tmpNewEndDate
  30910. tmpNewEndTime
  30911. $Language
  30912. $LastBuildTime
  30913. $BabelInfo
  30914. $Info
  30915. $Script
  30916. $$Script_O
  30917. $$ScriptName
  30918. $$FormScript
  30919. $$$FormScript_O
  30920. $$StartDate
  30921. $StartDate_O
  30922. StartDate
  30923. StartTime
  30924. EndDate
  30925. EndTime
  30926. $Body
  30927. $PublicAccess
  30928. (RepeatForm)D
  30929. tmpRepeatUnit
  30930. RepeatUnit
  30931.     0S0E
  30932. Jeden Monat am|1
  30933. Jeden zweiten Monat am|2
  30934. Jeden 3. Monat am|3
  30935. Jeden 4. Monat am|4
  30936. Jeden 5. Monat am|5
  30937. Jeden 6. Monat am|6
  30938. Jeden 7. Monat am|7
  30939. Jeden 8. Monat am|8
  30940. Jeden 9. Monat am|9
  30941. Jeden 10. Monat am|10
  30942. Jeden 11. Monat am|11
  30943. Jeden 12. Monat am|12
  30944.     8R16RtmpRIMDMP
  30945. Jedes Jahr|1
  30946. Jedes 2. Jahr|2
  30947. Jedes 3. Jahr|3
  30948. Jedes 4. Jahr|4
  30949. Jedes 5. Jahr|5
  30950. Jedes 6. Jahr|6
  30951. Jedes 7. Jahr|7
  30952. Jedes 8. Jahr|8
  30953. Jedes 9. Jahr|9
  30954. Jedes 10. Jahr|10
  30955.     10RtmpRIY
  30956. Jeden|1
  30957. Jeden 2.|2
  30958. Jeden 3.|3
  30959. Jeden 4.|4
  30960. Jeden 5.|5
  30961. Jeden 6.|6
  30962. Jeden 7.|7
  30963. Jeden 8.|8
  30964. tmpRIW
  30965. Jeden Tag|1
  30966. Jeden 2. Tag|2
  30967. Jeden 3. Tag|3
  30968. Jeden 4. Tag|4
  30969. Jeden 5. Tag|5
  30970. Jeden 6. Tag|6
  30971. Jeden 7. Tag|7
  30972. Jeden 8. Tag|8
  30973. Jeden 9. Tag|9
  30974. Jeden 10. Tag|10
  30975. Jeden 11. Tag|11
  30976. Jeden 12. Tag|12
  30977. Jeden 13. Tag|13
  30978. Jeden 14. Tag|14
  30979. Jeden 15. Tag|15
  30980. Jeden 16. Tag|16
  30981. Jeden 17. Tag|17
  30982. Jeden 18. Tag|18
  30983. Jeden 19. Tag|19
  30984. Jeden 20. Tag|20
  30985. Jeden 21. Tag|21
  30986. Jeden 22. Tag|22
  30987. Jeden 23. Tag|23
  30988. Jeden 24. Tag|24
  30989. Jeden 25. Tag|25
  30990. Jeden 26. Tag|26
  30991. Jeden 27. Tag|27
  30992. Jeden 28. Tag|28
  30993. Jeden 29. Tag|29
  30994. Jeden 30. Tag|30
  30995. Jeden 31. Tag|31
  30996.     10R20R30R40R50R60R
  30997. tmpRID
  30998. 1. Tag|1
  30999. 2. Tag|2
  31000. 3. Tag|3
  31001. 4. Tag|4
  31002. 5. Tag|5
  31003. 6. Tag|6
  31004. 7. Tag|7
  31005. 8. Tag|8
  31006. 9. Tag|9
  31007. 10. Tag|10
  31008. 11. Tag|11
  31009. 12. Tag|12
  31010. 13. Tag|13
  31011. 14. Tag|14
  31012. 15. Tag|15
  31013. 16. Tag|16
  31014. 17. Tag|17
  31015. 18. Tag|18
  31016. 19. Tag|19
  31017. 20. Tag|20
  31018. 21. Tag|21
  31019. 22. Tag|22
  31020. 23. Tag|23
  31021. 24. Tag|24
  31022. 25. Tag|25
  31023. 26. Tag|26
  31024. 27. Tag|27
  31025. 28. Tag|28
  31026. 29. Tag|29
  31027. 30. Tag|30
  31028. 31. Tag|31
  31029.     20R38R56RtmpRAMD
  31030. Sonntag|0
  31031. Montag|1
  31032. Dienstag|2
  31033. Mittwoch|3
  31034. Donnerstag|4
  31035. Freitag|5
  31036. Samstag|6
  31037.     0S0E
  31038. tmpRAW
  31039. 1. Sonntag|1.0
  31040. 1. Montag|1.1
  31041. 1. Dienstag|1.2
  31042. 1. Mittwoch|1.3
  31043. 1. Donnerstag|1.4
  31044. 1. Freitag|1.5
  31045. 1. Samstag|1.6
  31046. 2. Sonntag|2.0
  31047. 2. Montag|2.1
  31048. 2. Dienstag|2.2
  31049. 2. Mittwoch|2.3
  31050. 2. Donnerstag|2.4
  31051. 2. Freitag|2.5
  31052. 2. Samstag|2.6
  31053. 3. Sonntag|3.0
  31054. 3. Montag|3.1
  31055. 3. Dienstag|3.2
  31056. 3. Mittwoch|3.3
  31057. 3. Donnerstag|3.4
  31058. 3. Freitag|3.5
  31059. 3. Samstag|3.6
  31060. 4. Sonntag|4.0
  31061. 4. Montag|4.1
  31062. 4. Dienstag|4.2
  31063. 4. Mittwoch|4.3
  31064. 4. Donnerstag|4.4
  31065. 4. Freitag|4.5
  31066. 4. Samstag|4.6
  31067. Letzten Sonntag|5.0
  31068. Letzten Montag|5.1
  31069. Letzten Dienstag|5.2
  31070. Letzten Mittwoch|5.3
  31071. Letzten Donnerstag|5.4
  31072. Letzten Freitag|5.5
  31073. Letzten Samstag|5.6
  31074.     1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S16S17S18S19S20S21S22S23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S38S39S40S41S42S43S44S45S46S47S48S49S50S51S52S53S54S55S56S57S58S59S60S61S62S63S64S65S66S67S68StmpRAMP
  31075. RepeatUnit
  31076.     1S2S
  31077.      In wiederkehrenden Kalendereintrag 
  31078. ndern
  31079. RepeatUnit
  31080.     1S2S
  31081. RepeatUnit
  31082. AppointmentType
  31083. RepeatUnit
  31084. RepeatUnit
  31085.     3S4S6S9S10S12S14S17S18S19S
  31086. RepeatUnit
  31087. RepeatUnit
  31088. RepeatForUnit
  31089. RepeatForUnit
  31090.     0R1S
  31091. tmpRepeatUnit
  31092. RepeatUnit
  31093. RepeatForUnit
  31094. RepeatUnit
  31095. tmpRepeatUnit
  31096. RepeatUnit
  31097. RepeatUnit
  31098. RepeatUnit
  31099. RepeatUnit
  31100.     0R1RT2RT3S4S6RTT7RTTT8RTTT20RTTT27RTTT33RTTT35RT36RT
  31101. RepeatUnit
  31102. glich|DW
  31103. chentlich|WMonatlich nach Datum|MDMonatlich nach Tag|MPJ
  31104. hrlich|YDBenutzerdefiniert|C
  31105. RepeatInterval
  31106. RepeatInterval
  31107.     3S4S8S
  31108. RepeatUnit
  31109. RepeatInterval
  31110. Sie m
  31111. ssen ein Wiederholungsintervall ausw
  31112. hlen.{
  31113.     3S4S5S6S7S8S10SRepeatInterval
  31114. RepeatUnit
  31115. tmpRID
  31116. RepeatUNit
  31117. tmpRIMDMP
  31118. RepeatUNit
  31119. tmpRIY
  31120. RepeatUnit
  31121. tmpRIW
  31122.     3S4S6S8S9S10S11S12S14S16S17S18S20S22S23S24S26S28S
  31123. RepeatUnit
  31124.     1S2S
  31125. RepeatUnit
  31126. RepeatStartDate
  31127.     3S4S6S16S
  31128. RepeatUnit
  31129. RepeatAdjust
  31130. Sie m
  31131. ssen mindestens eine Einstellung w
  31132. hlen.{
  31133.     3S4S5S6S7S8S9S10S11S12S14S19SRepeatAdjust
  31134. RepeatUnit
  31135. RepeatUnit
  31136. tmpRAMD
  31137. RepeatUnit
  31138. tmpRAMP
  31139. RepeatUnit
  31140. tmpRAW
  31141.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  31142. RepeatUnit
  31143.     1S2S
  31144. RepeatFromEnd
  31145. Am Monatsende beginnen|1
  31146. RepeatUnit
  31147.     1S2S
  31148.     Geben Sie die Liste der Termine ein
  31149. RepeatCustom
  31150.     *Um eine mehrmals t
  31151. glich wiederkehrende Veranstaltung anzugeben, erstellen Sie f
  31152. r jede Uhrzeit getrennte wiederkehrende Eintr
  31153. RepeatUnit
  31154.     1S2S3S4S5S6S
  31155.      Wochenenden
  31156. RepeatUnit
  31157.     1S2S3S4S5S6S
  31158.     Wenn das Datum auf ein Wochenende f
  31159. llt: 
  31160. RepeatWeekends
  31161. Nicht verschieben|DAuf Freitag verschieben|FAuf Montag verschieben|MAuf n
  31162. chsten Wochentag verschieben|NL
  31163. schen|X
  31164.      Dauer
  31165.      Beginn:
  31166. StartDateTime
  31167. StartDateTime
  31168.     10S12S
  31169. RepeatStartDate
  31170. Die Eingabe eines Anfangdatums ist erforderlich.{
  31171.     3S4S6S11SRepeatStartDate
  31172. RepeatHow
  31173. an|Uf
  31174. RepeatUnit
  31175. RepeatHow
  31176.     1S2S3S4S5S6S
  31177. StartDate
  31178. RepeatStartDate
  31179.     1S2S
  31180. RepeatUnit
  31181. StartDate
  31182. RepeatUnit
  31183. StartDate
  31184. RepeatUnit
  31185. StartDate
  31186. RepeatUnit
  31187. StartDate
  31188. StartDate
  31189.     0R3S4S6S10S12S14S16S18S20S23S24S25S27S31S33S35S37S39S41S44S48S50S51S53S57S59S61S63S65S67S70S74S76S77S79S83S85S87S89S91S93S96S<
  31190. xxFAILURE
  31191. Das Datum f
  31192. r das Ende der Wiederholung mu
  31193.  nach dem Datum f
  31194. r den Beginn der Wiederholung liegen.
  31195. xxEMPTYDATE
  31196. Sie m
  31197. ssen sowohl das Datum f
  31198. r den Wiederholungsbeginn als auch das Datum f
  31199. r das Ende der Wiederholung angeben. 
  31200. RepeatHow
  31201. RepeatUntil
  31202. RepeatStartDate
  31203. xxEMPTYDATE
  31204. RepeatUntil
  31205. RepeatStartDate
  31206. xxFAILURE
  31207.     0RR1RT2RT6RTT7RTTT8RTTT10S11S12S13S14S15S18RTTTT23RTTT24S25S27RTTTT32RTTT33RTTT35RT36RTRepeatUntil
  31208. RepeatUnit
  31209. RepeatHow
  31210.     1S2S3S4S5S6S
  31211. RepeatFor
  31212. RepeatForUnit
  31213. AppointmentType
  31214. RepeatUnit
  31215. RepeatForUnit
  31216.     3S4S6S9S10S12S14SRepeatForUnit
  31217. Tag(e)|D
  31218.     1S2S
  31219. Weeks
  31220. Woche(n)|W
  31221.     0R1S2S
  31222. Months
  31223. Monat(e)|M
  31224.     0R1S2S
  31225. Years
  31226. Jahr(e)|Y
  31227.     0R1S2S
  31228. RepeatUnit
  31229. Weeks
  31230. Months
  31231. Years
  31232. RepeatUnit
  31233. Weeks
  31234. Months
  31235. Years
  31236. RepeatUnit
  31237. Months
  31238. Years
  31239. Years
  31240.     0R3S4S6S7S8S9S10S11S12S14S15S16S18S19S20S21S22S24S25S26S27S28S30S31S32S34S
  31241. New Button
  31242. Need a newer version of Notes to execute this button.
  31243.     0S0E
  31244. thisform = document.forms[0]
  31245. parentform = window.opener.document.forms[0]
  31246. items = thisform.elements
  31247. for (i = 0; i< items.length; i++)
  31248.     if (items[i].name.indexOf("Repeat") >= 0)
  31249.         if (items[i].name == "RepeatHow")
  31250.             radioitem = items[i]
  31251.             for (j = 0; j < radioitem.length; j++)
  31252.                 {
  31253.                 if (radioitem[j].checked) 
  31254.                     {
  31255.                     parentform.elements[items[i].name].value = radioitem[j].value
  31256.                     break
  31257.                     }
  31258.                 }
  31259.         else
  31260.             parentform.elements[items[i].name].value = items[i].value
  31261. parentform.OrgRepeat.value = "1"
  31262. self.close()
  31263. New Button
  31264. Need a newer version of Notes to execute this button.
  31265.     0S0E
  31266. self.close()
  31267.     Abbrechen
  31268. O=Lotus Notes
  31269. O=Lotus Notes
  31270. PURSAFO
  31271. |.:#U
  31272. O=Lotus Notes
  31273. CN=Lotus Notes Template Development/O=Lotus Notes
  31274. PURSAFO
  31275. +<`/GW
  31276. $Language
  31277. $LastBuildTime
  31278. $BabelInfo
  31279. $Info
  31280. $$ScriptName
  31281. $$FormAction1
  31282. RepeatCustom
  31283. RepeatStartDate
  31284. RepeatUntil
  31285. RepeatFor
  31286. $Body
  31287. $PublicAccess
  31288. &Arial
  31289. (subTrackMessage)
  31290.     Anweisungen zur Mail-VerfolgungsanforderungXx
  31291. bg_DIALOGBAND|bg_DIALOGBANDX
  31292.     Eine Mail-Verfolgungsanforderung wurde gesendet.
  31293.     Sie werden E-Mail-Antworten in Ihrem Posteingang empfangen. 
  31294.     Diese Nachrichten informieren 
  31295. ber den Routing-Status der Mail, die Sie verfolgen.
  31296. tmpDontShow
  31297. Diese Meldung nicht mehr anzeigen.|1X
  31298. O=Lotus Notes
  31299. O=Lotus Notes
  31300. PURSAFO
  31301. |.:#U
  31302. O=Lotus Notes
  31303. CN=Lotus Notes Template Development/O=Lotus Notes
  31304. PURSAFO
  31305. $Info
  31306. $$ScriptName
  31307. $Body
  31308. $Language
  31309. $LastBuildTime
  31310. $BabelInfo
  31311. &Arial
  31312. (Room Resource Scheduler)
  31313. '++LotusScript Development Environment:2:5:(Options):0:74
  31314. Option Public
  31315. Option Explicit
  31316. '++LotusScript Development Environment:2:5:(Forward):0:1
  31317. Declare Sub Initialize
  31318. Declare Sub BuildList(source As Notesuidocument)  
  31319. Declare Sub BuildCategory(Source As Notesuidocument,Byval mode As Integer)
  31320. '++LotusScript Development Environment:2:5:(Declarations):0:10
  31321. Dim vbooks As Variant
  31322. Dim selectedsite As String
  31323. '++LotusScript Development Environment:2:2:Initialize:1:10
  31324. Sub Initialize
  31325. End Sub
  31326. '++LotusScript Development Environment:2:2:BuildList:1:8
  31327. Sub BuildList(source As Notesuidocument)  
  31328.     Dim doc As NotesDocument
  31329.     Dim servername As String
  31330.     Dim filename As String    
  31331.     Dim vResultSite As Variant
  31332.     Dim vResultCategory As Variant    
  31333.     Dim dbname As Variant
  31334.     Dim l,b,e As Integer
  31335.     Dim resourcetype As Variant
  31336.     Set doc=source.document    
  31337.     'field tmpAddressBooks holds all public NABs
  31338.     'field tmpSitesAll holds all sites from 1st public NAB
  31339.     'field tmpCategoriesAll holds ALL categories from 1st public NAB
  31340. 'get current selected NAB
  31341.     dbname = doc.getItemValue("tmpAddressBooks")
  31342.     resourcetype=doc.getitemValue("tmpResourceType")
  31343.     l=Len(dbname(0))    
  31344.     b=Instr(dbname(0),"|")
  31345.     e=Instr(dbname(0),"*")
  31346.     servername=Mid(dbname(0), b+1, (e-b-1))
  31347.     filename=Right(dbname(0),(l-e))
  31348.     vResultSite=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Rooms)';1 )|)    
  31349.     Call doc.ReplaceitemValue("tmpSitesAll", vResultSite)
  31350.     If vResultSite(0)="" Then Msgbox "Keinen Standorteintrag gefunden"             
  31351.     If resourcetype(0)="2" Then
  31352.         vResultCategory=Evaluate(|@DBColumn('':'NoCache';'| & servername & |':'|  & filename & |';'($Resources)';3 )|)    
  31353.         Call doc.ReplaceitemValue("tmpCategoriesAll", vResultCategory)
  31354.         If vResultCategory(0)="" Then Msgbox "Keinen Kategorieeintrag gefunden"                         
  31355.     End If
  31356. End Sub
  31357. '++LotusScript Development Environment:2:2:BuildCategory:1:8
  31358. Sub BuildCategory(Source As Notesuidocument,Byval mode As Integer)
  31359.     Dim doc As NotesDocument
  31360.     Set doc=source.Document
  31361.     Dim currentsite As Variant
  31362.     Dim allcategories As Variant    
  31363.     Dim tmpsubset As NotesItem
  31364.     Dim newval As String
  31365.     Dim k As String
  31366.     'field tmpAddressBooks holds all public NABs
  31367.     'field tmpSitesAll holds all sites from 1st public NAB
  31368.     'field tmpCategoriesAll holds ALL categories from 1st public NAB
  31369.     'field tmpSubsetCategory holds categories for particular site
  31370.     'item tmpsubset used to populate list of categories for given site
  31371.     If (mode=1) Then     
  31372.         currentsite=doc.getItemValue("tmpSite")
  31373.     Else    
  31374.         currentsite=doc.getItemValue("tmpSitesAll")
  31375.     End If    
  31376.     If selectedsite=currentsite(0) Then Exit Sub
  31377.     allcategories=doc.getitemValue("tmpCategoriesAll")
  31378.     Set tmpsubset=New Notesitem (doc, "tmpSubset","")
  31379.     Forall cat In allcategories
  31380.         k=Strrightback(cat, "/")        
  31381.         If k=currentsite(0) Then        
  31382.             newval= Strrightback(Strleftback(cat, "/"), "/")    
  31383.             Call tmpsubset.AppendToTextList(newval) 
  31384.         End If
  31385.     End Forall
  31386.     Call doc.ReplaceitemValue ("tmpSubsetcategory", tmpsubset.values)
  31387.     Call doc.ReplaceitemValue ("tmpResourceCategory", "")
  31388.     Call doc.Removeitem("tmpSubset")
  31389.     selectedsite=currentsite(0)
  31390. End Sub
  31391. '++LotusScript Development Environment:2:5:(Options):0:66
  31392. '++LotusScript Development Environment:2:5:(Forward):0:1
  31393. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  31394. Declare Sub Postrecalc(Source As Notesuidocument)
  31395. '++LotusScript Development Environment:2:5:(Declarations):0:2
  31396. '++LotusScript Development Environment:2:2:BindEvents:1:129
  31397. Private Sub BindEvents(Byval Objectname_ As String)
  31398.     Static Source As NOTESUIDOCUMENT
  31399.     Set Source = Bind(Objectname_)
  31400.     On Event Queryopen From Source Call Queryopen
  31401.     On Event Postrecalc From Source Call Postrecalc
  31402. End Sub
  31403. '++LotusScript Development Environment:2:2:Queryopen:1:12
  31404. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  31405.     Dim s As New NotesSession
  31406.     Dim item As NotesItem
  31407.     Dim doc As NotesDocument
  31408.     Dim nabentry As String
  31409.     Dim hasbooks As Integer
  31410.     Set doc=source.document
  31411.     vbooks=s.AddressBooks
  31412.     Set item = doc.getfirstitem("tmpAddressBooks")
  31413.     'need to put public address books into the Addressbooks field
  31414.     Forall v In vbooks
  31415.         If v.IsPublicAddressBook Then 
  31416.             If Len(v.filename) > 0 Then
  31417.                 hasbooks=True
  31418.                 If v.isopen Then
  31419.                     nabentry = v.title + "|"+v.server+"*" + v.filename
  31420.                 Else
  31421.                     Call  v.open("", "")                    
  31422.                     nabentry = v.title +  "|"+v.server+"*" + v.filename
  31423.                 End If
  31424.                 Call item.AppendToTextList (nabentry)
  31425.             End If
  31426.         End If        
  31427.     End Forall
  31428.     If Not(hasbooks) Then 
  31429.         Msgbox "Es wurden keine Adre
  31430. cher gefunden."
  31431.         continue=False
  31432.         Exit Sub
  31433.     End If
  31434.     Call BuildList(source)    
  31435.     Call BuildCategory(source,0)
  31436. End Sub
  31437. '++LotusScript Development Environment:2:2:Postrecalc:1:12
  31438. Sub Postrecalc(Source As Notesuidocument)
  31439.     Call BuildCategory(source,1)    
  31440. End Sub
  31441. choices
  31442. tmpResourceName
  31443. tmpResourceNameSingle
  31444. tmpResourceName
  31445. tmpResourceNameMulti
  31446.     0S0E
  31447. RoomToReserve
  31448. tmpResourceType
  31449. choices
  31450. choices
  31451. RoomToReserve
  31452.     0R1S15S
  31453. Resources
  31454. tmpResourceType
  31455. choices
  31456. choices
  31457. Resources
  31458.     0R1S15S
  31459. EndDate
  31460. StartDate
  31461.     0R1S
  31462. RoomToReserve
  31463. tmpResourceType
  31464. Einen Raum reservieren|1Eine Ressource reservieren|2X
  31465. tmpResourceName
  31466. tmpResourceNameX
  31467. tmpAddressBooksX
  31468. tmpSitesAllX
  31469. tmpCategoriesAll
  31470. tmpSubsetCategoryX
  31471. .,$ //:
  31472. EndDate
  31473. EndDateTime
  31474. EndDateTime
  31475. EndDate
  31476.     3S4S6S15S18S
  31477. EndDateX
  31478. OuterTable
  31479. tmpResourceType
  31480. resource
  31481.     8S10S
  31482. gbare(n) 
  31483.   zu einer bestimmten Uhrzeit suchen"
  31484.     Datum:
  31485. .,$ //:
  31486. StartDate
  31487. StartDateTime
  31488. StartDateTime
  31489. StartDate
  31490.     3S4S6S15S18S
  31491. xxFailed
  31492. Die Eingabe eines Startdatums ist erforderlich.
  31493. StartDate
  31494. xxFailed{
  31495.     0R3S4S6S11SStartDateX
  31496.     Beginn um:
  31497. .,$ //:
  31498. StartTime
  31499. StartDateTime
  31500. StartDateTime
  31501. StartTime
  31502.     3S4S6S15S18S
  31503. xxFailed
  31504. Die Eingabe einer Startzeit ist erforderlich.
  31505. StartTime
  31506. AppointmentType
  31507. AppointmentType
  31508. xxFailed{
  31509.     0R3S4S5S6S7S8S9S10S11S12S14S19SStartTimeX
  31510.     Ende um:
  31511. .,$ //:
  31512. EndTime
  31513. EndDateTime
  31514. EndDateTime
  31515. EndTime
  31516.     3S4S6S15S
  31517. xxFailed
  31518. Die Eingabe einer Endezeit ist erforderlich.
  31519. EndTime
  31520. AppointmentType
  31521. AppointmentType
  31522. AppointmentType
  31523. xxFailed{
  31524.     0R3S4S5S6S7S8S9S10S11S12S13S14S15S16S18S23SEndTimeX
  31525.     Adre
  31526. cher: X
  31527. tmpAddressBooks
  31528.     0S0E
  31529. tmpNABsXz
  31530. tmpNABs
  31531.     Standort:X
  31532. tmpSitesAll
  31533.     0S0E
  31534. tmpSite
  31535. tmpSitesAll
  31536. tmpResourceType
  31537.     0S0E
  31538.     Teilnehmerzahl:X
  31539. .,$///:
  31540. SendToj
  31541. CopyToj
  31542.     0S0E
  31543. tmpCapacityX
  31544. tmpResourceType
  31545.     0S0E
  31546. tmpResourceCategory
  31547. tmpResourceCategory
  31548. Kategorien
  31549. Bitte w
  31550. hlen Sie eine Ressourcenkategorie
  31551. tmpSubsetCategory
  31552.     0R1S7S9S11S13S
  31553. tmpResourceCategory
  31554.     KategorieX
  31555. tmpResourceCategoryX
  31556. StartTime
  31557. EndTime
  31558. Fehler
  31559. Anfangszeit mu
  31560.  vor Endtermin liegen. 
  31561.     3S4S6S12S14S
  31562. tmpCapacity
  31563. tmpResourceType
  31564. Fehler
  31565. Sie m
  31566. ssen die Anzahl der Teilnehmer angeben, bevor Sie nach einem Raum suchen k
  31567. nnen.
  31568.     0R5S6S
  31569. tmpResourceCategory
  31570. tmpResourceType
  31571. Fehler
  31572. Sie m
  31573. ssen eine Kategorie ausw
  31574. hlen, bevor Sie nach einer Ressource suchen k
  31575. nnen.
  31576.     0R6S
  31577. tmpStartDateTime
  31578. StartDate
  31579. StartTime
  31580. tmpEndDateTime
  31581. StartDate
  31582. EndTime
  31583. StartDate
  31584. Fehler
  31585. Sie k
  31586. nnen keinen Raum f
  31587. r einen bereits vergangenen Tag reservieren.
  31588.     0R7S8S14S
  31589. Keyarg
  31590. CN=*/
  31591. tmpResourceType
  31592. tmpSite
  31593. tmpResourceCategory
  31594. tmpSite
  31595. ResNameCheck
  31596. tmpResourceType
  31597. Keyarg
  31598. tmpResourceType
  31599. tmpStartDateTime
  31600. tmpEndDateTime
  31601. tmpCapacity
  31602. Keyarg
  31603. tmpResourceType
  31604. tmpStartDateTime
  31605. tmpEndDateTime
  31606. ResNameCheckZ
  31607. Fehler
  31608. Beim Suchen eines Raums haben Sie die folgende Fehlermeldung erhalten: 
  31609. ResNameCheck"
  31610. tmpResourceName
  31611. ResNameCheck
  31612.     0R1S2S3S
  31613. tmpResourceNameSingle
  31614. ResNameCheckj
  31615. ResNameCheck
  31616.     0R1S3S9S10S12S14S
  31617. tmpResourceNameBlank
  31618. ResNameCheck
  31619. Keine Ressource/kein Raum f
  31620. r diese Uhrzeit und/oder erforderliche Kapazit
  31621. t gefunden.
  31622.     0R1S
  31623.     Suchen
  31624.     Suchergebnisse:X
  31625. tmpResourceType
  31626. tmpResourceName
  31627.     3S4S
  31628.     Verf
  31629. gbare(r) Raum/R
  31630. ume:X
  31631. tmpResourceType
  31632. tmpResourceName
  31633.     3S4S
  31634.     Verf
  31635. gbare Ressource(n):
  31636. tmpResourceNameBlank
  31637.     0S0E
  31638. tmpResourceNameBlank
  31639. tmpResourceNameBlank
  31640. tmpResourceName
  31641. tmpResourceName
  31642.     3S4S
  31643. tmpResourceNameSingle
  31644. tmpResourceNameSingleX
  31645. tmpResourceName
  31646. tmpResourceName
  31647.     3S4S
  31648. tmpResourceNameMulti
  31649. tmpResourceName
  31650.     0S0E
  31651. Lotus Product
  31652. Lotus Product
  31653. O=Lotus Notes
  31654. O=Lotus Notes
  31655. PURSAFO
  31656. |.:#U
  31657. O=Lotus Notes
  31658. CN=Lotus Notes Template Development/O=Lotus Notes
  31659. PURSAFO
  31660. Capacity
  31661. dStartTime
  31662. dEndTime
  31663. dStartDate
  31664. $Info
  31665. $$ScriptName
  31666. EndDate
  31667. StartDate
  31668. StartTime
  31669. EndTime
  31670. tmpCapacity
  31671. $PublicAccess
  31672. $Script
  31673. $$FormScript
  31674. $$FormAction2
  31675. $Body
  31676. $$Script_O
  31677. $$$FormScript_O
  31678. $Language
  31679. $LastBuildTime
  31680. $BabelInfo
  31681. &Arial
  31682. (subTrackingRequest)
  31683. UserOptions
  31684. UserOptionsX
  31685. UserOptions
  31686.     2RTTTTTTTT7RTTTTTTTT8RTTTTTTTT
  31687. UserOptionsExpandedX
  31688. OptionLabel
  31689. OptionLabelX
  31690. Bild 'Mail-Verfolgung'
  31691. act_MessageTrack|act_MessageTrackX
  31692. SelectedOptions
  31693. UserOptionsExpanded
  31694. UserOptionsExpanded
  31695.     0S0E
  31696.     Weitere Empf
  31697. nger:
  31698. UserDefinedNameWeitere Empf
  31699. nger zum Verfolgen
  31700.     0S0E
  31701. Begin Translate
  31702.     0S0E
  31703. xxTitle
  31704. Mail-Verfolgung
  31705. xxMessage
  31706. Keine weiteren Empf
  31707. nger angegeben.
  31708. xxMessageInList
  31709. Der Benutzername befindet sich bereits in der Liste.
  31710. End Translate
  31711.     0S0E
  31712. ALIASEDNAME
  31713. UserOptionsExpanded
  31714. UserOptionsExpanded
  31715.     0RR1S
  31716. SelectedOptions
  31717. SelectedOptions
  31718.     0R1S
  31719. UserDefinedName
  31720. UserDefinedName
  31721.     0R1S
  31722. UserDefinedName
  31723. ALIASEDNAME
  31724. UserDefinedName
  31725. UserOptionsExpanded
  31726. ALIASEDNAME
  31727. UserOptionsExpanded
  31728. UserOptionsExpanded
  31729. ALIASEDNAME
  31730. SelectedOptions
  31731. SelectedOptions
  31732. UserDefinedName
  31733. UserDefinedName
  31734. xxTitle
  31735. xxMessageInList
  31736. UserDefinedName
  31737. xxTitle
  31738. xxMessage
  31739.     0RR1RT2RT3S4S6RTT7RTTT8RTTT15TTTRTTT16RTTTT17RTTTT24RTTTTT25RTTTTTT26RTTTTTT30S31S32S35RTTTTTT40RTTTTTT45S46S49RTTTTTT56RTTTTTT60RTTTTTT62RTTTT63RTTTTTT64RTTTTTT73RTTTTTT79RTTTTTT80RTTT81RTT83RT91RT
  31740.     Hinzuf
  31741. TraceType
  31742. Nur Zustellungsstatus|0Gesamten Pfad aufzeichnen|1X
  31743. O=Lotus Notes
  31744. O=Lotus Notes
  31745. PURSAFO
  31746. |.:#U
  31747. O=Lotus Notes
  31748. CN=Lotus Notes Template Development/O=Lotus Notes
  31749. PURSAFO
  31750. )Z0l-
  31751. $Info
  31752. $$ScriptName
  31753. $Body
  31754. $Language
  31755. $LastBuildTime
  31756. $BabelInfo
  31757. &Arial
  31758. Lotus Product
  31759. (WebSpecificFields)
  31760. Importance
  31761. .,$,  , :
  31762. DeliveryReport
  31763. .,$,  , :
  31764. DeliveryPriority
  31765. CalendarProfile
  31766. DefaultMailOpt
  31767. tmpSendOptions
  31768. Senden|1Senden und speichern|2Als Entwurf speichern|3Xz
  31769. {FONT SIZE="2"}
  31770. ReturnReceiptX
  31771. MailOptionsX
  31772. SaveOptionsX
  31773. PostedDate
  31774. ReplyTo
  31775.     0S0E
  31776. ReplyToX
  31777. CalendarProfile
  31778. Owner
  31779.     0S4S
  31780. PrincipalX
  31781. AbortGracefullyX
  31782. O=Lotus Notes
  31783. O=Lotus Notes
  31784. PURSAFO
  31785. |.:#U
  31786. O=Lotus Notes
  31787. CN=Lotus Notes Template Development/O=Lotus Notes
  31788. PURSAFO
  31789. iF8bag
  31790. $Info
  31791. $$Script_O
  31792. $$ScriptName
  31793. PostedDate
  31794. $Body
  31795. $Language
  31796. $LastBuildTime
  31797. $BabelInfo
  31798. $92AlarmTime
  31799. $AlarmTimeh
  31800. $AlarmTime
  31801. CalendarDateTime
  31802. $AlarmOffset
  31803.     7S9S13S15S17S19S21S23S
  31804. CalendarDateTimeCalendarDateTime$AlarmOffsetOffset$93Beschreibungd
  31805. $AlarmDescription
  31806. $AlarmDescription
  31807. Subject
  31808.     7S9S
  31809. $AlarmSoundAlarmklang$94Alarm-MailT
  31810. Participants
  31811. AssignedTo
  31812. OptionalAssignees
  31813. RequiredAttendees
  31814. OptionalAttendees
  31815.     1S2S5S6S8S2E12S
  31816. $AlarmMemoOptions
  31817. $AlarmMemoOptions
  31818. Participants
  31819. $AlarmSendTo
  31820.     0R3S4S9S10S12S14S&
  31821. _WeiterleitenX
  31822. _KategorisierenX
  31823. Dokument _bearbeiten
  31824. Senden
  31825. In Ordner _verschieben...X
  31826. Aus Ordner _entfernen... X
  31827. _WeiterleitenX
  31828. _KategorisierenX
  31829. Dokument _bearbeiten
  31830. Senden
  31831. In Ordner _verschieben...X
  31832. Aus Ordner _entfernen... X
  31833. O=Lotus Notes
  31834. O=Lotus Notes
  31835. PURSAFO
  31836. |.:#U
  31837. O=Lotus Notes
  31838. CN=Lotus Notes Template Development/O=Lotus Notes
  31839. PURSAFO
  31840. $PublicAccess
  31841. $Name
  31842. $Index
  31843. $FormulaClass
  31844. $Formula
  31845. $VIEWFORMAT
  31846. $ACTIONS
  31847. $V5ACTIONS
  31848. $Language
  31849. $LastBuildTime
  31850. $BabelInfo
  31851. Started running agent 'Mail Tools \ Send Memo to Database Manager' on 05/20/98 09:57:01 AM
  31852. 1 document(s) were modified by formula
  31853. Done running agent 'Mail Tools \ Send Memo to Database Manager' on 05/20/98 09:57:01 AM
  31854. function displayDialog(strFormName, strActionType, strArgs, strTitle, nWidth, nHeight)
  31855.     thisform = window.document.forms[0]
  31856.     strLocation = window.location.protocol + "//" + window.location.host + "/" + thisform.tmpDB.value + "/(wDlgBox)?OpenForm&Subform=" + strFormName
  31857.     if (strActionType)
  31858.         strLocation += "&ActionType=" + strActionType
  31859.     if (strArgs)
  31860.         strLocation += strArgs        
  31861.     if (strTitle)
  31862.         strLocation += "&Title=" + strTitle +"&Form="+thisform.Form.value
  31863.     return window.open(strLocation,"Dlg","resizable=yes,width="+nWidth+",height="+nHeight)
  31864. function isUserOwner()
  31865.     thisform = document.forms[0]
  31866.     if (thisform.tmpOwner.value == thisform.Chair.value)
  31867.         return true
  31868.     else
  31869.         return false
  31870. function isDateTimeValuesModified()
  31871.     thisform = document.forms[0]
  31872. if (thisform.Form.value!="Task") 
  31873.     newstart = thisform.StartDate.value + " " + thisform.StartTime.value
  31874.     newend = thisform.EndDate.value + " " + thisform.EndTime.value
  31875.     } else
  31876.     newstart = thisform.StartDate.value + " 12:00 AM" 
  31877.     newend = thisform.DueDate.value + " 11:59 PM" 
  31878.     if (newstart != thisform.tmpWebStartDateTime.value)
  31879.         return true
  31880.     else if (newend != thisform.tmpWebEndDateTime.value)
  31881.         return true
  31882.     else
  31883.         return false
  31884. function isActionInProgress(dAction)
  31885.     thisform = document.forms[0]
  31886.     aip = new Number(thisform.tmpAction.value)
  31887.     if (aip & dAction)
  31888.         return true
  31889.     else
  31890.         return false
  31891. function updateActionInProgress(dAction, bAdd)
  31892.     thisform = document.forms[0]
  31893.     csactions = new Number(thisform.tmpAction.value)
  31894.     if (bAdd)
  31895.         csactions |= dAction
  31896.     else
  31897.         csactions &= ~dAction
  31898.     thisform.tmpAction.value = csactions.toString()
  31899. function submitDocument()
  31900.     thisform = document.forms[0]
  31901.     if (thisform.tmpAction.value != 2048) {
  31902.     // see if we are changing the date/time and we are the owner 
  31903.     if (isUserOwner() && (thisform.tmpWasMailed.value == "1") && isDateTimeValuesModified() && !isActionInProgress(512))
  31904.         if (!self.confirm("Sie haben Datum oder Uhrzeit dieses Eintrags ge
  31905. ndert. Alle Teilnehmer werden benachrichtigt. M
  31906. chten Sie wirklich fortfahren?"))
  31907.             updateActionInProgress(512, false)
  31908.             return
  31909.         updateActionInProgress(512, true)
  31910.     // see if we are modifying repeating instance -> THIS MUST BE DONE LAST, since
  31911.     // the window opened is treated as a modal dialog and is responsible for submitting
  31912.     // this document
  31913.     if (thisform.OrgRepeat.value == "1" && thisform.tmpResponse.value == "1" && thisform.tmpChangeWhich.value == "")
  31914.     strLocation = window.location.protocol + "//" + window.location.host + "/" + thisform.tmpDB.value + "/(wDlgBox)?OpenForm&Subform=(ChangeRepeat)"
  31915.     strLocation += "&Title=
  31916. ndern"
  31917.     if (self.open(strLocation,"Other","width=450,height=300"))
  31918.         return
  31919.     thisform.submit()
  31920. function openV5RepeatInstance()
  31921.     thisform = document.forms[0]
  31922.     if (!thisform.OrgRepeat)
  31923.         return
  31924. if ((thisform.OrgRepeat.value.length > 0) && (thisform.$CSVersion.value.length >0) && (thisform.tmpCalInstanceDate.value.length <= 2) && (thisform.tmpRepeatCheck.value > 1))
  31925.         displayDialog("(RepeatOpenList)", "", "&Prompt=W
  31926. hlen%20Sie%20den%20Wiederholungseintrag,%20den%20Sie%20bearbeiten%20m
  31927. chten.", "Open", "300","250")
  31928. Lotus Product
  31929. V0.0N
  31930. (wCSItems)
  31931.     These fields are sent over the wire but are hidden
  31932. type=hidden
  31933. ApptUNID
  31934. type=hidden
  31935. StartDateTime
  31936. type=hidden
  31937. EndDateTime
  31938. type=hidden
  31939. RepeatStartDate
  31940. type=Hidden
  31941. RepeatUnit
  31942. type=Hidden
  31943. RepeatInterval
  31944. type=Hidden
  31945. RepeatAdjust
  31946. type=Hidden
  31947. RepeatCustom
  31948. type=Hidden
  31949. RepeatHow
  31950. type=Hidden
  31951. RepeatFor
  31952. type=Hidden
  31953. RepeatForUnit
  31954. type=Hidden
  31955. RepeatUntil
  31956. type=Hidden
  31957. RepeatFromEnd
  31958. type=Hidden
  31959. RepeatWeekends
  31960. type=hidden
  31961. OrgRepeat
  31962. OrgRepeat
  31963.     0S0E
  31964. OrgRepeat
  31965. type=hidden
  31966. tmpCalInstanceDate
  31967. type=hidden
  31968. tmpOriginalStart
  31969. type=hidden
  31970. tmpOriginalEnd
  31971. type=hidden
  31972.     0S0E
  31973. tmpDB
  31974. type=hidden
  31975. $CSFlags
  31976. type=hidden
  31977. Principal
  31978. type=hidden
  31979. DueDateTime
  31980. tmpRepeatInstance
  31981. tmpRepeatInstance
  31982. type=Hidden
  31983. startdatetime
  31984.     0S0E
  31985. tmpRepeatCheck
  31986. type=hidden
  31987. $REFh
  31988.     0S0E
  31989. tmpResponse
  31990. type=hidden
  31991. Chair
  31992. type=hidden
  31993. $CSVersion
  31994. type=hidden
  31995. WebDateTimeInit
  31996. type=hidden
  31997. DeliveryReportz
  31998. DeliveryReport
  31999. type=hidden
  32000. DeliveryPriorityz
  32001. DeliveryPriority
  32002. type=hidden
  32003. ReturnReceipt
  32004. ReturnReceipt
  32005. type=hidden
  32006. Broadcast
  32007. type=hidden
  32008. PreventCounter
  32009. type=hidden
  32010. PreventDelegate
  32011. type=hidden
  32012. tmpAction
  32013. type=hidden
  32014. tmpKeepPosted
  32015. type=hidden
  32016. NewStartDate
  32017. type=hidden
  32018. NewEndDate
  32019. type=hidden
  32020. NewStartTime
  32021. type=hidden
  32022. NewEndTime
  32023. type=hidden
  32024. Delegee
  32025. type=hidden
  32026. RescheduleWhich
  32027. tmpChangeWhich
  32028. type=hidden
  32029. RepeatStartDate
  32030. RepeatStartDate
  32031. RepeatStartDate
  32032.     1S2S3S6S7S9S11S
  32033. RepeatUnit
  32034. RepeatUnit
  32035. RepeatUnit
  32036.     0R1S2S3S9S10S12S14S
  32037. RepeatInterval
  32038. RepeatInterval
  32039. RepeatInterval
  32040.     0R1S2S3S9S10S12S14S
  32041. RepeatAdjust
  32042. RepeatAdjust
  32043. RepeatAdjust
  32044.     0R1S2S3S9S10S12S14S
  32045. RepeatCustom
  32046. RepeatCustom
  32047. RepeatCustom
  32048.     0R1S2S3S6S7S9S11S
  32049. RepeatHow
  32050. RepeatUnit
  32051. RepeatHow
  32052.     0R1S2S3S9S10S12S14S
  32053. RepeatFor
  32054. RepeatFor
  32055. RepeatFor
  32056.     0R1S2S3S6S7S9S11S
  32057. RepeatForUnit
  32058. RepeatForUnit
  32059. RepeatForUnit
  32060.     0R1S2S3S9S10S12S14S
  32061. RepeatUntil
  32062. RepeatUntil
  32063. RepeatUntil
  32064.     0R1S2S3S6S7S9S11S
  32065. RepeatFromEnd
  32066. RepeatFromEnd
  32067. RepeatFromEndt
  32068.     0R1S2S3S9S10S12S14S
  32069. RepeatWeekends
  32070. RepeatWeekends
  32071. RepeatWeekends
  32072.     0R1S2S3S9S10S12S14S
  32073. OrgRepeat
  32074. OrgRepeat
  32075. OrgRepeat
  32076.     0R1S2S3S9S10S12S14S
  32077. NewStartDate
  32078. NewStartDate
  32079. NewStartDate
  32080.     0R1S2S3S6S7S9S11S
  32081. NewStartTime
  32082. NewStartTime
  32083. NewStartTime
  32084.     0R1S2S3S6S7S9S11S
  32085. NewEndDate
  32086. NewEndDate
  32087. NewEndDate
  32088.     0R1S2S3S6S7S9S11S
  32089. NewEndTime
  32090. NewEndTime
  32091. NewEndTime
  32092.     0R1S2S3S6S7S9S11S
  32093. Delegee
  32094. Delegee
  32095. Delegee
  32096.     0R1S2S3S6S7S9S11S
  32097. tmpDB
  32098. tmpDB
  32099. tmpDB
  32100.     0R1S2S3S9S2E10S12S14S
  32101. $CSFlags
  32102. $CSFlags
  32103. $CSFlags
  32104.     0R1S2S3S9S10S12S14S
  32105. tmpDeleteItems
  32106. type=hidden
  32107. tmpWebStartDateTime
  32108. type=hidden
  32109. tmpWebEndDateTime
  32110. type=hidden
  32111. tmpPencilIn
  32112. type=hidden
  32113. posteddate
  32114. roomtoreserve
  32115. resources
  32116.     0S0E
  32117. tmpWasMailed
  32118. type=hidden
  32119. CalendarProfile
  32120. Owner
  32121. tmpOwner
  32122. NoticeType
  32123. DueState
  32124. DueState
  32125.     These fields are hidden at all times and are not sent over the wire; they are simply used in computes
  32126. wAppointmentOpen
  32127. $$QueryOpenAgent
  32128. wAppointmentSave
  32129. $$QuerySaveAgent
  32130. Query_String
  32131. Query_String
  32132. type=hidden
  32133. Path_Info
  32134. Path_Info
  32135.     8S12S14S
  32136. Bearbeitenz
  32137. query_string
  32138. &Date=G
  32139. path_Info
  32140. &Click_
  32141.     0S0E
  32142. NoticeType
  32143.     0S0E
  32144. act_EDIT.GIF|act_EDIT?
  32145. nderungen verwerfen
  32146. ToDoFS
  32147. Appointment
  32148. CalendarFS
  32149.     0S0E
  32150. act_DELETE.GIF|act_DELETE?
  32151. Speichern und Einladungen senden
  32152. AppointmentType
  32153. tmpOwner
  32154. Chair
  32155. NoticeG
  32156.     10S13S14S
  32157. act_SEND.GIF|act_SEND?
  32158. document.forms[0].tmpAction.value = "6"
  32159. submitDocument()
  32160. Als Entwurf speicherna
  32161. AppointmentType
  32162. tmpOwner
  32163. Chair
  32164. NoticeG
  32165.     10S13S14S
  32166. act_save.GIF|act_CSSAVE?
  32167. document.forms[0].tmpAction.value = "2"
  32168. submitDocument()
  32169. Speichern und schlie
  32170. AppointmentType
  32171. TaskType
  32172.     0S0E
  32173. act_ok.GIF|act_CSOK?
  32174. document.forms[0].tmpAction.value = "2"
  32175. submitDocument()
  32176. Speichern und Zuweisungen senden~
  32177. TaskType
  32178. tmpOwner
  32179. Chair
  32180. NoticeG
  32181.     1S2S3S10S13S14S
  32182. act_SEND.GIF|act_SEND?
  32183. document.forms[0].tmpAction.value = "6"
  32184. submitDocument()
  32185. Als Entwurf speichern
  32186. TaskType
  32187. tmpOwner
  32188. Chair
  32189. NoticeG
  32190.     1S2S3S10S13S14S
  32191. act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
  32192. document.forms[0].tmpAction.value = "2"
  32193. submitDocument()
  32194. Zustelloptioneni
  32195. AppointmentType
  32196. tmpOwner
  32197. Chair
  32198. NoticeG
  32199.     10S13S14S
  32200. act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
  32201. displayDialog("CSDeliveryOptions","","","Zustelloptionen",570,350)
  32202. Aktionen\Neu planen
  32203. tmpOwner
  32204. Chair
  32205. AppointmentType
  32206. posteddate
  32207. NoticeG
  32208.     6S9S10S20S21S22S
  32209. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32210. displayDialog("(OwnerDlg)","U","","Neu planen","450","320")
  32211. Aktionen\Neu planen
  32212. tmpOwner
  32213. Chair
  32214. TaskType
  32215. posteddate
  32216. NoticeG
  32217.     6S9S10S
  32218. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32219. displayDialog("(OwnerDlg)","U","","Neu planen","450","320")
  32220. Aktionen\Absagen
  32221. tmpOwner
  32222. Chair
  32223. AppointmentType
  32224. posteddate
  32225. NoticeG
  32226.     6S9S10S20S21S22S
  32227. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32228. displayDialog("(OwnerDlg)","C","","Absagen","450","270")
  32229. Aktionen\Absagen
  32230. tmpOwner
  32231. Chair
  32232. TaskType
  32233. posteddate
  32234. NoticeG
  32235.     6S9S10S
  32236. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32237. displayDialog("(OwnerDlg)","C","","Absagen","450","270")
  32238. Aktionen\Best
  32239. tigen
  32240. tmpOwner
  32241. Chair
  32242. AppointmentType
  32243. posteddate
  32244. NoticeG
  32245.     6S9S10S20S21S22S
  32246. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32247. displayDialog("(OwnerDlg)","N","","Best
  32248. tigen","450","220")
  32249. Aktionen\Best
  32250. tigen
  32251. tmpOwner
  32252. Chair
  32253. TaskType
  32254. posteddate
  32255. NoticeG
  32256.     6S9S10S
  32257. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32258. displayDialog("(OwnerDlg)","N","","Best
  32259. tigen","450","220")
  32260. Aktionen\Status anzeigen`
  32261. path"
  32262. /(wViewParticipantStatus)?OpenAgent&UNID=
  32263.     3S4S5S6S
  32264. tmpOwner
  32265. Chair
  32266. AppointmentType
  32267. posteddate
  32268. NoticeG
  32269.     6S9S10S20S21S22S
  32270. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32271. Aktionen\Status anzeigen`
  32272. path"
  32273. /(wViewParticipantStatus)?OpenAgent&UNID=
  32274.     3S4S5S6S
  32275. tmpOwner
  32276. Chair
  32277. TaskType
  32278. posteddate
  32279. NoticeG
  32280.     6S9S10S
  32281. act_csowneractions.GIF|act_CSOWNERACTIONS?
  32282. Antwort\Annehmen
  32283. tmpOwner
  32284. Chair
  32285. Broadcast
  32286. tmpDoNotProcess
  32287. tmpOwner
  32288. BlindCopyTo
  32289. NoticeType
  32290.     6S9S10S19S20S21S22S23S24S27S28S39S40S
  32291. act_participantactions.GIF|act_CSPARTACTIONS
  32292. if (document.forms[0].Form.value.indexOf('Task')==-1)
  32293. displayDialog("(InviteeReplyDlg)","A","","Annehmen","500","220")
  32294. } else
  32295. updateActionInProgress(65536, true);
  32296. submitDocument()
  32297. Antwort\Ablehnen
  32298. tmpOwner
  32299. Chair
  32300. Broadcast
  32301. tmpDoNotProcess
  32302. tmpOwner
  32303. BlindCopyTo
  32304. NoticeType
  32305.     6S9S10S19S20S21S22S23S24S27S28S39S40S
  32306. act_participantactions.GIF|act_CSPARTACTIONS
  32307. displayDialog("(InviteeReplyDlg)","R","","Ablehnen","500","220")
  32308. Antwort\Delegieren.
  32309. tmpOwner
  32310. Chair
  32311. tmpDoNotProcess
  32312. tmpOwner
  32313. BlindCopyTo
  32314. Broadcast
  32315. PreventDelegate
  32316. NoticeType
  32317.     6S9S10S19S20S21S23S24S35S36S45S46S2E47S48S49S50S51S52S
  32318. act_participantactions.GIF|act_CSPARTACTIONS
  32319. displayDialog("(InviteeReplyDlg)","D","","Delegieren","500","320")
  32320. Antwort\Gegenvorschlag
  32321. tmpOwner
  32322. Chair
  32323. tmpNoActionBar
  32324. tmpOwnerHW
  32325. Broadcast
  32326. PreventCounter
  32327. OrgRepeat
  32328.     6S9S10S19S20S21S22R23S24S25S26S27S28S29S30S31S32S33S34S35S36S37S2E38S43S44S
  32329. act_participantactions.GIF|act_CSPARTACTIONS
  32330. displayDialog("(InviteeReplyDlg)","T","","Gegenvorschlag","500","270")
  32331. Abgeschlossen
  32332. Appointment
  32333. NoticeG
  32334. NoticeType
  32335. DueState
  32336.     15S16S17S18S19S20S
  32337. act_CSCOMPLETED?
  32338. updateActionInProgress(4194306, true);
  32339. submitDocument()
  32340. schen
  32341.     1S10S14S16S23S
  32342.     0R5S
  32343. path"
  32344. /wDelete?OpenAgent&
  32345. UNID"
  32346. &From="
  32347. view"
  32348. tmpWasMailed
  32349.     1S2S
  32350. act_DELETE.GIF|act_DELETE?
  32351. Planer\Alle Zeitpl
  32352. ne pr
  32353. fen...
  32354. AppointmentType
  32355. tmpOwner
  32356. Chair
  32357. NoticeG
  32358.     10S13S14S23S
  32359. act_participantactions.GIF|act_CSPARTACTIONS
  32360. var pathname = (window.location.pathname);
  32361. if (navigator.appName =='Netscape') {
  32362. 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');
  32363.     } else {
  32364. 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');
  32365. Planer\R
  32366. ume suchen...
  32367. AppointmentType
  32368. tmpOwner
  32369. Chair
  32370. NoticeG
  32371.     10S13S14S23S
  32372. act_participantactions.GIF|act_CSPARTACTIONS
  32373. var pathname = (window.location.pathname);
  32374. if (navigator.appName =='Netscape') {
  32375. 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');
  32376.     } else {
  32377. 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');
  32378. Planer\Ressource(n) suchen...
  32379. AppointmentType
  32380. tmpOwner
  32381. Chair
  32382. NoticeG
  32383.     10S13S14S23S
  32384. act_participantactions.GIF|act_CSPARTACTIONS
  32385. var pathname = (window.location.pathname);
  32386. if (navigator.appName =='Netscape') {
  32387. 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');
  32388.     } else {
  32389. 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');
  32390. Gehe zu\Eingang
  32391.     1S2S
  32392. path"
  32393. /MailFS?OpenFrameset"
  32394.     0R3S4S5S6S
  32395. act_goto.gif|act_goto?
  32396. Gehe zu\Kalender
  32397.     1S2S
  32398. path"
  32399. /CalendarFS?OpenFrameset"
  32400.     0R3S4S5S6S
  32401. act_goto.gif|act_goto?
  32402. Gehe zu\Aufgabe
  32403.     1S2S
  32404. path"
  32405. /ToDoFS?OpenFrameset"
  32406.     0R3S4S5S6S
  32407. act_goto.gif|act_goto?
  32408. Gehe zu\Vor
  32409.     0S0E
  32410. act_goto.gif|act_goto?
  32411. Gehe zu\Zur
  32412.     0S0E
  32413. act_goto.gif|act_goto?
  32414. Gegenvorschlag annehmen
  32415. tmpOwner
  32416. Chair
  32417. NoticeType
  32418.     6S9S10S19S20S2E21S22S
  32419. displayDialog("(OwnerDlg)","B","","Annehmen","450","320")
  32420. Gegenvorschlag ablehnen
  32421. tmpAction
  32422.     1S3S
  32423.     0S0E
  32424. tmpOwner
  32425. Chair
  32426. NoticeType
  32427.     6S9S10S19S20S2E21S22S
  32428. Bearbeitenz
  32429. query_string
  32430. &Date=G
  32431. path_Info
  32432. &Click_
  32433.     0S0E
  32434. NoticeType
  32435.     0S0E
  32436. nderungen verwerfen
  32437. ToDoFS
  32438. Appointment
  32439. CalendarFS
  32440.     0S0E
  32441. Aktionen\Status anzeigen`
  32442. path"
  32443. /(wViewParticipantStatus)?OpenAgent&UNID=
  32444.     3S4S5S6S
  32445. tmpOwner
  32446. Chair
  32447. AppointmentType
  32448. posteddate
  32449. NoticeG
  32450.     6S9S10S20S21S22S
  32451. Aktionen\Status anzeigen`
  32452. path"
  32453. /(wViewParticipantStatus)?OpenAgent&UNID=
  32454.     3S4S5S6S
  32455. tmpOwner
  32456. Chair
  32457. TaskType
  32458. posteddate
  32459. NoticeG
  32460.     6S9S10S
  32461. schen
  32462.     1S10S14S16S23S
  32463.     0R5S
  32464. path"
  32465. /wDelete?OpenAgent&
  32466. UNID"
  32467. &From="
  32468. view"
  32469. tmpWasMailed
  32470.     1S2S
  32471. Gehe zu\Eingang
  32472.     1S2S
  32473. path"
  32474. /MailFS?OpenFrameset"
  32475.     0R3S4S5S6S
  32476. Gehe zu\Kalender
  32477.     1S2S
  32478. path"
  32479. /CalendarFS?OpenFrameset"
  32480.     0R3S4S5S6S
  32481. Gehe zu\Aufgabe
  32482.     1S2S
  32483. path"
  32484. /ToDoFS?OpenFrameset"
  32485.     0R3S4S5S6S
  32486. Gehe zu\Vor
  32487.     0S0E
  32488. Gehe zu\Zur
  32489.     0S0E
  32490. Gegenvorschlag ablehnen
  32491. tmpAction
  32492.     1S3S
  32493.     0S0E
  32494. tmpOwner
  32495. Chair
  32496. NoticeType
  32497.     6S9S10S19S20S2E21S22S
  32498. O=Lotus Notes
  32499. O=Lotus Notes
  32500. PURSAFO
  32501. |.:#U
  32502. O=Lotus Notes
  32503. CN=Lotus Notes Template Development/O=Lotus Notes
  32504. PURSAFO
  32505. >I7@)
  32506. PostedDate
  32507. wasposted
  32508. $Language
  32509. $LastBuildTime
  32510. $BabelInfo
  32511. $HTMLCode
  32512. $Info
  32513. $$Script_O
  32514. $$ScriptName
  32515. STARTDATETIME
  32516. EndDateTime
  32517. RepeatStartDate
  32518. RepeatCustom
  32519. RepeatFor
  32520. RepeatUntil
  32521. tmpCalInstanceDate
  32522. tmpOriginalStart
  32523. tmpOriginalEnd
  32524. DueDateTime
  32525. tmpRepeatCheck
  32526. NewStartDate
  32527. NewEndDate
  32528. NewStartTime
  32529. NewEndTime
  32530. tmpWebStartDateTime
  32531. tmpWebEndDateTime
  32532. DueState
  32533. $Body
  32534. $V5ACTIONS
  32535. $ACTIONS
  32536.  Moods
  32537. SenderTag
  32538. SenderTag
  32539.     1S2S3S4S5S6S
  32540. SenderTag
  32541.     0S0E
  32542. @___@
  32543. <a>7`^
  32544. `!bb!R
  32545. SenderTag
  32546.     0S0E
  32547. @___@
  32548. <a>7`^
  32549. `!bb!R
  32550. SenderTag
  32551.     0S0E
  32552. @___@
  32553. <a>7`^
  32554. `!bb!R
  32555. SenderTag
  32556.     0S0E
  32557. @___@
  32558. <a>7`^
  32559. `!bb!R
  32560. SenderTag
  32561.     0S0E
  32562. @___@
  32563. <a>7`^
  32564. `!bb!R
  32565. SenderTag
  32566.     0S0E
  32567. %12-/H
  32568. !G,$W,#I4)X6(H,4W,4G98X<6h*#x+$g9)w8(h.6u-2g<5w<4>B=YA
  32569. WC9iB.xC-iF8wH8jT>zR<rd?
  32570. 2L3;FK=Dj=C:FQ8Qp<b
  32571. GEHXHGLQLZSKEKUVKSGRYYWWgJEvIEiTHyWFfLRwKSgYWwZV[cXtfYPZjl\dWfphhhvigkqlysjhktvlsjtxyww
  32572. SenderTag
  32573.     0S0E
  32574. SenderTag
  32575.     0S0E
  32576. @___@
  32577. <a>7`^
  32578. `!bb!R
  32579. SenderTag
  32580.     0S0E
  32581. SenderTag
  32582.     0S0E
  32583. SenderTag
  32584. SenderTag
  32585. SenderTag
  32586.     4S5S8S9S10S11S
  32587. @___@
  32588. <a>7`^
  32589. `!bb!R
  32590. O=Lotus Notes
  32591. O=Lotus Notes
  32592. PURSAFO
  32593. |.:#U
  32594. O=Lotus Notes
  32595. CN=Lotus Notes Template Development/O=Lotus Notes
  32596. PURSAFO
  32597. $Info
  32598. $$Script_O
  32599. $$ScriptName
  32600. $Body
  32601. $Language
  32602. $LastBuildTime
  32603. $BabelInfo
  32604. '++LotusScript Development Environment:2:5:(Options):0:66
  32605. Option Public
  32606. '++LotusScript Development Environment:2:5:(Forward):0:1
  32607. '++LotusScript Development Environment:2:5:(Declarations):0:10
  32608. Dim note As NotesDocument
  32609. Dim uidoc As notesuidocument
  32610. Lotus Product
  32611.  AlarmOptions'++LotusScript Development Environment:2:5:(Options):0:66
  32612. '++LotusScript Development Environment:2:5:(Forward):0:1
  32613. Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  32614. Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  32615. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32616. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32617. Private Sub BindEvents(Byval Objectname_ As String)
  32618.     Static Source As NOTESUIDOCUMENT
  32619.     Set Source = Bind(Objectname_)
  32620.     On Event Queryopen From Source Call Queryopen
  32621.     On Event Queryclose From Source Call Queryclose
  32622. End Sub
  32623. '++LotusScript Development Environment:2:2:Queryopen:1:12
  32624. Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
  32625.     Dim ws As New NotesUIWorkspace
  32626.     Set uidoc = source
  32627.     Set note = source.document
  32628.     source.autoreload = False
  32629.     Call note.ReplaceItemValue("tmpAlarmFiles",ws.GetListOfTunes)
  32630. End Sub
  32631. '++LotusScript Development Environment:2:2:Queryclose:1:12
  32632. Sub Queryclose(Source As Notesuidocument, Continue As Variant)
  32633. End Sub
  32634. Lotus Product
  32635. tmpAlarmFiles
  32636.     Alarmzeit
  32637. ItemName
  32638. TaskLead
  32639. AppointmentType
  32640. AnniversaryLead
  32641. AppointmentType
  32642. EventLead
  32643. AppointmentType
  32644. ReminderLead
  32645. AppointmentLead
  32646.     1S2S5S6S8S10S11S12S14S16R17S18S20S22S23S24S26S
  32647. ProfileTime
  32648. ItemName
  32649. TaskLead
  32650. AnniversaryLead
  32651. EventLead
  32652. CalendarProfile
  32653. ItemName
  32654. CalendarProfile
  32655. ItemName
  32656.     0R1S2S5S7S8S9S12S13S14S21S25S
  32657. $AlarmOffset
  32658. $AlarmOffseth
  32659. $AlarmOffset
  32660. $AlarmTimeh
  32661. $AlarmTime
  32662. StartDateTime
  32663. ProfileTime
  32664.     0R1S2S3S10S12S17S18S19S21S
  32665. tmpOffsetMinutes
  32666. $AlarmOffsetA
  32667.     0RS1S2S
  32668. tmpAlarmUnit
  32669. tmpAlarmUnit
  32670.     0RR1S2S
  32671. tmpResult
  32672. tmpResult
  32673.     0R1S2S
  32674. $AlarmUnit
  32675. $AlarmUnit
  32676.     0R1S2S3S
  32677. tmpOffsetMinutes
  32678. $AlarmUnit
  32679.     0RR3S4S6S15S
  32680. tmpOffsetMinutes
  32681. tmpResult
  32682. tmpOffsetMinutes
  32683. tmpAlarmUnit
  32684. tmpOffsetMinutes
  32685. tmpResult
  32686. tmpOffsetMinutes
  32687. tmpAlarmUnit
  32688. tmpResult
  32689. tmpOffsetMinutes
  32690. tmpAlarmUnit
  32691.     0R3S4S6S12S17S21S25RT26S27S29S35S40S44S48RT54S57S61S
  32692. $AlarmUnit
  32693. tmpAlarmUnit
  32694.     0RR1S2S3S
  32695. tmpResult
  32696. tmpOffset
  32697.     2S3S4S6S8S11S
  32698. tmpAlarmUnit
  32699. tmpAlarmUnit
  32700.     0R1S2S
  32701. tmpResult
  32702. tmpResult
  32703.     0R1S2S
  32704. $AlarmUnit
  32705. $AlarmUnit
  32706.     0R1S2S3S
  32707. tmpOffsetMinutes
  32708. $AlarmUnit
  32709. tmpOffset
  32710. $AlarmUnit
  32711. tmpOffset
  32712. tmpOffset
  32713.     0RR1S2S6S7S8S10S11S12S14S15S16S18S2E19S20S22S
  32714. tmpOffsetMinutes
  32715. $AlarmUnit
  32716.     0RR3S4S6S15S
  32717. tmpOffsetMinutes
  32718. tmpResult
  32719. tmpOffsetMinutes
  32720. tmpAlarmUnit
  32721. tmpOffsetMinutes
  32722. tmpResult
  32723. tmpOffsetMinutes
  32724. tmpAlarmUnit
  32725. tmpResult
  32726. tmpOffsetMinutes
  32727. tmpAlarmUnit
  32728.     0R3S4S6S12S17S21S25RT26S27S29S35S40S44S48RT54S57S61S
  32729. $AlarmUnit
  32730. tmpAlarmUnit
  32731.     0RR1S2S3S
  32732. tmpResult
  32733. xxFailed
  32734. Sie m
  32735. ssen eine Alarmzeit eingeben.
  32736.     1S2S
  32737. tmpOffset
  32738. xxFailed{
  32739.     0R3S4S6S11StmpOffset
  32740. $AlarmUnit
  32741. $AlarmUnit
  32742. Current
  32743. $AlarmOffseth
  32744. $AlarmOffset
  32745.     0R1S2S9S
  32746. FixedCurrent
  32747. Current
  32748. Current
  32749.     0R1S2S5S6S8S10S
  32750. FixedCurrent
  32751. FixedCurrent
  32752.     0R3S4S6S9S10S12S14S15S
  32753. $AlarmUnit
  32754. Minute(n)|MStunde(n)|HTag(e)|D
  32755. $AlarmOffseth
  32756. $AlarmOffset
  32757.     7S10S11S13S15S18StmpOffsetDir
  32758. davor|1danach|2
  32759.     Beschreibung
  32760. $AlarmDescription
  32761. $AlarmDescription
  32762.     0S0E
  32763. tmpAlarmPopup
  32764.     Alarm
  32765. tmpPlaySound
  32766.     1S2S
  32767. $AlarmSound
  32768. Calendarprofile
  32769. AlarmSound
  32770.     7S15S19S21StmpPlaySound
  32771. Klang wiedergeben|1
  32772. $AlarmSound
  32773. $AlarmSound
  32774. Calendarprofile
  32775. AlarmSound
  32776.     7S9S13StmpAlarmPath
  32777. tmpAlarmFiles
  32778. $AlarmSound
  32779.     5S6S
  32780. '++LotusScript Development Environment:2:5:(Options):0:66
  32781. '++LotusScript Development Environment:2:5:(Forward):0:1
  32782. Declare Sub Click(Source As Button)
  32783. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32784. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32785. Private Sub BindEvents(Byval Objectname_ As String)
  32786. Static Source As BUTTON
  32787. Set Source = Bind(Objectname_)
  32788. On Event Click From Source Call Click
  32789. End Sub
  32790. '++LotusScript Development Environment:2:2:Click:1:12
  32791. Sub Click(Source As Button)
  32792. Set ws = New notesuiworkspace
  32793.     Call ws.PlayTune(note.GetItemValue("tmpAlarmPath")(0))
  32794. End Sub
  32795. Lotus Product
  32796. '++LotusScript Development Environment:2:5:(Options):0:66
  32797. '++LotusScript Development Environment:2:5:(Forward):0:1
  32798. Declare Sub Click(Source As Button)
  32799. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32800. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32801. Private Sub BindEvents(Byval Objectname_ As String)
  32802.     Static Source As BUTTON
  32803.     Set Source = Bind(Objectname_)
  32804.     On Event Click From Source Call Click
  32805. End Sub
  32806. '++LotusScript Development Environment:2:2:Click:1:12
  32807. Sub Click(Source As Button)
  32808.     Dim ws As New notesuiworkspace
  32809.     Dim strSound As String
  32810.     strSound = note.GetItemValue("tmpAlarmPath")(0)
  32811.     If Len(strSound) Then Call ws.PlayTune(strSound)
  32812. End Sub
  32813. Lotus Product
  32814. New Button
  32815. Need a newer version of Notes to execute this button.
  32816.     0S0E
  32817.     Wiedergeben
  32818. $AlarmSendTo
  32819.     2S5S6S7S9S11S$AlarmMemoOptions
  32820. Mail-Nachricht mit Titel und Beschreibung des Eintrags senden |2
  32821. $AlarmMemoOptions
  32822.     1S2S
  32823.     Empf
  32824. $AlarmMemoOptions
  32825.     1S2S
  32826. xxNoNames
  32827. Sie haben versucht, diesen Alarm zu senden, ohne jedoch Empf
  32828. nger angegeben zu haben. Bitte f
  32829. gen Sie Empf
  32830. ngernamen hinzu, oder heben Sie die Option zum Senden einer Mail-Nachricht auf.
  32831.     1S2S
  32832. $AlarmMemoOptions
  32833. $AlarmSendTo
  32834. xxNoNames
  32835.     0R3S4S5S6S7S8S10S15S
  32836. $AlarmSendTo
  32837. DialogButton Address.GIF|Address
  32838. SendTo
  32839. $AlarmSendTo
  32840. $AlarmSendTo
  32841.     1S2S3S
  32842. $AlarmMemoOptions
  32843.     1S2S
  32844. $AlarmY
  32845.     0S0E
  32846. $AlarmDisabled
  32847. Deaktivieren|1
  32848. O=Lotus Notes
  32849. O=Lotus Notes
  32850. PURSAFO
  32851. |.:#U
  32852. O=Lotus Notes
  32853. CN=Lotus Notes Template Development/O=Lotus Notes
  32854. PURSAFO
  32855. tmpAlarmValue
  32856. tmpAlarmOnDate
  32857. tmpAlarmOnTime
  32858. $Language
  32859. $LastBuildTime
  32860. $BabelInfo
  32861. $Info
  32862. $Script
  32863. $$Script_O
  32864. $$ScriptName
  32865. $$FormScript
  32866. $$$FormScript_O
  32867. tmpOffset
  32868. $Body
  32869. $PublicAccess
  32870. $65$59$66$55$62$60$Conflict
  32871. Memovorlage
  32872. nliche Vorlage
  32873.     6S8S
  32874. IsMailStationeryh
  32875.     7S9S
  32876. SendTo
  32877.     1S2S6S
  32878.     0R1S2S8S
  32879.     0R1S2S15S16S17S18S25S
  32880. SendTo
  32881.     0R1S2S5S6S8S12S16S20S
  32882. SendTo
  32883.     0R1S2S5S6S8S12S16S20S
  32884. Person
  32885.     0R1S2S5S6S8S10S11S12S13S14S
  32886. Person
  32887. Person
  32888. Person
  32889. Person
  32890.     0R10S11S20S32S
  32891. $55;i
  32892. $ContentIconh
  32893. $ContentIcon
  32894. Froma
  32895.  pager 
  32896. SendToa
  32897.  pager 
  32898. message.wav
  32899. vmsg_hdr.wav
  32900. .wavG
  32901. .tifG
  32902. $ContentIconh
  32903. $ContentIcon
  32904.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  32905. IsMailStationeryh
  32906. MailStationeryName
  32907. Subject
  32908.     7S9S
  32909. ISMAILSTATIONERY
  32910.     L1S2S3S
  32911. Memovorlage
  32912. nliche Vorlage
  32913.     6S8S
  32914. IsMailStationeryh
  32915.     7S9S
  32916. $66Werl
  32917. SendTo
  32918.     1S2S6S
  32919.     0R1S2S8S
  32920.     0R1S2S15S16S17S18S25S
  32921. SendTo
  32922.     0R1S2S5S6S8S12S16S20S
  32923. SendTo
  32924.     0R1S2S5S6S8S12S16S20S
  32925. Person
  32926.     0R1S2S5S6S8S10S11S12S13S14S
  32927. Person
  32928. Person
  32929. Person
  32930. Person
  32931.     0R10S11S20S32S
  32932. $55Datum
  32933. $55;i
  32934. $ContentIconh
  32935. $ContentIcon
  32936. Froma
  32937.  pager 
  32938. SendToa
  32939.  pager 
  32940. message.wav
  32941. vmsg_hdr.wav
  32942. .wavG
  32943. .tifG
  32944. $ContentIconh
  32945. $ContentIcon
  32946.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Vorlageb
  32947. IsMailStationeryh
  32948. MailStationeryName
  32949. Subject
  32950.     7S9S
  32951. Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  32952. '++LotusScript Development Environment:2:5:(Forward):0:1
  32953. Declare Sub Click(Source As Button)
  32954. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32955. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32956. Private Sub BindEvents(Byval Objectname_ As String)
  32957.     Static Source As BUTTON
  32958.     Set Source = Bind(Objectname_)
  32959.     On Event Click From Source Call Click
  32960. End Sub
  32961. '++LotusScript Development Environment:2:2:Click:1:12
  32962. Sub Click(Source As Button)
  32963.     Dim session As New notessession
  32964.     Dim uiws As New notesuiworkspace
  32965.     Dim collection As notesdocumentcollection
  32966.     Dim noteUIEditDocument As notesuidocument
  32967.     Dim database As NotesDatabase
  32968.     Set noteCursorDoc = session.currentdatabase.createdocument
  32969.     Set database = session.currentdatabase
  32970.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  32971. hlen", "W
  32972. hlen Sie bitte eine Vorlage f
  32973. r das neue Memo.")
  32974.     Set noteCursorDoc = collection.getfirstdocument
  32975.     If Not noteCursorDoc Is Nothing Then
  32976.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  32977.     End If
  32978. End Sub
  32979. IsMailStationery
  32980.     1S2S
  32981. Neues Memo\Neues MemoX(
  32982.     0S0E
  32983. Neues Memo\Neue Nachricht - Vorlage verwendenX'++LotusScript Development Environment:2:5:(Options):0:66
  32984. '++LotusScript Development Environment:2:5:(Forward):0:1
  32985. Declare Sub Click(Source As Button)
  32986. '++LotusScript Development Environment:2:5:(Declarations):0:2
  32987. '++LotusScript Development Environment:2:2:BindEvents:1:129
  32988. Private Sub BindEvents(Byval Objectname_ As String)
  32989.     Static Source As BUTTON
  32990.     Set Source = Bind(Objectname_)
  32991.     On Event Click From Source Call Click
  32992. End Sub
  32993. '++LotusScript Development Environment:2:2:Click:1:12
  32994. Sub Click(Source As Button)
  32995.     Dim session As New notessession
  32996.     Dim uiws As New notesuiworkspace
  32997.     Dim collection As notesdocumentcollection
  32998.     Dim noteUIEditDocument As notesuidocument
  32999.     Dim database As NotesDatabase
  33000.     Set noteCursorDoc = session.currentdatabase.createdocument
  33001.     Set database = session.currentdatabase
  33002.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  33003. hlen", "W
  33004. hlen Sie bitte eine Vorlage f
  33005. r das neue Memo.")
  33006.     Set noteCursorDoc = collection.getfirstdocument
  33007.     If Not noteCursorDoc Is Nothing Then
  33008.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33009.     End If
  33010. End Sub
  33011. _WeiterleitenX
  33012. Weiterleiten 
  33013.     0S0E
  33014. ISMAILSTATIONERY
  33015.     1S2S
  33016. Neue Vorlage\MemovorlageL
  33017. MailStEd
  33018.     1S2S3S
  33019.     0R4S
  33020. Neue Vorlage\Pers
  33021. nliche Vorlage\
  33022. MailStEd
  33023.     1S2S3S
  33024. Personal Stationery
  33025.     0R4S
  33026. Bearbeiten
  33027. 00000000
  33028. Lotus Notes Vorlage
  33029. Bitte w
  33030. hlen Sie ein Dokument aus, bevor Sie diesen Befehl ausf
  33031. hren.
  33032.     11S12S14S16S
  33033. MailStEd
  33034.     0R1S2S3S
  33035. Vorlage umbenennen...X
  33036. xxERROR
  33037. Es ist kein Dokument ausgew
  33038.     0S0E
  33039. xxTitle
  33040. Vorlage umbenennen...
  33041. xxPrompt
  33042. Bitte geben Sie den neuen Namen f
  33043. r die Vorlage ein.
  33044. xxTitle
  33045. xxERROR
  33046. MailStationeryName
  33047. xxTitle
  33048. xxPrompt
  33049. MailStationeryName
  33050.     0RR1S
  33051. schenX
  33052. 00000000
  33053. Lotus Notes Vorlage
  33054. Bitte w
  33055. hlen Sie ein Dokument aus, bevor Sie diesen Befehl ausf
  33056. hren.
  33057.     11S12S14S16S
  33058. _KategorisierenX
  33059. Bearbeiten
  33060. Senden
  33061. In Ordner _verschieben...X
  33062. Aus Ordner _entfernen...
  33063. Werkzeuge\Vorgaben...XR
  33064. DialogMode
  33065. (Preferences)
  33066. Werkzeuge\Abwesenheit...8
  33067. (EditOfficeProfile)
  33068.     0S0E
  33069. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  33070. Use "CommonUI"
  33071. '++LotusScript Development Environment:2:5:(Forward):0:1
  33072. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33073. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33074. Private Sub BindEvents(Byval Objectname_ As String)
  33075.     Static Source As BUTTON
  33076.     Set Source = Bind(Objectname_)
  33077. End Sub
  33078. Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  33079. '++LotusScript Development Environment:2:5:(Forward):0:1
  33080. Declare Sub Click(Source As Button)
  33081. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33082. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33083. Private Sub BindEvents(Byval Objectname_ As String)
  33084.     Static Source As BUTTON
  33085.     Set Source = Bind(Objectname_)
  33086.     On Event Click From Source Call Click
  33087. End Sub
  33088. '++LotusScript Development Environment:2:2:Click:1:12
  33089. Sub Click(Source As Button)
  33090.     Dim session As New notessession
  33091.     Dim uiws As New notesuiworkspace
  33092.     Dim collection As notesdocumentcollection
  33093.     Dim noteUIEditDocument As notesuidocument
  33094.     Dim database As NotesDatabase
  33095.     Set noteCursorDoc = session.currentdatabase.createdocument
  33096.     Set database = session.currentdatabase
  33097.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  33098. hlen", "W
  33099. hlen Sie bitte eine Vorlage f
  33100. r das neue Memo.")
  33101.     Set noteCursorDoc = collection.getfirstdocument
  33102.     If Not noteCursorDoc Is Nothing Then
  33103.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33104.     End If
  33105. End Sub
  33106. IsMailStationery
  33107.     1S2S
  33108. act_NEWMAIL.GIF|act_NEWMAILX
  33109. Neues Memo\Neues MemoX(
  33110.     0S0E
  33111. act_NEWMAIL.GIF|act_NEWMAILX
  33112. Neues Memo\Neue Nachricht - Vorlage verwendenX'++LotusScript Development Environment:2:5:(Options):0:66
  33113. '++LotusScript Development Environment:2:5:(Forward):0:1
  33114. Declare Sub Click(Source As Button)
  33115. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33116. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33117. Private Sub BindEvents(Byval Objectname_ As String)
  33118.     Static Source As BUTTON
  33119.     Set Source = Bind(Objectname_)
  33120.     On Event Click From Source Call Click
  33121. End Sub
  33122. '++LotusScript Development Environment:2:2:Click:1:12
  33123. Sub Click(Source As Button)
  33124.     Dim session As New notessession
  33125.     Dim uiws As New notesuiworkspace
  33126.     Dim collection As notesdocumentcollection
  33127.     Dim noteUIEditDocument As notesuidocument
  33128.     Dim database As NotesDatabase
  33129.     Set noteCursorDoc = session.currentdatabase.createdocument
  33130.     Set database = session.currentdatabase
  33131.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  33132. hlen", "W
  33133. hlen Sie bitte eine Vorlage f
  33134. r das neue Memo.")
  33135.     Set noteCursorDoc = collection.getfirstdocument
  33136.     If Not noteCursorDoc Is Nothing Then
  33137.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33138.     End If
  33139. End Sub
  33140. act_NEWMAIL.GIF|act_NEWMAILX
  33141. _WeiterleitenX
  33142. Weiterleiten 
  33143.     0S0E
  33144. ISMAILSTATIONERY
  33145.     1S2S
  33146. act_FORWARD.GIF|act_FORWARDX
  33147. Neue Vorlage\MemovorlageL
  33148. MailStEd
  33149.     1S2S3S
  33150.     0R4S
  33151. act_NEWSTATIONERY.GIF|act_NEWSTATIONERYX
  33152. Neue Vorlage\Pers
  33153. nliche Vorlage\
  33154. MailStEd
  33155.     1S2S3S
  33156. Personal Stationery
  33157.     0R4S
  33158. act_NEWSTATIONERY.GIF|act_NEWSTATIONERYX
  33159. Bearbeiten
  33160. 00000000
  33161. Lotus Notes Vorlage
  33162. Bitte w
  33163. hlen Sie ein Dokument aus, bevor Sie diesen Befehl ausf
  33164. hren.
  33165.     11S12S14S16S
  33166. MailStEd
  33167.     0R1S2S3S
  33168. act_EDIT.GIF|act_EDITX
  33169. Vorlage umbenennen...X
  33170. xxERROR
  33171. Es ist kein Dokument ausgew
  33172.     0S0E
  33173. xxTitle
  33174. Vorlage umbenennen...
  33175. xxPrompt
  33176. Bitte geben Sie den neuen Namen f
  33177. r die Vorlage ein.
  33178. xxTitle
  33179. xxERROR
  33180. MailStationeryName
  33181. xxTitle
  33182. xxPrompt
  33183. MailStationeryName
  33184.     0RR1S
  33185. act_RENAME.GIF|act_RENAMEX
  33186. schenX
  33187. 00000000
  33188. Lotus Notes Vorlage
  33189. Bitte w
  33190. hlen Sie ein Dokument aus, bevor Sie diesen Befehl ausf
  33191. hren.
  33192.     11S12S14S16S
  33193. act_DELETE.GIF|act_DELETEX
  33194. _KategorisierenX
  33195. Bearbeiten
  33196. Senden
  33197. In Ordner _verschieben...X
  33198. Aus Ordner _entfernen...
  33199. Werkzeuge\Vorgaben...XR
  33200. DialogMode
  33201. (Preferences)
  33202. act_TOOLS.GIF|act_TOOLSX
  33203. Werkzeuge\Abwesenheit...8
  33204. (EditOfficeProfile)
  33205.     0S0E
  33206. act_TOOLS.GIF|act_TOOLSX
  33207. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  33208. Use "CommonUI"
  33209. '++LotusScript Development Environment:2:5:(Forward):0:1
  33210. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33211. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33212. Private Sub BindEvents(Byval Objectname_ As String)
  33213.     Static Source As BUTTON
  33214.     Set Source = Bind(Objectname_)
  33215. End Sub
  33216. '++LotusScript Development Environment:2:5:(Options):0:74
  33217. Option Public
  33218. '++LotusScript Development Environment:2:5:(Forward):0:1
  33219. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33220. Lotus Product
  33221. Lotus Product
  33222. Lotus Product
  33223. Lotus Product
  33224. O=Lotus Notes
  33225. O=Lotus Notes
  33226. PURSAFO
  33227. |.:#U
  33228. O=Lotus Notes
  33229. CN=Lotus Notes Template Development/O=Lotus Notes
  33230. PURSAFO
  33231. (9^y_
  33232. $FormatNote
  33233. $WebFlags
  33234. $PublicAccess
  33235. $Index
  33236. $FormulaClass
  33237. $AppHelpFormula
  33238. $Formula
  33239. $VIEWFORMAT
  33240. $ACTIONS
  33241. $V5ACTIONS
  33242. $ViewGlobalScript
  33243. $ViewGlobalScript_O
  33244. $SCRIPTOBJ_0
  33245. $SCRIPTOBJ_2
  33246. $SCRIPTOBJ_17
  33247. $Language
  33248. $LastBuildTime
  33249. $BabelInfo
  33250. Lotus Product
  33251. $93$102$68$106$105$74$Conflict
  33252. DeliveredDate
  33253. PostedDate
  33254. PostedDateY
  33255. IsMailStationeryh
  33256. _ViewIcon
  33257. _ViewIcon
  33258. Importance
  33259. Importance
  33260. _ViewIcon
  33261. _ViewIcon
  33262. $TypeIcon
  33263.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  33264. SentBy
  33265. Principal
  33266. Principal
  33267.     1S2S5S6S8S10S
  33268. Attendees
  33269. RequiredAttendees
  33270. OptionalAttendees
  33271.     0R1S2S5S6S
  33272. DeliveredDate
  33273. SentBy
  33274. Attendees
  33275. Attendees
  33276. SendTo
  33277. SentBy
  33278. SendTo
  33279.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  33280.     0R1S2S8S
  33281.     0R1S2S15S16S
  33282.     0R1S2S5S6S8S14S18S
  33283.     0R1S2S5S6S8S14S18S
  33284. Person
  33285. X400FreeForm^
  33286.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  33287. Person2
  33288. Person
  33289. Person
  33290. Person
  33291. Person
  33292.     0R1S2S12S13S22S34S
  33293. Delivery Report
  33294. NonDelivery Report
  33295. Trace Report
  33296. Mail Router
  33297. Person2
  33298.     0R3S4S5S6S7S8S10S12S
  33299. DeliveredDate
  33300. DeliveredDate
  33301. PostedDate
  33302. PostedDate
  33303.     3S4S6S8S9S10S12S14S
  33304. _ViewIcon2h
  33305. _ViewIcon2
  33306. $ContentIconh
  33307. $ContentIcon
  33308. Froma
  33309.  pager 
  33310. SendToa
  33311.  pager 
  33312. message.wav
  33313. vmsg_hdr.wav
  33314. .wavG
  33315. .tifG
  33316. $ContentIconh
  33317. $ContentIcon
  33318.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  33319. NonDelivery Report
  33320. ZUSTELLUNGSFEHLER: 
  33321. FailureReason
  33322. Delivery Report
  33323. ZUGESTELLT: 
  33324. Subject
  33325. Return Receipt
  33326. EMPFANGEN: 
  33327. Subject
  33328. ReturnNonReceipt
  33329. NICHT EMPFANGEN: 
  33330. Subject
  33331. Subject
  33332.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  33333. ExcludeFromView
  33334.     L1S2E
  33335. DeliveredDate
  33336. PostedDate
  33337. PostedDateY
  33338. IsMailStationeryh
  33339. _ViewIcon
  33340. _ViewIcon
  33341. Importance
  33342. Importance
  33343. _ViewIcon
  33344. _ViewIcon
  33345. $TypeIcon
  33346.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  33347. $102Wer
  33348. SentBy
  33349. Principal
  33350. Principal
  33351.     1S2S5S6S8S10S
  33352. Attendees
  33353. RequiredAttendees
  33354. OptionalAttendees
  33355.     0R1S2S5S6S
  33356. DeliveredDate
  33357. SentBy
  33358. Attendees
  33359. Attendees
  33360. SendTo
  33361. SentBy
  33362. SendTo
  33363.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  33364.     0R1S2S8S
  33365.     0R1S2S15S16S
  33366.     0R1S2S5S6S8S14S18S
  33367.     0R1S2S5S6S8S14S18S
  33368. Person
  33369. X400FreeForm^
  33370.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  33371. Person2
  33372. Person
  33373. Person
  33374. Person
  33375. Person
  33376.     0R1S2S12S13S22S34S
  33377. Delivery Report
  33378. NonDelivery Report
  33379. Trace Report
  33380. Mail Router
  33381. Person2
  33382.     0R3S4S5S6S7S8S10S12S
  33383. $68Datum
  33384. DeliveredDate
  33385. DeliveredDate
  33386. PostedDate
  33387. PostedDate
  33388.     3S4S6S8S9S10S12S14S$106Gr
  33389. $105z
  33390. _ViewIcon2h
  33391. _ViewIcon2
  33392. $ContentIconh
  33393. $ContentIcon
  33394. Froma
  33395.  pager 
  33396. SendToa
  33397.  pager 
  33398. message.wav
  33399. vmsg_hdr.wav
  33400. .wavG
  33401. .tifG
  33402. $ContentIconh
  33403. $ContentIcon
  33404.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Thema
  33405. NonDelivery Report
  33406. ZUSTELLUNGSFEHLER: 
  33407. FailureReason
  33408. Delivery Report
  33409. ZUGESTELLT: 
  33410. Subject
  33411. Return Receipt
  33412. EMPFANGEN: 
  33413. Subject
  33414. ReturnNonReceipt
  33415. NICHT EMPFANGEN: 
  33416. Subject
  33417. Subject
  33418.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  33419. _KategorisierenX
  33420. Senden
  33421. In Ordner _verschieben...X
  33422. Aus Ordner _entfernen...
  33423. Neues Memo(
  33424.     0S0E
  33425. Antwort\AntwortX0
  33426. Reply
  33427.     0S0E
  33428. Antwort\Antwort mit ProtokollX
  33429. Antwort mit Protokoll
  33430. Dieses Dokument ist unvollst
  33431. ndig.
  33432.     4S8S10S13S
  33433. Reply with history
  33434. Antwort\Allen antwortenXX
  33435. MailStEd
  33436.     0S0E
  33437. Reply
  33438. Antwort\Allen antworten (mit Protokoll)X
  33439. MailStEd
  33440.     0S0E
  33441. Antwort mit Protokoll
  33442. Dieses Dokument ist unvollst
  33443. ndig.
  33444.     0R4S8S10S13S
  33445. Reply with history
  33446. Weiterleiten 
  33447.     0S0E
  33448. ISMAILSTATIONERY
  33449.     1S2S
  33450. _WeiterleitenX
  33451. _BearbeitenX
  33452. schenX 
  33453.     0S0E
  33454. Ordner\Ordner erstellenX 
  33455.     0S0E
  33456. Ordner\In Ordner verschieben...X 
  33457.     0S0E
  33458. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  33459. Use "CommonUI"
  33460. '++LotusScript Development Environment:2:5:(Forward):0:1
  33461. Declare Sub Click(Source As Button)
  33462. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33463. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33464. Private Sub BindEvents(Byval Objectname_ As String)
  33465. Static Source As BUTTON
  33466. Set Source = Bind(Objectname_)
  33467. On Event Click From Source Call Click
  33468. End Sub
  33469. '++LotusScript Development Environment:2:2:Click:1:12
  33470. Sub Click(Source As Button)
  33471.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  33472. End Sub
  33473. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  33474. Use "CommonUI"
  33475. '++LotusScript Development Environment:2:5:(Forward):0:1
  33476. Declare Sub Click(Source As Button)
  33477. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33478. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33479. Private Sub BindEvents(Byval Objectname_ As String)
  33480. Static Source As BUTTON
  33481. Set Source = Bind(Objectname_)
  33482. On Event Click From Source Call Click
  33483. End Sub
  33484. '++LotusScript Development Environment:2:2:Click:1:12
  33485. Sub Click(Source As Button)
  33486.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  33487. End Sub
  33488. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  33489. Use "CommonUI"
  33490. '++LotusScript Development Environment:2:5:(Forward):0:1
  33491. Declare Sub Click(Source As Button)
  33492. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33493. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33494. Private Sub BindEvents(Byval Objectname_ As String)
  33495.     Static Source As BUTTON
  33496.     Set Source = Bind(Objectname_)
  33497.     On Event Click From Source Call Click
  33498. End Sub
  33499. '++LotusScript Development Environment:2:2:Click:1:12
  33500. Sub Click(Source As Button)
  33501.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  33502. End Sub
  33503. Werkzeuge\Vorgaben...XR
  33504. DialogMode
  33505. (Preferences)
  33506. Werkzeuge\Abwesenheit...8
  33507. (EditOfficeProfile)
  33508.     0S0E
  33509. Werkzeuge\Absender in Adre
  33510. buch aufnehmenX<
  33511. (AddSenderToAddressBook)
  33512.     0S0E
  33513. Werkzeuge\Mail-Verfolgungsanforderung senden:
  33514. (SendTrackingRequest)
  33515.     0S0E
  33516. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  33517. '++LotusScript Development Environment:2:5:(Forward):0:1
  33518. Declare Sub Click(Source As Button)
  33519. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33520. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33521. Private Sub BindEvents(Byval Objectname_ As String)
  33522.     Static Source As BUTTON
  33523.     Set Source = Bind(Objectname_)
  33524.     On Event Click From Source Call Click
  33525. End Sub
  33526. '++LotusScript Development Environment:2:2:Click:1:12
  33527. Sub Click(Source As Button)
  33528.     Dim session As New notessession
  33529.     Dim uiws As New notesuiworkspace
  33530.     Dim collection As notesdocumentcollection
  33531.     Dim noteUIEditDocument As notesuidocument
  33532.     Dim database As NotesDatabase
  33533.     Set noteCursorDoc = session.currentdatabase.createdocument
  33534.     Set database = session.currentdatabase
  33535.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  33536. hlen", "W
  33537. hlen Sie bitte eine Vorlage f
  33538. r das neue Memo.")
  33539.     Set noteCursorDoc = collection.getfirstdocument
  33540.     If Not noteCursorDoc Is Nothing Then
  33541.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33542.     End If
  33543. End Sub
  33544. Neues Memo
  33545.     1S10S14S16S23S
  33546. path"
  33547. /Memo?OpenForm&From="
  33548. view"
  33549. Ordner\In Ordner verschieben...X*
  33550.     0S0E
  33551. Ordner\Aus Ordner entfernenX 
  33552.     0S0E
  33553. schen\L
  33554. schenX 
  33555.     0S0E
  33556. schen\Papierkorb leerenX 
  33557.     0S0E
  33558. Werkzeuge\Vorgaben0
  33559. wPreferences
  33560.     0S0E
  33561. Werkzeuge\Suchen 
  33562.     0S0E
  33563. Werkzeuge\HilfeX,
  33564. WebHelp
  33565.     0S0E
  33566. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  33567. Use "CommonUI"
  33568. '++LotusScript Development Environment:2:5:(Forward):0:1
  33569. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33570. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33571. Private Sub BindEvents(Byval Objectname_ As String)
  33572.     Static Source As BUTTON
  33573.     Set Source = Bind(Objectname_)
  33574. End Sub
  33575. _KategorisierenX
  33576. Senden
  33577. In Ordner _verschieben...X
  33578. Aus Ordner _entfernen...
  33579. Neues Memo(
  33580.     0S0E
  33581. act_NEWMEMO.GIF|act_NEWMEMOX
  33582. Antwort\AntwortX0
  33583. Reply
  33584.     0S0E
  33585. act_REPLY.GIF|act_REPLYX
  33586. Antwort\Antwort mit ProtokollX
  33587. Antwort mit Protokoll
  33588. Dieses Dokument ist unvollst
  33589. ndig.
  33590.     4S8S10S13S
  33591. Reply with history
  33592. act_REPLY.GIF|act_REPLYX
  33593. Antwort\Allen antwortenXX
  33594. MailStEd
  33595.     0S0E
  33596. Reply
  33597. act_REPLY.GIF|act_REPLYX
  33598. Antwort\Allen antworten (mit Protokoll)X
  33599. MailStEd
  33600.     0S0E
  33601. Antwort mit Protokoll
  33602. Dieses Dokument ist unvollst
  33603. ndig.
  33604.     0R4S8S10S13S
  33605. Reply with history
  33606. act_REPLY.GIF|act_REPLYX
  33607. Weiterleiten 
  33608.     0S0E
  33609. ISMAILSTATIONERY
  33610.     1S2S
  33611. act_FORWARD.GIF|act_FORWARDX
  33612. _WeiterleitenX
  33613. _BearbeitenX
  33614. schenX 
  33615.     0S0E
  33616. act_DELETE.GIF|act_DELETEX
  33617. Ordner\Ordner erstellenX 
  33618.     0S0E
  33619. act_FOLDER.GIF|act_FOLDERX
  33620. Ordner\In Ordner verschieben...X 
  33621.     0S0E
  33622. act_FOLDER.GIF|act_FOLDERX
  33623. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  33624. Use "CommonUI"
  33625. '++LotusScript Development Environment:2:5:(Forward):0:1
  33626. Declare Sub Click(Source As Button)
  33627. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33628. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33629. Private Sub BindEvents(Byval Objectname_ As String)
  33630. Static Source As BUTTON
  33631. Set Source = Bind(Objectname_)
  33632. On Event Click From Source Call Click
  33633. End Sub
  33634. '++LotusScript Development Environment:2:2:Click:1:12
  33635. Sub Click(Source As Button)
  33636.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  33637. End Sub
  33638. act_COPYINTO.GIF|act_COPYINTOX
  33639. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  33640. Use "CommonUI"
  33641. '++LotusScript Development Environment:2:5:(Forward):0:1
  33642. Declare Sub Click(Source As Button)
  33643. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33644. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33645. Private Sub BindEvents(Byval Objectname_ As String)
  33646. Static Source As BUTTON
  33647. Set Source = Bind(Objectname_)
  33648. On Event Click From Source Call Click
  33649. End Sub
  33650. '++LotusScript Development Environment:2:2:Click:1:12
  33651. Sub Click(Source As Button)
  33652.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  33653. End Sub
  33654. act_COPYINTO.GIF|act_COPYINTOX
  33655. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  33656. Use "CommonUI"
  33657. '++LotusScript Development Environment:2:5:(Forward):0:1
  33658. Declare Sub Click(Source As Button)
  33659. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33660. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33661. Private Sub BindEvents(Byval Objectname_ As String)
  33662.     Static Source As BUTTON
  33663.     Set Source = Bind(Objectname_)
  33664.     On Event Click From Source Call Click
  33665. End Sub
  33666. '++LotusScript Development Environment:2:2:Click:1:12
  33667. Sub Click(Source As Button)
  33668.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  33669. End Sub
  33670. act_COPYINTO.GIF|act_COPYINTOX
  33671. Werkzeuge\Vorgaben...XR
  33672. DialogMode
  33673. (Preferences)
  33674. act_TOOLS.GIF|act_TOOLSX
  33675. Werkzeuge\Abwesenheit...8
  33676. (EditOfficeProfile)
  33677.     0S0E
  33678. act_TOOLS.GIF|act_TOOLSX
  33679. Werkzeuge\Absender in Adre
  33680. buch aufnehmenX<
  33681. (AddSenderToAddressBook)
  33682.     0S0E
  33683. act_TOOLS.GIF|act_TOOLSX
  33684. Werkzeuge\Mail-Verfolgungsanforderung senden:
  33685. (SendTrackingRequest)
  33686.     0S0E
  33687. act_TOOLS.GIF|act_TOOLSX
  33688. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  33689. '++LotusScript Development Environment:2:5:(Forward):0:1
  33690. Declare Sub Click(Source As Button)
  33691. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33692. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33693. Private Sub BindEvents(Byval Objectname_ As String)
  33694.     Static Source As BUTTON
  33695.     Set Source = Bind(Objectname_)
  33696.     On Event Click From Source Call Click
  33697. End Sub
  33698. '++LotusScript Development Environment:2:2:Click:1:12
  33699. Sub Click(Source As Button)
  33700.     Dim session As New notessession
  33701.     Dim uiws As New notesuiworkspace
  33702.     Dim collection As notesdocumentcollection
  33703.     Dim noteUIEditDocument As notesuidocument
  33704.     Dim database As NotesDatabase
  33705.     Set noteCursorDoc = session.currentdatabase.createdocument
  33706.     Set database = session.currentdatabase
  33707.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  33708. hlen", "W
  33709. hlen Sie bitte eine Vorlage f
  33710. r das neue Memo.")
  33711.     Set noteCursorDoc = collection.getfirstdocument
  33712.     If Not noteCursorDoc Is Nothing Then
  33713.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  33714.     End If
  33715. End Sub
  33716. act_TOOLS.GIF|act_TOOLSX
  33717. Neues Memo
  33718.     1S10S14S16S23S
  33719. path"
  33720. /Memo?OpenForm&From="
  33721. view"
  33722. act_NEW.GIF|act_NEWX
  33723. Ordner\Ordner erstellenX
  33724. act_FOLDER.GIF|act_FOLDERX
  33725. var pathname = (window.location.pathname);
  33726. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
  33727. Ordner\In Ordner verschieben...X*
  33728.     0S0E
  33729. act_FOLDER.GIF|act_FOLDERX
  33730. Ordner\Aus Ordner entfernenX 
  33731.     0S0E
  33732. act_FOLDER.GIF|act_FOLDERX
  33733. Ordner\Ordner entfernenX
  33734. act_FOLDER.GIF|act_FOLDERX
  33735. var pathname = (window.location.pathname);
  33736. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
  33737. schen\L
  33738. schenX 
  33739.     0S0E
  33740. act_DELETE.GIF|act_DELETEX
  33741. schen\Papierkorb leerenX 
  33742.     0S0E
  33743. act_DELETE.GIF|act_DELETEX
  33744. Werkzeuge\Vorgaben0
  33745. wPreferences
  33746.     0S0E
  33747. act_TOOLS.GIF|act_TOOLSX
  33748. Werkzeuge\Suchen 
  33749.     0S0E
  33750. act_TOOLS.GIF|act_TOOLSX
  33751. Werkzeuge\HilfeX,
  33752. WebHelp
  33753.     0S0E
  33754. act_TOOLS.GIF|act_TOOLSX
  33755. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  33756. Use "CommonUI"
  33757. '++LotusScript Development Environment:2:5:(Forward):0:1
  33758. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33759. '++LotusScript Development Environment:2:2:BindEvents:1:129
  33760. Private Sub BindEvents(Byval Objectname_ As String)
  33761.     Static Source As BUTTON
  33762.     Set Source = Bind(Objectname_)
  33763. End Sub
  33764. '++LotusScript Development Environment:2:5:(Options):0:74
  33765. Option Public
  33766. Option Explicit
  33767. '++LotusScript Development Environment:2:5:(Forward):0:1
  33768. '++LotusScript Development Environment:2:5:(Declarations):0:2
  33769. Lotus Product
  33770. Lotus Product
  33771. Lotus Product
  33772. Lotus Product
  33773. Lotus Product
  33774. Lotus Product
  33775. O=Lotus Notes
  33776. O=Lotus Notes
  33777. PURSAFO
  33778. |.:#U
  33779. O=Lotus Notes
  33780. CN=Lotus Notes Template Development/O=Lotus Notes
  33781. PURSAFO
  33782. $FormatNote
  33783. $Index
  33784. $FormulaClass
  33785. $WebFlags
  33786. $SCRIPTOBJ_33
  33787. $Formula
  33788. $VIEWFORMAT
  33789. $ACTIONS
  33790. $V5ACTIONS
  33791. $ViewGlobalScript
  33792. $ViewGlobalScript_O
  33793. $SCRIPTOBJ_15
  33794. $SCRIPTOBJ_16
  33795. $SCRIPTOBJ_17
  33796. $SCRIPTOBJ_22
  33797. $SCRIPTOBJ_31
  33798. $Language
  33799. $LastBuildTime
  33800. $BabelInfo
  33801. Lotus Product
  33802. $27$39$13$32Subject$14$Conflict$REF
  33803. DeliveredDate
  33804. PostedDate
  33805. PostedDateY
  33806. IsMailStationeryh
  33807. _ViewIcon
  33808. _ViewIcon
  33809. Importance
  33810. Importance
  33811. _ViewIcon
  33812. _ViewIcon
  33813. $TypeIcon
  33814.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  33815. SentBy
  33816. Principal
  33817. Principal
  33818.     1S2S5S6S8S10S
  33819. Attendees
  33820. RequiredAttendees
  33821. OptionalAttendees
  33822.     0R1S2S5S6S
  33823. DeliveredDate
  33824. SentBy
  33825. Attendees
  33826. Attendees
  33827. SendTo
  33828. SentBy
  33829. SendTo
  33830.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  33831.     0R1S2S8S
  33832.     0R1S2S15S16S
  33833.     0R1S2S5S6S8S14S18S
  33834.     0R1S2S5S6S8S14S18S
  33835. Person
  33836. X400FreeForm^
  33837.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  33838. Person2
  33839. Person
  33840. Person
  33841. Person
  33842. Person
  33843.     0R1S2S12S13S22S34S
  33844. Delivery Report
  33845. NonDelivery Report
  33846. Trace Report
  33847. Mail-Router
  33848. Person2
  33849.     0R3S4S5S6S7S8S10S12S
  33850. DeliveredDate
  33851. DeliveredDate
  33852. PostedDate
  33853. PostedDate
  33854.     3S4S6S8S9S10S12S14S
  33855. $ContentIconh
  33856. $ContentIcon
  33857. Froma
  33858.  pager 
  33859. SendToa
  33860.  pager 
  33861. message.wav
  33862. vmsg_hdr.wav
  33863. .wavG
  33864. .tifG
  33865. $ContentIconh
  33866. $ContentIcon
  33867.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  33868. NonDelivery Report
  33869. ZUSTELLUNGSFEHLER: 
  33870. FailureReason
  33871. PhoneCaller
  33872. Anruf: 
  33873. PhoneCaller
  33874. Delivery Report
  33875. ZUGESTELLT 
  33876. Subject
  33877. Return Receipt
  33878. EMPFANGEN: 
  33879. Subject
  33880. Subject
  33881.     3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S
  33882. HiddenDocument
  33883. $MessageType
  33884. IsMailStationeryY
  33885.     L1S2S3S4S5S8S2E9S
  33886. DeliveredDate
  33887. PostedDate
  33888. PostedDateY
  33889. IsMailStationeryh
  33890. _ViewIcon
  33891. _ViewIcon
  33892. Importance
  33893. Importance
  33894. _ViewIcon
  33895. _ViewIcon
  33896. $TypeIcon
  33897.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  33898. $39Wer
  33899. SentBy
  33900. Principal
  33901. Principal
  33902.     1S2S5S6S8S10S
  33903. Attendees
  33904. RequiredAttendees
  33905. OptionalAttendees
  33906.     0R1S2S5S6S
  33907. DeliveredDate
  33908. SentBy
  33909. Attendees
  33910. Attendees
  33911. SendTo
  33912. SentBy
  33913. SendTo
  33914.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  33915.     0R1S2S8S
  33916.     0R1S2S15S16S
  33917.     0R1S2S5S6S8S14S18S
  33918.     0R1S2S5S6S8S14S18S
  33919. Person
  33920. X400FreeForm^
  33921.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  33922. Person2
  33923. Person
  33924. Person
  33925. Person
  33926. Person
  33927.     0R1S2S12S13S22S34S
  33928. Delivery Report
  33929. NonDelivery Report
  33930. Trace Report
  33931. Mail-Router
  33932. Person2
  33933.     0R3S4S5S6S7S8S10S12S
  33934. $13Datum
  33935. DeliveredDate
  33936. DeliveredDate
  33937. PostedDate
  33938. PostedDate
  33939.     3S4S6S8S9S10S12S14S$32F
  33940. $ContentIconh
  33941. $ContentIcon
  33942. Froma
  33943.  pager 
  33944. SendToa
  33945.  pager 
  33946. message.wav
  33947. vmsg_hdr.wav
  33948. .wavG
  33949. .tifG
  33950. $ContentIconh
  33951. $ContentIcon
  33952.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105SSubject$14Thema~
  33953. NonDelivery Report
  33954. ZUSTELLUNGSFEHLER: 
  33955. FailureReason
  33956. PhoneCaller
  33957. Anruf: 
  33958. PhoneCaller
  33959. Delivery Report
  33960. ZUGESTELLT 
  33961. Subject
  33962. Return Receipt
  33963. EMPFANGEN: 
  33964. Subject
  33965. Subject
  33966.     3S4S6S7S8S10S15S16S17S19S20S21S23S24S25S27S28S29S31S32S33S35S&
  33967. _KategorisierenX
  33968. Senden
  33969. In Ordner _verschieben...X
  33970. Aus Ordner _entfernen...
  33971. Neues Memo(
  33972.     0S0E
  33973. Antwort\AntwortX0
  33974. Reply
  33975.     0S0E
  33976. Antwort\Antwort mit ProtokollX
  33977. Antwort mit Protokoll
  33978. Dieses Dokument ist nicht vollst
  33979. ndig.
  33980.     4S8S10S13S
  33981. Reply with history
  33982. Antwort\Allen antwortenXX
  33983. MailStEd
  33984.     0S0E
  33985. Reply
  33986. Antwort\Allen antworten (mit Protokoll)X
  33987. MailStEd
  33988.     0S0E
  33989. Antwort mit Protokoll
  33990. This document is truncated.
  33991.     0R4S8S10S13S
  33992. Reply with history
  33993. ForwardX 
  33994.     0S0E
  33995. ISMAILSTATIONERY
  33996.     1S2S
  33997. _WeiterleitenX
  33998. schenX 
  33999.     0S0E
  34000. _BearbeitenX
  34001. Ordner\Ordner erstellenX 
  34002.     0S0E
  34003. Ordner\In Ordner verschieben...X 
  34004.     0S0E
  34005. Ordner\Aus Ordner entfernenX 
  34006.     0S0E
  34007. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  34008. Use "CommonUI"
  34009. '++LotusScript Development Environment:2:5:(Forward):0:1
  34010. Declare Sub Click(Source As Button)
  34011. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34012. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34013. Private Sub BindEvents(Byval Objectname_ As String)
  34014. Static Source As BUTTON
  34015. Set Source = Bind(Objectname_)
  34016. On Event Click From Source Call Click
  34017. End Sub
  34018. '++LotusScript Development Environment:2:2:Click:1:12
  34019. Sub Click(Source As Button)
  34020.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34021. End Sub
  34022. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  34023. Use "CommonUI"
  34024. '++LotusScript Development Environment:2:5:(Forward):0:1
  34025. Declare Sub Click(Source As Button)
  34026. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34027. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34028. Private Sub BindEvents(Byval Objectname_ As String)
  34029. Static Source As BUTTON
  34030. Set Source = Bind(Objectname_)
  34031. On Event Click From Source Call Click
  34032. End Sub
  34033. '++LotusScript Development Environment:2:2:Click:1:12
  34034. Sub Click(Source As Button)
  34035.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34036. End Sub
  34037. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  34038. Use "CommonUI"
  34039. '++LotusScript Development Environment:2:5:(Forward):0:1
  34040. Declare Sub Click(Source As Button)
  34041. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34042. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34043. Private Sub BindEvents(Byval Objectname_ As String)
  34044.     Static Source As BUTTON
  34045.     Set Source = Bind(Objectname_)
  34046.     On Event Click From Source Call Click
  34047. End Sub
  34048. '++LotusScript Development Environment:2:2:Click:1:12
  34049. Sub Click(Source As Button)
  34050.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34051. End Sub
  34052. Werkzeuge\Vorgaben...XR
  34053. DialogMode
  34054. (Preferences)
  34055. Werkzeuge\Abwesenheit...8
  34056. (EditOfficeProfile)
  34057.     0S0E
  34058. Werkzeuge\Absender in Adre
  34059. buch aufnehmenX<
  34060. (AddSenderToAddressBook)
  34061.     0S0E
  34062. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  34063. '++LotusScript Development Environment:2:5:(Forward):0:1
  34064. Declare Sub Click(Source As Button)
  34065. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34066. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34067. Private Sub BindEvents(Byval Objectname_ As String)
  34068.     Static Source As BUTTON
  34069.     Set Source = Bind(Objectname_)
  34070.     On Event Click From Source Call Click
  34071. End Sub
  34072. '++LotusScript Development Environment:2:2:Click:1:12
  34073. Sub Click(Source As Button)
  34074.     Dim session As New notessession
  34075.     Dim uiws As New notesuiworkspace
  34076.     Dim collection As notesdocumentcollection
  34077.     Dim noteUIEditDocument As notesuidocument
  34078.     Dim database As NotesDatabase
  34079.     Set noteCursorDoc = session.currentdatabase.createdocument
  34080.     Set database = session.currentdatabase
  34081.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  34082. hlen", "W
  34083. hlen Sie bitte eine Vorlage f
  34084. r das neue Memo.")
  34085.     Set noteCursorDoc = collection.getfirstdocument
  34086.     If Not noteCursorDoc Is Nothing Then
  34087.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34088.     End If
  34089. End Sub
  34090. Neues Memo
  34091.     1S10S14S16S23S
  34092. path"
  34093. /Memo?OpenForm&From="
  34094. view"
  34095. Ordner\In Ordner verschieben...X*
  34096.     0S0E
  34097. schen\L
  34098. schenX 
  34099.     0S0E
  34100. schen\Papierkorb leerenX 
  34101.     0S0E
  34102. Werkzeuge\Vorgaben0
  34103. wPreferences
  34104.     0S0E
  34105. Werkzeuge\Suchen 
  34106.     0S0E
  34107. Werkzeuge\HilfeX,
  34108. WebHelp
  34109.     0S0E
  34110. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  34111. Use "CommonUI"
  34112. '++LotusScript Development Environment:2:5:(Forward):0:1
  34113. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34114. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34115. Private Sub BindEvents(Byval Objectname_ As String)
  34116.     Static Source As BUTTON
  34117.     Set Source = Bind(Objectname_)
  34118. End Sub
  34119. _KategorisierenX
  34120. Senden
  34121. In Ordner _verschieben...X
  34122. Aus Ordner _entfernen...
  34123. Neues Memo(
  34124.     0S0E
  34125. act_NEWMEMO.GIF|act_NEWMEMOX
  34126. Antwort\AntwortX0
  34127. Reply
  34128.     0S0E
  34129. act_REPLY.GIF|act_REPLYX
  34130. Antwort\Antwort mit ProtokollX
  34131. Antwort mit Protokoll
  34132. Dieses Dokument ist nicht vollst
  34133. ndig.
  34134.     4S8S10S13S
  34135. Reply with history
  34136. act_REPLY.GIF|act_REPLYX
  34137. Antwort\Allen antwortenXX
  34138. MailStEd
  34139.     0S0E
  34140. Reply
  34141. act_REPLY.GIF|act_REPLYX
  34142. Antwort\Allen antworten (mit Protokoll)X
  34143. MailStEd
  34144.     0S0E
  34145. Antwort mit Protokoll
  34146. This document is truncated.
  34147.     0R4S8S10S13S
  34148. Reply with history
  34149. act_REPLY.GIF|act_REPLYX
  34150. ForwardX 
  34151.     0S0E
  34152. ISMAILSTATIONERY
  34153.     1S2S
  34154. act_FORWARD.GIF|act_FORWARDX
  34155. _WeiterleitenX
  34156. schenX 
  34157.     0S0E
  34158. act_DELETE.GIF|act_DELETEX
  34159. _BearbeitenX
  34160. Ordner\Ordner erstellenX 
  34161.     0S0E
  34162. act_FOLDER.GIF|act_FOLDERX
  34163. Ordner\In Ordner verschieben...X 
  34164.     0S0E
  34165. act_FOLDER.GIF|act_FOLDERX
  34166. Ordner\Aus Ordner entfernenX 
  34167.     0S0E
  34168. act_FOLDER.GIF|act_FOLDERX
  34169. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  34170. Use "CommonUI"
  34171. '++LotusScript Development Environment:2:5:(Forward):0:1
  34172. Declare Sub Click(Source As Button)
  34173. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34174. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34175. Private Sub BindEvents(Byval Objectname_ As String)
  34176. Static Source As BUTTON
  34177. Set Source = Bind(Objectname_)
  34178. On Event Click From Source Call Click
  34179. End Sub
  34180. '++LotusScript Development Environment:2:2:Click:1:12
  34181. Sub Click(Source As Button)
  34182.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34183. End Sub
  34184. act_COPYINTO.GIF|act_COPYINTOX
  34185. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  34186. Use "CommonUI"
  34187. '++LotusScript Development Environment:2:5:(Forward):0:1
  34188. Declare Sub Click(Source As Button)
  34189. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34190. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34191. Private Sub BindEvents(Byval Objectname_ As String)
  34192. Static Source As BUTTON
  34193. Set Source = Bind(Objectname_)
  34194. On Event Click From Source Call Click
  34195. End Sub
  34196. '++LotusScript Development Environment:2:2:Click:1:12
  34197. Sub Click(Source As Button)
  34198.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34199. End Sub
  34200. act_COPYINTO.GIF|act_COPYINTOX
  34201. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  34202. Use "CommonUI"
  34203. '++LotusScript Development Environment:2:5:(Forward):0:1
  34204. Declare Sub Click(Source As Button)
  34205. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34206. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34207. Private Sub BindEvents(Byval Objectname_ As String)
  34208.     Static Source As BUTTON
  34209.     Set Source = Bind(Objectname_)
  34210.     On Event Click From Source Call Click
  34211. End Sub
  34212. '++LotusScript Development Environment:2:2:Click:1:12
  34213. Sub Click(Source As Button)
  34214.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34215. End Sub
  34216. act_COPYINTO.GIF|act_COPYINTOX
  34217. Werkzeuge\Vorgaben...XR
  34218. DialogMode
  34219. (Preferences)
  34220. act_TOOLS.GIF|act_TOOLSX
  34221. Werkzeuge\Abwesenheit...8
  34222. (EditOfficeProfile)
  34223.     0S0E
  34224. act_TOOLS.GIF|act_TOOLSX
  34225. Werkzeuge\Absender in Adre
  34226. buch aufnehmenX<
  34227. (AddSenderToAddressBook)
  34228.     0S0E
  34229. act_TOOLS.GIF|act_TOOLSX
  34230. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  34231. '++LotusScript Development Environment:2:5:(Forward):0:1
  34232. Declare Sub Click(Source As Button)
  34233. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34234. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34235. Private Sub BindEvents(Byval Objectname_ As String)
  34236.     Static Source As BUTTON
  34237.     Set Source = Bind(Objectname_)
  34238.     On Event Click From Source Call Click
  34239. End Sub
  34240. '++LotusScript Development Environment:2:2:Click:1:12
  34241. Sub Click(Source As Button)
  34242.     Dim session As New notessession
  34243.     Dim uiws As New notesuiworkspace
  34244.     Dim collection As notesdocumentcollection
  34245.     Dim noteUIEditDocument As notesuidocument
  34246.     Dim database As NotesDatabase
  34247.     Set noteCursorDoc = session.currentdatabase.createdocument
  34248.     Set database = session.currentdatabase
  34249.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  34250. hlen", "W
  34251. hlen Sie bitte eine Vorlage f
  34252. r das neue Memo.")
  34253.     Set noteCursorDoc = collection.getfirstdocument
  34254.     If Not noteCursorDoc Is Nothing Then
  34255.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34256.     End If
  34257. End Sub
  34258. act_TOOLS.GIF|act_TOOLSX
  34259. Neues Memo
  34260.     1S10S14S16S23S
  34261. path"
  34262. /Memo?OpenForm&From="
  34263. view"
  34264. act_NEW.GIF|act_NEWX
  34265. Ordner\Ordner erstellenX
  34266. act_FOLDER.GIF|act_FOLDERX
  34267. var pathname = (window.location.pathname);
  34268. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
  34269. Ordner\In Ordner verschieben...X*
  34270.     0S0E
  34271. act_FOLDER.GIF|act_FOLDERX
  34272. Ordner\Ordner entfernenX
  34273. act_FOLDER.GIF|act_FOLDERX
  34274. var pathname = (window.location.pathname);
  34275. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
  34276. schen\L
  34277. schenX 
  34278.     0S0E
  34279. act_DELETE.GIF|act_DELETEX
  34280. schen\Papierkorb leerenX 
  34281.     0S0E
  34282. act_DELETE.GIF|act_DELETEX
  34283. Werkzeuge\Vorgaben0
  34284. wPreferences
  34285.     0S0E
  34286. act_TOOLS.GIF|act_TOOLSX
  34287. Werkzeuge\Suchen 
  34288.     0S0E
  34289. act_TOOLS.GIF|act_TOOLSX
  34290. Werkzeuge\HilfeX,
  34291. WebHelp
  34292.     0S0E
  34293. act_TOOLS.GIF|act_TOOLSX
  34294. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  34295. Use "CommonUI"
  34296. '++LotusScript Development Environment:2:5:(Forward):0:1
  34297. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34298. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34299. Private Sub BindEvents(Byval Objectname_ As String)
  34300.     Static Source As BUTTON
  34301.     Set Source = Bind(Objectname_)
  34302. End Sub
  34303. '++LotusScript Development Environment:2:5:(Options):0:74
  34304. Option Public
  34305. '++LotusScript Development Environment:2:5:(Forward):0:1
  34306. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34307. Lotus Product
  34308. Lotus Product
  34309. Lotus Product
  34310. Lotus Product
  34311. Lotus Product
  34312. Lotus Product
  34313. O=Lotus Notes
  34314. O=Lotus Notes
  34315. PURSAFO
  34316. |.:#U
  34317. O=Lotus Notes
  34318. CN=Lotus Notes Template Development/O=Lotus Notes
  34319. PURSAFO
  34320. $Index
  34321. $FormulaClass
  34322. $WebFlags
  34323. $SCRIPTOBJ_32
  34324. $Formula
  34325. $VIEWFORMAT
  34326. $ACTIONS
  34327. $V5ACTIONS
  34328. $ViewGlobalScript
  34329. $ViewGlobalScript_O
  34330. $SCRIPTOBJ_16
  34331. $SCRIPTOBJ_17
  34332. $SCRIPTOBJ_18
  34333. $SCRIPTOBJ_22
  34334. $SCRIPTOBJ_30
  34335. $Language
  34336. $LastBuildTime
  34337. $BabelInfo
  34338. Lotus Product
  34339. $65$59$66$55$62$60$Conflict
  34340. SchedState
  34341. ScheduleStat
  34342.     1S2S
  34343. SchedState
  34344. Scheduled
  34345. Mail geplant
  34346. SchedState
  34347. Mail zur
  34348. ckgestellt
  34349.     0R3S4S6S8S9S10S12S14S
  34350. IsMailStationeryh
  34351.     7S9S
  34352. EnterSendTo
  34353. EnterSendTo
  34354. EnterSendTo
  34355. SendTo
  34356.     1S2S10S11S12S13S20S
  34357.     0R1S2S8S
  34358.     0R1S2S15S16S17S18S25S
  34359. SendTo
  34360.     0R1S2S5S6S8S12S16S20S
  34361. SendTo
  34362.     0R1S2S5S6S8S12S16S20S
  34363. Person
  34364.     0R1S2S5S6S8S10S11S12S13S14S
  34365. Person
  34366. Person
  34367. Person
  34368. Person
  34369.     0R10S11S20S32S
  34370. $551i
  34371. $ContentIconh
  34372. $ContentIcon
  34373. Froma
  34374.  pager 
  34375. SendToa
  34376.  pager 
  34377. message.wav
  34378. vmsg_hdr.wav
  34379. .wavG
  34380. .tifG
  34381. $ContentIconh
  34382. $ContentIcon
  34383.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S
  34384. IsMailStationeryh
  34385. MailStationeryName
  34386. Subject
  34387.     7S9S
  34388. PostedDate
  34389. $MessageType
  34390. ExcludeFromView
  34391. ISMAILSTATIONERY
  34392.     L1S2S3S4S5S6S7S8S9S15S16S17S18S
  34393. SchedState
  34394. ScheduleStat
  34395.     1S2S
  34396. SchedState
  34397. Scheduled
  34398. Mail geplant
  34399. SchedState
  34400. Mail zur
  34401. ckgestellt
  34402.     0R3S4S6S8S9S10S12S14S$59T
  34403. IsMailStationeryh
  34404.     7S9S
  34405. $66Wer
  34406. EnterSendTo
  34407. EnterSendTo
  34408. EnterSendTo
  34409. SendTo
  34410.     1S2S10S11S12S13S20S
  34411.     0R1S2S8S
  34412.     0R1S2S15S16S17S18S25S
  34413. SendTo
  34414.     0R1S2S5S6S8S12S16S20S
  34415. SendTo
  34416.     0R1S2S5S6S8S12S16S20S
  34417. Person
  34418.     0R1S2S5S6S8S10S11S12S13S14S
  34419. Person
  34420. Person
  34421. Person
  34422. Person
  34423.     0R10S11S20S32S
  34424. $55Datum
  34425. $551i
  34426. $ContentIconh
  34427. $ContentIcon
  34428. Froma
  34429.  pager 
  34430. SendToa
  34431.  pager 
  34432. message.wav
  34433. vmsg_hdr.wav
  34434. .wavG
  34435. .tifG
  34436. $ContentIconh
  34437. $ContentIcon
  34438.     6S7S9RS4E13RS8E15RS4E20RS8E22RS4E30S32S33S40S44RS9E46RS4E48RS8E57S58S59S62RS12E64RS8E71S74RS12E76RS8E83S86RS12E88RS9E91RS5E94R99S101S103S105S$60Themab
  34439. IsMailStationeryh
  34440. MailStationeryName
  34441. Subject
  34442.     7S9S
  34443. Neues Memo(
  34444.     0S0E
  34445. _WeiterleitenX
  34446. Weiterleiten 
  34447.     0S0E
  34448. ISMAILSTATIONERY
  34449.     1S2S
  34450. Bearbeiten
  34451. schenX 
  34452.     0S0E
  34453. Ordner\Ordner erstellenX 
  34454.     0S0E
  34455. Ordner\In Ordner verschieben...X 
  34456.     0S0E
  34457. _KategorisierenX
  34458. Dokument sendenX    
  34459. In Ordner _verschieben...X
  34460. Aus Ordner _entfernen...
  34461. Mail abrufen
  34462. Database
  34463.     1S2S
  34464. Database
  34465. ($Inbox)
  34466.     0R4S6S
  34467.     4S5S
  34468. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  34469. Use "CommonUI"
  34470. '++LotusScript Development Environment:2:5:(Forward):0:1
  34471. Declare Sub Click(Source As Button)
  34472. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34473. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34474. Private Sub BindEvents(Byval Objectname_ As String)
  34475. Static Source As BUTTON
  34476. Set Source = Bind(Objectname_)
  34477. On Event Click From Source Call Click
  34478. End Sub
  34479. '++LotusScript Development Environment:2:2:Click:1:12
  34480. Sub Click(Source As Button)
  34481.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34482. End Sub
  34483. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  34484. Use "CommonUI"
  34485. '++LotusScript Development Environment:2:5:(Forward):0:1
  34486. Declare Sub Click(Source As Button)
  34487. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34488. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34489. Private Sub BindEvents(Byval Objectname_ As String)
  34490. Static Source As BUTTON
  34491. Set Source = Bind(Objectname_)
  34492. On Event Click From Source Call Click
  34493. End Sub
  34494. '++LotusScript Development Environment:2:2:Click:1:12
  34495. Sub Click(Source As Button)
  34496.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34497. End Sub
  34498. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  34499. Use "CommonUI"
  34500. '++LotusScript Development Environment:2:5:(Forward):0:1
  34501. Declare Sub Click(Source As Button)
  34502. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34503. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34504. Private Sub BindEvents(Byval Objectname_ As String)
  34505.     Static Source As BUTTON
  34506.     Set Source = Bind(Objectname_)
  34507.     On Event Click From Source Call Click
  34508. End Sub
  34509. '++LotusScript Development Environment:2:2:Click:1:12
  34510. Sub Click(Source As Button)
  34511.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34512. End Sub
  34513. Werkzeuge\Vorgaben...XR
  34514. DialogMode
  34515. (Preferences)
  34516. Werkzeuge\Abwesenheit...8
  34517. (EditOfficeProfile)
  34518.     0S0E
  34519. Werkzeuge\Absender in Adre
  34520. buch aufnehmenX<
  34521. (AddSenderToAddressBook)
  34522.     0S0E
  34523. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  34524. '++LotusScript Development Environment:2:5:(Forward):0:1
  34525. Declare Sub Click(Source As Button)
  34526. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34527. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34528. Private Sub BindEvents(Byval Objectname_ As String)
  34529.     Static Source As BUTTON
  34530.     Set Source = Bind(Objectname_)
  34531.     On Event Click From Source Call Click
  34532. End Sub
  34533. '++LotusScript Development Environment:2:2:Click:1:12
  34534. Sub Click(Source As Button)
  34535.     Dim session As New notessession
  34536.     Dim uiws As New notesuiworkspace
  34537.     Dim collection As notesdocumentcollection
  34538.     Dim noteUIEditDocument As notesuidocument
  34539.     Dim database As NotesDatabase
  34540.     Set noteCursorDoc = session.currentdatabase.createdocument
  34541.     Set database = session.currentdatabase
  34542.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  34543. hlen", "W
  34544. hlen Sie bitte eine Vorlage f
  34545. r das neue Memo.")
  34546.     Set noteCursorDoc = collection.getfirstdocument
  34547.     If Not noteCursorDoc Is Nothing Then
  34548.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34549.     End If
  34550. End Sub
  34551. Neues Memo
  34552.     1S10S14S16S23S
  34553. path"
  34554. /Memo?OpenForm&From="
  34555. view"
  34556. Ordner\In Ordner verschieben...X*
  34557.     0S0E
  34558. schen\L
  34559. schenX 
  34560.     0S0E
  34561. schen\Papierkorb leerenX 
  34562.     0S0E
  34563. Werkzeuge\Vorgaben0
  34564. wPreferences
  34565.     0S0E
  34566. Werkzeuge\Suchen 
  34567.     0S0E
  34568. Werkzeuge\HilfeX,
  34569. WebHelp
  34570.     0S0E
  34571. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  34572. Use "CommonUI"
  34573. '++LotusScript Development Environment:2:5:(Forward):0:1
  34574. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34575. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34576. Private Sub BindEvents(Byval Objectname_ As String)
  34577.     Static Source As BUTTON
  34578.     Set Source = Bind(Objectname_)
  34579. End Sub
  34580. Neues Memo(
  34581.     0S0E
  34582. act_NEWMEMO.GIF|act_NEWMEMOX
  34583. _WeiterleitenX
  34584. Weiterleiten 
  34585.     0S0E
  34586. ISMAILSTATIONERY
  34587.     1S2S
  34588. act_FORWARD.GIF|act_FORWARDX
  34589. Bearbeiten
  34590. act_EDIT.GIF|act_EDITX
  34591. schenX 
  34592.     0S0E
  34593. act_DELETE.GIF|act_DELETEX
  34594. Ordner\Ordner erstellenX 
  34595.     0S0E
  34596. act_FOLDER.GIF|act_FOLDERX
  34597. Ordner\In Ordner verschieben...X 
  34598.     0S0E
  34599. act_FOLDER.GIF|act_FOLDERX
  34600. _KategorisierenX
  34601. Dokument sendenX    
  34602. In Ordner _verschieben...X
  34603. Aus Ordner _entfernen...
  34604. Mail abrufen
  34605. Database
  34606.     1S2S
  34607. Database
  34608. ($Inbox)
  34609.     0R4S6S
  34610.     4S5S
  34611. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  34612. Use "CommonUI"
  34613. '++LotusScript Development Environment:2:5:(Forward):0:1
  34614. Declare Sub Click(Source As Button)
  34615. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34616. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34617. Private Sub BindEvents(Byval Objectname_ As String)
  34618. Static Source As BUTTON
  34619. Set Source = Bind(Objectname_)
  34620. On Event Click From Source Call Click
  34621. End Sub
  34622. '++LotusScript Development Environment:2:2:Click:1:12
  34623. Sub Click(Source As Button)
  34624.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  34625. End Sub
  34626. act_COPYINTO.GIF|act_COPYINTOX
  34627. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  34628. Use "CommonUI"
  34629. '++LotusScript Development Environment:2:5:(Forward):0:1
  34630. Declare Sub Click(Source As Button)
  34631. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34632. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34633. Private Sub BindEvents(Byval Objectname_ As String)
  34634. Static Source As BUTTON
  34635. Set Source = Bind(Objectname_)
  34636. On Event Click From Source Call Click
  34637. End Sub
  34638. '++LotusScript Development Environment:2:2:Click:1:12
  34639. Sub Click(Source As Button)
  34640.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  34641. End Sub
  34642. act_COPYINTO.GIF|act_COPYINTOX
  34643. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  34644. Use "CommonUI"
  34645. '++LotusScript Development Environment:2:5:(Forward):0:1
  34646. Declare Sub Click(Source As Button)
  34647. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34648. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34649. Private Sub BindEvents(Byval Objectname_ As String)
  34650.     Static Source As BUTTON
  34651.     Set Source = Bind(Objectname_)
  34652.     On Event Click From Source Call Click
  34653. End Sub
  34654. '++LotusScript Development Environment:2:2:Click:1:12
  34655. Sub Click(Source As Button)
  34656.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  34657. End Sub
  34658. act_COPYINTO.GIF|act_COPYINTOX
  34659. Werkzeuge\Vorgaben...XR
  34660. DialogMode
  34661. (Preferences)
  34662. act_TOOLS.GIF|act_TOOLSX
  34663. Werkzeuge\Abwesenheit...8
  34664. (EditOfficeProfile)
  34665.     0S0E
  34666. act_TOOLS.GIF|act_TOOLSX
  34667. Werkzeuge\Absender in Adre
  34668. buch aufnehmenX<
  34669. (AddSenderToAddressBook)
  34670.     0S0E
  34671. act_TOOLS.GIF|act_TOOLSX
  34672. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  34673. '++LotusScript Development Environment:2:5:(Forward):0:1
  34674. Declare Sub Click(Source As Button)
  34675. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34676. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34677. Private Sub BindEvents(Byval Objectname_ As String)
  34678.     Static Source As BUTTON
  34679.     Set Source = Bind(Objectname_)
  34680.     On Event Click From Source Call Click
  34681. End Sub
  34682. '++LotusScript Development Environment:2:2:Click:1:12
  34683. Sub Click(Source As Button)
  34684.     Dim session As New notessession
  34685.     Dim uiws As New notesuiworkspace
  34686.     Dim collection As notesdocumentcollection
  34687.     Dim noteUIEditDocument As notesuidocument
  34688.     Dim database As NotesDatabase
  34689.     Set noteCursorDoc = session.currentdatabase.createdocument
  34690.     Set database = session.currentdatabase
  34691.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  34692. hlen", "W
  34693. hlen Sie bitte eine Vorlage f
  34694. r das neue Memo.")
  34695.     Set noteCursorDoc = collection.getfirstdocument
  34696.     If Not noteCursorDoc Is Nothing Then
  34697.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  34698.     End If
  34699. End Sub
  34700. act_TOOLS.GIF|act_TOOLSX
  34701. Neues Memo
  34702.     1S10S14S16S23S
  34703. path"
  34704. /Memo?OpenForm&From="
  34705. view"
  34706. act_NEW.GIF|act_NEWX
  34707. Ordner\Ordner erstellenX
  34708. act_FOLDER.GIF|act_FOLDERX
  34709. var pathname = (window.location.pathname);
  34710. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
  34711. Ordner\In Ordner verschieben...X*
  34712.     0S0E
  34713. act_FOLDER.GIF|act_FOLDERX
  34714. Ordner\Ordner entfernenX
  34715. act_FOLDER.GIF|act_FOLDERX
  34716. var pathname = (window.location.pathname);
  34717. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
  34718. schen\L
  34719. schenX 
  34720.     0S0E
  34721. act_DELETE.GIF|act_DELETEX
  34722. schen\Papierkorb leerenX 
  34723.     0S0E
  34724. act_DELETE.GIF|act_DELETEX
  34725. Werkzeuge\Vorgaben0
  34726. wPreferences
  34727.     0S0E
  34728. act_TOOLS.GIF|act_TOOLSX
  34729. Werkzeuge\Suchen 
  34730.     0S0E
  34731. act_TOOLS.GIF|act_TOOLSX
  34732. Werkzeuge\HilfeX,
  34733. WebHelp
  34734.     0S0E
  34735. act_TOOLS.GIF|act_TOOLSX
  34736. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  34737. Use "CommonUI"
  34738. '++LotusScript Development Environment:2:5:(Forward):0:1
  34739. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34740. '++LotusScript Development Environment:2:2:BindEvents:1:129
  34741. Private Sub BindEvents(Byval Objectname_ As String)
  34742.     Static Source As BUTTON
  34743.     Set Source = Bind(Objectname_)
  34744. End Sub
  34745. '++LotusScript Development Environment:2:5:(Options):0:74
  34746. Option Public
  34747. '++LotusScript Development Environment:2:5:(Forward):0:1
  34748. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34749. Lotus Product
  34750. Lotus Product
  34751. Lotus Product
  34752. Lotus Product
  34753. Lotus Product
  34754. Lotus Product
  34755. O=Lotus Notes
  34756. O=Lotus Notes
  34757. PURSAFO
  34758. |.:#U
  34759. O=Lotus Notes
  34760. CN=Lotus Notes Template Development/O=Lotus Notes
  34761. PURSAFO
  34762. $Index
  34763. $FormulaClass
  34764. $WebFlags
  34765. $SCRIPTOBJ_28
  34766. $FormFormula
  34767. $Formula
  34768. $VIEWFORMAT
  34769. $ACTIONS
  34770. $V5ACTIONS
  34771. $ViewGlobalScript
  34772. $ViewGlobalScript_O
  34773. $SCRIPTOBJ_12
  34774. $SCRIPTOBJ_13
  34775. $SCRIPTOBJ_14
  34776. $SCRIPTOBJ_18
  34777. $SCRIPTOBJ_26
  34778. $Language
  34779. $LastBuildTime
  34780. $BabelInfo
  34781. '++LotusScript Development Environment:2:5:(Options):0:74
  34782. Option Public
  34783. '++LotusScript Development Environment:2:5:(Forward):0:1
  34784. '++LotusScript Development Environment:2:5:(Declarations):0:2
  34785. Lotus Product
  34786. O=Lotus Notes
  34787. O=Lotus Notes
  34788. PURSAFO
  34789. |.:#U
  34790. O=Lotus Notes
  34791. CN=Lotus Notes Template Development/O=Lotus Notes
  34792. PURSAFO
  34793. $Index
  34794. $FormulaClass
  34795. $Formula
  34796. $VIEWFORMAT
  34797. $ViewGlobalScript
  34798. $ViewGlobalScript_O
  34799. $Language
  34800. $LastBuildTime
  34801. $BabelInfo
  34802. $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=
  34803. $189DueState$186DueDateTimeD
  34804. (Help)
  34805. MAIL_V_TASKS
  34806.     0S0E
  34807. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(Aufgaben\Nach Kategorie)|TodoByCategoryde-DE
  34808. 00000386####################
  34809. $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=
  34810. DueState$189$186DueDateTimeD
  34811. (Help)
  34812. MAIL_V_TASKS
  34813.     0S0E
  34814. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes(Aufgaben\Nach Status)|TodoByStatusde-DE
  34815. 0000038A#########################
  34816. $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
  34817. $68$106
  34818. $102$68
  34819. $106YB
  34820. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($All)de-DEC
  34821. 0000038E##################################
  34822. $134$126$144$146
  34823. (Help)
  34824. MAIL_V_CALENDAR
  34825.     0S0E
  34826. Notes
  34827.     0S0E
  34828. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($Calendar)|Calendarde-DEt#Q
  34829. 000003921
  34830. ##########################################################
  34831. $FolderInfo
  34832. $103Y8
  34833. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($FolderInfo)de-DEY(Q
  34834. 0000039A##############################################
  34835. $68$106
  34836. $102$68
  34837. $106YlB
  34838. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($SoftDeletions)|($SoftDeletions)de-DE
  34839. 000003BE###################################################
  34840. $FolderRefInfo
  34841. $105$
  34842. $105$FolderRefIDY
  34843. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($FolderRefInfo)
  34844. $105$FolderRefID$FolderRefFlags$Conflict
  34845. $FolderRefV
  34846.     0S0E
  34847. $FolderRefh
  34848. $105Ordner-UNID*
  34849. $FolderRefV
  34850.     0S0E
  34851. $FolderRefIDOrdner-Referenz-ID$FolderRefFlagsOrdner-Referenz-Flags&
  34852. de-DE
  34853. 0000039E#######################
  34854. $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
  34855. CN=Damien Katz/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($HeadlinesView)de-DE
  34856. 000003A2####################################
  34857. 1/P=3601
  34858. StartDateTime
  34859. StartDateTimeH
  34860. (Help)
  34861. MAIL_V_MEETINGS
  34862.     0S0E
  34863. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($Meetings)|Meetingsde-DE"XQ
  34864. 000003A6##########
  34865. /P=2401
  34866. FormY
  34867. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($Profiles)H
  34868. Form$Conflict
  34869. Profile
  34870.     L1S5S
  34871. FormTyp&
  34872. de-DE
  34873. 000003B2#######################
  34874. /P=2401-
  34875. MailPop3UIDLDeliveredDate
  34876. 553Courier NewY
  34877. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($POP3UIDL)|($POP3UIDL)$
  34878. MailPop3UIDLDeliveredDate$32$30$Conflict
  34879. $RFC822MessageSize
  34880.     1S2S3S
  34881. $RFC822MessageSize
  34882. $POP3ExportSize
  34883.     1S2S3S
  34884. $POP3ExportSize
  34885. MailPop3UIDL
  34886.     0RL1S2S3S
  34887. MailPop3UIDLMailPop3UIDLDeliveredDateZustelldatum$32$RFC822MessageSize`
  34888. $RFC822MessageSize
  34889.     1S2S3S
  34890. $RFC822MessageSize
  34891. $30$POP3ExportSize\
  34892. $POP3ExportSize
  34893.     1S2S3S
  34894. $POP3ExportSize
  34895. de-DE
  34896. 000003AA
  34897. ##########################################################
  34898. $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
  34899. $82$62
  34900. $62YB
  34901. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($Sent)de-DE
  34902. 000003BA############
  34903. /P=2401
  34904. DeliveredDate
  34905. 553Courier NewY
  34906. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($POP3)
  34907. DeliveredDate$32$30$Conflict
  34908. $RFC822MessageSize
  34909.     1S2S3S
  34910. $RFC822MessageSize
  34911. $POP3ExportSize
  34912.     1S2S3S
  34913. $POP3ExportSize
  34914. DeliveredDate
  34915.     0RL1S2S3S
  34916. DeliveredDateZustelldatum$32$RFC822MessageSize`
  34917. $RFC822MessageSize
  34918.     1S2S3S
  34919. $RFC822MessageSize
  34920. $30$POP3ExportSize\
  34921. $POP3ExportSize
  34922.     1S2S3S
  34923. $POP3ExportSize
  34924. de-DE
  34925. 000003AE#################
  34926. APPTUNID$3Y
  34927. CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($RepeatLookup)|($RepeatLookup)
  34928. APPTUNID$3RescheduleWhich$2PrincipalFromDomain$5SequenceNumOrgStateKeepPostedDelegee$CSFlagsMasterLastUpdated$Conflict
  34929. APPTUNID
  34930. APPTUNID
  34931. RepeatInstanceDates
  34932. RepeatInstanceDates
  34933. OriginalStartDate
  34934.     7S9S
  34935. RescheduleWhich
  34936. RescheduleWhich
  34937. Principal
  34938. Principal
  34939. FromDomain
  34940. FromDomain
  34941. NoticeType
  34942. OrgStatus
  34943. NoticeType
  34944.     3S4S6S8S
  34945. SequenceNum
  34946. SequenceNum
  34947. KeepPosted
  34948. KeepPosted
  34949. Delegee
  34950. Delegee
  34951. $CSFlags
  34952. $CSFlags
  34953. MasterLastUpdatede
  34954. MasterLastUpdated
  34955. $CSFlagsh
  34956. OrgRepeat
  34957.     L1S5S6S10S11SHidden - DNTde-DE@mQ
  34958. 000003B6####################################################
  34959. $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)}
  34960. $189$186DueDateTimeD
  34961. (Help)
  34962. MAIL_V_TASKS
  34963.     0S0E
  34964. CN=William Zircher/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($ToDo)|Tasksde-DE
  34965. 000003C2#############################################
  34966. $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$
  34967. $53$47$48
  34968. Paul DiCristinaCN=Lotus Notes Template Development/O=Lotus NotesCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($VIM100)
  34969. $53$47$48$50$51$52$Conflict
  34970.     0S0E
  34971. DeliveredDate
  34972. DeliveredDate
  34973. PostedDate
  34974. PostedDatei
  34975.     3S4S6S8S9S10S12S14S
  34976. FromDomainh
  34977. FromDomain"
  34978.     4S6S7S14S15S16S18S
  34979. DeliveryPriority
  34980. DeliveryPriority
  34981.     3S4S6S8S
  34982. MessageType
  34983. MessageType
  34984. Delivery Report
  34985. VIM_DLR
  34986. NonDelivery Report
  34987. VIM_NDLR
  34988. Return Receipt
  34989. VIM_RTRC
  34990. VIM_MAILJ    
  34991.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  34992. Subject
  34993.     0S0E
  34994. $MessageType
  34995.     L1Sde-DE
  34996. 000003C6#######################
  34997. 1($Trash)1
  34998. $87$64
  34999. $64BFY
  35000. CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes($Trash)de-DE
  35001. 000003EA
  35002. ######
  35003. CN=Shaun McGale/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus NotesDatabase Scriptt34Q1de-DE
  35004. 00000732##############################
  35005. ##########################################################
  35006. Lotus Product
  35007. OBJECT
  35008. $189DueState$186SubjectDueDateTime$190$Conflict
  35009. xxNotesCats
  35010. Feiertag
  35011. Urlaub
  35012. Projekte
  35013. Kunden
  35014. Anrufe
  35015. Unterwegs
  35016.     1S2S
  35017. Categories
  35018. xxNotesCats
  35019.     0R16S
  35020. DueState
  35021. DueState
  35022. AssignState
  35023. Importance
  35024. Importance
  35025. Importance
  35026.     3S4S6S8R14R20R26R
  35027. Subject
  35028. Subject
  35029. DueDateTime
  35030. DueDateTime
  35031. DueState
  35032. DueState
  35033. nftig
  35034. DueState
  35035. ckgewiesen
  35036. DueState
  35037. Complete
  35038. Aktuell
  35039.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  35040. DueDateTime
  35041. ExcludeFromView
  35042. OrgRepeat
  35043.     L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S
  35044. xxNotesCats
  35045. Feiertag
  35046. Urlaub
  35047. Projekte
  35048. Kunden
  35049. Anrufe
  35050. Unterwegs
  35051.     1S2S
  35052. Categories
  35053. xxNotesCats
  35054.     0R16SDueState
  35055. DueState
  35056. DueState
  35057. AssignState
  35058. Importance
  35059. Importance
  35060. Importance
  35061.     3S4S6S8R14R20R26RSubjectAufgabe
  35062. Subject
  35063. Subject
  35064. DueDateTimeF
  35065. llig am&
  35066. DueDateTime
  35067. DueDateTime
  35068. $190Status
  35069. DueState
  35070. DueState
  35071. nftig
  35072. DueState
  35073. ckgewiesen
  35074. DueState
  35075. Complete
  35076. Aktuell
  35077.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S&
  35078. _KategorisierenX
  35079. _WeiterleitenX
  35080. Dokument _bearbeiten
  35081. Dokument _senden
  35082. In Ordner _verschieben...X
  35083. Aus Ordner _entfernen...
  35084. Neue Aufgabe
  35085. Notes
  35086.     3S4S6S12S13S
  35087.     0R1S2S
  35088. path"
  35089. /Task?OpenForm"
  35090.     0R3S4S5S6S
  35091. Als abgeschlossen markierenX'++LotusScript Development Environment:2:5:(Options):0:74
  35092. Use "CSUIViewClass"
  35093. '++LotusScript Development Environment:2:5:(Forward):0:1
  35094. Declare Sub Click(Source As Button)
  35095. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35096. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35097. Private Sub BindEvents(Byval Objectname_ As String)
  35098.     Static Source As BUTTON
  35099.     Set Source = Bind(Objectname_)
  35100.     On Event Click From Source Call Click
  35101. End Sub
  35102. '++LotusScript Development Environment:2:2:Click:1:12
  35103. Sub Click(Source As Button)
  35104.     Call ProcessViewCommand(ACTION_COMPLETED)
  35105. End Sub
  35106. Markierung(en) aufgehobenX0
  35107. xxTitle
  35108. Erledigte Aufgabe - Markierung aufheben
  35109.     0S0E
  35110. xxNOTCOMPLETE
  35111. Sie k
  35112. nnen die Markierung einer nicht erledigten Aufgabe nicht aufheben.
  35113. xxWRONGASSIGNED
  35114. Sie k
  35115. nnen nur die Markierung einer Ihnen zugewiesenen, erledigten Aufgabe aufheben.
  35116. AssignState
  35117. xxTitle
  35118. xxNOTCOMPLETE
  35119.     0RR3S4S6S8S15S16S
  35120. DbOwner
  35121. CalendarProfile
  35122. Owner
  35123.     0R1S2S6S
  35124. 4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
  35125.     0RR1S
  35126. Owner1
  35127. DbOwner
  35128. DbOwner
  35129.     0R1S2S6S9S10S12S14S
  35130. Owner2
  35131. DbOwner
  35132. DbOwner
  35133.     0R1S2S6S9S10S12S14S
  35134. AssignedTo1
  35135. AssignedTo
  35136.     0R1S2S6S
  35137. AssignedTo2
  35138. AssignedTo
  35139.     0R1S2S6S
  35140. User1
  35141.     0R1S2S6S
  35142. User2
  35143.     0R1S2S6S
  35144. AssignedTo1
  35145. AssignedTo2
  35146. Owner1
  35147. Owner2
  35148. User1
  35149. User2
  35150. xxTitle
  35151. xxWRONGASSIGNED
  35152.     0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
  35153. AssignState
  35154.     0R1S2S3S
  35155. DueState
  35156.     0R1S2S3S
  35157. NoticeType
  35158.     0R1S2S3S
  35159. CompletedDateTime
  35160.     0R1S2S3S
  35161. _ViewIcon
  35162.     0R1S3S
  35163.     0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
  35164. NoticeTypeh
  35165. NoticeType
  35166.     4S5S
  35167. schenX
  35168. xxTitle
  35169. Lotus Notes
  35170.     0S0E
  35171. xxMESSAGENONESELECTED
  35172. Es ist kein Dokument ausgew
  35173. xxTASKNOTCOMPLETE
  35174. Aufgabe nicht abgeschlossen
  35175. xxTASKNOTCOMPLETEPROMPT
  35176. Diese Aufgabe ist noch nicht abgeschlossen. M
  35177. chten Sie sie wirklich l
  35178. schen?
  35179. xxTitle
  35180. xxMESSAGENONESELECTED
  35181. DueState
  35182. xxTASKNOTCOMPLETE
  35183. xxTASKNOTCOMPLETEPROMPT
  35184.     0R1RT2RT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
  35185. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  35186. Use "CSUIViewClass"
  35187. '++LotusScript Development Environment:2:5:(Forward):0:1
  35188. Declare Sub Click(Source As Button)
  35189. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35190. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35191. Private Sub BindEvents(Byval Objectname_ As String)
  35192. Static Source As BUTTON
  35193. Set Source = Bind(Objectname_)
  35194. On Event Click From Source Call Click
  35195. End Sub
  35196. '++LotusScript Development Environment:2:2:Click:1:12
  35197. Sub Click(Source As Button)
  35198.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  35199. End Sub
  35200. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  35201. Use "CSUIViewClass"
  35202. '++LotusScript Development Environment:2:5:(Forward):0:1
  35203. Declare Sub Click(Source As Button)
  35204. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35205. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35206. Private Sub BindEvents(Byval Objectname_ As String)
  35207. Static Source As BUTTON
  35208. Set Source = Bind(Objectname_)
  35209. On Event Click From Source Call Click
  35210. End Sub
  35211. '++LotusScript Development Environment:2:2:Click:1:12
  35212. Sub Click(Source As Button)
  35213.     Call ProcessViewCommand(ACTION_CANCEL)
  35214. End Sub
  35215. Besitzeraktionen\Best
  35216. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  35217. Use "CSUIViewClass"
  35218. '++LotusScript Development Environment:2:5:(Forward):0:1
  35219. Declare Sub Click(Source As Button)
  35220. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35221. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35222. Private Sub BindEvents(Byval Objectname_ As String)
  35223. Static Source As BUTTON
  35224. Set Source = Bind(Objectname_)
  35225. On Event Click From Source Call Click
  35226. End Sub
  35227. '++LotusScript Development Environment:2:2:Click:1:12
  35228. Sub Click(Source As Button)
  35229.     Call ProcessViewCommand(ACTION_CONFIRM)
  35230. End Sub
  35231. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  35232. Use "CSUIViewClass"
  35233. '++LotusScript Development Environment:2:5:(Forward):0:1
  35234. Declare Sub Click(Source As Button)
  35235. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35236. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35237. Private Sub BindEvents(Byval Objectname_ As String)
  35238. Static Source As BUTTON
  35239. Set Source = Bind(Objectname_)
  35240. On Event Click From Source Call Click
  35241. End Sub
  35242. '++LotusScript Development Environment:2:2:Click:1:12
  35243. Sub Click(Source As Button)
  35244.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  35245. End Sub
  35246. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  35247. Use "CSUIViewClass"
  35248. '++LotusScript Development Environment:2:5:(Forward):0:1
  35249. Declare Sub Click(Source As Button)
  35250. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35251. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35252. Private Sub BindEvents(Byval Objectname_ As String)
  35253. Static Source As BUTTON
  35254. Set Source = Bind(Objectname_)
  35255. On Event Click From Source Call Click
  35256. End Sub
  35257. '++LotusScript Development Environment:2:2:Click:1:12
  35258. Sub Click(Source As Button)
  35259.     Call ProcessViewCommand(ACTION_SENDMEMO)
  35260. End Sub
  35261. Teilnehmeraktionen\AnnehmenX'++LotusScript Development Environment:2:5:(Options):0:74
  35262. Use "CSUIViewClass"
  35263. '++LotusScript Development Environment:2:5:(Forward):0:1
  35264. Declare Sub Click(Source As Button)
  35265. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35266. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35267. Private Sub BindEvents(Byval Objectname_ As String)
  35268.     Static Source As BUTTON
  35269.     Set Source = Bind(Objectname_)
  35270.     On Event Click From Source Call Click
  35271. End Sub
  35272. '++LotusScript Development Environment:2:2:Click:1:12
  35273. Sub Click(Source As Button)
  35274.     Call ProcessViewCommand(ACTION_ACCEPT)
  35275. End Sub
  35276. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  35277. Use "CSUIViewClass"
  35278. '++LotusScript Development Environment:2:5:(Forward):0:1
  35279. Declare Sub Click(Source As Button)
  35280. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35281. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35282. Private Sub BindEvents(Byval Objectname_ As String)
  35283. Static Source As BUTTON
  35284. Set Source = Bind(Objectname_)
  35285. On Event Click From Source Call Click
  35286. End Sub
  35287. '++LotusScript Development Environment:2:2:Click:1:12
  35288. Sub Click(Source As Button)
  35289.     Call ProcessViewCommand(ACTION_DECLINE)
  35290. End Sub
  35291. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  35292. Use "CSUIViewClass"
  35293. '++LotusScript Development Environment:2:5:(Forward):0:1
  35294. Declare Sub Click(Source As Button)
  35295. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35296. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35297. Private Sub BindEvents(Byval Objectname_ As String)
  35298. Static Source As BUTTON
  35299. Set Source = Bind(Objectname_)
  35300. On Event Click From Source Call Click
  35301. End Sub
  35302. '++LotusScript Development Environment:2:2:Click:1:12
  35303. Sub Click(Source As Button)
  35304.     Call ProcessViewCommand(ACTION_DELEGATE)
  35305. End Sub
  35306. Teilnehmeraktionen\Neue Uhrzeit vorschlagenX'++LotusScript Development Environment:2:5:(Options):0:74
  35307. Use "CSUIViewClass"
  35308. '++LotusScript Development Environment:2:5:(Forward):0:1
  35309. Declare Sub Click(Source As Button)
  35310. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35311. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35312. Private Sub BindEvents(Byval Objectname_ As String)
  35313. Static Source As BUTTON
  35314. Set Source = Bind(Objectname_)
  35315. On Event Click From Source Call Click
  35316. End Sub
  35317. '++LotusScript Development Environment:2:2:Click:1:12
  35318. Sub Click(Source As Button)
  35319.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  35320. End Sub
  35321. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  35322. Use "CommonUI"
  35323. '++LotusScript Development Environment:2:5:(Forward):0:1
  35324. Declare Sub Click(Source As Button)
  35325. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35326. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35327. Private Sub BindEvents(Byval Objectname_ As String)
  35328. Static Source As BUTTON
  35329. Set Source = Bind(Objectname_)
  35330. On Event Click From Source Call Click
  35331. End Sub
  35332. '++LotusScript Development Environment:2:2:Click:1:12
  35333. Sub Click(Source As Button)
  35334.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  35335. End Sub
  35336. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  35337. Use "CommonUI"
  35338. '++LotusScript Development Environment:2:5:(Forward):0:1
  35339. Declare Sub Click(Source As Button)
  35340. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35341. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35342. Private Sub BindEvents(Byval Objectname_ As String)
  35343. Static Source As BUTTON
  35344. Set Source = Bind(Objectname_)
  35345. On Event Click From Source Call Click
  35346. End Sub
  35347. '++LotusScript Development Environment:2:2:Click:1:12
  35348. Sub Click(Source As Button)
  35349.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  35350. End Sub
  35351. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  35352. Use "CommonUI"
  35353. '++LotusScript Development Environment:2:5:(Forward):0:1
  35354. Declare Sub Click(Source As Button)
  35355. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35356. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35357. Private Sub BindEvents(Byval Objectname_ As String)
  35358.     Static Source As BUTTON
  35359.     Set Source = Bind(Objectname_)
  35360.     On Event Click From Source Call Click
  35361. End Sub
  35362. '++LotusScript Development Environment:2:2:Click:1:12
  35363. Sub Click(Source As Button)
  35364.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  35365. End Sub
  35366. Werkzeuge\Absender in Adre
  35367. buch aufnehmenX<
  35368. (AddSenderToAddressBook)
  35369.     0S0E
  35370. Werkzeuge\Vorgaben...XR
  35371. DialogMode
  35372. (Preferences)
  35373. schen\L
  35374. schenX 
  35375.     0S0E
  35376. schen\Papierkorb leerenX 
  35377.     0S0E
  35378. Werkzeuge\Vorgaben0
  35379. wPreferences
  35380.     0S0E
  35381. Werkzeuge\Suchen 
  35382.     0S0E
  35383. Werkzeuge\HilfeX,
  35384. WebHelp
  35385.     0S0E
  35386. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  35387. Use "CommonUI"
  35388. '++LotusScript Development Environment:2:5:(Forward):0:1
  35389. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35390. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35391. Private Sub BindEvents(Byval Objectname_ As String)
  35392.     Static Source As BUTTON
  35393.     Set Source = Bind(Objectname_)
  35394. End Sub
  35395. _KategorisierenX
  35396. _WeiterleitenX
  35397. Dokument _bearbeiten
  35398. Dokument _senden
  35399. In Ordner _verschieben...X
  35400. Aus Ordner _entfernen...
  35401. Neue Aufgabe
  35402. Notes
  35403.     3S4S6S12S13S
  35404.     0R1S2S
  35405. path"
  35406. /Task?OpenForm"
  35407.     0R3S4S5S6S
  35408. act_csnew.GIF|act_CSNEWDOC
  35409. Als abgeschlossen markierenX'++LotusScript Development Environment:2:5:(Options):0:74
  35410. Use "CSUIViewClass"
  35411. '++LotusScript Development Environment:2:5:(Forward):0:1
  35412. Declare Sub Click(Source As Button)
  35413. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35414. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35415. Private Sub BindEvents(Byval Objectname_ As String)
  35416.     Static Source As BUTTON
  35417.     Set Source = Bind(Objectname_)
  35418.     On Event Click From Source Call Click
  35419. End Sub
  35420. '++LotusScript Development Environment:2:2:Click:1:12
  35421. Sub Click(Source As Button)
  35422.     Call ProcessViewCommand(ACTION_COMPLETED)
  35423. End Sub
  35424. act_markCompleted.gifX
  35425. Markierung(en) aufgehobenX0
  35426. xxTitle
  35427. Erledigte Aufgabe - Markierung aufheben
  35428.     0S0E
  35429. xxNOTCOMPLETE
  35430. Sie k
  35431. nnen die Markierung einer nicht erledigten Aufgabe nicht aufheben.
  35432. xxWRONGASSIGNED
  35433. Sie k
  35434. nnen nur die Markierung einer Ihnen zugewiesenen, erledigten Aufgabe aufheben.
  35435. AssignState
  35436. xxTitle
  35437. xxNOTCOMPLETE
  35438.     0RR3S4S6S8S15S16S
  35439. DbOwner
  35440. CalendarProfile
  35441. Owner
  35442.     0R1S2S6S
  35443. 4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
  35444.     0RR1S
  35445. Owner1
  35446. DbOwner
  35447. DbOwner
  35448.     0R1S2S6S9S10S12S14S
  35449. Owner2
  35450. DbOwner
  35451. DbOwner
  35452.     0R1S2S6S9S10S12S14S
  35453. AssignedTo1
  35454. AssignedTo
  35455.     0R1S2S6S
  35456. AssignedTo2
  35457. AssignedTo
  35458.     0R1S2S6S
  35459. User1
  35460.     0R1S2S6S
  35461. User2
  35462.     0R1S2S6S
  35463. AssignedTo1
  35464. AssignedTo2
  35465. Owner1
  35466. Owner2
  35467. User1
  35468. User2
  35469. xxTitle
  35470. xxWRONGASSIGNED
  35471.     0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
  35472. AssignState
  35473.     0R1S2S3S
  35474. DueState
  35475.     0R1S2S3S
  35476. NoticeType
  35477.     0R1S2S3S
  35478. CompletedDateTime
  35479.     0R1S2S3S
  35480. _ViewIcon
  35481.     0R1S3S
  35482.     0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
  35483. NoticeTypeh
  35484. NoticeType
  35485.     4S5S
  35486. act_unmark.gif
  35487. schenX
  35488. xxTitle
  35489. Lotus Notes
  35490.     0S0E
  35491. xxMESSAGENONESELECTED
  35492. Es ist kein Dokument ausgew
  35493. xxTASKNOTCOMPLETE
  35494. Aufgabe nicht abgeschlossen
  35495. xxTASKNOTCOMPLETEPROMPT
  35496. Diese Aufgabe ist noch nicht abgeschlossen. M
  35497. chten Sie sie wirklich l
  35498. schen?
  35499. xxTitle
  35500. xxMESSAGENONESELECTED
  35501. DueState
  35502. xxTASKNOTCOMPLETE
  35503. xxTASKNOTCOMPLETEPROMPT
  35504.     0R1RT2RT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
  35505. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  35506. Use "CSUIViewClass"
  35507. '++LotusScript Development Environment:2:5:(Forward):0:1
  35508. Declare Sub Click(Source As Button)
  35509. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35510. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35511. Private Sub BindEvents(Byval Objectname_ As String)
  35512. Static Source As BUTTON
  35513. Set Source = Bind(Objectname_)
  35514. On Event Click From Source Call Click
  35515. End Sub
  35516. '++LotusScript Development Environment:2:2:Click:1:12
  35517. Sub Click(Source As Button)
  35518.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  35519. End Sub
  35520. act_csowneractions.GIF|act_CSOWNERACTIONSX
  35521. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  35522. Use "CSUIViewClass"
  35523. '++LotusScript Development Environment:2:5:(Forward):0:1
  35524. Declare Sub Click(Source As Button)
  35525. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35526. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35527. Private Sub BindEvents(Byval Objectname_ As String)
  35528. Static Source As BUTTON
  35529. Set Source = Bind(Objectname_)
  35530. On Event Click From Source Call Click
  35531. End Sub
  35532. '++LotusScript Development Environment:2:2:Click:1:12
  35533. Sub Click(Source As Button)
  35534.     Call ProcessViewCommand(ACTION_CANCEL)
  35535. End Sub
  35536. act_csowneractions.GIF|act_CSOWNERACTIONSX
  35537. Besitzeraktionen\Best
  35538. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  35539. Use "CSUIViewClass"
  35540. '++LotusScript Development Environment:2:5:(Forward):0:1
  35541. Declare Sub Click(Source As Button)
  35542. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35543. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35544. Private Sub BindEvents(Byval Objectname_ As String)
  35545. Static Source As BUTTON
  35546. Set Source = Bind(Objectname_)
  35547. On Event Click From Source Call Click
  35548. End Sub
  35549. '++LotusScript Development Environment:2:2:Click:1:12
  35550. Sub Click(Source As Button)
  35551.     Call ProcessViewCommand(ACTION_CONFIRM)
  35552. End Sub
  35553. act_csowneractions.GIF|act_CSOWNERACTIONSX
  35554. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  35555. Use "CSUIViewClass"
  35556. '++LotusScript Development Environment:2:5:(Forward):0:1
  35557. Declare Sub Click(Source As Button)
  35558. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35559. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35560. Private Sub BindEvents(Byval Objectname_ As String)
  35561. Static Source As BUTTON
  35562. Set Source = Bind(Objectname_)
  35563. On Event Click From Source Call Click
  35564. End Sub
  35565. '++LotusScript Development Environment:2:2:Click:1:12
  35566. Sub Click(Source As Button)
  35567.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  35568. End Sub
  35569. act_csowneractions.GIF|act_CSOWNERACTIONSX
  35570. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  35571. Use "CSUIViewClass"
  35572. '++LotusScript Development Environment:2:5:(Forward):0:1
  35573. Declare Sub Click(Source As Button)
  35574. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35575. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35576. Private Sub BindEvents(Byval Objectname_ As String)
  35577. Static Source As BUTTON
  35578. Set Source = Bind(Objectname_)
  35579. On Event Click From Source Call Click
  35580. End Sub
  35581. '++LotusScript Development Environment:2:2:Click:1:12
  35582. Sub Click(Source As Button)
  35583.     Call ProcessViewCommand(ACTION_SENDMEMO)
  35584. End Sub
  35585. act_csowneractions.GIF|act_CSOWNERACTIONSX
  35586. Teilnehmeraktionen\AnnehmenX'++LotusScript Development Environment:2:5:(Options):0:74
  35587. Use "CSUIViewClass"
  35588. '++LotusScript Development Environment:2:5:(Forward):0:1
  35589. Declare Sub Click(Source As Button)
  35590. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35591. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35592. Private Sub BindEvents(Byval Objectname_ As String)
  35593.     Static Source As BUTTON
  35594.     Set Source = Bind(Objectname_)
  35595.     On Event Click From Source Call Click
  35596. End Sub
  35597. '++LotusScript Development Environment:2:2:Click:1:12
  35598. Sub Click(Source As Button)
  35599.     Call ProcessViewCommand(ACTION_ACCEPT)
  35600. End Sub
  35601. act_participantactions.GIF|act_CSPARTACTIONS
  35602. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  35603. Use "CSUIViewClass"
  35604. '++LotusScript Development Environment:2:5:(Forward):0:1
  35605. Declare Sub Click(Source As Button)
  35606. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35607. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35608. Private Sub BindEvents(Byval Objectname_ As String)
  35609. Static Source As BUTTON
  35610. Set Source = Bind(Objectname_)
  35611. On Event Click From Source Call Click
  35612. End Sub
  35613. '++LotusScript Development Environment:2:2:Click:1:12
  35614. Sub Click(Source As Button)
  35615.     Call ProcessViewCommand(ACTION_DECLINE)
  35616. End Sub
  35617. act_participantactions.GIF|act_CSPARTACTIONS
  35618. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  35619. Use "CSUIViewClass"
  35620. '++LotusScript Development Environment:2:5:(Forward):0:1
  35621. Declare Sub Click(Source As Button)
  35622. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35623. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35624. Private Sub BindEvents(Byval Objectname_ As String)
  35625. Static Source As BUTTON
  35626. Set Source = Bind(Objectname_)
  35627. On Event Click From Source Call Click
  35628. End Sub
  35629. '++LotusScript Development Environment:2:2:Click:1:12
  35630. Sub Click(Source As Button)
  35631.     Call ProcessViewCommand(ACTION_DELEGATE)
  35632. End Sub
  35633. act_participantactions.GIF|act_CSPARTACTIONS
  35634. Teilnehmeraktionen\Neue Uhrzeit vorschlagenX'++LotusScript Development Environment:2:5:(Options):0:74
  35635. Use "CSUIViewClass"
  35636. '++LotusScript Development Environment:2:5:(Forward):0:1
  35637. Declare Sub Click(Source As Button)
  35638. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35639. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35640. Private Sub BindEvents(Byval Objectname_ As String)
  35641. Static Source As BUTTON
  35642. Set Source = Bind(Objectname_)
  35643. On Event Click From Source Call Click
  35644. End Sub
  35645. '++LotusScript Development Environment:2:2:Click:1:12
  35646. Sub Click(Source As Button)
  35647.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  35648. End Sub
  35649. act_participantactions.GIF|act_CSPARTACTIONS
  35650. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  35651. Use "CommonUI"
  35652. '++LotusScript Development Environment:2:5:(Forward):0:1
  35653. Declare Sub Click(Source As Button)
  35654. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35655. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35656. Private Sub BindEvents(Byval Objectname_ As String)
  35657. Static Source As BUTTON
  35658. Set Source = Bind(Objectname_)
  35659. On Event Click From Source Call Click
  35660. End Sub
  35661. '++LotusScript Development Environment:2:2:Click:1:12
  35662. Sub Click(Source As Button)
  35663.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  35664. End Sub
  35665. act_COPYINTO.GIF|act_COPYINTOX
  35666. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  35667. Use "CommonUI"
  35668. '++LotusScript Development Environment:2:5:(Forward):0:1
  35669. Declare Sub Click(Source As Button)
  35670. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35671. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35672. Private Sub BindEvents(Byval Objectname_ As String)
  35673. Static Source As BUTTON
  35674. Set Source = Bind(Objectname_)
  35675. On Event Click From Source Call Click
  35676. End Sub
  35677. '++LotusScript Development Environment:2:2:Click:1:12
  35678. Sub Click(Source As Button)
  35679.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  35680. End Sub
  35681. act_COPYINTO.GIF|act_COPYINTOX
  35682. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  35683. Use "CommonUI"
  35684. '++LotusScript Development Environment:2:5:(Forward):0:1
  35685. Declare Sub Click(Source As Button)
  35686. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35687. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35688. Private Sub BindEvents(Byval Objectname_ As String)
  35689.     Static Source As BUTTON
  35690.     Set Source = Bind(Objectname_)
  35691.     On Event Click From Source Call Click
  35692. End Sub
  35693. '++LotusScript Development Environment:2:2:Click:1:12
  35694. Sub Click(Source As Button)
  35695.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  35696. End Sub
  35697. act_COPYINTO.GIF|act_COPYINTOX
  35698. Werkzeuge\Absender in Adre
  35699. buch aufnehmenX<
  35700. (AddSenderToAddressBook)
  35701.     0S0E
  35702. act_TOOLS.GIF|act_TOOLSX
  35703. Werkzeuge\Vorgaben...XR
  35704. DialogMode
  35705. (Preferences)
  35706. schen\L
  35707. schenX 
  35708.     0S0E
  35709. act_DELETE.GIF|act_DELETEX
  35710. schen\Papierkorb leerenX 
  35711.     0S0E
  35712. act_DELETE.GIF|act_DELETEX
  35713. Werkzeuge\Vorgaben0
  35714. wPreferences
  35715.     0S0E
  35716. act_TOOLS.GIF|act_TOOLSX
  35717. Werkzeuge\Suchen 
  35718.     0S0E
  35719. act_TOOLS.GIF|act_TOOLSX
  35720. Werkzeuge\HilfeX,
  35721. WebHelp
  35722.     0S0E
  35723. act_TOOLS.GIF|act_TOOLSX
  35724. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  35725. Use "CommonUI"
  35726. '++LotusScript Development Environment:2:5:(Forward):0:1
  35727. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35728. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35729. Private Sub BindEvents(Byval Objectname_ As String)
  35730.     Static Source As BUTTON
  35731.     Set Source = Bind(Objectname_)
  35732. End Sub
  35733. '++LotusScript Development Environment:2:5:(Options):0:74
  35734. Option Public
  35735. Option Explicit
  35736. '++LotusScript Development Environment:2:5:(Forward):0:1
  35737. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35738. Lotus Product
  35739. Lotus Product
  35740. Lotus Product
  35741. Lotus Product
  35742. Lotus Product
  35743. Lotus Product
  35744. Lotus Product
  35745. Lotus Product
  35746. Lotus Product
  35747. Lotus Product
  35748. Lotus Product
  35749. Lotus Product
  35750. Lotus Product
  35751. Lotus Product
  35752. Lotus Product
  35753. O=Lotus Notes
  35754. O=Lotus Notes
  35755. PURSAFO
  35756. |.:#U
  35757. O=Lotus Notes
  35758. CN=Lotus Notes Template Development/O=Lotus Notes
  35759. PURSAFO
  35760. $TABLEFORMAT
  35761. $PublicAccess
  35762. $Index
  35763. $FormulaClass
  35764. $AppHelpFormula
  35765. $WebFlags
  35766. $ViewGlobalScript_O
  35767. $Formula
  35768. $VIEWFORMAT
  35769. $ACTIONS
  35770. $V5ACTIONS
  35771. $ViewGlobalScript
  35772. (Globals) (Aufgaben\Nach Kategorie)|Tod
  35773. $SCRIPTOBJ_7
  35774. $SCRIPTOBJ_10
  35775. $SCRIPTOBJ_11
  35776. $SCRIPTOBJ_12
  35777. $SCRIPTOBJ_13
  35778. $SCRIPTOBJ_14
  35779. $SCRIPTOBJ_15
  35780. $SCRIPTOBJ_16
  35781. $SCRIPTOBJ_17
  35782. $SCRIPTOBJ_18
  35783. $SCRIPTOBJ_19
  35784. $SCRIPTOBJ_20
  35785. $SCRIPTOBJ_21
  35786. $SCRIPTOBJ_29
  35787. $Language
  35788. $LastBuildTime
  35789. $BabelInfo
  35790. Lotus Product
  35791. DueState$189$186SubjectDueDateTime$190$Conflict
  35792. DueState
  35793. DueState
  35794. DueState
  35795. DueState
  35796. nftig
  35797. DueState
  35798. ckgewiesen
  35799. DueState
  35800. Abgeschlossen
  35801. Aktuell
  35802.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S
  35803. AssignState
  35804. Importance
  35805. Importance
  35806. Importance
  35807.     3S4S6S8R14R20R26R
  35808. Subject
  35809. Subject
  35810. DueDateTime
  35811. DueDateTime
  35812. xxNotesCats
  35813. Feiertag
  35814. Urlaub
  35815. Projekte
  35816. Kunden
  35817. Anrufe
  35818. Unterwegs
  35819.     1S2S
  35820. Categories
  35821. xxNotesCats
  35822.     0R16S
  35823. DueDateTime
  35824. ExcludeFromView
  35825. OrgRepeat
  35826. DueStateh
  35827.     L1S3S4S5S6S7S8S10S11S14S15S17S18S24S25S28S29S
  35828. DueState
  35829. DueState
  35830. DueState
  35831. DueState
  35832. DueState
  35833. nftig
  35834. DueState
  35835. ckgewiesen
  35836. DueState
  35837. Abgeschlossen
  35838. Aktuell
  35839.     3S4S6S8S9S10S12S14S15S16S18S20S21S22S24S26S$186
  35840. AssignState
  35841. Importance
  35842. Importance
  35843. Importance
  35844.     3S4S6S8R14R20R26RSubjectAufgabe
  35845. Subject
  35846. Subject
  35847. DueDateTimeF
  35848. llig am&
  35849. DueDateTime
  35850. DueDateTime
  35851. $190Kategorie
  35852. xxNotesCats
  35853. Feiertag
  35854. Urlaub
  35855. Projekte
  35856. Kunden
  35857. Anrufe
  35858. Unterwegs
  35859.     1S2S
  35860. Categories
  35861. xxNotesCats
  35862.     0R16S&
  35863. _KategorisierenX
  35864. _WeiterleitenX
  35865. Dokument _bearbeiten
  35866. Dokument _senden
  35867. In Ordner _verschieben...X
  35868. Aus Ordner _entfernen...
  35869. Neue Aufgabe
  35870. Notes
  35871.     3S4S6S12S13S
  35872.     0R1S2S
  35873. path"
  35874. /Task?OpenForm"
  35875.     0R3S4S5S6S
  35876. Als abgeschlossen markierenX'++LotusScript Development Environment:2:5:(Options):0:74
  35877. Use "CSUIViewClass"
  35878. '++LotusScript Development Environment:2:5:(Forward):0:1
  35879. Declare Sub Click(Source As Button)
  35880. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35881. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35882. Private Sub BindEvents(Byval Objectname_ As String)
  35883.     Static Source As BUTTON
  35884.     Set Source = Bind(Objectname_)
  35885.     On Event Click From Source Call Click
  35886. End Sub
  35887. '++LotusScript Development Environment:2:2:Click:1:12
  35888. Sub Click(Source As Button)
  35889.     Call ProcessViewCommand(ACTION_COMPLETED)
  35890. End Sub
  35891. Markierung(en) aufgehobenX0
  35892. xxTitle
  35893. Erledigte Aufgabe - Markierung aufheben
  35894.     0S0E
  35895. xxNOTCOMPLETE
  35896. Sie k
  35897. nnen die Markierung einer nicht erledigten Aufgabe nicht aufheben.
  35898. xxWRONGASSIGNED
  35899. Sie k
  35900. nnen nur die Markierung einer Ihnen zugewiesenen, erledigten Aufgabe aufheben.
  35901. AssignState
  35902. xxTitle
  35903. xxNOTCOMPLETE
  35904.     0RR3S4S6S8S15S16S
  35905. DbOwner
  35906. CalendarProfile
  35907. Owner
  35908.     0R1S2S6S
  35909. 4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
  35910.     0RR1S
  35911. Owner1
  35912. DbOwner
  35913. DbOwner
  35914.     0R1S2S6S9S10S12S14S
  35915. Owner2
  35916. DbOwner
  35917. DbOwner
  35918.     0R1S2S6S9S10S12S14S
  35919. AssignedTo1
  35920. AssignedTo
  35921.     0R1S2S6S
  35922. AssignedTo2
  35923. AssignedTo
  35924.     0R1S2S6S
  35925. User1
  35926.     0R1S2S6S
  35927. User2
  35928.     0R1S2S6S
  35929. AssignedTo1
  35930. AssignedTo2
  35931. Owner1
  35932. Owner2
  35933. User1
  35934. User2
  35935. xxTitle
  35936. xxWRONGASSIGNED
  35937.     0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
  35938. AssignState
  35939.     0R1S2S3S
  35940. DueState
  35941.     0R1S2S3S
  35942. NoticeType
  35943.     0R1S2S3S
  35944. CompletedDateTime
  35945.     0R1S2S3S
  35946. _ViewIcon
  35947.     0R1S3S
  35948.     0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
  35949. NoticeTypeh
  35950. NoticeType
  35951.     4S5S
  35952. schenX
  35953. xxTitle
  35954. Lotus Notes
  35955.     0S0E
  35956. xxMESSAGENONESELECTED
  35957. Es ist kein Dokument ausgew
  35958. xxTASKNOTCOMPLETE
  35959. Aufgabe nicht abgeschlossen
  35960. xxTASKNOTCOMPLETEPROMPT
  35961. Diese Aufgabe ist noch nicht abgeschlossen. M
  35962. chten Sie sie wirklich l
  35963. schen?
  35964. xxTitle
  35965. xxMESSAGENONESELECTED
  35966. DueState
  35967. xxTASKNOTCOMPLETE
  35968. xxTASKNOTCOMPLETEPROMPT
  35969.     0R1RT2RTT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
  35970. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  35971. Use "CSUIViewClass"
  35972. '++LotusScript Development Environment:2:5:(Forward):0:1
  35973. Declare Sub Click(Source As Button)
  35974. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35975. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35976. Private Sub BindEvents(Byval Objectname_ As String)
  35977. Static Source As BUTTON
  35978. Set Source = Bind(Objectname_)
  35979. On Event Click From Source Call Click
  35980. End Sub
  35981. '++LotusScript Development Environment:2:2:Click:1:12
  35982. Sub Click(Source As Button)
  35983.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  35984. End Sub
  35985. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  35986. Use "CSUIViewClass"
  35987. '++LotusScript Development Environment:2:5:(Forward):0:1
  35988. Declare Sub Click(Source As Button)
  35989. '++LotusScript Development Environment:2:5:(Declarations):0:2
  35990. '++LotusScript Development Environment:2:2:BindEvents:1:129
  35991. Private Sub BindEvents(Byval Objectname_ As String)
  35992. Static Source As BUTTON
  35993. Set Source = Bind(Objectname_)
  35994. On Event Click From Source Call Click
  35995. End Sub
  35996. '++LotusScript Development Environment:2:2:Click:1:12
  35997. Sub Click(Source As Button)
  35998.     Call ProcessViewCommand(ACTION_CANCEL)
  35999. End Sub
  36000. Besitzeraktionen\Best
  36001. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  36002. Use "CSUIViewClass"
  36003. '++LotusScript Development Environment:2:5:(Forward):0:1
  36004. Declare Sub Click(Source As Button)
  36005. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36006. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36007. Private Sub BindEvents(Byval Objectname_ As String)
  36008. Static Source As BUTTON
  36009. Set Source = Bind(Objectname_)
  36010. On Event Click From Source Call Click
  36011. End Sub
  36012. '++LotusScript Development Environment:2:2:Click:1:12
  36013. Sub Click(Source As Button)
  36014.     Call ProcessViewCommand(ACTION_CONFIRM)
  36015. End Sub
  36016. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  36017. Use "CSUIViewClass"
  36018. '++LotusScript Development Environment:2:5:(Forward):0:1
  36019. Declare Sub Click(Source As Button)
  36020. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36021. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36022. Private Sub BindEvents(Byval Objectname_ As String)
  36023. Static Source As BUTTON
  36024. Set Source = Bind(Objectname_)
  36025. On Event Click From Source Call Click
  36026. End Sub
  36027. '++LotusScript Development Environment:2:2:Click:1:12
  36028. Sub Click(Source As Button)
  36029.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  36030. End Sub
  36031. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  36032. Use "CSUIViewClass"
  36033. '++LotusScript Development Environment:2:5:(Forward):0:1
  36034. Declare Sub Click(Source As Button)
  36035. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36036. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36037. Private Sub BindEvents(Byval Objectname_ As String)
  36038. Static Source As BUTTON
  36039. Set Source = Bind(Objectname_)
  36040. On Event Click From Source Call Click
  36041. End Sub
  36042. '++LotusScript Development Environment:2:2:Click:1:12
  36043. Sub Click(Source As Button)
  36044.     Call ProcessViewCommand(ACTION_SENDMEMO)
  36045. End Sub
  36046. Teilnehmeraktionen\AnnehmenX'++LotusScript Development Environment:2:5:(Options):0:74
  36047. Use "CSUIViewClass"
  36048. '++LotusScript Development Environment:2:5:(Forward):0:1
  36049. Declare Sub Click(Source As Button)
  36050. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36051. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36052. Private Sub BindEvents(Byval Objectname_ As String)
  36053.     Static Source As BUTTON
  36054.     Set Source = Bind(Objectname_)
  36055.     On Event Click From Source Call Click
  36056. End Sub
  36057. '++LotusScript Development Environment:2:2:Click:1:12
  36058. Sub Click(Source As Button)
  36059.     Call ProcessViewCommand(ACTION_ACCEPT)
  36060. End Sub
  36061. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  36062. Use "CSUIViewClass"
  36063. '++LotusScript Development Environment:2:5:(Forward):0:1
  36064. Declare Sub Click(Source As Button)
  36065. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36066. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36067. Private Sub BindEvents(Byval Objectname_ As String)
  36068. Static Source As BUTTON
  36069. Set Source = Bind(Objectname_)
  36070. On Event Click From Source Call Click
  36071. End Sub
  36072. '++LotusScript Development Environment:2:2:Click:1:12
  36073. Sub Click(Source As Button)
  36074.     Call ProcessViewCommand(ACTION_DECLINE)
  36075. End Sub
  36076. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  36077. Use "CSUIViewClass"
  36078. '++LotusScript Development Environment:2:5:(Forward):0:1
  36079. Declare Sub Click(Source As Button)
  36080. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36081. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36082. Private Sub BindEvents(Byval Objectname_ As String)
  36083. Static Source As BUTTON
  36084. Set Source = Bind(Objectname_)
  36085. On Event Click From Source Call Click
  36086. End Sub
  36087. '++LotusScript Development Environment:2:2:Click:1:12
  36088. Sub Click(Source As Button)
  36089.     Call ProcessViewCommand(ACTION_DELEGATE)
  36090. End Sub
  36091. Teilnehmeraktionen\Neue Uhrzeit vorschlagenX'++LotusScript Development Environment:2:5:(Options):0:74
  36092. Use "CSUIViewClass"
  36093. '++LotusScript Development Environment:2:5:(Forward):0:1
  36094. Declare Sub Click(Source As Button)
  36095. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36096. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36097. Private Sub BindEvents(Byval Objectname_ As String)
  36098. Static Source As BUTTON
  36099. Set Source = Bind(Objectname_)
  36100. On Event Click From Source Call Click
  36101. End Sub
  36102. '++LotusScript Development Environment:2:2:Click:1:12
  36103. Sub Click(Source As Button)
  36104.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  36105. End Sub
  36106. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  36107. Use "CommonUI"
  36108. '++LotusScript Development Environment:2:5:(Forward):0:1
  36109. Declare Sub Click(Source As Button)
  36110. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36111. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36112. Private Sub BindEvents(Byval Objectname_ As String)
  36113. Static Source As BUTTON
  36114. Set Source = Bind(Objectname_)
  36115. On Event Click From Source Call Click
  36116. End Sub
  36117. '++LotusScript Development Environment:2:2:Click:1:12
  36118. Sub Click(Source As Button)
  36119.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36120. End Sub
  36121. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  36122. Use "CommonUI"
  36123. '++LotusScript Development Environment:2:5:(Forward):0:1
  36124. Declare Sub Click(Source As Button)
  36125. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36126. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36127. Private Sub BindEvents(Byval Objectname_ As String)
  36128. Static Source As BUTTON
  36129. Set Source = Bind(Objectname_)
  36130. On Event Click From Source Call Click
  36131. End Sub
  36132. '++LotusScript Development Environment:2:2:Click:1:12
  36133. Sub Click(Source As Button)
  36134.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36135. End Sub
  36136. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  36137. Use "CommonUI"
  36138. '++LotusScript Development Environment:2:5:(Forward):0:1
  36139. Declare Sub Click(Source As Button)
  36140. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36141. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36142. Private Sub BindEvents(Byval Objectname_ As String)
  36143.     Static Source As BUTTON
  36144.     Set Source = Bind(Objectname_)
  36145.     On Event Click From Source Call Click
  36146. End Sub
  36147. '++LotusScript Development Environment:2:2:Click:1:12
  36148. Sub Click(Source As Button)
  36149.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36150. End Sub
  36151. Werkzeuge\Absender in Adre
  36152. buch aufnehmenX<
  36153. (AddSenderToAddressBook)
  36154.     0S0E
  36155. Werkzeuge\Vorgaben...XR
  36156. DialogMode
  36157. (Preferences)
  36158. schen\L
  36159. schenX 
  36160.     0S0E
  36161. schen\Papierkorb leerenX 
  36162.     0S0E
  36163. Werkzeuge\Vorgaben0
  36164. wPreferences
  36165.     0S0E
  36166. Werkzeuge\Suchen 
  36167.     0S0E
  36168. Werkzeuge\HilfeX,
  36169. WebHelp
  36170.     0S0E
  36171. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  36172. Use "CommonUI"
  36173. '++LotusScript Development Environment:2:5:(Forward):0:1
  36174. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36175. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36176. Private Sub BindEvents(Byval Objectname_ As String)
  36177.     Static Source As BUTTON
  36178.     Set Source = Bind(Objectname_)
  36179. End Sub
  36180. _KategorisierenX
  36181. _WeiterleitenX
  36182. Dokument _bearbeiten
  36183. Dokument _senden
  36184. In Ordner _verschieben...X
  36185. Aus Ordner _entfernen...
  36186. Neue Aufgabe
  36187. Notes
  36188.     3S4S6S12S13S
  36189.     0R1S2S
  36190. path"
  36191. /Task?OpenForm"
  36192.     0R3S4S5S6S
  36193. act_csnew.GIF|act_CSNEWDOC
  36194. Als abgeschlossen markierenX'++LotusScript Development Environment:2:5:(Options):0:74
  36195. Use "CSUIViewClass"
  36196. '++LotusScript Development Environment:2:5:(Forward):0:1
  36197. Declare Sub Click(Source As Button)
  36198. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36199. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36200. Private Sub BindEvents(Byval Objectname_ As String)
  36201.     Static Source As BUTTON
  36202.     Set Source = Bind(Objectname_)
  36203.     On Event Click From Source Call Click
  36204. End Sub
  36205. '++LotusScript Development Environment:2:2:Click:1:12
  36206. Sub Click(Source As Button)
  36207.     Call ProcessViewCommand(ACTION_COMPLETED)
  36208. End Sub
  36209. act_markCompleted.gifX
  36210. Markierung(en) aufgehobenX0
  36211. xxTitle
  36212. Erledigte Aufgabe - Markierung aufheben
  36213.     0S0E
  36214. xxNOTCOMPLETE
  36215. Sie k
  36216. nnen die Markierung einer nicht erledigten Aufgabe nicht aufheben.
  36217. xxWRONGASSIGNED
  36218. Sie k
  36219. nnen nur die Markierung einer Ihnen zugewiesenen, erledigten Aufgabe aufheben.
  36220. AssignState
  36221. xxTitle
  36222. xxNOTCOMPLETE
  36223.     0RR3S4S6S8S15S16S
  36224. DbOwner
  36225. CalendarProfile
  36226. Owner
  36227.     0R1S2S6S
  36228. 4.0 converted AssignedTo to abbreviated name and 4.5 does not so here we are checking both
  36229.     0RR1S
  36230. Owner1
  36231. DbOwner
  36232. DbOwner
  36233.     0R1S2S6S9S10S12S14S
  36234. Owner2
  36235. DbOwner
  36236. DbOwner
  36237.     0R1S2S6S9S10S12S14S
  36238. AssignedTo1
  36239. AssignedTo
  36240.     0R1S2S6S
  36241. AssignedTo2
  36242. AssignedTo
  36243.     0R1S2S6S
  36244. User1
  36245.     0R1S2S6S
  36246. User2
  36247.     0R1S2S6S
  36248. AssignedTo1
  36249. AssignedTo2
  36250. Owner1
  36251. Owner2
  36252. User1
  36253. User2
  36254. xxTitle
  36255. xxWRONGASSIGNED
  36256.     0RR3S4S5S6S7S8S9S10S11S12S13S14S16S18S24S26S
  36257. AssignState
  36258.     0R1S2S3S
  36259. DueState
  36260.     0R1S2S3S
  36261. NoticeType
  36262.     0R1S2S3S
  36263. CompletedDateTime
  36264.     0R1S2S3S
  36265. _ViewIcon
  36266.     0R1S3S
  36267.     0RR1RT2RT4RTT5RTTT6RTTT11RTTTT16RTTT20RTTT22RT26RT
  36268. NoticeTypeh
  36269. NoticeType
  36270.     4S5S
  36271. act_unmark.gif
  36272. schenX
  36273. xxTitle
  36274. Lotus Notes
  36275.     0S0E
  36276. xxMESSAGENONESELECTED
  36277. Es ist kein Dokument ausgew
  36278. xxTASKNOTCOMPLETE
  36279. Aufgabe nicht abgeschlossen
  36280. xxTASKNOTCOMPLETEPROMPT
  36281. Diese Aufgabe ist noch nicht abgeschlossen. M
  36282. chten Sie sie wirklich l
  36283. schen?
  36284. xxTitle
  36285. xxMESSAGENONESELECTED
  36286. DueState
  36287. xxTASKNOTCOMPLETE
  36288. xxTASKNOTCOMPLETEPROMPT
  36289.     0R1RT2RTT7S9RTT21RT22RTT23RTT24RTTT25RTTT26S27S28S29S30S31S33RTTTT34RTTTTT35RTTTTT44RTTTSTTT46RTTTTT50RTTTTT52RTTT53RTTT55RTT59RTT60RT
  36290. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  36291. Use "CSUIViewClass"
  36292. '++LotusScript Development Environment:2:5:(Forward):0:1
  36293. Declare Sub Click(Source As Button)
  36294. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36295. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36296. Private Sub BindEvents(Byval Objectname_ As String)
  36297. Static Source As BUTTON
  36298. Set Source = Bind(Objectname_)
  36299. On Event Click From Source Call Click
  36300. End Sub
  36301. '++LotusScript Development Environment:2:2:Click:1:12
  36302. Sub Click(Source As Button)
  36303.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  36304. End Sub
  36305. act_csowneractions.GIF|act_CSOWNERACTIONSX
  36306. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  36307. Use "CSUIViewClass"
  36308. '++LotusScript Development Environment:2:5:(Forward):0:1
  36309. Declare Sub Click(Source As Button)
  36310. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36311. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36312. Private Sub BindEvents(Byval Objectname_ As String)
  36313. Static Source As BUTTON
  36314. Set Source = Bind(Objectname_)
  36315. On Event Click From Source Call Click
  36316. End Sub
  36317. '++LotusScript Development Environment:2:2:Click:1:12
  36318. Sub Click(Source As Button)
  36319.     Call ProcessViewCommand(ACTION_CANCEL)
  36320. End Sub
  36321. act_csowneractions.GIF|act_CSOWNERACTIONSX
  36322. Besitzeraktionen\Best
  36323. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  36324. Use "CSUIViewClass"
  36325. '++LotusScript Development Environment:2:5:(Forward):0:1
  36326. Declare Sub Click(Source As Button)
  36327. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36328. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36329. Private Sub BindEvents(Byval Objectname_ As String)
  36330. Static Source As BUTTON
  36331. Set Source = Bind(Objectname_)
  36332. On Event Click From Source Call Click
  36333. End Sub
  36334. '++LotusScript Development Environment:2:2:Click:1:12
  36335. Sub Click(Source As Button)
  36336.     Call ProcessViewCommand(ACTION_CONFIRM)
  36337. End Sub
  36338. act_csowneractions.GIF|act_CSOWNERACTIONSX
  36339. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  36340. Use "CSUIViewClass"
  36341. '++LotusScript Development Environment:2:5:(Forward):0:1
  36342. Declare Sub Click(Source As Button)
  36343. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36344. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36345. Private Sub BindEvents(Byval Objectname_ As String)
  36346. Static Source As BUTTON
  36347. Set Source = Bind(Objectname_)
  36348. On Event Click From Source Call Click
  36349. End Sub
  36350. '++LotusScript Development Environment:2:2:Click:1:12
  36351. Sub Click(Source As Button)
  36352.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  36353. End Sub
  36354. act_csowneractions.GIF|act_CSOWNERACTIONSX
  36355. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  36356. Use "CSUIViewClass"
  36357. '++LotusScript Development Environment:2:5:(Forward):0:1
  36358. Declare Sub Click(Source As Button)
  36359. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36360. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36361. Private Sub BindEvents(Byval Objectname_ As String)
  36362. Static Source As BUTTON
  36363. Set Source = Bind(Objectname_)
  36364. On Event Click From Source Call Click
  36365. End Sub
  36366. '++LotusScript Development Environment:2:2:Click:1:12
  36367. Sub Click(Source As Button)
  36368.     Call ProcessViewCommand(ACTION_SENDMEMO)
  36369. End Sub
  36370. act_csowneractions.GIF|act_CSOWNERACTIONSX
  36371. Teilnehmeraktionen\AnnehmenX'++LotusScript Development Environment:2:5:(Options):0:74
  36372. Use "CSUIViewClass"
  36373. '++LotusScript Development Environment:2:5:(Forward):0:1
  36374. Declare Sub Click(Source As Button)
  36375. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36376. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36377. Private Sub BindEvents(Byval Objectname_ As String)
  36378.     Static Source As BUTTON
  36379.     Set Source = Bind(Objectname_)
  36380.     On Event Click From Source Call Click
  36381. End Sub
  36382. '++LotusScript Development Environment:2:2:Click:1:12
  36383. Sub Click(Source As Button)
  36384.     Call ProcessViewCommand(ACTION_ACCEPT)
  36385. End Sub
  36386. act_participantactions.GIF|act_CSPARTACTIONS
  36387. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  36388. Use "CSUIViewClass"
  36389. '++LotusScript Development Environment:2:5:(Forward):0:1
  36390. Declare Sub Click(Source As Button)
  36391. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36392. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36393. Private Sub BindEvents(Byval Objectname_ As String)
  36394. Static Source As BUTTON
  36395. Set Source = Bind(Objectname_)
  36396. On Event Click From Source Call Click
  36397. End Sub
  36398. '++LotusScript Development Environment:2:2:Click:1:12
  36399. Sub Click(Source As Button)
  36400.     Call ProcessViewCommand(ACTION_DECLINE)
  36401. End Sub
  36402. act_participantactions.GIF|act_CSPARTACTIONS
  36403. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  36404. Use "CSUIViewClass"
  36405. '++LotusScript Development Environment:2:5:(Forward):0:1
  36406. Declare Sub Click(Source As Button)
  36407. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36408. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36409. Private Sub BindEvents(Byval Objectname_ As String)
  36410. Static Source As BUTTON
  36411. Set Source = Bind(Objectname_)
  36412. On Event Click From Source Call Click
  36413. End Sub
  36414. '++LotusScript Development Environment:2:2:Click:1:12
  36415. Sub Click(Source As Button)
  36416.     Call ProcessViewCommand(ACTION_DELEGATE)
  36417. End Sub
  36418. act_participantactions.GIF|act_CSPARTACTIONS
  36419. Teilnehmeraktionen\Neue Uhrzeit vorschlagenX'++LotusScript Development Environment:2:5:(Options):0:74
  36420. Use "CSUIViewClass"
  36421. '++LotusScript Development Environment:2:5:(Forward):0:1
  36422. Declare Sub Click(Source As Button)
  36423. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36424. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36425. Private Sub BindEvents(Byval Objectname_ As String)
  36426. Static Source As BUTTON
  36427. Set Source = Bind(Objectname_)
  36428. On Event Click From Source Call Click
  36429. End Sub
  36430. '++LotusScript Development Environment:2:2:Click:1:12
  36431. Sub Click(Source As Button)
  36432.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  36433. End Sub
  36434. act_participantactions.GIF|act_CSPARTACTIONS
  36435. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  36436. Use "CommonUI"
  36437. '++LotusScript Development Environment:2:5:(Forward):0:1
  36438. Declare Sub Click(Source As Button)
  36439. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36440. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36441. Private Sub BindEvents(Byval Objectname_ As String)
  36442. Static Source As BUTTON
  36443. Set Source = Bind(Objectname_)
  36444. On Event Click From Source Call Click
  36445. End Sub
  36446. '++LotusScript Development Environment:2:2:Click:1:12
  36447. Sub Click(Source As Button)
  36448.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36449. End Sub
  36450. act_COPYINTO.GIF|act_COPYINTOX
  36451. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  36452. Use "CommonUI"
  36453. '++LotusScript Development Environment:2:5:(Forward):0:1
  36454. Declare Sub Click(Source As Button)
  36455. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36456. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36457. Private Sub BindEvents(Byval Objectname_ As String)
  36458. Static Source As BUTTON
  36459. Set Source = Bind(Objectname_)
  36460. On Event Click From Source Call Click
  36461. End Sub
  36462. '++LotusScript Development Environment:2:2:Click:1:12
  36463. Sub Click(Source As Button)
  36464.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36465. End Sub
  36466. act_COPYINTO.GIF|act_COPYINTOX
  36467. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  36468. Use "CommonUI"
  36469. '++LotusScript Development Environment:2:5:(Forward):0:1
  36470. Declare Sub Click(Source As Button)
  36471. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36472. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36473. Private Sub BindEvents(Byval Objectname_ As String)
  36474.     Static Source As BUTTON
  36475.     Set Source = Bind(Objectname_)
  36476.     On Event Click From Source Call Click
  36477. End Sub
  36478. '++LotusScript Development Environment:2:2:Click:1:12
  36479. Sub Click(Source As Button)
  36480.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36481. End Sub
  36482. act_COPYINTO.GIF|act_COPYINTOX
  36483. Werkzeuge\Absender in Adre
  36484. buch aufnehmenX<
  36485. (AddSenderToAddressBook)
  36486.     0S0E
  36487. act_TOOLS.GIF|act_TOOLSX
  36488. Werkzeuge\Vorgaben...XR
  36489. DialogMode
  36490. (Preferences)
  36491. schen\L
  36492. schenX 
  36493.     0S0E
  36494. act_DELETE.GIF|act_DELETEX
  36495. schen\Papierkorb leerenX 
  36496.     0S0E
  36497. act_DELETE.GIF|act_DELETEX
  36498. Werkzeuge\Vorgaben0
  36499. wPreferences
  36500.     0S0E
  36501. act_TOOLS.GIF|act_TOOLSX
  36502. Werkzeuge\Suchen 
  36503.     0S0E
  36504. act_TOOLS.GIF|act_TOOLSX
  36505. Werkzeuge\HilfeX,
  36506. WebHelp
  36507.     0S0E
  36508. act_TOOLS.GIF|act_TOOLSX
  36509. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  36510. Use "CommonUI"
  36511. '++LotusScript Development Environment:2:5:(Forward):0:1
  36512. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36513. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36514. Private Sub BindEvents(Byval Objectname_ As String)
  36515.     Static Source As BUTTON
  36516.     Set Source = Bind(Objectname_)
  36517. End Sub
  36518. '++LotusScript Development Environment:2:5:(Options):0:74
  36519. Option Public
  36520. Option Explicit
  36521. '++LotusScript Development Environment:2:5:(Forward):0:1
  36522. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36523. Lotus Product
  36524. Lotus Product
  36525. Lotus Product
  36526. Lotus Product
  36527. Lotus Product
  36528. Lotus Product
  36529. Lotus Product
  36530. Lotus Product
  36531. Lotus Product
  36532. Lotus Product
  36533. Lotus Product
  36534. Lotus Product
  36535. Lotus Product
  36536. Lotus Product
  36537. Lotus Product
  36538. O=Lotus Notes
  36539. O=Lotus Notes
  36540. PURSAFO
  36541. |.:#U
  36542. O=Lotus Notes
  36543. CN=Lotus Notes Template Development/O=Lotus Notes
  36544. PURSAFO
  36545. $TABLEFORMAT
  36546. $PublicAccess
  36547. $Index
  36548. $FormulaClass
  36549. $AppHelpFormula
  36550. $WebFlags
  36551. $ViewGlobalScript_O
  36552. $Formula
  36553. $VIEWFORMAT
  36554. $ACTIONS
  36555. $V5ACTIONS
  36556. $ViewGlobalScript
  36557. (Globals) (Aufgaben\Nach Status)|TodoBy
  36558. $SCRIPTOBJ_7
  36559. $SCRIPTOBJ_10
  36560. $SCRIPTOBJ_11
  36561. $SCRIPTOBJ_12
  36562. $SCRIPTOBJ_13
  36563. $SCRIPTOBJ_14
  36564. $SCRIPTOBJ_15
  36565. $SCRIPTOBJ_16
  36566. $SCRIPTOBJ_17
  36567. $SCRIPTOBJ_18
  36568. $SCRIPTOBJ_19
  36569. $SCRIPTOBJ_20
  36570. $SCRIPTOBJ_21
  36571. $SCRIPTOBJ_29
  36572. $Language
  36573. $LastBuildTime
  36574. $BabelInfo
  36575. Lotus Product
  36576. $93$102$68$106$105$74$Conflict
  36577. DeliveredDate
  36578. PostedDate
  36579. PostedDateY
  36580. IsMailStationeryh
  36581. _ViewIcon
  36582. _ViewIcon
  36583. Importance
  36584. Importance
  36585. _ViewIcon
  36586. _ViewIcon
  36587. $TypeIcon
  36588.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  36589. SentBy
  36590. Principal
  36591. Principal
  36592.     1S2S5S6S8S10S
  36593. Attendees
  36594. RequiredAttendees
  36595. OptionalAttendees
  36596.     0R1S2S5S6S
  36597. DeliveredDate
  36598. SentBy
  36599. Attendees
  36600. Attendees
  36601. SendTo
  36602. SentBy
  36603. SendTo
  36604.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  36605.     0R1S2S8S
  36606.     0R1S2S15S16S
  36607.     0R1S2S5S6S8S14S18S
  36608.     0R1S2S5S6S8S14S18S
  36609. Person
  36610. X400FreeForm^
  36611.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  36612. Person2
  36613. Person
  36614. Person
  36615. Person
  36616. Person
  36617.     0R1S2S12S13S22S34S
  36618. Delivery Report
  36619. NonDelivery Report
  36620. Trace Report
  36621. Mail Router
  36622. Person2
  36623.     0R3S4S5S6S7S8S10S12S
  36624. DeliveredDate
  36625. DeliveredDate
  36626. PostedDate
  36627. PostedDate
  36628.     3S4S6S8S9S10S12S14S
  36629. _ViewIcon2h
  36630. _ViewIcon2
  36631. $ContentIconh
  36632. $ContentIcon
  36633. Froma
  36634.  pager 
  36635. SendToa
  36636.  pager 
  36637. message.wav
  36638. vmsg_hdr.wav
  36639. .wavG
  36640. .tifG
  36641. $ContentIconh
  36642. $ContentIcon
  36643.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  36644. NonDelivery Report
  36645. ZUSTELLUNGSFEHLER: 
  36646. FailureReason
  36647. Delivery Report
  36648. ZUGESTELLT: 
  36649. Subject
  36650. Return Receipt
  36651. EMPFANGEN: 
  36652. Subject
  36653. ReturnNonReceipt
  36654. NICHT EMPFANGEN: 
  36655. Subject
  36656. Subject
  36657.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  36658. ExcludeFromView
  36659.     L1S2E
  36660. DeliveredDate
  36661. PostedDate
  36662. PostedDateY
  36663. IsMailStationeryh
  36664. _ViewIcon
  36665. _ViewIcon
  36666. Importance
  36667. Importance
  36668. _ViewIcon
  36669. _ViewIcon
  36670. $TypeIcon
  36671.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  36672. $102Wer
  36673. SentBy
  36674. Principal
  36675. Principal
  36676.     1S2S5S6S8S10S
  36677. Attendees
  36678. RequiredAttendees
  36679. OptionalAttendees
  36680.     0R1S2S5S6S
  36681. DeliveredDate
  36682. SentBy
  36683. Attendees
  36684. Attendees
  36685. SendTo
  36686. SentBy
  36687. SendTo
  36688.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  36689.     0R1S2S8S
  36690.     0R1S2S15S16S
  36691.     0R1S2S5S6S8S14S18S
  36692.     0R1S2S5S6S8S14S18S
  36693. Person
  36694. X400FreeForm^
  36695.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  36696. Person2
  36697. Person
  36698. Person
  36699. Person
  36700. Person
  36701.     0R1S2S12S13S22S34S
  36702. Delivery Report
  36703. NonDelivery Report
  36704. Trace Report
  36705. Mail Router
  36706. Person2
  36707.     0R3S4S5S6S7S8S10S12S
  36708. $68Datum
  36709. DeliveredDate
  36710. DeliveredDate
  36711. PostedDate
  36712. PostedDate
  36713.     3S4S6S8S9S10S12S14S$106Gr
  36714. $105z
  36715. _ViewIcon2h
  36716. _ViewIcon2
  36717. $ContentIconh
  36718. $ContentIcon
  36719. Froma
  36720.  pager 
  36721. SendToa
  36722.  pager 
  36723. message.wav
  36724. vmsg_hdr.wav
  36725. .wavG
  36726. .tifG
  36727. $ContentIconh
  36728. $ContentIcon
  36729.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Thema
  36730. NonDelivery Report
  36731. ZUSTELLUNGSFEHLER: 
  36732. FailureReason
  36733. Delivery Report
  36734. ZUGESTELLT: 
  36735. Subject
  36736. Return Receipt
  36737. EMPFANGEN: 
  36738. Subject
  36739. ReturnNonReceipt
  36740. NICHT EMPFANGEN: 
  36741. Subject
  36742. Subject
  36743.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  36744. _KategorisierenX
  36745. Senden
  36746. In Ordner _verschieben...X
  36747. Aus Ordner _entfernen...
  36748. Neues Memo(
  36749.     0S0E
  36750. Antwort\AntwortX0
  36751. Reply
  36752.     0S0E
  36753. Antwort\Antwort mit ProtokollX
  36754. Antwort mit Protokoll
  36755. Dieses Dokument ist nicht vollst
  36756. ndig.
  36757.     4S8S10S13S
  36758. Reply with history
  36759. Antwort\Allen antwortenXX
  36760. MailStEd
  36761.     0S0E
  36762. Reply
  36763. Antwort\Allen antworten (mit Protokoll)X
  36764. MailStEd
  36765.     0S0E
  36766. Antwort mit Protokoll
  36767. Dieses Dokument ist nicht vollst
  36768. ndig.
  36769.     0R4S8S10S13S
  36770. Reply with history
  36771. Weiterleiten 
  36772.     0S0E
  36773. ISMAILSTATIONERY
  36774.     1S2S
  36775. _WeiterleitenX
  36776. _BearbeitenX
  36777. schenX 
  36778.     0S0E
  36779. Ordner\Ordner erstellenX 
  36780.     0S0E
  36781. Ordner\In Ordner verschieben...X 
  36782.     0S0E
  36783. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  36784. Use "CommonUI"
  36785. '++LotusScript Development Environment:2:5:(Forward):0:1
  36786. Declare Sub Click(Source As Button)
  36787. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36788. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36789. Private Sub BindEvents(Byval Objectname_ As String)
  36790. Static Source As BUTTON
  36791. Set Source = Bind(Objectname_)
  36792. On Event Click From Source Call Click
  36793. End Sub
  36794. '++LotusScript Development Environment:2:2:Click:1:12
  36795. Sub Click(Source As Button)
  36796.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36797. End Sub
  36798. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  36799. Use "CommonUI"
  36800. '++LotusScript Development Environment:2:5:(Forward):0:1
  36801. Declare Sub Click(Source As Button)
  36802. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36803. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36804. Private Sub BindEvents(Byval Objectname_ As String)
  36805. Static Source As BUTTON
  36806. Set Source = Bind(Objectname_)
  36807. On Event Click From Source Call Click
  36808. End Sub
  36809. '++LotusScript Development Environment:2:2:Click:1:12
  36810. Sub Click(Source As Button)
  36811.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36812. End Sub
  36813. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  36814. Use "CommonUI"
  36815. '++LotusScript Development Environment:2:5:(Forward):0:1
  36816. Declare Sub Click(Source As Button)
  36817. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36818. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36819. Private Sub BindEvents(Byval Objectname_ As String)
  36820.     Static Source As BUTTON
  36821.     Set Source = Bind(Objectname_)
  36822.     On Event Click From Source Call Click
  36823. End Sub
  36824. '++LotusScript Development Environment:2:2:Click:1:12
  36825. Sub Click(Source As Button)
  36826.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36827. End Sub
  36828. Werkzeuge\Vorgaben...XR
  36829. DialogMode
  36830. (Preferences)
  36831. Werkzeuge\Abwesenheit...8
  36832. (EditOfficeProfile)
  36833.     0S0E
  36834. Werkzeuge\Absender in Adre
  36835. buch aufnehmenX<
  36836. (AddSenderToAddressBook)
  36837.     0S0E
  36838. Werkzeuge\Mail-Verfolgungsanforderung senden:
  36839. (SendTrackingRequest)
  36840.     0S0E
  36841. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  36842. '++LotusScript Development Environment:2:5:(Forward):0:1
  36843. Declare Sub Click(Source As Button)
  36844. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36845. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36846. Private Sub BindEvents(Byval Objectname_ As String)
  36847.     Static Source As BUTTON
  36848.     Set Source = Bind(Objectname_)
  36849.     On Event Click From Source Call Click
  36850. End Sub
  36851. '++LotusScript Development Environment:2:2:Click:1:12
  36852. Sub Click(Source As Button)
  36853.     Dim session As New notessession
  36854.     Dim uiws As New notesuiworkspace
  36855.     Dim collection As notesdocumentcollection
  36856.     Dim noteUIEditDocument As notesuidocument
  36857.     Dim database As NotesDatabase
  36858.     Set noteCursorDoc = session.currentdatabase.createdocument
  36859.     Set database = session.currentdatabase
  36860.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  36861. hlen", "W
  36862. hlen Sie bitte eine Vorlage f
  36863. r das neue Memo.")
  36864.     Set noteCursorDoc = collection.getfirstdocument
  36865.     If Not noteCursorDoc Is Nothing Then
  36866.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  36867.     End If
  36868. End Sub
  36869. Neues Memo
  36870.     1S10S14S16S23S
  36871. path"
  36872. /Memo?OpenForm&From="
  36873. view"
  36874. Ordner\In Ordner verschieben...X*
  36875.     0S0E
  36876. schen\L
  36877. schenX 
  36878.     0S0E
  36879. schen\Papierkorb leerenX 
  36880.     0S0E
  36881. Werkzeuge\Vorgaben0
  36882. wPreferences
  36883.     0S0E
  36884. Werkzeuge\Suchen 
  36885.     0S0E
  36886. Werkzeuge\HilfeX,
  36887. WebHelp
  36888.     0S0E
  36889. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  36890. Use "CommonUI"
  36891. '++LotusScript Development Environment:2:5:(Forward):0:1
  36892. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36893. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36894. Private Sub BindEvents(Byval Objectname_ As String)
  36895.     Static Source As BUTTON
  36896.     Set Source = Bind(Objectname_)
  36897. End Sub
  36898. _KategorisierenX
  36899. Senden
  36900. In Ordner _verschieben...X
  36901. Aus Ordner _entfernen...
  36902. Neues Memo(
  36903.     0S0E
  36904. act_NEWMEMO.GIF|act_NEWMEMOX
  36905. Antwort\AntwortX0
  36906. Reply
  36907.     0S0E
  36908. act_REPLY.GIF|act_REPLYX
  36909. Antwort\Antwort mit ProtokollX
  36910. Antwort mit Protokoll
  36911. Dieses Dokument ist nicht vollst
  36912. ndig.
  36913.     4S8S10S13S
  36914. Reply with history
  36915. act_REPLY.GIF|act_REPLYX
  36916. Antwort\Allen antwortenXX
  36917. MailStEd
  36918.     0S0E
  36919. Reply
  36920. act_REPLY.GIF|act_REPLYX
  36921. Antwort\Allen antworten (mit Protokoll)X
  36922. MailStEd
  36923.     0S0E
  36924. Antwort mit Protokoll
  36925. Dieses Dokument ist nicht vollst
  36926. ndig.
  36927.     0R4S8S10S13S
  36928. Reply with history
  36929. act_REPLY.GIF|act_REPLYX
  36930. Weiterleiten 
  36931.     0S0E
  36932. ISMAILSTATIONERY
  36933.     1S2S
  36934. act_FORWARD.GIF|act_FORWARDX
  36935. _WeiterleitenX
  36936. _BearbeitenX
  36937. schenX 
  36938.     0S0E
  36939. act_DELETE.GIF|act_DELETEX
  36940. Ordner\Ordner erstellenX 
  36941.     0S0E
  36942. act_FOLDER.GIF|act_FOLDERX
  36943. Ordner\In Ordner verschieben...X 
  36944.     0S0E
  36945. act_FOLDER.GIF|act_FOLDERX
  36946. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  36947. Use "CommonUI"
  36948. '++LotusScript Development Environment:2:5:(Forward):0:1
  36949. Declare Sub Click(Source As Button)
  36950. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36951. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36952. Private Sub BindEvents(Byval Objectname_ As String)
  36953. Static Source As BUTTON
  36954. Set Source = Bind(Objectname_)
  36955. On Event Click From Source Call Click
  36956. End Sub
  36957. '++LotusScript Development Environment:2:2:Click:1:12
  36958. Sub Click(Source As Button)
  36959.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  36960. End Sub
  36961. act_COPYINTO.GIF|act_COPYINTOX
  36962. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  36963. Use "CommonUI"
  36964. '++LotusScript Development Environment:2:5:(Forward):0:1
  36965. Declare Sub Click(Source As Button)
  36966. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36967. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36968. Private Sub BindEvents(Byval Objectname_ As String)
  36969. Static Source As BUTTON
  36970. Set Source = Bind(Objectname_)
  36971. On Event Click From Source Call Click
  36972. End Sub
  36973. '++LotusScript Development Environment:2:2:Click:1:12
  36974. Sub Click(Source As Button)
  36975.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  36976. End Sub
  36977. act_COPYINTO.GIF|act_COPYINTOX
  36978. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  36979. Use "CommonUI"
  36980. '++LotusScript Development Environment:2:5:(Forward):0:1
  36981. Declare Sub Click(Source As Button)
  36982. '++LotusScript Development Environment:2:5:(Declarations):0:2
  36983. '++LotusScript Development Environment:2:2:BindEvents:1:129
  36984. Private Sub BindEvents(Byval Objectname_ As String)
  36985.     Static Source As BUTTON
  36986.     Set Source = Bind(Objectname_)
  36987.     On Event Click From Source Call Click
  36988. End Sub
  36989. '++LotusScript Development Environment:2:2:Click:1:12
  36990. Sub Click(Source As Button)
  36991.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  36992. End Sub
  36993. act_COPYINTO.GIF|act_COPYINTOX
  36994. Werkzeuge\Vorgaben...XR
  36995. DialogMode
  36996. (Preferences)
  36997. act_TOOLS.GIF|act_TOOLSX
  36998. Werkzeuge\Abwesenheit...8
  36999. (EditOfficeProfile)
  37000.     0S0E
  37001. act_TOOLS.GIF|act_TOOLSX
  37002. Werkzeuge\Absender in Adre
  37003. buch aufnehmenX<
  37004. (AddSenderToAddressBook)
  37005.     0S0E
  37006. act_TOOLS.GIF|act_TOOLSX
  37007. Werkzeuge\Mail-Verfolgungsanforderung senden:
  37008. (SendTrackingRequest)
  37009.     0S0E
  37010. act_TOOLS.GIF|act_TOOLSX
  37011. Werkzeuge\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  37012. '++LotusScript Development Environment:2:5:(Forward):0:1
  37013. Declare Sub Click(Source As Button)
  37014. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37015. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37016. Private Sub BindEvents(Byval Objectname_ As String)
  37017.     Static Source As BUTTON
  37018.     Set Source = Bind(Objectname_)
  37019.     On Event Click From Source Call Click
  37020. End Sub
  37021. '++LotusScript Development Environment:2:2:Click:1:12
  37022. Sub Click(Source As Button)
  37023.     Dim session As New notessession
  37024.     Dim uiws As New notesuiworkspace
  37025.     Dim collection As notesdocumentcollection
  37026.     Dim noteUIEditDocument As notesuidocument
  37027.     Dim database As NotesDatabase
  37028.     Set noteCursorDoc = session.currentdatabase.createdocument
  37029.     Set database = session.currentdatabase
  37030.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  37031. hlen", "W
  37032. hlen Sie bitte eine Vorlage f
  37033. r das neue Memo.")
  37034.     Set noteCursorDoc = collection.getfirstdocument
  37035.     If Not noteCursorDoc Is Nothing Then
  37036.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  37037.     End If
  37038. End Sub
  37039. act_TOOLS.GIF|act_TOOLSX
  37040. Neues Memo
  37041.     1S10S14S16S23S
  37042. path"
  37043. /Memo?OpenForm&From="
  37044. view"
  37045. act_NEW.GIF|act_NEWX
  37046. Ordner\Ordner erstellenX
  37047. act_FOLDER.GIF|act_FOLDERX
  37048. var pathname = (window.location.pathname);
  37049. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderCreate?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=280');
  37050. Ordner\In Ordner verschieben...X*
  37051.     0S0E
  37052. act_FOLDER.GIF|act_FOLDERX
  37053. Ordner\Ordner entfernenX
  37054. act_FOLDER.GIF|act_FOLDERX
  37055. var pathname = (window.location.pathname);
  37056. window.open(pathname.substring(0,(pathname.lastIndexOf('.nsf')+5))+'FolderRemove?OpenForm','Folder','scrollbars,resizable=yes,screenX=150,screenY=200,width=550,height=250');
  37057. schen\L
  37058. schenX 
  37059.     0S0E
  37060. act_DELETE.GIF|act_DELETEX
  37061. schen\Papierkorb leerenX 
  37062.     0S0E
  37063. act_DELETE.GIF|act_DELETEX
  37064. Werkzeuge\Vorgaben0
  37065. wPreferences
  37066.     0S0E
  37067. act_TOOLS.GIF|act_TOOLSX
  37068. Werkzeuge\Suchen 
  37069.     0S0E
  37070. act_TOOLS.GIF|act_TOOLSX
  37071. Werkzeuge\HilfeX,
  37072. WebHelp
  37073.     0S0E
  37074. act_TOOLS.GIF|act_TOOLSX
  37075. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  37076. Use "CommonUI"
  37077. '++LotusScript Development Environment:2:5:(Forward):0:1
  37078. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37079. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37080. Private Sub BindEvents(Byval Objectname_ As String)
  37081.     Static Source As BUTTON
  37082.     Set Source = Bind(Objectname_)
  37083. End Sub
  37084. '++LotusScript Development Environment:2:5:(Options):0:74
  37085. Option Public
  37086. Option Explicit
  37087. '++LotusScript Development Environment:2:5:(Forward):0:1
  37088. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37089. Lotus Product
  37090. Lotus Product
  37091. Lotus Product
  37092. Lotus Product
  37093. Lotus Product
  37094. Lotus Product
  37095. O=Lotus Notes
  37096. O=Lotus Notes
  37097. PURSAFO
  37098. |.:#U
  37099. O=Lotus Notes
  37100. CN=Lotus Notes Template Development/O=Lotus Notes
  37101. PURSAFO
  37102. R5t*wG
  37103. $TABLEFORMAT
  37104. $Index
  37105. $FormulaClass
  37106. $WebFlags
  37107. $SCRIPTOBJ_32
  37108. $Formula
  37109. $VIEWFORMAT
  37110. $ACTIONS
  37111. $V5ACTIONS
  37112. $ViewGlobalScript
  37113. $ViewGlobalScript_O
  37114. $SCRIPTOBJ_15
  37115. $SCRIPTOBJ_16
  37116. $SCRIPTOBJ_17
  37117. $SCRIPTOBJ_22
  37118. $SCRIPTOBJ_30
  37119. $Language
  37120. $LastBuildTime
  37121. $BabelInfo
  37122. $134$135$126$149$144$145$146$147$Conflict
  37123. StartTime
  37124. CalendarDateTimeL
  37125.     1S2S
  37126. DateList
  37127. CalendarDateTimeV
  37128. EndDateTime
  37129.     0R1S2S10S11S12S13S
  37130. $CSVersionh
  37131. AppointmentType
  37132. CalendarDateTime
  37133. DateList
  37134. StartTime
  37135.     0R6S7S8S9S10S11S12S13S14S15S17S19S25S26S27S28S
  37136. AppointmentType
  37137. EndDateTime
  37138. StartDateTime
  37139.     3S4S6S8S10S11S13S14S16S
  37140. section
  37141. OrgTable
  37142.     1S2S6S
  37143. section
  37144. section
  37145. section
  37146.     0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
  37147. duestate
  37148. _ViewIcon
  37149.     3S4S5S6S7S8S11S12S2E
  37150. AppointmentType
  37151. StartDateTime
  37152.     3S4S10S
  37153. AppointmentType
  37154.     3S4S8S
  37155. AppointmentType
  37156. EndDateTime
  37157.     3S4S10S
  37158. xxLocation
  37159. Ort: 
  37160. Location
  37161. Ort: 
  37162. Location"
  37163.     1S2S9S10S11S23S29S30S32S
  37164. xxChair
  37165. AppointmentType
  37166. Leitung: 
  37167. Chair
  37168. TaskType
  37169. Besitzer: 
  37170. Chair
  37171.     0R1S2S5S6S8S9S10S17S18S19S21S22S23S
  37172. Subject
  37173. xxLocation
  37174. xxChair
  37175.     0RR3S4S5S6S
  37176. CalendarDateTimeh
  37177. @$134
  37178. StartTime
  37179. CalendarDateTimeL
  37180.     1S2S
  37181. DateList
  37182. CalendarDateTimeV
  37183. EndDateTime
  37184.     0R1S2S10S11S12S13S
  37185. $CSVersionh
  37186. AppointmentType
  37187. CalendarDateTime
  37188. DateList
  37189. StartTime
  37190.     0R6S7S8S9S10S11S12S13S14S15S17S19S25S26S27S28S
  37191. AppointmentType
  37192. EndDateTime
  37193. StartDateTime
  37194.     3S4S6S8S10S11S13S14S16S$126
  37195. section
  37196. OrgTable
  37197.     1S2S6S
  37198. section
  37199. section
  37200. section
  37201.     0R3S4S6RS5E8R9S10S12RS5E14R15S16S18RS5E20R
  37202. $149~
  37203. duestate
  37204. _ViewIcon
  37205.     3S4S5S6S7S8S11S12S2E
  37206. $144Beginnn
  37207. AppointmentType
  37208. StartDateTime
  37209.     3S4S10S$145Z
  37210. AppointmentType
  37211.     3S4S8S
  37212. $146Endel
  37213. AppointmentType
  37214. EndDateTime
  37215.     3S4S10S$147Beschreibung
  37216. xxLocation
  37217. Ort: 
  37218. Location
  37219. Ort: 
  37220. Location"
  37221.     1S2S9S10S11S23S29S30S32S
  37222. xxChair
  37223. AppointmentType
  37224. Leitung: 
  37225. Chair
  37226. TaskType
  37227. Besitzer: 
  37228. Chair
  37229.     0R1S2S5S6S8S9S10S17S18S19S21S22S23S
  37230. Subject
  37231. xxLocation
  37232. xxChair
  37233.     0RR3S4S5S6S&
  37234. _WeiterleitenX
  37235. Dokument _bearbeiten
  37236. In Ordner _verschieben...X
  37237. Aus Ordner _entfernen...
  37238. _KategorisierenX
  37239. Dokument _senden
  37240. Besprechung planen
  37241. Notes
  37242. CSDocType
  37243. Appointment
  37244.     3S4S6S12S13S19S20S
  37245.     0R1S2S
  37246. path"
  37247. /Appointment?OpenForm&Type=3"
  37248.     0R3S4S5S6S
  37249. Neu\Termin
  37250. Notes
  37251. CSDocType
  37252. Appointment
  37253.     3S4S6S12S13S19S20S
  37254.     0R1S2S
  37255. path"
  37256. /Appointment?OpenForm&Type=0"
  37257.     0R3S4S5S6S
  37258. Neu\JahrestagX
  37259. Notes
  37260. CSDocType
  37261. Appointment
  37262.     3S4S6S12S13S19S20S
  37263.     0R1S2S
  37264. path"
  37265. /Appointment?OpenForm&Type=1"
  37266.     0R3S4S5S6S
  37267. Neu\Erinnerung
  37268. Notes
  37269. CSDocType
  37270. Appointment
  37271.     3S4S6S12S13S19S20S
  37272.     0R1S2S
  37273. path"
  37274. /Appointment?OpenForm&Type=4"
  37275.     0R3S4S5S6S
  37276. Neu\VeranstaltungX
  37277. Notes
  37278. CSDocType
  37279. Appointment
  37280.     3S4S6S12S13S19S20S
  37281.     0R1S2S
  37282. path"
  37283. /Appointment?OpenForm&Type=2"
  37284.     0R3S4S5S6S
  37285. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  37286. Use "CSUIViewClass"
  37287. '++LotusScript Development Environment:2:5:(Forward):0:1
  37288. Declare Sub Click(Source As Button)
  37289. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37290. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37291. Private Sub BindEvents(Byval Objectname_ As String)
  37292. Static Source As BUTTON
  37293. Set Source = Bind(Objectname_)
  37294. On Event Click From Source Call Click
  37295. End Sub
  37296. '++LotusScript Development Environment:2:2:Click:1:12
  37297. Sub Click(Source As Button)
  37298.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  37299. End Sub
  37300. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  37301. Use "CSUIViewClass"
  37302. '++LotusScript Development Environment:2:5:(Forward):0:1
  37303. Declare Sub Click(Source As Button)
  37304. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37305. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37306. Private Sub BindEvents(Byval Objectname_ As String)
  37307. Static Source As BUTTON
  37308. Set Source = Bind(Objectname_)
  37309. On Event Click From Source Call Click
  37310. End Sub
  37311. '++LotusScript Development Environment:2:2:Click:1:12
  37312. Sub Click(Source As Button)
  37313.     Call ProcessViewCommand(ACTION_CANCEL)
  37314. End Sub
  37315. Besitzeraktionen\Best
  37316. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  37317. Use "CSUIViewClass"
  37318. '++LotusScript Development Environment:2:5:(Forward):0:1
  37319. Declare Sub Click(Source As Button)
  37320. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37321. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37322. Private Sub BindEvents(Byval Objectname_ As String)
  37323. Static Source As BUTTON
  37324. Set Source = Bind(Objectname_)
  37325. On Event Click From Source Call Click
  37326. End Sub
  37327. '++LotusScript Development Environment:2:2:Click:1:12
  37328. Sub Click(Source As Button)
  37329.     Call ProcessViewCommand(ACTION_CONFIRM)
  37330. End Sub
  37331. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  37332. Use "CSUIViewClass"
  37333. '++LotusScript Development Environment:2:5:(Forward):0:1
  37334. Declare Sub Click(Source As Button)
  37335. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37336. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37337. Private Sub BindEvents(Byval Objectname_ As String)
  37338. Static Source As BUTTON
  37339. Set Source = Bind(Objectname_)
  37340. On Event Click From Source Call Click
  37341. End Sub
  37342. '++LotusScript Development Environment:2:2:Click:1:12
  37343. Sub Click(Source As Button)
  37344.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  37345. End Sub
  37346. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  37347. Use "CSUIViewClass"
  37348. '++LotusScript Development Environment:2:5:(Forward):0:1
  37349. Declare Sub Click(Source As Button)
  37350. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37351. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37352. Private Sub BindEvents(Byval Objectname_ As String)
  37353. Static Source As BUTTON
  37354. Set Source = Bind(Objectname_)
  37355. On Event Click From Source Call Click
  37356. End Sub
  37357. '++LotusScript Development Environment:2:2:Click:1:12
  37358. Sub Click(Source As Button)
  37359.     Call ProcessViewCommand(ACTION_SENDMEMO)
  37360. End Sub
  37361. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  37362. Use "CSUIViewClass"
  37363. '++LotusScript Development Environment:2:5:(Forward):0:1
  37364. Declare Sub Click(Source As Button)
  37365. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37366. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37367. Private Sub BindEvents(Byval Objectname_ As String)
  37368. Static Source As BUTTON
  37369. Set Source = Bind(Objectname_)
  37370. On Event Click From Source Call Click
  37371. End Sub
  37372. '++LotusScript Development Environment:2:2:Click:1:12
  37373. Sub Click(Source As Button)
  37374.     Call ProcessViewCommand(ACTION_DECLINE)
  37375. End Sub
  37376. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  37377. Use "CSUIViewClass"
  37378. '++LotusScript Development Environment:2:5:(Forward):0:1
  37379. Declare Sub Click(Source As Button)
  37380. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37381. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37382. Private Sub BindEvents(Byval Objectname_ As String)
  37383. Static Source As BUTTON
  37384. Set Source = Bind(Objectname_)
  37385. On Event Click From Source Call Click
  37386. End Sub
  37387. '++LotusScript Development Environment:2:2:Click:1:12
  37388. Sub Click(Source As Button)
  37389.     Call ProcessViewCommand(ACTION_DELEGATE)
  37390. End Sub
  37391. Teilnehmeraktionen\Neue Uhrzeit vorschlagenX'++LotusScript Development Environment:2:5:(Options):0:74
  37392. Use "CSUIViewClass"
  37393. '++LotusScript Development Environment:2:5:(Forward):0:1
  37394. Declare Sub Click(Source As Button)
  37395. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37396. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37397. Private Sub BindEvents(Byval Objectname_ As String)
  37398. Static Source As BUTTON
  37399. Set Source = Bind(Objectname_)
  37400. On Event Click From Source Call Click
  37401. End Sub
  37402. '++LotusScript Development Environment:2:2:Click:1:12
  37403. Sub Click(Source As Button)
  37404.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  37405. End Sub
  37406. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  37407. Use "CommonUI"
  37408. '++LotusScript Development Environment:2:5:(Forward):0:1
  37409. Declare Sub Click(Source As Button)
  37410. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37411. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37412. Private Sub BindEvents(Byval Objectname_ As String)
  37413. Static Source As BUTTON
  37414. Set Source = Bind(Objectname_)
  37415. On Event Click From Source Call Click
  37416. End Sub
  37417. '++LotusScript Development Environment:2:2:Click:1:12
  37418. Sub Click(Source As Button)
  37419.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  37420. End Sub
  37421. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  37422. Use "CommonUI"
  37423. '++LotusScript Development Environment:2:5:(Forward):0:1
  37424. Declare Sub Click(Source As Button)
  37425. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37426. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37427. Private Sub BindEvents(Byval Objectname_ As String)
  37428. Static Source As BUTTON
  37429. Set Source = Bind(Objectname_)
  37430. On Event Click From Source Call Click
  37431. End Sub
  37432. '++LotusScript Development Environment:2:2:Click:1:12
  37433. Sub Click(Source As Button)
  37434.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  37435. End Sub
  37436. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  37437. Use "CommonUI"
  37438. '++LotusScript Development Environment:2:5:(Forward):0:1
  37439. Declare Sub Click(Source As Button)
  37440. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37441. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37442. Private Sub BindEvents(Byval Objectname_ As String)
  37443.     Static Source As BUTTON
  37444.     Set Source = Bind(Objectname_)
  37445.     On Event Click From Source Call Click
  37446. End Sub
  37447. '++LotusScript Development Environment:2:2:Click:1:12
  37448. Sub Click(Source As Button)
  37449.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  37450. End Sub
  37451. Werkzeuge\Feiertage importieren...4
  37452. (ImportHolidays)
  37453.     0S0E
  37454. Werkzeuge\Abwesenheit...8
  37455. (EditOfficeProfile)
  37456.     0S0E
  37457. Werkzeuge\Vorgaben...XR
  37458. DialogMode
  37459. (Preferences)
  37460. Kalenderformat\Ein Tag$
  37461. Kalenderformat\Zwei Tage$
  37462. Kalenderformat\Eine WocheX$
  37463. Kalenderformat\Zwei Wochen$
  37464. Kalenderformat\Ein Monat$
  37465. Werkzeuge\Vorgaben0
  37466. wPreferences
  37467.     0S0E
  37468. Werkzeuge\HilfeX,
  37469. WebHelp
  37470.     0S0E
  37471. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  37472. Use "CommonUI"
  37473. '++LotusScript Development Environment:2:5:(Forward):0:1
  37474. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37475. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37476. Private Sub BindEvents(Byval Objectname_ As String)
  37477.     Static Source As BUTTON
  37478.     Set Source = Bind(Objectname_)
  37479. End Sub
  37480. _WeiterleitenX
  37481. Dokument _bearbeiten
  37482. In Ordner _verschieben...X
  37483. Aus Ordner _entfernen...
  37484. _KategorisierenX
  37485. Dokument _senden
  37486. Besprechung planen
  37487. Notes
  37488. CSDocType
  37489. Appointment
  37490.     3S4S6S12S13S19S20S
  37491.     0R1S2S
  37492. path"
  37493. /Appointment?OpenForm&Type=3"
  37494.     0R3S4S5S6S
  37495. act_scheduler.gif|act_scheduler.gifX
  37496. Neu\Termin
  37497. Notes
  37498. CSDocType
  37499. Appointment
  37500.     3S4S6S12S13S19S20S
  37501.     0R1S2S
  37502. path"
  37503. /Appointment?OpenForm&Type=0"
  37504.     0R3S4S5S6S
  37505. act_csnew.GIF|act_CSNEWDOC
  37506. Neu\JahrestagX
  37507. Notes
  37508. CSDocType
  37509. Appointment
  37510.     3S4S6S12S13S19S20S
  37511.     0R1S2S
  37512. path"
  37513. /Appointment?OpenForm&Type=1"
  37514.     0R3S4S5S6S
  37515. act_csnew.GIF|act_CSNEWDOC
  37516. Neu\Erinnerung
  37517. Notes
  37518. CSDocType
  37519. Appointment
  37520.     3S4S6S12S13S19S20S
  37521.     0R1S2S
  37522. path"
  37523. /Appointment?OpenForm&Type=4"
  37524.     0R3S4S5S6S
  37525. act_csnew.GIF|act_CSNEWDOC
  37526. Neu\VeranstaltungX
  37527. Notes
  37528. CSDocType
  37529. Appointment
  37530.     3S4S6S12S13S19S20S
  37531.     0R1S2S
  37532. path"
  37533. /Appointment?OpenForm&Type=2"
  37534.     0R3S4S5S6S
  37535. act_csnew.GIF|act_CSNEWDOC
  37536. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  37537. Use "CSUIViewClass"
  37538. '++LotusScript Development Environment:2:5:(Forward):0:1
  37539. Declare Sub Click(Source As Button)
  37540. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37541. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37542. Private Sub BindEvents(Byval Objectname_ As String)
  37543. Static Source As BUTTON
  37544. Set Source = Bind(Objectname_)
  37545. On Event Click From Source Call Click
  37546. End Sub
  37547. '++LotusScript Development Environment:2:2:Click:1:12
  37548. Sub Click(Source As Button)
  37549.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  37550. End Sub
  37551. act_csowneractions.GIF|act_CSOWNERACTIONSX
  37552. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  37553. Use "CSUIViewClass"
  37554. '++LotusScript Development Environment:2:5:(Forward):0:1
  37555. Declare Sub Click(Source As Button)
  37556. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37557. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37558. Private Sub BindEvents(Byval Objectname_ As String)
  37559. Static Source As BUTTON
  37560. Set Source = Bind(Objectname_)
  37561. On Event Click From Source Call Click
  37562. End Sub
  37563. '++LotusScript Development Environment:2:2:Click:1:12
  37564. Sub Click(Source As Button)
  37565.     Call ProcessViewCommand(ACTION_CANCEL)
  37566. End Sub
  37567. act_csowneractions.GIF|act_CSOWNERACTIONSX
  37568. Besitzeraktionen\Best
  37569. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  37570. Use "CSUIViewClass"
  37571. '++LotusScript Development Environment:2:5:(Forward):0:1
  37572. Declare Sub Click(Source As Button)
  37573. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37574. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37575. Private Sub BindEvents(Byval Objectname_ As String)
  37576. Static Source As BUTTON
  37577. Set Source = Bind(Objectname_)
  37578. On Event Click From Source Call Click
  37579. End Sub
  37580. '++LotusScript Development Environment:2:2:Click:1:12
  37581. Sub Click(Source As Button)
  37582.     Call ProcessViewCommand(ACTION_CONFIRM)
  37583. End Sub
  37584. act_csowneractions.GIF|act_CSOWNERACTIONSX
  37585. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  37586. Use "CSUIViewClass"
  37587. '++LotusScript Development Environment:2:5:(Forward):0:1
  37588. Declare Sub Click(Source As Button)
  37589. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37590. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37591. Private Sub BindEvents(Byval Objectname_ As String)
  37592. Static Source As BUTTON
  37593. Set Source = Bind(Objectname_)
  37594. On Event Click From Source Call Click
  37595. End Sub
  37596. '++LotusScript Development Environment:2:2:Click:1:12
  37597. Sub Click(Source As Button)
  37598.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  37599. End Sub
  37600. act_csowneractions.GIF|act_CSOWNERACTIONSX
  37601. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  37602. Use "CSUIViewClass"
  37603. '++LotusScript Development Environment:2:5:(Forward):0:1
  37604. Declare Sub Click(Source As Button)
  37605. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37606. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37607. Private Sub BindEvents(Byval Objectname_ As String)
  37608. Static Source As BUTTON
  37609. Set Source = Bind(Objectname_)
  37610. On Event Click From Source Call Click
  37611. End Sub
  37612. '++LotusScript Development Environment:2:2:Click:1:12
  37613. Sub Click(Source As Button)
  37614.     Call ProcessViewCommand(ACTION_SENDMEMO)
  37615. End Sub
  37616. act_csowneractions.GIF|act_CSOWNERACTIONSX
  37617. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  37618. Use "CSUIViewClass"
  37619. '++LotusScript Development Environment:2:5:(Forward):0:1
  37620. Declare Sub Click(Source As Button)
  37621. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37622. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37623. Private Sub BindEvents(Byval Objectname_ As String)
  37624. Static Source As BUTTON
  37625. Set Source = Bind(Objectname_)
  37626. On Event Click From Source Call Click
  37627. End Sub
  37628. '++LotusScript Development Environment:2:2:Click:1:12
  37629. Sub Click(Source As Button)
  37630.     Call ProcessViewCommand(ACTION_DECLINE)
  37631. End Sub
  37632. act_participantactions.GIF|act_CSPARTACTIONS
  37633. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  37634. Use "CSUIViewClass"
  37635. '++LotusScript Development Environment:2:5:(Forward):0:1
  37636. Declare Sub Click(Source As Button)
  37637. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37638. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37639. Private Sub BindEvents(Byval Objectname_ As String)
  37640. Static Source As BUTTON
  37641. Set Source = Bind(Objectname_)
  37642. On Event Click From Source Call Click
  37643. End Sub
  37644. '++LotusScript Development Environment:2:2:Click:1:12
  37645. Sub Click(Source As Button)
  37646.     Call ProcessViewCommand(ACTION_DELEGATE)
  37647. End Sub
  37648. act_participantactions.GIF|act_CSPARTACTIONS
  37649. Teilnehmeraktionen\Neue Uhrzeit vorschlagenX'++LotusScript Development Environment:2:5:(Options):0:74
  37650. Use "CSUIViewClass"
  37651. '++LotusScript Development Environment:2:5:(Forward):0:1
  37652. Declare Sub Click(Source As Button)
  37653. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37654. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37655. Private Sub BindEvents(Byval Objectname_ As String)
  37656. Static Source As BUTTON
  37657. Set Source = Bind(Objectname_)
  37658. On Event Click From Source Call Click
  37659. End Sub
  37660. '++LotusScript Development Environment:2:2:Click:1:12
  37661. Sub Click(Source As Button)
  37662.     Call ProcessViewCommand(ACTION_COUNTER_PROPOSE)
  37663. End Sub
  37664. act_participantactions.GIF|act_CSPARTACTIONS
  37665. Kopieren in\Neues Memo'++LotusScript Development Environment:2:5:(Options):0:74
  37666. Use "CommonUI"
  37667. '++LotusScript Development Environment:2:5:(Forward):0:1
  37668. Declare Sub Click(Source As Button)
  37669. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37670. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37671. Private Sub BindEvents(Byval Objectname_ As String)
  37672. Static Source As BUTTON
  37673. Set Source = Bind(Objectname_)
  37674. On Event Click From Source Call Click
  37675. End Sub
  37676. '++LotusScript Development Environment:2:2:Click:1:12
  37677. Sub Click(Source As Button)
  37678.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  37679. End Sub
  37680. act_COPYINTO.GIF|act_COPYINTOX
  37681. Kopieren in\Neuen KalendereintragX'++LotusScript Development Environment:2:5:(Options):0:74
  37682. Use "CommonUI"
  37683. '++LotusScript Development Environment:2:5:(Forward):0:1
  37684. Declare Sub Click(Source As Button)
  37685. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37686. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37687. Private Sub BindEvents(Byval Objectname_ As String)
  37688. Static Source As BUTTON
  37689. Set Source = Bind(Objectname_)
  37690. On Event Click From Source Call Click
  37691. End Sub
  37692. '++LotusScript Development Environment:2:2:Click:1:12
  37693. Sub Click(Source As Button)
  37694.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  37695. End Sub
  37696. act_COPYINTO.GIF|act_COPYINTOX
  37697. Kopieren in\Neue Aufgabe'++LotusScript Development Environment:2:5:(Options):0:74
  37698. Use "CommonUI"
  37699. '++LotusScript Development Environment:2:5:(Forward):0:1
  37700. Declare Sub Click(Source As Button)
  37701. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37702. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37703. Private Sub BindEvents(Byval Objectname_ As String)
  37704.     Static Source As BUTTON
  37705.     Set Source = Bind(Objectname_)
  37706.     On Event Click From Source Call Click
  37707. End Sub
  37708. '++LotusScript Development Environment:2:2:Click:1:12
  37709. Sub Click(Source As Button)
  37710.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  37711. End Sub
  37712. act_COPYINTO.GIF|act_COPYINTOX
  37713. Werkzeuge\Feiertage importieren...4
  37714. (ImportHolidays)
  37715.     0S0E
  37716. act_TOOLS.GIF|act_TOOLSX
  37717. Werkzeuge\Abwesenheit...8
  37718. (EditOfficeProfile)
  37719.     0S0E
  37720. act_TOOLS.GIF|act_TOOLSX
  37721. Werkzeuge\Vorgaben...XR
  37722. DialogMode
  37723. (Preferences)
  37724. Kalenderformat\Ein Tag$
  37725. act_calFormat.gifX
  37726. Kalenderformat\Zwei Tage$
  37727. act_calFormat.gifX
  37728. Kalenderformat\Eine WocheX$
  37729. act_calFormat.gifX
  37730. Kalenderformat\Zwei Wochen$
  37731. act_calFormat.gifX
  37732. Kalenderformat\Ein Monat$
  37733. act_calFormat.gifX
  37734. Werkzeuge\Vorgaben0
  37735. wPreferences
  37736.     0S0E
  37737. act_TOOLS.GIF|act_TOOLSX
  37738. Werkzeuge\HilfeX,
  37739. WebHelp
  37740.     0S0E
  37741. act_TOOLS.GIF|act_TOOLSX
  37742. LSBind'++LotusScript Development Environment:2:5:(Options):0:74
  37743. Use "CommonUI"
  37744. '++LotusScript Development Environment:2:5:(Forward):0:1
  37745. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37746. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37747. Private Sub BindEvents(Byval Objectname_ As String)
  37748.     Static Source As BUTTON
  37749.     Set Source = Bind(Objectname_)
  37750. End Sub
  37751. '++LotusScript Development Environment:2:5:(Options):0:66
  37752. '++LotusScript Development Environment:2:5:(Forward):0:1
  37753. Declare Sub Postdragdrop(Source As Notesuiview)
  37754. Declare Sub Postpaste(Source As Notesuiview)
  37755. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37756. '++LotusScript Development Environment:2:2:BindEvents:1:129
  37757. Private Sub BindEvents(Byval Objectname_ As String)
  37758.     Static Source As NOTESUIVIEW
  37759.     Set Source = Bind(Objectname_)
  37760.     On Event Postdragdrop From Source Call Postdragdrop
  37761.     On Event Postpaste From Source Call Postpaste
  37762. End Sub
  37763. '++LotusScript Development Environment:2:2:Postdragdrop:1:12
  37764. Sub Postdragdrop(Source As Notesuiview)
  37765.     Call ViewDragPasteHandler(source, True)
  37766. End Sub
  37767. '++LotusScript Development Environment:2:2:Postpaste:1:12
  37768. Sub Postpaste(Source As Notesuiview)
  37769.     Call ViewDragPasteHandler(source, False)
  37770. End Sub
  37771. '++LotusScript Development Environment:2:5:(Options):0:74
  37772. Option Public
  37773. Option Explicit
  37774. Use "CSUIViewClass"
  37775. '++LotusScript Development Environment:2:5:(Forward):0:1
  37776. '++LotusScript Development Environment:2:5:(Declarations):0:2
  37777. Appointment
  37778.     0S0E
  37779. Lotus Product
  37780. Lotus Product
  37781. 4    4    4    
  37782. Lotus Product
  37783. Lotus Product
  37784. Lotus Product
  37785. Lotus Product
  37786. Lotus Product
  37787. Lotus Product
  37788. Lotus Product
  37789. Lotus Product
  37790. Lotus Product
  37791. Lotus Product
  37792. Lotus Product
  37793. Lotus Product
  37794. O=Lotus Notes
  37795. O=Lotus Notes
  37796. PURSAFO
  37797. |.:#U
  37798. O=Lotus Notes
  37799. CN=Lotus Notes Template Development/O=Lotus Notes
  37800. PURSAFO
  37801. $WebFlags
  37802. $PublicAccess
  37803. $Index
  37804. $FormulaClass
  37805. $CalendarFormat
  37806. $AppHelpFormula
  37807. $HTMLCode
  37808. $Formula
  37809. $VIEWFORMAT
  37810. $ACTIONS
  37811. $V5ACTIONS
  37812. $ViewScript
  37813. $ViewGlobalScript
  37814. $ViewAction2
  37815. $ViewGlobalScript_O
  37816. $ViewScript_O
  37817. $SCRIPTOBJ_11
  37818. $SCRIPTOBJ_12
  37819. $SCRIPTOBJ_13
  37820. $SCRIPTOBJ_14
  37821. $SCRIPTOBJ_15
  37822. $SCRIPTOBJ_16
  37823. $SCRIPTOBJ_17
  37824. $SCRIPTOBJ_18
  37825. $SCRIPTOBJ_19
  37826. $SCRIPTOBJ_20
  37827. $SCRIPTOBJ_21
  37828. $SCRIPTOBJ_32
  37829. $Language
  37830. $LastBuildTime
  37831. $BabelInfo
  37832. $106$103$107$Conflict
  37833. Strip alternatives, parentheses, and a leading dollar sign from the tmpTitle item
  37834. tmpTitle
  37835. $Title
  37836. $Title
  37837. $Title
  37838. FolderName1
  37839. tmpTitle
  37840. tmpTitle
  37841. tmpTitle
  37842. tmpTitle
  37843.     0R1S2S10S11S18RT26S31S32S34S37R
  37844. FolderName2
  37845. FolderName1
  37846. $Title
  37847. FolderName1
  37848. FolderName1
  37849. FolderName1
  37850.     0R1S2S6S7S9S10S15S17S18S21S25S28S
  37851. FolderName2
  37852.     0S0E
  37853. Set the folder flags in addition to those that are stored
  37854. FolderFlags1
  37855. $FolderFlagsh
  37856. $FolderFlags
  37857.     0R1S2S9S11S
  37858. Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
  37859.     0R1S
  37860. FolderFlags1
  37861. $Name
  37862. $Name
  37863.     0R1S2S8S10S11S13S19S21S22S24S26S29S
  37864. $Flags
  37865. $Flags
  37866.     0RL1S5S7S8S13S
  37867. $106Ordnername
  37868. Strip alternatives, parentheses, and a leading dollar sign from the tmpTitle item
  37869. tmpTitle
  37870. $Title
  37871. $Title
  37872. $Title
  37873. FolderName1
  37874. tmpTitle
  37875. tmpTitle
  37876. tmpTitle
  37877. tmpTitle
  37878.     0R1S2S10S11S18RT26S31S32S34S37R
  37879. FolderName2
  37880. FolderName1
  37881. $Title
  37882. FolderName1
  37883. FolderName1
  37884. FolderName1
  37885.     0R1S2S6S7S9S10S15S17S18S21S25S28S
  37886. FolderName2
  37887. $103Ordner-UNID
  37888.     0S0E
  37889. $107Ordner-Flags
  37890. Set the folder flags in addition to those that are stored
  37891. FolderFlags1
  37892. $FolderFlagsh
  37893. $FolderFlags
  37894.     0R1S2S9S11S
  37895. Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
  37896.     0R1S
  37897. FolderFlags1
  37898. $Name
  37899. $Name
  37900.     0R1S2S8S10S11S13S19S21S22S24S26S29S&
  37901. Neues Memo.
  37902.     0S0E
  37903. schenX 
  37904.     0S0E
  37905. In Ordner verschieben... 
  37906.     0S0E
  37907. _WeiterleitenX
  37908. AntwortX4
  37909. Reply
  37910.     0S0E
  37911. Antwort mit ProtokollX@
  37912. Reply with history
  37913.     0S0E
  37914. _KategorisierenX
  37915. Dokument _bearbeiten
  37916. Senden    
  37917. Erneut sendenX
  37918. NonDelivery Report
  37919. Kein Zustellungsfehlerbericht
  37920. Sie k
  37921. nnen nur Zustellungsfehlerberichte erneut senden.
  37922.     6S12S17S23S
  37923. In Aufgabe konvertierenX0
  37924. ConvertToTask
  37925. In Ordner _verschieben...X
  37926. Aus Ordner _entfernen...
  37927. Neues Memo.
  37928.     0S0E
  37929. schenX 
  37930.     0S0E
  37931. In Ordner verschieben... 
  37932.     0S0E
  37933. _WeiterleitenX
  37934. AntwortX4
  37935. Reply
  37936.     0S0E
  37937. Antwort mit ProtokollX@
  37938. Reply with history
  37939.     0S0E
  37940. _KategorisierenX
  37941. Dokument _bearbeiten
  37942. Senden    
  37943. Erneut sendenX
  37944. NonDelivery Report
  37945. Kein Zustellungsfehlerbericht
  37946. Sie k
  37947. nnen nur Zustellungsfehlerberichte erneut senden.
  37948.     6S12S17S23S
  37949. In Aufgabe konvertierenX0
  37950. ConvertToTask
  37951. In Ordner _verschieben...X
  37952. Aus Ordner _entfernen...
  37953. O=Lotus Notes
  37954. O=Lotus Notes
  37955. PURSAFO
  37956. |.:#U
  37957. O=Lotus Notes
  37958. CN=Lotus Notes Template Development/O=Lotus Notes
  37959. PURSAFO
  37960. fmadO
  37961. $Name
  37962. $WebFlags
  37963. $HTMLDocumentStyles
  37964. $PublicAccess
  37965. $Index
  37966. $FormulaClass
  37967. $Formula
  37968. $VIEWFORMAT
  37969. $ACTIONS
  37970. $V5ACTIONS
  37971. $Language
  37972. $LastBuildTime
  37973. $BabelInfo
  37974. $93$102$68$106$105$74$Conflict
  37975. DeliveredDate
  37976. PostedDate
  37977. PostedDateY
  37978. IsMailStationeryh
  37979. _ViewIcon
  37980. _ViewIcon
  37981. Importance
  37982. Importance
  37983. _ViewIcon
  37984. _ViewIcon
  37985. $TypeIcon
  37986.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  37987. SentBy
  37988. Principal
  37989. Principal
  37990.     1S2S5S6S8S10S
  37991. Attendees
  37992. RequiredAttendees
  37993. OptionalAttendees
  37994.     0R1S2S5S6S
  37995. DeliveredDate
  37996. SentBy
  37997. Attendees
  37998. Attendees
  37999. SendTo
  38000. SentBy
  38001. SendTo
  38002.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  38003.     0R1S2S8S
  38004.     0R1S2S15S16S
  38005.     0R1S2S5S6S8S14S18S
  38006.     0R1S2S5S6S8S14S18S
  38007. Person
  38008. X400FreeForm^
  38009.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  38010. Person2
  38011. Person
  38012. Person
  38013. Person
  38014. Person
  38015.     0R1S2S12S13S22S34S
  38016. Delivery Report
  38017. NonDelivery Report
  38018. Trace Report
  38019. Mail-Router
  38020. Person2
  38021.     0R3S4S5S6S7S8S10S12S
  38022. DeliveredDate
  38023. DeliveredDate
  38024. PostedDate
  38025. PostedDate
  38026.     3S4S6S8S9S10S12S14S
  38027. _ViewIcon2h
  38028. _ViewIcon2
  38029. $ContentIconh
  38030. $ContentIcon
  38031. Froma
  38032.  pager 
  38033. SendToa
  38034.  pager 
  38035. message.wav
  38036. vmsg_hdr.wav
  38037. .wavG
  38038. .tifG
  38039. $ContentIconh
  38040. $ContentIcon
  38041.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S
  38042. NonDelivery Report
  38043. ZUSTELLUNGSFEHLER: 
  38044. FailureReason
  38045. Delivery Report
  38046. ZUGESTELLT 
  38047. Subject
  38048. Return Receipt
  38049. EMPFANGEN: 
  38050. Subject
  38051. ReturnNonReceipt
  38052. NICHT EMPFANGEN: 
  38053. Subject
  38054. Subject
  38055.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  38056. DeliveredDate
  38057. PostedDate
  38058. PostedDateY
  38059. IsMailStationeryh
  38060. _ViewIcon
  38061. _ViewIcon
  38062. Importance
  38063. Importance
  38064. _ViewIcon
  38065. _ViewIcon
  38066. $TypeIcon
  38067.     3S4S6RS4E11S12S17RS8E24RS12E26RS8E31RS12E33RS9E36RS4E42RS8E44RS4E48R49S50S52RS4E54R59RS5E61R
  38068. $102Who
  38069. SentBy
  38070. Principal
  38071. Principal
  38072.     1S2S5S6S8S10S
  38073. Attendees
  38074. RequiredAttendees
  38075. OptionalAttendees
  38076.     0R1S2S5S6S
  38077. DeliveredDate
  38078. SentBy
  38079. Attendees
  38080. Attendees
  38081. SendTo
  38082. SentBy
  38083. SendTo
  38084.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  38085.     0R1S2S8S
  38086.     0R1S2S15S16S
  38087.     0R1S2S5S6S8S14S18S
  38088.     0R1S2S5S6S8S14S18S
  38089. Person
  38090. X400FreeForm^
  38091.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  38092. Person2
  38093. Person
  38094. Person
  38095. Person
  38096. Person
  38097.     0R1S2S12S13S22S34S
  38098. Delivery Report
  38099. NonDelivery Report
  38100. Trace Report
  38101. Mail-Router
  38102. Person2
  38103.     0R3S4S5S6S7S8S10S12S
  38104. $68Date
  38105. DeliveredDate
  38106. DeliveredDate
  38107. PostedDate
  38108. PostedDate
  38109.     3S4S6S8S9S10S12S14S$106Size
  38110. $105z
  38111. _ViewIcon2h
  38112. _ViewIcon2
  38113. $ContentIconh
  38114. $ContentIcon
  38115. Froma
  38116.  pager 
  38117. SendToa
  38118.  pager 
  38119. message.wav
  38120. vmsg_hdr.wav
  38121. .wavG
  38122. .tifG
  38123. $ContentIconh
  38124. $ContentIcon
  38125.     6S7S9RRS4E16S18RS4E20RS8E22RS4E27RS8E29RS4E37S39S40S47S51RS9E53RS4E55RS8E64S65S66S69RS12E71RS8E78S81RS12E83RS8E90S93RS12E95RS9E98RS5E101R106S108S110S112S$74Subject
  38126. NonDelivery Report
  38127. ZUSTELLUNGSFEHLER: 
  38128. FailureReason
  38129. Delivery Report
  38130. ZUGESTELLT 
  38131. Subject
  38132. Return Receipt
  38133. EMPFANGEN: 
  38134. Subject
  38135. ReturnNonReceipt
  38136. NICHT EMPFANGEN: 
  38137. Subject
  38138. Subject
  38139.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  38140. _KategorisierenX
  38141. Senden
  38142. In Ordner _verschieben...X
  38143. Aus Ordner _entfernen...
  38144. _WeiterleitenX
  38145. Dokument _bearbeiten
  38146. ltig l
  38147. schenX6
  38148. ($PermanentDelete)
  38149.     0S0E
  38150. Wiederherstellen6
  38151. ($RestoreDocument)
  38152.     0S0E
  38153. _KategorisierenX
  38154. Senden
  38155. In Ordner _verschieben...X
  38156. Aus Ordner _entfernen...
  38157. _WeiterleitenX
  38158. Dokument _bearbeiten
  38159. ltig l
  38160. schenX6
  38161. ($PermanentDelete)
  38162.     0S0E
  38163. Wiederherstellen6
  38164. ($RestoreDocument)
  38165.     0S0E
  38166. ltig l
  38167. schenX
  38168. document.view.deleteSelectedDocuments(true)    //true means do a hard delete
  38169. Wiederherstellen
  38170. document.view.undeleteSelectedDocuments()
  38171. '++LotusScript Development Environment:2:5:(Options):0:74
  38172. Option Public
  38173. Option Explicit
  38174. '++LotusScript Development Environment:2:5:(Forward):0:1
  38175. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38176. Lotus Product
  38177. O=Lotus Notes
  38178. O=Lotus Notes
  38179. PURSAFO
  38180. |.:#U
  38181. O=Lotus Notes
  38182. CN=Lotus Notes Template Development/O=Lotus Notes
  38183. PURSAFO
  38184. $HTMLDocumentStyles
  38185. $PublicAccess
  38186. $Index
  38187. $FormulaClass
  38188. $WebFlags
  38189. $Formula
  38190. $VIEWFORMAT
  38191. $ACTIONS
  38192. $V5ACTIONS
  38193. $ViewGlobalScript
  38194. (Globals) ($SoftDeletions)|($SoftDeleti
  38195. $Language
  38196. $LastBuildTime
  38197. $BabelInfo
  38198. $68$102$74$Conflict
  38199. DeliveredDate
  38200. DeliveredDate
  38201. PostedDate
  38202. PostedDate
  38203.     3S4S6S8S9S10S12S14S
  38204. SentBy
  38205. Principal
  38206. Principal
  38207.     1S2S5S6S8S10S
  38208. Attendees
  38209. RequiredAttendees
  38210. OptionalAttendees
  38211.     0R1S2S5S6S
  38212. DeliveredDate
  38213. SentBy
  38214. Attendees
  38215. Attendees
  38216. SendTo
  38217. SentBy
  38218. SendTo
  38219.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  38220.     0R1S2S8S
  38221.     0R1S2S15S16S
  38222.     0R1S2S5S6S8S14S18S
  38223.     0R1S2S5S6S8S14S18S
  38224. Person
  38225. X400FreeForm^
  38226.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  38227. Person2
  38228. Person
  38229. Person
  38230. Person
  38231. Person
  38232.     0R1S2S12S13S22S34S
  38233. Delivery Report
  38234. NonDelivery Report
  38235. Trace Report
  38236. Mail Router
  38237. Person2
  38238.     0R3S4S5S6S7S8S10S12S
  38239. NonDelivery Report
  38240. ZUSTELLUNGSFEHLER: 
  38241. FailureReason
  38242. Delivery Report
  38243. ZUGESTELLT: 
  38244. Subject
  38245. Return Receipt
  38246. EMPFANGEN: 
  38247. Subject
  38248. ReturnNonReceipt
  38249. NICHT EMPFANGEN: 
  38250. Subject
  38251. Subject
  38252.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S
  38253.     L1S2E
  38254. $68Date
  38255. DeliveredDate
  38256. DeliveredDate
  38257. PostedDate
  38258. PostedDate
  38259.     3S4S6S8S9S10S12S14S$102Who
  38260. SentBy
  38261. Principal
  38262. Principal
  38263.     1S2S5S6S8S10S
  38264. Attendees
  38265. RequiredAttendees
  38266. OptionalAttendees
  38267.     0R1S2S5S6S
  38268. DeliveredDate
  38269. SentBy
  38270. Attendees
  38271. Attendees
  38272. SendTo
  38273. SentBy
  38274. SendTo
  38275.     0R1S2S5S6S8S10S14S15S17S21S24S25S26S28S30S34S
  38276.     0R1S2S8S
  38277.     0R1S2S15S16S
  38278.     0R1S2S5S6S8S14S18S
  38279.     0R1S2S5S6S8S14S18S
  38280. Person
  38281. X400FreeForm^
  38282.     0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
  38283. Person2
  38284. Person
  38285. Person
  38286. Person
  38287. Person
  38288.     0R1S2S12S13S22S34S
  38289. Delivery Report
  38290. NonDelivery Report
  38291. Trace Report
  38292. Mail Router
  38293. Person2
  38294.     0R3S4S5S6S7S8S10S12S
  38295. $74Subject
  38296. NonDelivery Report
  38297. ZUSTELLUNGSFEHLER: 
  38298. FailureReason
  38299. Delivery Report
  38300. ZUGESTELLT: 
  38301. Subject
  38302. Return Receipt
  38303. EMPFANGEN: 
  38304. Subject
  38305. ReturnNonReceipt
  38306. NICHT EMPFANGEN: 
  38307. Subject
  38308. Subject
  38309.     3S4S6S7S8S10S11S12S14S15S16S18S19S20S22S23S24S26S27S28S30S31S32S34S&
  38310. _KategorisierenX
  38311. Senden
  38312. In Ordner _verschieben...X
  38313. Aus Ordner _entfernen...
  38314. Neues Memo(
  38315.     0S0E
  38316. Antwort...\Antwort0
  38317. Reply
  38318.     0S0E
  38319. Antwort...\Antwort mit Protokoll
  38320. Antwort mit Protokoll
  38321. Dieses Dokument ist nicht vollst
  38322. ndig.
  38323.     4S8S10S13S
  38324. Reply with history
  38325. Antwort...\Allen antwortenX
  38326. MailStEd
  38327.     0S0E
  38328. Reply
  38329. Antwort...\Allen antworten (mit Protokoll)
  38330. MailStEd
  38331.     0S0E
  38332. Antwort mit Protokoll
  38333. Dieses Dokument ist nicht vollst
  38334. ndig.
  38335.     0R4S8S10S13S
  38336. Reply with history
  38337. _WeiterleitenX
  38338. Dokument _bearbeiten
  38339. schenX 
  38340.     0S0E
  38341. Ordner...\In Ordner verschieben... 
  38342.     0S0E
  38343. Ordner...\Aus Ordner entfernen 
  38344.     0S0E
  38345. Mehr...\Vorgaben...X0
  38346. Preferences
  38347.     0S0E
  38348. Mehr...\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  38349. '++LotusScript Development Environment:2:5:(Forward):0:1
  38350. Declare Sub Click(Source As Button)
  38351. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38352. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38353. Private Sub BindEvents(Byval Objectname_ As String)
  38354.     Static Source As BUTTON
  38355.     Set Source = Bind(Objectname_)
  38356.     On Event Click From Source Call Click
  38357. End Sub
  38358. '++LotusScript Development Environment:2:2:Click:1:12
  38359. Sub Click(Source As Button)
  38360.     Dim session As New notessession
  38361.     Dim uiws As New notesuiworkspace
  38362.     Dim collection As notesdocumentcollection
  38363.     Dim noteUIEditDocument As notesuidocument
  38364.     Dim database As NotesDatabase
  38365.     Set noteCursorDoc = session.currentdatabase.createdocument
  38366.     Set database = session.currentdatabase
  38367.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  38368. hlen", "W
  38369. hlen Sie bitte eine Vorlage f
  38370. r das neue Memo.")
  38371.     Set noteCursorDoc = collection.getfirstdocument
  38372.     If Not noteCursorDoc Is Nothing Then
  38373.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  38374.     End If
  38375. End Sub
  38376. Kopieren in...\Neues MemoX'++LotusScript Development Environment:2:5:(Options):0:74
  38377. Use "CommonUI"
  38378. '++LotusScript Development Environment:2:5:(Forward):0:1
  38379. Declare Sub Click(Source As Button)
  38380. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38381. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38382. Private Sub BindEvents(Byval Objectname_ As String)
  38383. Static Source As BUTTON
  38384. Set Source = Bind(Objectname_)
  38385. On Event Click From Source Call Click
  38386. End Sub
  38387. '++LotusScript Development Environment:2:2:Click:1:12
  38388. Sub Click(Source As Button)
  38389.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  38390. End Sub
  38391. Kopieren in...\Neuen Kalendereintrag'++LotusScript Development Environment:2:5:(Options):0:74
  38392. Use "CommonUI"
  38393. '++LotusScript Development Environment:2:5:(Forward):0:1
  38394. Declare Sub Click(Source As Button)
  38395. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38396. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38397. Private Sub BindEvents(Byval Objectname_ As String)
  38398. Static Source As BUTTON
  38399. Set Source = Bind(Objectname_)
  38400. On Event Click From Source Call Click
  38401. End Sub
  38402. '++LotusScript Development Environment:2:2:Click:1:12
  38403. Sub Click(Source As Button)
  38404.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  38405. End Sub
  38406. Kopieren in...\Neue AufgabeX'++LotusScript Development Environment:2:5:(Options):0:74
  38407. Use "CommonUI"
  38408. '++LotusScript Development Environment:2:5:(Forward):0:1
  38409. Declare Sub Click(Source As Button)
  38410. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38411. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38412. Private Sub BindEvents(Byval Objectname_ As String)
  38413.     Static Source As BUTTON
  38414.     Set Source = Bind(Objectname_)
  38415.     On Event Click From Source Call Click
  38416. End Sub
  38417. '++LotusScript Development Environment:2:2:Click:1:12
  38418. Sub Click(Source As Button)
  38419.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  38420. End Sub
  38421. Kopieren in...\Neuen Gruppenkalender'++LotusScript Development Environment:2:5:(Options):0:74
  38422. Use "CommonUI"
  38423. '++LotusScript Development Environment:2:5:(Forward):0:1
  38424. Declare Sub Click(Source As Button)
  38425. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38426. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38427. Private Sub BindEvents(Byval Objectname_ As String)
  38428. Static Source As BUTTON
  38429. Set Source = Bind(Objectname_)
  38430. On Event Click From Source Call Click
  38431. End Sub
  38432. '++LotusScript Development Environment:2:2:Click:1:12
  38433. Sub Click(Source As Button)
  38434.     Dim newnote As notesdocument
  38435.     Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
  38436.     Call DisplayGroupCalendarDlg(newnote, True)    
  38437. End Sub
  38438. Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  38439. '++LotusScript Development Environment:2:5:(Forward):0:1
  38440. Declare Sub Click(Source As Button)
  38441. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38442. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38443. Private Sub BindEvents(Byval Objectname_ As String)
  38444.     Static Source As BUTTON
  38445.     Set Source = Bind(Objectname_)
  38446.     On Event Click From Source Call Click
  38447. End Sub
  38448. '++LotusScript Development Environment:2:2:Click:1:12
  38449. Sub Click(Source As Button)
  38450.     Dim session As New notessession
  38451.     Dim uiws As New notesuiworkspace
  38452.     Dim collection As notesdocumentcollection
  38453.     Dim noteUIEditDocument As notesuidocument
  38454.     Dim database As NotesDatabase
  38455.     Set noteCursorDoc = session.currentdatabase.createdocument
  38456.     Set database = session.currentdatabase
  38457.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  38458. hlen", "W
  38459. hlen Sie bitte eine Vorlage f
  38460. r das neue Memo.")
  38461.     Set noteCursorDoc = collection.getfirstdocument
  38462.     If Not noteCursorDoc Is Nothing Then
  38463.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  38464.     End If
  38465. End Sub
  38466. IsMailStationery
  38467.     1S2S
  38468. _KategorisierenX
  38469. Senden
  38470. In Ordner _verschieben...X
  38471. Aus Ordner _entfernen...
  38472. Neues Memo(
  38473.     0S0E
  38474. Antwort...\Antwort0
  38475. Reply
  38476.     0S0E
  38477. Antwort...\Antwort mit Protokoll
  38478. Antwort mit Protokoll
  38479. Dieses Dokument ist nicht vollst
  38480. ndig.
  38481.     4S8S10S13S
  38482. Reply with history
  38483. Antwort...\Allen antwortenX
  38484. MailStEd
  38485.     0S0E
  38486. Reply
  38487. Antwort...\Allen antworten (mit Protokoll)
  38488. MailStEd
  38489.     0S0E
  38490. Antwort mit Protokoll
  38491. Dieses Dokument ist nicht vollst
  38492. ndig.
  38493.     0R4S8S10S13S
  38494. Reply with history
  38495. _WeiterleitenX
  38496. Dokument _bearbeiten
  38497. schenX 
  38498.     0S0E
  38499. Ordner...\In Ordner verschieben... 
  38500.     0S0E
  38501. Ordner...\Aus Ordner entfernen 
  38502.     0S0E
  38503. Mehr...\Vorgaben...X0
  38504. Preferences
  38505.     0S0E
  38506. Mehr...\Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  38507. '++LotusScript Development Environment:2:5:(Forward):0:1
  38508. Declare Sub Click(Source As Button)
  38509. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38510. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38511. Private Sub BindEvents(Byval Objectname_ As String)
  38512.     Static Source As BUTTON
  38513.     Set Source = Bind(Objectname_)
  38514.     On Event Click From Source Call Click
  38515. End Sub
  38516. '++LotusScript Development Environment:2:2:Click:1:12
  38517. Sub Click(Source As Button)
  38518.     Dim session As New notessession
  38519.     Dim uiws As New notesuiworkspace
  38520.     Dim collection As notesdocumentcollection
  38521.     Dim noteUIEditDocument As notesuidocument
  38522.     Dim database As NotesDatabase
  38523.     Set noteCursorDoc = session.currentdatabase.createdocument
  38524.     Set database = session.currentdatabase
  38525.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  38526. hlen", "W
  38527. hlen Sie bitte eine Vorlage f
  38528. r das neue Memo.")
  38529.     Set noteCursorDoc = collection.getfirstdocument
  38530.     If Not noteCursorDoc Is Nothing Then
  38531.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  38532.     End If
  38533. End Sub
  38534. Kopieren in...\Neues MemoX'++LotusScript Development Environment:2:5:(Options):0:74
  38535. Use "CommonUI"
  38536. '++LotusScript Development Environment:2:5:(Forward):0:1
  38537. Declare Sub Click(Source As Button)
  38538. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38539. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38540. Private Sub BindEvents(Byval Objectname_ As String)
  38541. Static Source As BUTTON
  38542. Set Source = Bind(Objectname_)
  38543. On Event Click From Source Call Click
  38544. End Sub
  38545. '++LotusScript Development Environment:2:2:Click:1:12
  38546. Sub Click(Source As Button)
  38547.     Call UICopyIntoNewDocument(CREATE_MEMO, True)
  38548. End Sub
  38549. Kopieren in...\Neuen Kalendereintrag'++LotusScript Development Environment:2:5:(Options):0:74
  38550. Use "CommonUI"
  38551. '++LotusScript Development Environment:2:5:(Forward):0:1
  38552. Declare Sub Click(Source As Button)
  38553. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38554. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38555. Private Sub BindEvents(Byval Objectname_ As String)
  38556. Static Source As BUTTON
  38557. Set Source = Bind(Objectname_)
  38558. On Event Click From Source Call Click
  38559. End Sub
  38560. '++LotusScript Development Environment:2:2:Click:1:12
  38561. Sub Click(Source As Button)
  38562.     Call UICopyIntoNewDocument(CREATE_CALENDAR, True)
  38563. End Sub
  38564. Kopieren in...\Neue AufgabeX'++LotusScript Development Environment:2:5:(Options):0:74
  38565. Use "CommonUI"
  38566. '++LotusScript Development Environment:2:5:(Forward):0:1
  38567. Declare Sub Click(Source As Button)
  38568. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38569. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38570. Private Sub BindEvents(Byval Objectname_ As String)
  38571.     Static Source As BUTTON
  38572.     Set Source = Bind(Objectname_)
  38573.     On Event Click From Source Call Click
  38574. End Sub
  38575. '++LotusScript Development Environment:2:2:Click:1:12
  38576. Sub Click(Source As Button)
  38577.     Call UICopyIntoNewDocument(CREATE_TASK, True)
  38578. End Sub
  38579. Kopieren in...\Neuen Gruppenkalender'++LotusScript Development Environment:2:5:(Options):0:74
  38580. Use "CommonUI"
  38581. '++LotusScript Development Environment:2:5:(Forward):0:1
  38582. Declare Sub Click(Source As Button)
  38583. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38584. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38585. Private Sub BindEvents(Byval Objectname_ As String)
  38586. Static Source As BUTTON
  38587. Set Source = Bind(Objectname_)
  38588. On Event Click From Source Call Click
  38589. End Sub
  38590. '++LotusScript Development Environment:2:2:Click:1:12
  38591. Sub Click(Source As Button)
  38592.     Dim newnote As notesdocument
  38593.     Set newnote = UICopyIntoNewDocument(CREATE_GROUPCALENDAR, False)
  38594.     Call DisplayGroupCalendarDlg(newnote, True)    
  38595. End Sub
  38596. Neues Memo - Vorlage verwenden'++LotusScript Development Environment:2:5:(Options):0:66
  38597. '++LotusScript Development Environment:2:5:(Forward):0:1
  38598. Declare Sub Click(Source As Button)
  38599. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38600. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38601. Private Sub BindEvents(Byval Objectname_ As String)
  38602.     Static Source As BUTTON
  38603.     Set Source = Bind(Objectname_)
  38604.     On Event Click From Source Call Click
  38605. End Sub
  38606. '++LotusScript Development Environment:2:2:Click:1:12
  38607. Sub Click(Source As Button)
  38608.     Dim session As New notessession
  38609.     Dim uiws As New notesuiworkspace
  38610.     Dim collection As notesdocumentcollection
  38611.     Dim noteUIEditDocument As notesuidocument
  38612.     Dim database As NotesDatabase
  38613.     Set noteCursorDoc = session.currentdatabase.createdocument
  38614.     Set database = session.currentdatabase
  38615.     Set collection = uiws.Picklistcollection(PICKLIST_CUSTOM, False, database.server, database.filepath, "Vorlage", "Vorlage w
  38616. hlen", "W
  38617. hlen Sie bitte eine Vorlage f
  38618. r das neue Memo.")
  38619.     Set noteCursorDoc = collection.getfirstdocument
  38620.     If Not noteCursorDoc Is Nothing Then
  38621.         Set noteUIEditDocument =  uiws.Editdocument(False, noteCursorDoc)
  38622.     End If
  38623. End Sub
  38624. IsMailStationery
  38625.     1S2S
  38626. '++LotusScript Development Environment:2:5:(Options):0:74
  38627. Option Public
  38628. Option Explicit
  38629. '++LotusScript Development Environment:2:5:(Forward):0:1
  38630. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38631. Lotus Product
  38632. Lotus Product
  38633. Lotus Product
  38634. Lotus Product
  38635. Lotus Product
  38636. Lotus Product
  38637. Lotus Product
  38638. O=Lotus Notes
  38639. O=Lotus Notes
  38640. PURSAFO
  38641. |.:#U
  38642. O=Lotus Notes
  38643. CN=Lotus Notes Template Development/O=Lotus Notes
  38644. PURSAFO
  38645. $TABLEFORMAT
  38646. $Index
  38647. $FormulaClass
  38648. $WebFlags
  38649. $Formula
  38650. $VIEWFORMAT
  38651. $ACTIONS
  38652. $V5ACTIONS
  38653. $ViewGlobalScript
  38654. $ViewGlobalScript_O
  38655. $SCRIPTOBJ_15
  38656. $SCRIPTOBJ_16
  38657. $SCRIPTOBJ_17
  38658. $SCRIPTOBJ_18
  38659. $SCRIPTOBJ_19
  38660. $SCRIPTOBJ_20
  38661. $Language
  38662. $LastBuildTime
  38663. $BabelInfo
  38664. Lotus Product
  38665. $119$123$122StartDateTimeSubject$Conflict$REF
  38666. Appointment
  38667. _ViewIcon
  38668. _ViewIcon
  38669.     3S4S6S8S13S15S
  38670. _Viewicon2h
  38671. _ViewIcon2
  38672.     7S9S
  38673. Principal
  38674. Principal
  38675.     1S2S
  38676. OrgRepeat
  38677. Notice
  38678. Subject
  38679. Subject
  38680. StartDateTime
  38681. D0S2V
  38682. PostedDateh
  38683. NoticeType
  38684. OrgState
  38685.  kann zur vorgeschlagenen Zeit am Treffen teilnehmen"
  38686. NoticeType
  38687. OrgState
  38688.  wurde reserviert
  38689. NoticeType
  38690. chte eine 
  38691. nderung vorschlagen
  38692. NoticeType
  38693. OrgState
  38694.  wird nicht teilnehmen"
  38695. NoticeType
  38696. OrgState
  38697.  steht nicht zur Verf
  38698. gung"
  38699. NoticeType
  38700.  hat eine andere Person um Vertretung gebeten
  38701. Subject
  38702. Subject
  38703.     0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S39S40S41S42S44RS13E45S46S48RTTS2E49S50S51S52S53S54S56RTTT57S58S60RS8E61S62S64RS14E65S66S68RS8E69S70S71S72S73S74S76RS14E77S78S80RTS3E81S2E82S83S84S85S86S88RTTT89S90S92RS8E93S94S96RS14E97S98S100RS7E101S102S103S104S105S106S109R
  38704. Appointment
  38705. Notice
  38706.     L1S2S3S6S7S
  38707.  $119
  38708. Appointment
  38709. _ViewIcon
  38710. _ViewIcon
  38711.     3S4S6S8S13S15S
  38712. $123R
  38713. _Viewicon2h
  38714. _ViewIcon2
  38715.     7S9S
  38716. Principal
  38717. Principal
  38718.     1S2S
  38719. OrgRepeat
  38720. Notice
  38721. Subject
  38722. Subject
  38723. StartDateTime
  38724. D0S2V
  38725. PostedDateh
  38726. NoticeType
  38727. OrgState
  38728.  kann zur vorgeschlagenen Zeit am Treffen teilnehmen"
  38729. NoticeType
  38730. OrgState
  38731.  wurde reserviert
  38732. NoticeType
  38733. chte eine 
  38734. nderung vorschlagen
  38735. NoticeType
  38736. OrgState
  38737.  wird nicht teilnehmen"
  38738. NoticeType
  38739. OrgState
  38740.  steht nicht zur Verf
  38741. gung"
  38742. NoticeType
  38743.  hat eine andere Person um Vertretung gebeten
  38744. Subject
  38745. Subject
  38746.     0R7RS4E10S11S13RS18E15RS13E16S17S18S19S23S25S26S29R34RS4E37S38S39S40S41S42S44RS13E45S46S48RTTS2E49S50S51S52S53S54S56RTTT57S58S60RS8E61S62S64RS14E65S66S68RS8E69S70S71S72S73S74S76RS14E77S78S80RTS3E81S2E82S83S84S85S86S88RTTT89S90S92RS8E93S94S96RS14E97S98S100RS7E101S102S103S104S105S106S109RStartDateTimeUhrzeit der BesprechungSubjectThema&
  38747. _WeiterleitenX
  38748. Dokument _bearbeiten
  38749. In Ordner _verschieben...X
  38750. Aus Ordner _entfernen...
  38751. _KategorisierenX
  38752. Dokument _senden
  38753. Besprechung planen
  38754. Notes
  38755. CSDocType
  38756. Appointment
  38757.     3S4S6S12S13S19S20S
  38758.     0R1S2S
  38759. path"
  38760. /Appointment?OpenForm&Type=3"
  38761.     0R3S4S5S6S
  38762. Neu\Termin
  38763. Notes
  38764. CSDocType
  38765. Appointment
  38766.     3S4S6S12S13S19S20S
  38767.     0R1S2S
  38768. path"
  38769. /Appointment?OpenForm&Type=0"
  38770.     0R3S4S5S6S
  38771. Neu\JahrestagX
  38772. Notes
  38773. CSDocType
  38774. Appointment
  38775.     3S4S6S12S13S19S20S
  38776.     0R1S2S
  38777. path"
  38778. /Appointment?OpenForm&Type=1"
  38779.     0R3S4S5S6S
  38780. Neu\Erinnerung
  38781. Notes
  38782. CSDocType
  38783. Appointment
  38784.     3S4S6S12S13S19S20S
  38785.     0R1S2S
  38786. path"
  38787. /Appointment?OpenForm&Type=4"
  38788.     0R3S4S5S6S
  38789. Neu\VeranstaltungX
  38790. Notes
  38791. CSDocType
  38792. Appointment
  38793.     3S4S6S12S13S19S20S
  38794.     0R1S2S
  38795. path"
  38796. /Appointment?OpenForm&Type=2"
  38797.     0R3S4S5S6S
  38798. Besitzeraktionen\Neu planenX'++LotusScript Development Environment:2:5:(Options):0:74
  38799. Use "CSUIViewClass"
  38800. '++LotusScript Development Environment:2:5:(Forward):0:1
  38801. Declare Sub Click(Source As Button)
  38802. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38803. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38804. Private Sub BindEvents(Byval Objectname_ As String)
  38805. Static Source As BUTTON
  38806. Set Source = Bind(Objectname_)
  38807. On Event Click From Source Call Click
  38808. End Sub
  38809. '++LotusScript Development Environment:2:2:Click:1:12
  38810. Sub Click(Source As Button)
  38811.     Call ProcessViewCommand(ACTION_RESCHEDULE)
  38812. End Sub
  38813. Besitzeraktionen\Absagen'++LotusScript Development Environment:2:5:(Options):0:74
  38814. Use "CSUIViewClass"
  38815. '++LotusScript Development Environment:2:5:(Forward):0:1
  38816. Declare Sub Click(Source As Button)
  38817. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38818. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38819. Private Sub BindEvents(Byval Objectname_ As String)
  38820. Static Source As BUTTON
  38821. Set Source = Bind(Objectname_)
  38822. On Event Click From Source Call Click
  38823. End Sub
  38824. '++LotusScript Development Environment:2:2:Click:1:12
  38825. Sub Click(Source As Button)
  38826.     Call ProcessViewCommand(ACTION_CANCEL)
  38827. End Sub
  38828. Besitzeraktionen\Best
  38829. tigenX'++LotusScript Development Environment:2:5:(Options):0:74
  38830. Use "CSUIViewClass"
  38831. '++LotusScript Development Environment:2:5:(Forward):0:1
  38832. Declare Sub Click(Source As Button)
  38833. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38834. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38835. Private Sub BindEvents(Byval Objectname_ As String)
  38836. Static Source As BUTTON
  38837. Set Source = Bind(Objectname_)
  38838. On Event Click From Source Call Click
  38839. End Sub
  38840. '++LotusScript Development Environment:2:2:Click:1:12
  38841. Sub Click(Source As Button)
  38842.     Call ProcessViewCommand(ACTION_CONFIRM)
  38843. End Sub
  38844. Besitzeraktionen\Teilnehmerstatus anzeigen'++LotusScript Development Environment:2:5:(Options):0:74
  38845. Use "CSUIViewClass"
  38846. '++LotusScript Development Environment:2:5:(Forward):0:1
  38847. Declare Sub Click(Source As Button)
  38848. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38849. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38850. Private Sub BindEvents(Byval Objectname_ As String)
  38851. Static Source As BUTTON
  38852. Set Source = Bind(Objectname_)
  38853. On Event Click From Source Call Click
  38854. End Sub
  38855. '++LotusScript Development Environment:2:2:Click:1:12
  38856. Sub Click(Source As Button)
  38857.     Call ProcessViewCommand(ACTION_VIEWSTATUS)
  38858. End Sub
  38859. Besitzeraktionen\Memo an Teilnehmer senden'++LotusScript Development Environment:2:5:(Options):0:74
  38860. Use "CSUIViewClass"
  38861. '++LotusScript Development Environment:2:5:(Forward):0:1
  38862. Declare Sub Click(Source As Button)
  38863. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38864. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38865. Private Sub BindEvents(Byval Objectname_ As String)
  38866. Static Source As BUTTON
  38867. Set Source = Bind(Objectname_)
  38868. On Event Click From Source Call Click
  38869. End Sub
  38870. '++LotusScript Development Environment:2:2:Click:1:12
  38871. Sub Click(Source As Button)
  38872.     Call ProcessViewCommand(ACTION_SENDMEMO)
  38873. End Sub
  38874. Teilnehmeraktionen\AnnehmenX'++LotusScript Development Environment:2:5:(Options):0:74
  38875. Use "CSUIViewClass"
  38876. '++LotusScript Development Environment:2:5:(Forward):0:1
  38877. Declare Sub Click(Source As Button)
  38878. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38879. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38880. Private Sub BindEvents(Byval Objectname_ As String)
  38881.     Static Source As BUTTON
  38882.     Set Source = Bind(Objectname_)
  38883.     On Event Click From Source Call Click
  38884. End Sub
  38885. '++LotusScript Development Environment:2:2:Click:1:12
  38886. Sub Click(Source As Button)
  38887.     Call ProcessViewCommand(ACTION_ACCEPT)
  38888. End Sub
  38889. Teilnehmeraktionen\AblehnenX'++LotusScript Development Environment:2:5:(Options):0:74
  38890. Use "CSUIViewClass"
  38891. '++LotusScript Development Environment:2:5:(Forward):0:1
  38892. Declare Sub Click(Source As Button)
  38893. '++LotusScript Development Environment:2:5:(Declarations):0:2
  38894. '++LotusScript Development Environment:2:2:BindEvents:1:129
  38895. Private Sub BindEvents(Byval Objectname_ As String)
  38896. Static Source As BUTTON
  38897. Set Source = Bind(Objectname_)
  38898. On Event Click From Source Call Click
  38899. End Sub
  38900. '++LotusScript Development Environment:2:2:Click:1:12
  38901. Sub Click(Source As Button)
  38902.     Call ProcessViewCommand(ACTION_DECLINE)
  38903. End Sub
  38904. Teilnehmeraktionen\DelegierenX'++LotusScript Development Environment:2:5:(Options):0:74
  38905. Use "CSUIViewClass"
  38906. '++LotusScr