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

Lotus Notes Database | 2000-08-20 | 560KB | 5,151 lines

ta (IMAP)
#1StdR50IMail
$FolderInfo
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Index
$FormulaClass
$Formula
$ViewFormat
$Language
$LastBuildTime
$BabelInfo
FOLDER_DIRECTORY_OBJECT
#0|VF
0mZhQ
CN=Angela Moohan/OU=DUB/O=Lotus
CN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes###############################################
    MailFS|MailFS
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=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes#4Ccs-CZ
00000116############################################
    C34WQ
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
OutlineDisplayOutlineDisplaycs-CZ
0000011A####################
    C34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
TemplateNameTemplateNamecs-CZ
0000011E#########################
    HC34W
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
dspDbTitledspDbTitlecs-CZ
00000122############################
$LotusFaxMemoSubform | 1.0 | $LotusFaxMemoSubformMoodscs-CZ
0000012E
Odpov
 historieReplyD
BodySubjectBlindCopyToCopyToSendTo$AutoSpellEncryptSignLogoInheritedFromDomainInheritedReplyToInheritedSendToFromInheritedSubjectInheritedFrom
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
    CDU3wx
EncryptSign1
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
(Delivery Options)DeliveryOptionscs-CZ0
00000132############################
$FolderInfocs-CZU
0000013A($FolderInfo)1
$103Y
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes####################################
CN=Dave Delay/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus NotesY($All Messages)R
FromDateSubject$Conflict$REF
Subject
FromOd kohoDateDateSubjectSubject&
cs-CZf
00000136
##########################################################
cs-CZz
0000013E($IMAPResyncInfo)
IMAPUID
$IMAPUIDh
$IMAPUID
    7S9S
IMAPLastFolderUNID
$IMAPLastFolderUNID
$IMAPLastFolderUNID
    7S12S
IMAPSeqNo
$IMAPSeqNoh
$IMAPSeqNo
    7S9S
IMAPFlags
$IMAPFlagsh
$IMAPFlags
    7S9S
IMAPDiscFlags
$IMAPDiscFlagsh
$IMAPDiscFlags
    7S9S
IMAPMsgIDn
$IMAPMsgIDh
$IMAPMsgIDV
    7S12S
$1IMAPUIDIMAPLastFolderUNIDIMAPSeqNoIMAPFlagsIMAPDiscFlagsIMAPMsgID$Conflict
    L1S1
$1IMAPUID
IMAPUIDY
CN=Petr Chaloupka/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes######
GrpName
CN=Dave Delay/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus NotesY($Mailboxes)P
GrpName$Conflict$REF
MailboxName
    L1S2S6S
GrpNameGroup Name&
cs-CZ
00000142##############################
    cs-CZ
00000146InboxInboxf
PostedDate
PostedDate
FromPostedDateSubject$Conflict
    L1S1
PostedDate
PostedDate
Subject
Subject
FromOd kohoPostedDateDatum"
PostedDate
PostedDate
SubjectP
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
############################
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesaddress book.GIF
act_ADDRESSBOOK.GIFact_ADDRESSBOOKcs-CZ
0000014A####
#0|VF
    34Ci
completed.GIF
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes1
act_completed.GIFact_CSCOMPLETEDcs-CZ
0000014E####
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesdelete.GIF
act_DELETE.GIFact_DELETEcs-CZ
00000152####################
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesdelivery options.GIF
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONScs-CZ
00000156########################################################
    34Ci
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesedit.GIF1
act_EDIT.GIFact_EDITcs-CZ
0000015A##########################################################
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesfolder.GIF
act_FOLDER.GIFact_FOLDERcs-CZ
0000015E####################
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesforward.GIF
act_FORWARD.GIFact_FORWARDcs-CZ
00000162#################
    34Ci
insert signature.GIF
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_INSERTSIG.GIFact_INSERTSIGcs-CZ
00000166####
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesnew mail.GIF
act_NEWMEMO.GIFact_NEWMEMOcs-CZ
0000016A################
    34Ci
ok.GIF
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes1
act_ok.GIFact_CSOKcs-CZ
0000016E#########################
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesreply.GIF
act_REPLY.GIFact_REPLYcs-CZ
00000172#######################
    34Ci
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notessave as draft.GIF
act_SAVEASDRAFT.GIFact_SAVEASDRAFTcs-CZ
00000176###
0mZhQ
    34Ci
save.GIF
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes1
act_save.GIFact_CSSAVEcs-CZ
0000017A###################
##########################################################
##########################################################
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ACLDigest
$ViewX
TemplateName|TemplateNameX
NotesNavigatorNotesViewX
OutlineDisplay
Switcher
dspDbTitle|dspDbTitleX
NotesViewNotesPreviewX
InboxX
NotesPreview
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$TITLE
$FrameSet
$Language
$LastBuildTime
$BabelInfo
ImapOutline.gif|ImapOutline.gif
Mail Picker
MailOutline
MailOutline
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$BackgroundR5
$Info
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
Mail Title
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$$Script_O
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
Untitled
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
dMA%c
$Info
$WebFlags
$$ScriptName
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
OBJECT
Lotus ProductQ
V0.0L
J,|}8r
J,|}8r
^,|J,|
JT~KD~-
JT~KD~-
KD~-<
~}8rKD~-`
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product
OBJECT
Lotus Product1
KV0.0}
Kl*,|$}0
Kl*U|*
Kl*,|$}`
Kl*,|$}
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,
 -$&#,|$}p
 -$&#,
 -$&#,|$}
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postrecalc From Source Call Postrecalc
    On Event Queryopen From Source Call Queryopen
    On Event Postsave From Source Call Postsave
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If Not Isempty(Source.ParentViewName)  Then
        glbCurrentFolderName = Source.ParentViewName
    Else
        glbCurrentFolderName = "Inbox"
    End If
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Dim Note As NotesDocument
    Dim TargetFolderName As String
    Set Note = Source.Document
    'Put the document in the current folder
    Call Note.PutInFolder(glbCurrentFolderName)
    'Determine target folder
    TargetFolderName = Note.TmpFolder(0)
    'Move the document to the target folder
    If ( TargetFolderName <> ""  And  TargetFolderName <> glbCurrentFolderName ) Then
        'Move it
        Call Note.PutInFolder(TargetFolderName)
        Call Note.RemoveFromFolder(glbCurrentFolderName)
        'The following was an attempt to update the current folder.  Doesn't work in IMAP on-line
        'mode because the collection behind the folder is not the right collection
        'glbCurrentFolder.Refresh
    End If
End Sub
memoBG.gif|memoBG.gif
HeaderRegion
BodyRegion
Subject
Subject
Subject
    4S6S12S13S14S15S17S21S23S25S26S28S
&Arial
Times New Roman
FComic Sans MS
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim glbDraftsFolderName As String
Dim glbSentFolderName As String
Dim glbCurrentFolderName As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim Sess As NotesSession
    Dim Value As String
    'Set Defaults for Drafts and Sent folders
    glbDraftsFolderName = "Drafts"
    glbSentFolderName = "Sent"
    'Get overrides from NOTES.INI
    Set Sess = New NotesSession
    Value = Sess.GetEnvironmentString("IMAPDrafts")
    If ( Value <> "" ) Then
        glbDraftsFolderName = Value
    End If
    Value = Sess.GetEnvironmentString("IMAPSent")
    If ( Value <> "" ) Then
        glbSentFolderName = Value
    End If
End Sub
Lotus Product
 Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postrecalc(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postrecalc From Source Call Postrecalc
    On Event Queryopen From Source Call Queryopen
    On Event Postsave From Source Call Postsave
End Sub
'++LotusScript Development Environment:2:2:Postrecalc:1:12
Sub Postrecalc(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If Not Isempty(Source.ParentViewName)  Then
        glbCurrentFolderName = Source.ParentViewName
    Else
        glbCurrentFolderName = "Inbox"
    End If
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Dim Note As NotesDocument
    Dim TargetFolderName As String
    Set Note = Source.Document
    'Put the document in the current folder
    Call Note.PutInFolder(glbCurrentFolderName)
    'Determine target folder
    TargetFolderName = Note.TmpFolder(0)
    'Move the document to the target folder
    If ( TargetFolderName <> ""  And  TargetFolderName <> glbCurrentFolderName ) Then
        'Move it
        Call Note.PutInFolder(TargetFolderName)
        Call Note.RemoveFromFolder(glbCurrentFolderName)
        'The following was an attempt to update the current folder.  Doesn't work in IMAP on-line
        'mode because the collection behind the folder is not the right collection
        'glbCurrentFolder.Refresh
    End If
End Sub
Lotus Product
Hidden:
Principal
Principal
Principal
Fromh
    1S2S8S9S10S11S13S15S20S22S
FromDomainh
FromDomain"
    0R7S8S9S10S11S13SInheritedFrom
InheritedFrom
Subject
InheritedSubject
getLoc
    1S2S
getLoc
getLoc
    0R3S4S6S8S2E
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
SendTo
CopyTo
InheritedSendTo
SendTo
CopyTo
    9S10S12S13S30S31S36S37S39S41SInheritedSendTo
InheritedSendTo
Notes
PostedDateh
ReplyTo
ReplyTo
    9S10S12S13SInheritedReplyToz
InheritedReplyTo
Notes
PostedDateh
FromDomain
InheritedFromDomain
FromDomain
    9S10S12S13SInheritedFromDomain
InheritedFromDomain
StdNotesLtr21
Logoz
Principal
Principal
Principal
    1S2S5S7S8S9S10S12RTTTT14RTTT15RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S8S9S14S16S20S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
    0S0E
Encrypt
Encrypt
$AutoSpell
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
SendTo
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
    Kopie:
CC_Content
CopyTo
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
tmpDisplayFrom_Preview
DisplayFrom_Pre
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentz
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreDatum a
as, kdy byla zpr
va vytvo
ena nebo odesl
tmpDisplayDate_Pre
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
zte pros
ReplyTo
ivateli
ReplyTo
ReplyDate
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReply
tmpDisplayReply
MemoGR.gif
$HideMailHeader
    0S0E

      Komu:
MailAddress
InheritedFrom
    1S2S
MailAddress
SendTo}
    0S0E
SendTo
               Kopie:
CopyTo
    0S0E
CopyTo}
    0S0E
CopyTo
               Kopie:
CC_Content
CopyTo
    0S0E
BCC_Content
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S8S9S10S14S16S17S19S
CC_Content
BCC_Content
    0R3S4S
tmpCopyTo
        Na v
:
BlindCopyTo
    0S0E
BlindCopyTo
    0S0E
BlindCopyTo
             P
t:
SIZE=50
Subject
Topic
Subject
    1S2S5S6S8S10S
Subj"
    0R10S12S16S17S19S21S22S23S
Subject
             P
t:
Subject
tmpDisplaySubject
BodyText zpr
adit do kategorie
_Upravit dokument
Odeslat doku_ment
_Odebrat ze slo
Odeslat
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
act_SEND.GIF|act_SEND?
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Po_stoupit
act_FORWARD.GIF|act_FORWARD?
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
Odpov
t\Odpov
Reply
    4S6S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Odpov
emC'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim vOtherName As Variant
    Dim vInheritedSendTo As Variant
    Dim strOwnerDomain As Variant
    Dim strOwner As String
    Dim strSenderDomain As String
    Dim iSenderIndex As Integer
    Dim x As Integer
    Set uidoc = uiwork.currentdocument
    Set note = uidoc.document
    Dim strInheritedDomain As String
    strOwnerDomain = Evaluate(|@Domain|)
    vInheritedSendTo = note.GetItemValue("InheritedSendTo")
    strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    vInheritedSendTo = NameCreateCopyList(session.EffectiveUserName,strOwnerDomain(0),strInheritedDomain,_
    vInheritedSendTo)
    If Isarray(vInheritedSendTo) = False Then Exit Sub
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
    vInheritedSendTo = Evaluate(|@OptimizeMailAddress(CopyTo)|,note)
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
End Sub
'++LotusScript Development Environment:2:1:NameCreateCopyList:1:8
Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
    On Error Goto ReturnArrayError
    If Isempty(vList) Then
        Exit Function
    Else
        Dim NameTable As New NotesCSParticipantTable(16)
        Dim NameTableEntry As NotesCSParticipantInstance
        Dim session As New notessession
        Dim vUserIDs As Variant
        Dim vListOfNames As Variant
        Dim strRecipientDomain As String
        Dim  nOptimizeLocalDomain As Integer
        Dim nRecipients As Integer
        Dim nPos As Integer
        nOptimizeLocalDomain = 1 Xor Cint(session.GetEnvironmentValue("NoOptimizeLocalRouting",True))
        If Isarray(vList) Then
            vListOfNames = vList
        Else
            Redim vListOfNames(0) As String
            vListOfNames(0) = vList
        End If
        vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
        Forall vIDs In vUserIDs
            Call NameTable.AddInstance(vIDs,0,0)
        End Forall
        Forall vIDs In vListOfNames
            Call NameTable.AddInstance(vIDs,1,0)
        End Forall
        Redim vListOfNames(0)
        Set NameTableEntry = NameTable.GetFirstInstance()
        While Not (NameTableEntry Is Nothing)
            If NameTableEntry.Role > 0 Then 'name is not user
                Redim Preserve vListOfNames(nRecipients)
                If Len(NameTableEntry.ReplyDomain) Then 'the address has an embedded domain
                    strRecipientDomain = NameTableEntry.ReplyDomain
                    nPos = Instr(strRecipientDomain,".") 'look for internet like addresses
                    If Instr(Min(nPos,1),strRecipientDomain,"@", 1) Then 'remove other routing info on these addresses
                        strRecipientDomain = Strleftback(strRecipientDomain,"@",1,1)
                        If nOptimizeLocalDomain Then
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo  & "@" & strRecipientDomain
                            Goto NextInstance
                        End If
                    End If
                    If Not (Strcompare(strOwnerDomain,strRecipientDomain,1) = 0) And nOptimizeLocalDomain Then
                        If Len(strFromDomain) Then 'if the router attached a path to return, attach it to the address
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain & "@" & strFromDomain
                        Else
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain
                        End If
                    Else
                        'this recipient is in our domain and we can skip other routing info
                        vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & strOwnerDomain
                    End If
                Else
                    vListOfNames(nRecipients) = NameTableEntry.ReplyTo
                End If
NextInstance:
                nRecipients = nRecipients + 1
            End If
            Set NameTableEntry = NameTable.GetNextInstance()
        Wend
    End If
ReturnArray:
    NameCreateCopyList = Fulltrim(vListOfNames)
    Exit Function
ReturnArrayError:
    NameCreateCopyList = vList
    Exit Function
End Function
'++LotusScript Development Environment:2:1:NameConstructIDList:1:8
Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
    Dim nUseOwnerDomain As Integer
    Dim vtmpCompute As Variant
    Dim strPrimaryName As String
    Dim strAltName As String
    Dim strInternetName As String
    Dim vAllVariations As Variant
    Redim vAllVariations(0)
    Dim nPos As Integer
    Dim vStrCompute As Variant
    Dim strRemaining As Variant
    Dim totLen As Variant
    'setup the names list
    strPrimaryName = strName
    vtmpCompute = Evaluate(|@UserName(1)|)
    strAltName = vtmpCompute(0)
    vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
    Dim dName As New notesname(strPrimaryName)
    npos = Instr(strPrimaryName, " ")
    totLen = Len(strPrimaryName)
    vStrCompute = strPrimaryName
    Do While nPos <> 0
        vStrCompute = Left(vStrCompute, nPos-1) + "_"
        strRemaining = Right(strPrimaryName, (totLen-nPos))
        vStrCompute = vStrCompute + strRemaining
        nPos = Instr(vStrCompute, " ")
    Loop
    strInternetName = vtmpCompute(0)
    If Len(strOwnerDomain) Then
        nUseOwnerDomain = True
    End If
    If nUseOwnerDomain Then
        vAllVariations(0) = strPrimaryName & "@" & strOwnerDomain
    Else
        vAllVariations(0) = strPrimaryName
    End If
    If Strcompare(strPrimaryName,strAltName) Then
        If nUseOwnerDomain Then
            vAllVariations = Arrayappend(vAllVariations,strAltName & "@" & strOwnerDomain)
        Else
            vAllVariations = Arrayappend(vAllVariations,strAltName)
        End If
    End If
    If Len(strInternetName) Then
        If Strcompare(strPrimaryName,strInternetName) Then
            vAllVariations = Arrayappend(vAllVariations,strInternetName)
        End If
    End If
    vAllVariations = Arrayappend(vAllVariations,vStrCompute)
    NameConstructIDList = vAllVariations
End Function
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
    If nInt1 < nInt2 Then
        Min = nInt2
    Else
        Min = nInt1
    End If
End Function
act_REPLY.GIF|act_REPLY?
Adresa...m
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
esunout do slo
act_FOLDER
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
adit do kategorie
_Upravit dokument
Odeslat doku_ment`
_Odebrat ze slo
Odeslat
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
Po_stoupit
Odstranit3
    0S0E
Odpov
t\Odpov
Reply
    4S6S
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
Odpov
emo'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim vOtherName As Variant
    Dim vInheritedSendTo As Variant
    Dim strOwnerDomain As Variant
    Dim strOwner As String
    Dim strSenderDomain As String
    Dim iSenderIndex As Integer
    Dim x As Integer
    Set uidoc = uiwork.currentdocument
    Set note = uidoc.document
    Dim strInheritedDomain As String
    strOwnerDomain = Evaluate(|@Domain|)
    vInheritedSendTo = note.GetItemValue("InheritedSendTo")
    strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    vInheritedSendTo = NameCreateCopyList(session.EffectiveUserName,strOwnerDomain(0),strInheritedDomain,_
    vInheritedSendTo)
    If Isarray(vInheritedSendTo) = False Then Exit Sub
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
    vInheritedSendTo = Evaluate(|@OptimizeMailAddress(CopyTo)|,note)
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
End Sub
'++LotusScript Development Environment:2:1:NameCreateCopyList:1:8
Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
    On Error Goto ReturnArrayError
    If Isempty(vList) Then
        Exit Function
    Else
        Dim NameTable As New NotesCSParticipantTable(16)
        Dim NameTableEntry As NotesCSParticipantInstance
        Dim session As New notessession
        Dim vUserIDs As Variant
        Dim vListOfNames As Variant
        Dim strRecipientDomain As String
        Dim  nOptimizeLocalDomain As Integer
        Dim nRecipients As Integer
        Dim nPos As Integer
        nOptimizeLocalDomain = 1 Xor Cint(session.GetEnvironmentValue("NoOptimizeLocalRouting",True))
        If Isarray(vList) Then
            vListOfNames = vList
        Else
            Redim vListOfNames(0) As String
            vListOfNames(0) = vList
        End If
        vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
        Forall vIDs In vUserIDs
            Call NameTable.AddInstance(vIDs,0,0)
        End Forall
        Forall vIDs In vListOfNames
            Call NameTable.AddInstance(vIDs,1,0)
        End Forall
        Redim vListOfNames(0)
        Set NameTableEntry = NameTable.GetFirstInstance()
        While Not (NameTableEntry Is Nothing)
            If NameTableEntry.Role > 0 Then 'name is not user
                Redim Preserve vListOfNames(nRecipients)
                If Len(NameTableEntry.ReplyDomain) Then 'the address has an embedded domain
                    strRecipientDomain = NameTableEntry.ReplyDomain
                    nPos = Instr(strRecipientDomain,".") 'look for internet like addresses
                    If Instr(Min(nPos,1),strRecipientDomain,"@", 1) Then 'remove other routing info on these addresses
                        strRecipientDomain = Strleftback(strRecipientDomain,"@",1,1)
                        If nOptimizeLocalDomain Then
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo  & "@" & strRecipientDomain
                            Goto NextInstance
                        End If
                    End If
                    If Not (Strcompare(strOwnerDomain,strRecipientDomain,1) = 0) And nOptimizeLocalDomain Then
                        If Len(strFromDomain) Then 'if the router attached a path to return, attach it to the address
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain & "@" & strFromDomain
                        Else
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain
                        End If
                    Else
                        'this recipient is in our domain and we can skip other routing info
                        vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & strOwnerDomain
                    End If
                Else
                    vListOfNames(nRecipients) = NameTableEntry.ReplyTo
                End If
NextInstance:
                nRecipients = nRecipients + 1
            End If
            Set NameTableEntry = NameTable.GetNextInstance()
        Wend
    End If
ReturnArray:
    NameCreateCopyList = Fulltrim(vListOfNames)
    Exit Function
ReturnArrayError:
    NameCreateCopyList = vList
    Exit Function
End Function
'++LotusScript Development Environment:2:1:NameConstructIDList:1:8
Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
    Dim nUseOwnerDomain As Integer
    Dim vtmpCompute As Variant
    Dim strPrimaryName As String
    Dim strAltName As String
    Dim strInternetName As String
    Dim vAllVariations As Variant
    Redim vAllVariations(0)
    Dim nPos As Integer
    Dim vStrCompute As Variant
    Dim strRemaining As Variant
    Dim totLen As Variant
    'setup the names list
    strPrimaryName = strName
    vtmpCompute = Evaluate(|@UserName(1)|)
    strAltName = vtmpCompute(0)
    vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
    Dim dName As New notesname(strPrimaryName)
    npos = Instr(strPrimaryName, " ")
    totLen = Len(strPrimaryName)
    vStrCompute = strPrimaryName
    Do While nPos <> 0
        vStrCompute = Left(vStrCompute, nPos-1) + "_"
        strRemaining = Right(strPrimaryName, (totLen-nPos))
        vStrCompute = vStrCompute + strRemaining
        nPos = Instr(vStrCompute, " ")
    Loop
    strInternetName = vtmpCompute(0)
    If Len(strOwnerDomain) Then
        nUseOwnerDomain = True
    End If
    If nUseOwnerDomain Then
        vAllVariations(0) = strPrimaryName & "@" & strOwnerDomain
    Else
        vAllVariations(0) = strPrimaryName
    End If
    If Strcompare(strPrimaryName,strAltName) Then
        If nUseOwnerDomain Then
            vAllVariations = Arrayappend(vAllVariations,strAltName & "@" & strOwnerDomain)
        Else
            vAllVariations = Arrayappend(vAllVariations,strAltName)
        End If
    End If
    If Len(strInternetName) Then
        If Strcompare(strPrimaryName,strInternetName) Then
            vAllVariations = Arrayappend(vAllVariations,strInternetName)
        End If
    End If
    vAllVariations = Arrayappend(vAllVariations,vStrCompute)
    NameConstructIDList = vAllVariations
End Function
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
    If nInt1 < nInt2 Then
        Min = nInt2
    Else
        Min = nInt1
    End If
End Function
Adresa...
    0S0E
esunout do slo
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
Lotus Product
CopyTo}
    0S0E
    0S0E
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SubForms
$SCRIPTOBJ_21
$SCRIPTOBJ_25
$SCRIPTOBJ_29
$SCRIPTOBJ_30
$SCRIPTOBJ_31
$SCRIPTOBJ_36
$SCRIPTOBJ_37
$$FormScript_src
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_10
TOBJ_31
$SCRIPTOBJ_36
$ACLDigest$UpdatedBy$Signature$Name$TITLE$Flags$FrameSet$Language$LastBuildTime$BabelInfo$BackgroundR5$Info$$ScriptName$Body$$Script_O$WebFlagsComposedDatePostedDateDate$$FormScript_src$HeaderArea$RegionFrameset$WindowTitle$Fonts$Script$$FormScript$$$FormScript_OFromLogo$AutoSpellSignEncryptSendToCopyToBlindCopyToSubjectBody$Fields$V5ACTIONS$ACTIONSInheritedFromInheritedSubjectInheritedSendToInheritedReplyToInheritedFromDomain$SCRIPTOBJ_10$SubForms$SCRIPTOBJ_21$SCRIPTOBJ_25$SCRIPTOBJ_29$SCRIPTOBJ_30$SCRIPTOBJ_31$SCRIPTOBJ_36$SCRIPTOBJ_37DueDateTimeReplyDateExpireDate$PublicAccess$Index$Formula$FormulaClass$Collation$Collation1$Collation2$ViewFormat$Comment$ViewGlobalScript_O$SCRIPTOBJ_12$Collation3$Collation4$Collation5$ViewGlobalScript$ViewScript$ViewScript_O$FolderObject$FolderIDTable$ImagesWide$ImagesHigh$ImagesColorize$ImageNames$ImageData$SiteMapList$DefaultFrameset$FlagsNoRefreshIconBitmap$SCRIPTOBJ_8$SCRIPTOBJ_5$DesignVersion$Version$NoPurgeIMailProxyType$Revisions$Collection$ViewContainer
FComic Sans MS
 DeliveryOptions
'++LotusScript Development Environment:2:5:(Options):0:66
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Class INIPreference
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim SecurityPreferences As INIPreference
Class INIPreference
    Private session As notessession
    Private note As notesdocument
    Private lngCurrentINISettings As Long
    Private nINISignSentMail As Integer
    Private nINIEncryptSentMail As Integer
    Private nINIEncryptSavedMail As Integer
    Private nUpdateINI As Integer
    Private SIGN_SENT_MAIL As Long
    Private ENCRYPT_SENT_MAIL As Long
    Private ENCRYPT_SAVED_MAIL As Long
Declare Public Function Close()
    Sub New(hNote As notesdocument)
        Set Me.session = New notessession
        Set Me.note = hNote
        Me.SIGN_SENT_MAIL             = &h1000&        ' 4096
        Me.ENCRYPT_SENT_MAIL     = &h2000&        '  8192
        Me.ENCRYPT_SAVED_MAIL     = &h100000&    ' 1048576
        Me.lngCurrentINISettings = Me.session.Getenvironmentvalue("Preferences", True)
        If Me.lngCurrentINISettings And Me.SIGN_SENT_MAIL Then
            Me.nINISignSentMail = 1
        Else
            Me.nINISignSentMail = 0
        End If
        If Me.lngCurrentINISettings And Me.ENCRYPT_SENT_MAIL Then
            Me.nINIEncryptSentMail = 1
        Else
            Me.nINIEncryptSentMail = 0
        End If
        If Me.lngCurrentINISettings And Me.ENCRYPT_SAVED_MAIL Then
            Me.nINIEncryptSavedMail = 1
        Else
            Me.nINIEncryptSavedMail = 0
        End If
    End Sub
    Public Function Close()
        If Val(Me.note.getitemvalue("Sign")(0)) <> Me.nINISignSentMail Then
            Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.SIGN_SENT_MAIL
            Me.nUpdateINI = True
        End If
        If Val(Me.note.getitemvalue("Encrypt")(0)) <> Me.nINIEncryptSentMail Then
            Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SENT_MAIL
            Me.lngCurrentINISettings = Me.lngCurrentINISettings Xor Me.ENCRYPT_SAVED_MAIL
            Me.nUpdateINI = True
        End If
        If Me.nUpdateINI Then
            Call Me.session.setenvironmentvar("Preferences", Cstr(Me.lngCurrentINISettings),True)
        End If
    End Function
End Class
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryclose From Source Call Queryclose
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If Not Source.DialogBoxCanceled Then
        If Source.Document.UpdateProfileNote(0) = "1"  Then
            Call SecurityPreferences.Close()
        End If
        With Source.Document
            Select Case .SenderTag(0)
            Case "P"
                Call .ReplaceItemValue("_ViewIcon",    170)
            Case "C"
                Call .ReplaceItemValue("_ViewIcon",    169)
            Case "R"
                Call .ReplaceItemValue("_ViewIcon",    163)
            Case "T"
                Call .ReplaceItemValue("_ViewIcon",    85)
            Case "F"
                Call .ReplaceItemValue("_ViewIcon",    74)
            Case"G"
                Call .ReplaceItemValue("_ViewIcon",    159)
            Case "J"
                Call .ReplaceItemValue("_ViewIcon",    166)
            Case "Y"
                Call .ReplaceItemValue("_ViewIcon",    23)
            Case "Q"
                Call .ReplaceItemValue("_ViewIcon",    162)
            Case "M"
                Call .ReplaceItemValue("_ViewIcon",    10)
            Case "N"
                Call .RemoveItem("_ViewIcon")
            Case Else
                Call .RemoveItem("_ViewIcon")
                Call .RemoveItem("SenderTag")
            End Select
        End With
    End If
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Set SecurityPreferences = New INIPreference(Source.document)
End Sub
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
Declare Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Declare Sub Postopen(Source As Notesuidocument)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Queryclose From Source Call Queryclose
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Queryclose:1:12
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
    If Not Source.DialogBoxCanceled Then
        If Source.Document.UpdateProfileNote(0) = "1"  Then
            Call SecurityPreferences.Close()
        End If
        With Source.Document
            Select Case .SenderTag(0)
            Case "P"
                Call .ReplaceItemValue("_ViewIcon",    170)
            Case "C"
                Call .ReplaceItemValue("_ViewIcon",    169)
            Case "R"
                Call .ReplaceItemValue("_ViewIcon",    163)
            Case "T"
                Call .ReplaceItemValue("_ViewIcon",    85)
            Case "F"
                Call .ReplaceItemValue("_ViewIcon",    74)
            Case"G"
                Call .ReplaceItemValue("_ViewIcon",    159)
            Case "J"
                Call .ReplaceItemValue("_ViewIcon",    166)
            Case "Y"
                Call .ReplaceItemValue("_ViewIcon",    23)
            Case "Q"
                Call .ReplaceItemValue("_ViewIcon",    162)
            Case "M"
                Call .ReplaceItemValue("_ViewIcon",    10)
            Case "N"
                Call .RemoveItem("_ViewIcon")
            Case Else
                Call .RemoveItem("_ViewIcon")
                Call .RemoveItem("SenderTag")
            End Select
        End With
    End If
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
    Set SecurityPreferences = New INIPreference(Source.document)
End Sub
    3S4S6S8S
Podepsat | 1
Encrypt
Encrypt
Encrypt
ifrovat|1z
Encrypt
Lotus Product
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
UJw:R
u1*"X
DueDateTime
ReplyDate
ExpireDate
$Info
$$ScriptName
$PublicAccess
$Script
$$FormScript
$$FormScript_src
$Body
$$Script_O
$$$FormScript_O
$Language
$LastBuildTime
$BabelInfo
Strip alternatives, enclosing matched parentheses, and a leading dollar sign from the $Title item
FolderName1
$Title
    0R1S2S5S6S8S
FolderName2
FolderName1
FolderName1
FolderName1
FolderName1
    0R1S2S9S11S12S14S15S20S22S23S26S32S35S38S
FolderName3
FolderName2
$Title
FolderName2
FolderName2
FolderName2
    0R1S2S6S7S9S10S15S17S18S21S25S28S
FolderName3
    0S0E
Set the folder flags in addition to those that are stored
FolderFlags1
$FolderFlagsh
$FolderFlags
    0R1S2S9S11S
Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
    0R1S
FolderFlags1
$Name
$Name
    0R1S2S8S10S11S13S19S21S22S24S26S29S
$106$103$107$Conflict
Select all folders, except shared-on-first-use folders
$Flags
$Flags
    0RL1S5S7S8S13S
$106N
zev slo
Strip alternatives, enclosing matched parentheses, and a leading dollar sign from the $Title item
FolderName1
$Title
    0R1S2S5S6S8S
FolderName2
FolderName1
FolderName1
FolderName1
FolderName1
    0R1S2S9S11S12S14S15S20S22S23S26S32S35S38S
FolderName3
FolderName2
$Title
FolderName2
FolderName2
FolderName2
    0R1S2S6S7S9S10S15S17S18S21S25S28S
FolderName3
$103UNID slo
    0S0E
$107P
znaky slo
Set the folder flags in addition to those that are stored
FolderFlags1
$FolderFlagsh
$FolderFlags
    0R1S2S9S11S
Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags
    0R1S
FolderFlags1
$Name
$Name
    0R1S2S8S10S11S13S19S21S22S24S26S29S&
    0S0E
Odstranit
    0S0E
esunout do slo
ky...
    0S0E
Po_stoupit
Reply
Reply
    0S0E
Odpov
 historie
Odpov
 historie
    0S0E
adit do kategorie
_Upravit dokumenti
Send
Znovu odeslat
NonDelivery Report
Nejedn
 se o zpr
vu o nedoru
itelnosti
Odesl
vy lze opakovat pouze v p
e se jedn
 o zpr
vu o nedoru
itelnosti.
    6S12S17S23S
st na
ConvertToTask
esunout do slo
ky...
_Odebrat ze slo
ky...
    0S0E
Odstranit
    0S0E
esunout do slo
ky...
    0S0E
Po_stoupit
Replyl4
Reply
    0S0E
Odpov
 historie
Odpov
 historie
    0S0E
adit do kategorie
_Upravit dokumento
Send
Znovu odeslat
NonDelivery Report
Nejedn
 se o zpr
vu o nedoru
itelnosti
Odesl
vy lze opakovat pouze v p
e se jedn
 o zpr
vu o nedoru
itelnosti.
    6S12S17S23S
st na
ConvertToTask
esunout do slo
ky...e
_Odebrat ze slo
ky...
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
zN*Zm0
$Name
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$V5ACTIONS
$ACTIONS
$1ID z
znamu
IMAPUIDID u
ivatele IMAPR
IMAPUID
$IMAPUIDh
$IMAPUID
    7S9S
IMAPLastFolderUNIDUNID posledn
IMAPLastFolderUNID
$IMAPLastFolderUNID
$IMAPLastFolderUNID
    7S12SIMAPSeqNo
slo sekvence IMAPX
IMAPSeqNo
$IMAPSeqNoh
$IMAPSeqNo
    7S9S
IMAPFlagsP
znaky zpr
IMAPFlags
$IMAPFlagsh
$IMAPFlags
    7S9S
IMAPDiscFlagsP
znaky odpojen
IMAPDiscFlags
$IMAPDiscFlagsh
$IMAPDiscFlags
    7S9S
IMAPMsgIDID zpr
 InternetT
IMAPMsgIDn
$IMAPMsgIDh
$IMAPMsgIDV
    7S12S&
Lotus Product
V0.0N
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$ViewGlobalScript_O
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Index
$FormulaClass
$Formula
$ViewFormat
$Language
$LastBuildTime
$BabelInfo
Group Calendars|(GroupCalendarF
Lotus Product
adit do kategorie
_Upravit dokument
O_deslat dokument
esunout do slo
ky...
_Odebrat ze slo
    0S0E
act_NEWMEMO.GIF|act_NEWMEMO?
Odpov
t\Odpov
Reply
    4S6S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Po_stoupit
act_FORWARD.GIF|act_FORWARD?
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
Obnovit\Slo
    0S0E
act_completed.GIF|act_CSCOMPLETED?
Obnovit\Souhrnn
 informace
    0S0E
act_completed.GIF|act_CSCOMPLETED?
adit do kategorie
_Upravit dokument
O_deslat dokument
esunout do slo
ky...g
_Odebrat ze slo
    0S0E
Odpov
t\Odpov
Reply
    4S6S
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
Po_stoupit
Odstranit
    0S0E
Obnovit\Slo
    0S0E
Obnovit\Souhrnn
 informace
    0S0E
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
'++LotusScript Development Environment:2:5:(Declarations):0:2
Lotus Product
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuiview)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIVIEW
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuiview)
End Sub
Lotus Product
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
&}<Gx=
$SCRIPTOBJ_12
$Language
$LastBuildTime
$BabelInfo
$TITLE
$Name
$Index
$Formula
$FormulaClass
$ViewFormat
$Comment
$V5ACTIONS
$ACTIONS
$ViewGlobalScript
$ViewGlobalScript_O
$ViewScript
$ViewScript_O
Inbox
GIF89a
U/c:<`#V(
Oa)n3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
.!f&a
 JCv2.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
Drqw.
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
h^/&W@
!#ap=Y"%l`jyj
.g$:')
oP{3$<{
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
$profile_013imail profile_
CN=Lotus Notes Template Development/O=Lotus Notes
GIF89a
c\")%
)>@8$]! rZd
!=IK~$Qu6
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
`7kB!h=?2R\!rYZ
 /)s69
eV{=JLgOu5
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
S!t"W
='h1!K
t#8BD=Gvj_
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
9^cE9!f
e^#:DF.XJCt36
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
'X5}~
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
pE9p]j
aQQ@C
8DFHJl3
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
% ,k[
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
g;}QS pW/
O9GIfMst
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
t-@3"
'     C%
I1`G    q\=
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
___OOO
A*;8$
\vDe    ]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
52J'^
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89a
@B$`)
eM! c:<~(&
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
    34Ci
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notessend.GIF1
act_SEND.GIFact_SENDcs-CZ
0000017E##########################################################
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes34Cimailoutline.gif
ImapOutline.gifImapOutline.gifcs-CZ
00000182#########
    34Ci
glacier.gif
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
memoBG.gifmemoBG.gifcs-CZ)
00000186##################################################
    34CiQ
bouncyearth3.GIF
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoGR.gifMemoGR.gifcs-CZ2
0000018A############################################
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesm34MailOutlinecs-CZ9
0000018E#######
MailFSPo
ta (IMAP)
#1StdR50IMailcs-CZ@
00000192FRt
CN=Angela Moohan/OU=DUB/O=Lotus
wwwwww
wwwwwwp
oooooooool
oooooolooooooo
oooooolooooooo
cs-CZh
00000196R
CN=Petr Chaloupka/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes######################################################
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notescs-CZ
0000019A#############
    Cy34Q
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes$ACTIONScs-CZ
0000019E################################
cs-CZ(
00000126
MemoMemoD
BodySubjectBlindCopyToCopyToSendToEncryptSign$AutoSpellLogoFrom
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
##########################################################
$profile_013imail profile_
CN=Angela Moohan/OU=DUB/O=Lotus
##########################################################
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE
$Flags
    0SL1S4S5S3724
$TITLE
CN=Petr Chaloupka/O=Mtranslations
####################################
cs-CZ
0000012A
Odpov
tReplyD
BodySubjectBlindCopyToCopyToSendTo$AutoSpellEncryptSignLogoInheritedFromDomainInheritedReplyToInheritedSendToFromInheritedSubjectInheritedFrom
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes##################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
##########################################################
GIF89a
___OOO
m[QNK
\#& 3
 QFv4#
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$PublicAccess
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
h!2H`
e(A1j
PwYRH:
t+Fu(@
{C<Y~r
e]z_@3
H9..:Vfw8mi
s1&td
gvCfr
~_g}]Ud
k>Xg>x
tWtk?f^
$>HWu
WzD7V
px(QL'~
r0I}.
f~?fq5
}!(Sg
h|A    X
S%W|pI
ih^|'
.{)+wl5
AYJ3H
i*GwZ'x
BdlV|
b>k<=v
TqlEr
Acm1x
WIW1C
R;#e$O!
&Z"+1
D`<cQ
#orb<P
IFu2hy
z=\de*z
LLe,)
q}G:*m
r?:Rh2w
i!xJ!5
()-hF
't12
9AtgW
)#Y.X
Zv(    ,i
g|Y    X
-Hi^{
n*:q:
0W+=j
F8L6<
yMp+nx
zEQO#
#l*veX
$T@Ya
rs:3\
4`=[@]GKJ
lIe"3
Q    ' M
NS)=W%
$wq.^
14K|l
#K9".
Li)gJh
LrUjD^9
Cd%oD
#x\aU
Sq7]W
/ui\N
o~f\r
 ?JdO
VZTk&
'hggwZ&K
6?@AG^5
#~Djb
TazSCR]
8}Zet
rW>!D
GeG$X
4-?EB
2z ),
    i#"Yb
"4(Zy
NwJ5J"~
~B"-j%
d* 3p
"0C6;
tUg ,
,2$@3t"S
QyG(r4    *R
vPq3R
~)d_UQ
r^uQne>yz_
lOSyH
XgVQIx'
zY8Jk
X;&<w
8l/O2
FukBSd&H
MNosU
On2n_B
d,8GP|
EM\>=
xlNw9
4S}]!
Mk=-h
8RsjB
5a~E&VSgC
ba"0e
R"m7P
"R vO
2jk8t
vb)ac_5
8wZX=
yP.9-t
Y[g.r7C
R/iDB?
V]E6/,
fO5=K
f3KYS
@c.2E"
+w{zx
KG-3YN
6HKn\H
)WTB\mCk
hf"_0M
/MM8+
U"*;}
F*y.>
*I=B:
7hOL+-12
{BJ-a/c
GLXvh
Q~nd#
e+AXH]
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
(GIF89a
o*P!/14/5
>h:Mj
TxOWl
#8b[b+
|.Wf?
H,<7
\&{9*J1N,
zbA(\
}1 jo
    ij*G
m6UQn
"~(+ru
%IH<]
E7eN$
H"k!O
0`.@R!
7.C96
     [\FOr
E}k&u
Vt\4Po
e'6$*g5x
wt:bo'#
UupXu
hy%UJI
henH)
wlqoST3
XrvX`n
xdH9X
nH7Q3gDP
/ed"HR
+"y8"
^*zbk
pZ!88g
?LoA=
$w    !:
CE}*Jd
z?A9PMT
WM)(5
-y{0N
0(Aj64
,:/-\
    U<ZV
JH$Od
,QO}Y
!'"w)
dLH$\
{\pi8
B?$0A
LK:Z
e)]W7
DR$';m(
rK#    T
kG4FO
@)TWm
cWHI>
*O" {
;1!@d
4Cb1"
f*B$XWY<
1i:ap12b
SaZ]S%J{
+a*~]
US:%<=
$)n]_I
^d\[sh5
QRHe^
PIurs
MT!`B
]l:Xl.
R8L=    &
);^;:y
M0'@6"
oF@8S
I`c+R
;E>A"a
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
GIF89aZ
TUwX\kIT
aNlhI
HO_BGp%
7tXa@
+P\>|
Lx.6o
RL#]X
0I$r0qD
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ViS1Z
$ImagesWide
$ImagesHigh
$ImagesColorize
$ImageNames
$ImageData
$Language
$LastBuildTime
$BabelInfo
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SiteMapList
$Language
$LastBuildTime
$BabelInfo
Times New Roman CE
Times New Roman
    0S0E
t okno
 datab
ze Po
ta (IMAP)
Dokumenty
 Internet
 Internet je dokument um
 v osobn
m seznamu adres, kter
 popisuje slu
 Internet. V dokumentu
tu IMAP je nap
klad uveden n
zev serveru IMAP a jm
ivatele a heslo umo
stup k tomuto serveru. Datab
zi Po
ta (IMAP) nelze pou
vat, dokud nevytvo
te dokument
 Internet. Po ulo
 tohoto dokumentu bude datab
ze Po
ta (IMAP) automaticky vytvo
ena. P
i prvn
m spu
 programu Notes m
ete zvolit, zda chcete automaticky vytvo
it dokumenty
 Internet.
Vytvo
tu IMAP s
 Internet:
ete sv
j osobn
 seznam adres.
V nab
dce Pohled p
te na p
kaz Up
esnit a klepn
te na p
Na pruhu akc
 klepn
te na tla
tko P
idat
te pole N
tu. M
ete pou
t libovoln
zev, kter
ak mus
t ve va
em osobn
m seznamu adres jedine
. Obvykle je vhodn
 zvolit n
zev podle serveru, ke kter
mu chcete z
skat p
stup. Pokud p
et serveru imap.mujisp.cz, m
ete pou
t nap
klad n
zev IMAP ISPmoje.
Do pole N
zev serveru
tu zadejte
plnou adresu serveru, ke kter
mu chcete z
skat p
stup, v s
ti Internet. V p
ho po
ho serveru IMAP byste nap
klad zadali imap.mujisp.cz.
Pokud server, ke kter
mu chcete z
skat p
stup, vy
aduje ov
, zadejte sv
no pro p
 a heslo. Servery IMAP vy
 ve v
ech p
padech.
V poli Protokol vyberte jako typ slu
by IMAP online.
Jestli
e server s
 Internet vy
aduje zabezpe
ipojen
 protokolem SSL (Secure Sockets Layer), zm
te hodnotu v poli SSL na Zapnuto. Pokud v
ak aktivujete zabezpe
 SSL, m
li byste rovn
 zkontrolovat nastaven
 protokolu SSL na kart
esnit formul
et. Dal
 informace o protokolu SSL naleznete n
sti Dal
mata.
Jestli
e budete
et pou
vat pouze z ur
ch pracovi
te hodnotu v poli Pouze z pracovi
. Pokud je v
et IMAP nap
klad dostupn
 pouze z domova p
i telefonick
ipojen
ti poskytovatele slu
 Internet, m
ete vybrat pouze pracovi
 Doma.
 protokolu IMAP
ty IMAP v re
imu online slou
 datab
ze Po
ta (IMAP). A
koli jde o lok
 datab
zi, zpr
vy v n
eny nejsou. Nam
sto nich jsou zde ulo
eny ur
 prvky n
vrhu (nap
klad slo
ky a formul
e). Zpr
vy a souhrny zpr
v se do datab
ze na
 ze serveru IMAP.
ty IMAP:
te na pracovi
 Internet nebo na jin
 pracovi
, ve kter
m jste pro po
 Internet ru
 nastavili pou
 protokolu IMAP.
Klepn
te na nab
dku Soubor, p
kazy Datab
ze a Otev
t a vyberte datab
 Internet. Pokud jste
et IMAP vytvo
ili ru
 datab
zev <N
tu> (IMAP), kde <N
tu> je n
zev, kter
 jste dali vytvo
tu IMAP.
Pokud jste vybrali spr
vnou datab
zi, klepn
te na tla
tko Otev
t. Program Notes 5 se p
 k serveru IMAP a na
te ze slo
ky IMAP Do
ta souhrny zpr
Chcete-li zpr
st, vyberte ji a stiskn
te kl
vesu Enter.
imu IMAP online podporuje program Notes ve verzi 5 tak
im odpojen
 od serveru IMAP. Dal
 informace naleznete n
e pod heslem Vytvo
 repliky datab
ze IMAP v
sti Dal
mata.
Nastaven
 odes
ty do s
 Internet
i prvn
m spu
 programu Notes m
ete zvolit, zda chcete pro odchoz
tu automaticky vytvo
it dokumenty
 Internet.
Nastaven
 programu Notes k odes
ty do s
 Internet spo
 ve vytvo
 dokumentu
 Internet pro po
tu odes
lanou prost
ednictv
m protokolu SMTP. Dokument
tu SMTP s
 Internet vytvo
te podle pokyn
 uveden
sti Dokumenty
 Internet.  V poli Protokol je jako typ slu
by nutn
 vybrat SMTP.
Po vytvo
tu SMTP m
t rovn
 nutn
 vytvo
it nebo upravit dokument pracovi
. Protokol SMTP slou
 pouze k odes
ty z pracovi
, kter
 v dokumentu pracovi
 v poli Odeslat odchoz
tu uvedeno P
mo do s
 Internet.
ty do s
 Internet
Pokud pomoc
 protokolu IMAP p
te po
tu, budete ji odes
lat z otev
ky Do
ta, p
Klepn
te na tla
tko Nov
te pole Komu, P
t a Kopie.
Zadejte text zpr
Klepn
te na tla
tko Odeslat. Pokud je
et SMTP p
stupn
, ode
le program Notes po
tu okam
. V opa
 je po
ta ulo
ena do lok
 datab
ze odchoz
ty (SMTP.BOX). Chcete-li odeslat po
tu z t
to datab
ze, p
te na str
nku Replik
tor, za
te pol
ko u polo
ky replik
toru Odeslat odchoz
 Internet a klepn
te na tla
tko Spustit.
mata
Protokol SSL
Ve verzi 5 programu Notes je podporov
no zabezpe
 komunikace protokoly IMAP, POP3, LDAP a NNTP pomoc
 protokolu Secure Sockets Layer (SSL). Protokol SSL lze zapnout, pokud zn
te verzi protokolu SSL podporovanou serverem. V programu Notes je podporov
n protokol SSL verze 2.0 a 3.0. Pro ka
 server je tak
 vyjednat pou
 nejlep
 verze SSL.
Zapnut
 protokolu SSL u ur
ete sv
j osobn
 seznam adres.
Rozbalte troj
esnit.
Klepn
te na slo
ete p
et (nap
klad POP3).
Na kart
klady zm
te hodnotu v poli SSL na Zapnuto.
Na kart
esnit vyberte spr
vnou verzi protokolu SSL. Pokud vyberete jinou mo
nost ne
 Verze 2.0 pouze, postupujte podle pokyn
sleduj
sti, Z
ho certifik
 Internet.
Klepn
te na tla
tko Ulo
it a na tla
tko Zav
ho certifik
 Internet
enos protokoly IMAP, LDAP, NNTP a POP3 nelze zabezpe
it pomoc
 protokolu SSL verze 3.0 bez k
ho certifik
tu serveru. Z
te jej, budete-li postupovat podle n
sleduj
ch pokyn
Klepn
te na nab
dku Soubor, p
kazy N
stroje a P
idat k
 certifik
 Internet.
Zvolte protokol, pomoc
 kter
ho chcete z
skat k
 certifik
t. Server mus
mat na zadan
m portu. Jakmile k
 certifik
te, m
ete jej pou
t k zabezpe
 komunikace libovoln
m protokolem pomoc
 protokolu SSL.
Zadejte n
zev serveru.
Klepn
te na tla
tko K
 certifikace. Zobraz
 se dialogov
 okno, ve kter
ete zvolit certifik
t ke k
 certifikaci.
Upravte dokument pracovi
Klepn
te na kartu Z
klady.
Klepnut
m na tla
tko vedle pole Proxy server otev
ete dialogov
 okno Konfigurace proxy serveru.
Zkontrolujte, zda je nastaven
 proxy serveru spr
 (v z
vislosti na tom, zda pro p
stup k s
ti Internet pou
te proxy server).
te proveden
  Pokud se dialogov
 okno nezobraz
, nem
te k dispozici k
 certifik
t. Zkontrolujte, zda server p
 na zadan
m portu a zda za
krtnut
Proxy
odpov
 skute
nosti. Zvolte certifik
t serveru a klepn
te na tla
tko OK.
Vytvo
 repliky datab
ze IMAP
V datab
zi po
ta (IMAP) nejsou zpr
vy ulo
eny lok
. Podle pot
eby v
ete vytvo
it repliku t
to datab
ze, ve kter
 budou zpr
vy lok
eny. P
kladem je situace, kdy z d
vodu odjezdu na slu
 cestu nebudete m
t k dispozici p
ipojen
ti, ale nad
le budete pot
ebovat
st po
i vytvo
 repliky p
esunete zpr
vy ze v
ech slo
ek IMAP do samostatn
 datab
Vytvo
 repliky existuj
 datab
ze Po
ta (IMAP):
ete datab
zi Po
ta (IMAP).
Klepn
te na nab
dku Soubor, p
kazy Replikace a Nov
 replika.
zev souboru. Pokud m
 soubor datab
ze Po
ta (IMAP) n
zev IMAP.NSF, zm
te jej nap
klad na IMAPREP.NSF.
Klepn
te na tla
tko OK.
te na str
nku Replik
tor. Naleznete na n
 novou replika
 polo
ku datab
ze Po
ta (IMAP).
Klepnut
m na tla
tko Spustit zah
te replikaci.
Po dokon
 replikace poklepejte na ikonu polo
ky replikace datab
ze IMAP a otev
ete repliku. Nyn
 je mo
st a odes
lat po
tu. Jestli
e nem
ipojen
ti, ukl
 se odeslan
ta v datab
zi po
ty k odesl
 (SMTP.BOX). Po
ta bude odesl
na po op
ipojen
 a spu
 aplikace.
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
~8/|]
$Language
$LastBuildTime
$BabelInfo
$Info
$Body
Times New Roman
    0S0E
t okno
Popis datab
ze Po
ta (IMAP)
emu slou
 tato datab
ze? X
Datab
ze Po
ta (IMAP) je lok
 datab
ze umo
ci se serverem IMAP, tedy
 a pr
ci se zpr
vami v po
dce protokolu IMAP. M
ete tak
 pracovat bez p
ipojen
ti a pozd
ji zm
ny synchronizovat se serverem IMAP. X
Datab
zi Po
ta (IMAP) nelze pou
vat, dokud nevytvo
te dokument
 Internet. Po ulo
 tohoto dokumentu bude datab
ze Po
ta (IMAP) automaticky vytvo
ena. Popis dokumentu s
 Internet naleznete v dokumentu
to datab
Komu je tato datab
ze ur
ena? X
ivatel
m, kte
dku na serveru IMAP.
 funkce
ky se naz
dky a lze je vytv
et, p
ejmenovat, p
esouvat a odstra
ovat. Pokud uprav
te slo
ky, m
ete jejich nejnov
 seznam na
st ze serveru pomoc
kazu Obnovit slo
ky. X
vy lze vytv
et, odstra
ovat nebo p
esouvat a lze na n
 odpov
dat. X
im IMAP online:X
 Slou
 k interaktivn
ci se zpr
vami a slo
kami (po
dkami) na serveru IMAP. Zpr
vy a jejich souhrny jsou na
teny do datab
ze Po
ta (IMAP). Neukl
 se do lok
 datab
ze, ve kter
 jsou ulo
eny pouze prvky n
vrhu formul
 a slo
ek. X
im odpojen
 od serveru IMAP:
 Slou
 k na
v a slo
ek do lok
 repliky datab
ze Po
ta (IMAP). Se zpr
vami a slo
kami pak lze pracovat i bez p
ipojen
 k serveru IMAP a pozd
ji je se serverem synchronizovat.
Kde hledat dal
 informace? X
-  Podrobn
 informace naleznete v dokumentu X
    0S0E
to datab
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$Info
$Body
$Language
$LastBuildTime
$BabelInfo
Lotus Product
OdeslatXb
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
OdstranitX
    0S0E
Odpov
t\Odpov
Reply
    4S6S
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
Odpov
emX'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim vOtherName As Variant
    Dim vInheritedSendTo As Variant
    Dim strOwnerDomain As Variant
    Dim strOwner As String
    Dim strSenderDomain As String
    Dim iSenderIndex As Integer
    Dim x As Integer
    Set uidoc = uiwork.currentdocument
    Set note = uidoc.document
    Dim strInheritedDomain As String
    strOwnerDomain = Evaluate(|@Domain|)
    vInheritedSendTo = note.GetItemValue("InheritedSendTo")
    strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    vInheritedSendTo = NameCreateCopyList(session.EffectiveUserName,strOwnerDomain(0),strInheritedDomain,_
    vInheritedSendTo)
    If Isarray(vInheritedSendTo) = False Then Exit Sub
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
    vInheritedSendTo = Evaluate(|@OptimizeMailAddress(CopyTo)|,note)
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
End Sub
'++LotusScript Development Environment:2:1:NameCreateCopyList:1:8
Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
    On Error Goto ReturnArrayError
    If Isempty(vList) Then
        Exit Function
    Else
        Dim NameTable As New NotesCSParticipantTable(16)
        Dim NameTableEntry As NotesCSParticipantInstance
        Dim session As New notessession
        Dim vUserIDs As Variant
        Dim vListOfNames As Variant
        Dim strRecipientDomain As String
        Dim  nOptimizeLocalDomain As Integer
        Dim nRecipients As Integer
        Dim nPos As Integer
        nOptimizeLocalDomain = 1 Xor Cint(session.GetEnvironmentValue("NoOptimizeLocalRouting",True))
        If Isarray(vList) Then
            vListOfNames = vList
        Else
            Redim vListOfNames(0) As String
            vListOfNames(0) = vList
        End If
        vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
        Forall vIDs In vUserIDs
            Call NameTable.AddInstance(vIDs,0,0)
        End Forall
        Forall vIDs In vListOfNames
            Call NameTable.AddInstance(vIDs,1,0)
        End Forall
        Redim vListOfNames(0)
        Set NameTableEntry = NameTable.GetFirstInstance()
        While Not (NameTableEntry Is Nothing)
            If NameTableEntry.Role > 0 Then 'name is not user
                Redim Preserve vListOfNames(nRecipients)
                If Len(NameTableEntry.ReplyDomain) Then 'the address has an embedded domain
                    strRecipientDomain = NameTableEntry.ReplyDomain
                    nPos = Instr(strRecipientDomain,".") 'look for internet like addresses
                    If Instr(Min(nPos,1),strRecipientDomain,"@", 1) Then 'remove other routing info on these addresses
                        strRecipientDomain = Strleftback(strRecipientDomain,"@",1,1)
                        If nOptimizeLocalDomain Then
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo  & "@" & strRecipientDomain
                            Goto NextInstance
                        End If
                    End If
                    If Not (Strcompare(strOwnerDomain,strRecipientDomain,1) = 0) And nOptimizeLocalDomain Then
                        If Len(strFromDomain) Then 'if the router attached a path to return, attach it to the address
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain & "@" & strFromDomain
                        Else
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain
                        End If
                    Else
                        'this recipient is in our domain and we can skip other routing info
                        vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & strOwnerDomain
                    End If
                Else
                    vListOfNames(nRecipients) = NameTableEntry.ReplyTo
                End If
NextInstance:
                nRecipients = nRecipients + 1
            End If
            Set NameTableEntry = NameTable.GetNextInstance()
        Wend
    End If
ReturnArray:
    NameCreateCopyList = Fulltrim(vListOfNames)
    Exit Function
ReturnArrayError:
    NameCreateCopyList = vList
    Exit Function
End Function
'++LotusScript Development Environment:2:1:NameConstructIDList:1:8
Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
    Dim nUseOwnerDomain As Integer
    Dim vtmpCompute As Variant
    Dim strPrimaryName As String
    Dim strAltName As String
    Dim strInternetName As String
    Dim vAllVariations As Variant
    Redim vAllVariations(0)
    Dim nPos As Integer
    Dim vStrCompute As Variant
    Dim strRemaining As Variant
    Dim totLen As Variant
    'setup the names list
    strPrimaryName = strName
    vtmpCompute = Evaluate(|@UserName(1)|)
    strAltName = vtmpCompute(0)
    vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
    Dim dName As New notesname(strPrimaryName)
    npos = Instr(strPrimaryName, " ")
    totLen = Len(strPrimaryName)
    vStrCompute = strPrimaryName
    Do While nPos <> 0
        vStrCompute = Left(vStrCompute, nPos-1) + "_"
        strRemaining = Right(strPrimaryName, (totLen-nPos))
        vStrCompute = vStrCompute + strRemaining
        nPos = Instr(vStrCompute, " ")
    Loop
    strInternetName = vtmpCompute(0)
    If Len(strOwnerDomain) Then
        nUseOwnerDomain = True
    End If
    If nUseOwnerDomain Then
        vAllVariations(0) = strPrimaryName & "@" & strOwnerDomain
    Else
        vAllVariations(0) = strPrimaryName
    End If
    If Strcompare(strPrimaryName,strAltName) Then
        If nUseOwnerDomain Then
            vAllVariations = Arrayappend(vAllVariations,strAltName & "@" & strOwnerDomain)
        Else
            vAllVariations = Arrayappend(vAllVariations,strAltName)
        End If
    End If
    If Len(strInternetName) Then
        If Strcompare(strPrimaryName,strInternetName) Then
            vAllVariations = Arrayappend(vAllVariations,strInternetName)
        End If
    End If
    vAllVariations = Arrayappend(vAllVariations,vStrCompute)
    NameConstructIDList = vAllVariations
End Function
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
    If nInt1 < nInt2 Then
        Min = nInt2
    Else
        Min = nInt1
    End If
End Function
Adresa...X
    0S0E
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
OdeslatXb
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
act_SEND.GIF|act_SENDX
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFTX
OdstranitX
    0S0E
act_DELETE.GIF|act_DELETEX
Odpov
t\Odpov
Reply
    4S6S
act_REPLY.GIF|act_REPLYX
Odpov
t\Odpov
 historieX
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
act_REPLY.GIF|act_REPLYX
Odpov
emX'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim vOtherName As Variant
    Dim vInheritedSendTo As Variant
    Dim strOwnerDomain As Variant
    Dim strOwner As String
    Dim strSenderDomain As String
    Dim iSenderIndex As Integer
    Dim x As Integer
    Set uidoc = uiwork.currentdocument
    Set note = uidoc.document
    Dim strInheritedDomain As String
    strOwnerDomain = Evaluate(|@Domain|)
    vInheritedSendTo = note.GetItemValue("InheritedSendTo")
    strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    vInheritedSendTo = NameCreateCopyList(session.EffectiveUserName,strOwnerDomain(0),strInheritedDomain,_
    vInheritedSendTo)
    If Isarray(vInheritedSendTo) = False Then Exit Sub
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
    vInheritedSendTo = Evaluate(|@OptimizeMailAddress(CopyTo)|,note)
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
End Sub
'++LotusScript Development Environment:2:1:NameCreateCopyList:1:8
Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
    On Error Goto ReturnArrayError
    If Isempty(vList) Then
        Exit Function
    Else
        Dim NameTable As New NotesCSParticipantTable(16)
        Dim NameTableEntry As NotesCSParticipantInstance
        Dim session As New notessession
        Dim vUserIDs As Variant
        Dim vListOfNames As Variant
        Dim strRecipientDomain As String
        Dim  nOptimizeLocalDomain As Integer
        Dim nRecipients As Integer
        Dim nPos As Integer
        nOptimizeLocalDomain = 1 Xor Cint(session.GetEnvironmentValue("NoOptimizeLocalRouting",True))
        If Isarray(vList) Then
            vListOfNames = vList
        Else
            Redim vListOfNames(0) As String
            vListOfNames(0) = vList
        End If
        vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
        Forall vIDs In vUserIDs
            Call NameTable.AddInstance(vIDs,0,0)
        End Forall
        Forall vIDs In vListOfNames
            Call NameTable.AddInstance(vIDs,1,0)
        End Forall
        Redim vListOfNames(0)
        Set NameTableEntry = NameTable.GetFirstInstance()
        While Not (NameTableEntry Is Nothing)
            If NameTableEntry.Role > 0 Then 'name is not user
                Redim Preserve vListOfNames(nRecipients)
                If Len(NameTableEntry.ReplyDomain) Then 'the address has an embedded domain
                    strRecipientDomain = NameTableEntry.ReplyDomain
                    nPos = Instr(strRecipientDomain,".") 'look for internet like addresses
                    If Instr(Min(nPos,1),strRecipientDomain,"@", 1) Then 'remove other routing info on these addresses
                        strRecipientDomain = Strleftback(strRecipientDomain,"@",1,1)
                        If nOptimizeLocalDomain Then
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo  & "@" & strRecipientDomain
                            Goto NextInstance
                        End If
                    End If
                    If Not (Strcompare(strOwnerDomain,strRecipientDomain,1) = 0) And nOptimizeLocalDomain Then
                        If Len(strFromDomain) Then 'if the router attached a path to return, attach it to the address
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain & "@" & strFromDomain
                        Else
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain
                        End If
                    Else
                        'this recipient is in our domain and we can skip other routing info
                        vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & strOwnerDomain
                    End If
                Else
                    vListOfNames(nRecipients) = NameTableEntry.ReplyTo
                End If
NextInstance:
                nRecipients = nRecipients + 1
            End If
            Set NameTableEntry = NameTable.GetNextInstance()
        Wend
    End If
ReturnArray:
    NameCreateCopyList = Fulltrim(vListOfNames)
    Exit Function
ReturnArrayError:
    NameCreateCopyList = vList
    Exit Function
End Function
'++LotusScript Development Environment:2:1:NameConstructIDList:1:8
Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
    Dim nUseOwnerDomain As Integer
    Dim vtmpCompute As Variant
    Dim strPrimaryName As String
    Dim strAltName As String
    Dim strInternetName As String
    Dim vAllVariations As Variant
    Redim vAllVariations(0)
    Dim nPos As Integer
    Dim vStrCompute As Variant
    Dim strRemaining As Variant
    Dim totLen As Variant
    'setup the names list
    strPrimaryName = strName
    vtmpCompute = Evaluate(|@UserName(1)|)
    strAltName = vtmpCompute(0)
    vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
    Dim dName As New notesname(strPrimaryName)
    npos = Instr(strPrimaryName, " ")
    totLen = Len(strPrimaryName)
    vStrCompute = strPrimaryName
    Do While nPos <> 0
        vStrCompute = Left(vStrCompute, nPos-1) + "_"
        strRemaining = Right(strPrimaryName, (totLen-nPos))
        vStrCompute = vStrCompute + strRemaining
        nPos = Instr(vStrCompute, " ")
    Loop
    strInternetName = vtmpCompute(0)
    If Len(strOwnerDomain) Then
        nUseOwnerDomain = True
    End If
    If nUseOwnerDomain Then
        vAllVariations(0) = strPrimaryName & "@" & strOwnerDomain
    Else
        vAllVariations(0) = strPrimaryName
    End If
    If Strcompare(strPrimaryName,strAltName) Then
        If nUseOwnerDomain Then
            vAllVariations = Arrayappend(vAllVariations,strAltName & "@" & strOwnerDomain)
        Else
            vAllVariations = Arrayappend(vAllVariations,strAltName)
        End If
    End If
    If Len(strInternetName) Then
        If Strcompare(strPrimaryName,strInternetName) Then
            vAllVariations = Arrayappend(vAllVariations,strInternetName)
        End If
    End If
    vAllVariations = Arrayappend(vAllVariations,vStrCompute)
    NameConstructIDList = vAllVariations
End Function
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
    If nInt1 < nInt2 Then
        Min = nInt2
    Else
        Min = nInt1
    End If
End Function
act_REPLY.GIF|act_REPLYX
Adresa...X
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOKX
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONSX
Lotus Product
CopyTo}
    0S0E
    0S0E
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
$SCRIPTOBJ_8
$Info
$ACTIONS
$V5ACTIONS
$Body
$SCRIPTOBJ_5
$Language
$LastBuildTime
$BabelInfo
04/02/98 08:46:57 AM Teresa Deane/Iris updated [LocalDomainServers]
04/02/98 08:46:49 AM Teresa Deane/Iris updated [OtherDomainServers]
04/02/98 08:46:35 AM Teresa Deane/Iris updated -Default-
04/01/98 08:03:35 PM Teresa Deane/Iris added OtherDomainServers
04/01/98 08:03:28 PM Teresa Deane/Iris updated [OtherDomainServers]
04/01/98 08:03:23 PM Teresa Deane/Iris added [OtherDomainServers]
04/01/98 08:03:16 PM Teresa Deane/Iris updated [LocalDomainServers]
04/01/98 08:03:12 PM Teresa Deane/Iris added [LocalDomainServers]
04/01/98 08:03:04 PM Teresa Deane/Iris updated [-Default-]
04/01/98 08:03:00 PM Teresa Deane/Iris added [-Default-]
04/01/98 08:02:50 PM Teresa Deane/Iris updated LocalDomainServers
04/01/98 08:02:45 PM Teresa Deane/Iris added LocalDomainServers
04/01/98 08:02:37 PM Teresa Deane/Iris deleted Dave Delay/Iris
04/01/98 08:02:35 PM Teresa Deane/Iris updated -Default-
04/11/97 03:33:45 PM Dave Delay/Iris updated Dave Delay/Iris
04/11/97 03:33:45 PM Dave Delay/Iris added Dave Delay/Iris
-Default-
LocalDomainServers
[-Default-]
[LocalDomainServers]
[OtherDomainServers]
OtherDomainServers
$Modified
    1S2S3S
$TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE$C1$
$Flags
    0SL1S4S5S
$TITLE
MailFS|MailFS
cs-CZ
C34WQ
CDU3wx
($FolderInfo)
($All Messages)
($IMAPResyncInfo)
($Mailboxes)
Inbox
34CiQ
MailOutline
$ACTIONS
Cy34Q!
CN=Angela Moohan/OU=DUB/O=Lotus
OutlineDisplayOutlineDisplay
TemplateNameTemplateName
dspDbTitledspDbTitle
(Delivery Options)DeliveryOptions
act_ADDRESSBOOK.GIFact_AKDRESSBOOK
act_completed.GIFact_CSCOMPLETED
act_DELETE.GIFact_DELETE
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONS
act_EDIT.GIFact_EDIT
act_FOLDER.GIFact_FOLDER
act_FORWARD.GIFact_FORWARD
act_INSERTSIG.GIFact_INSERTSIG
act_NEWMEMO.GIFact_NEWMEMO
act_ok.GIFact_CSOK
kct_REPLY.GIFact_REPLY
act_SAVEASDRAFT.GIFact_SAVEASDRAFT
act_save.GIFact_CSSAVE
act_SEND.GIFact_SEND
ImapOutline.gifImapOutline.gif
memoBG.gifmemoBG.gif
MemoGR.gifMemoGR.gif
MemoMemo
Odpov
 historieReply
Odpov
tReply
 historieReply
ineDisplay
TemplateNameTemplateName
Odpov
tReply
Od(Delivery Options)DeliveryOptions
OutlineDisplayOutlineDisplay
TemplateNameTemplateName
dspDbTitledspDbTitle
(Delivery Options)DeliveryOptions
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
act_completed.GIFact_CSCOMPLETED
act_DELETE.GIFact_DELETE
act_DELIVERYOPTIONS.GIFact_DELIVERYO[TIONS
act_EDIT.GIFact_EDIT
act_FOLDER.GIFact_FOLDER
act_FORWARD.GIFact_FORWARD
act_INSERTSIG.GIFact_INSERTSIG
act_NEWMEMO.GIFact_NEWMEMO
act_ok.GIFact_CSOK
act_REPLY.GIFact_REPLY
act_SAVEASDRAFT.GIFact_SAVEASDRAFT
act_save.GIFact_CSSAVE
act_SEND.GIFact_SEND
ImapOutline.gifImapOutline.gif
memoBG.gifmemoBG.gif
MemoGR.gifMemoGR.gif
MemoMemo
Odpov
 historieReply
Odpov
tReply
 historieReply
ineDisplay
TemplateNameTemplateName
Odpov
tReply
Od(Delivery Options)DeliveryOptions
OutlinkDisplayOutlineDisplay
TemplateNameTemplateName
dspDbTitledspDbTitle
MemoMemo
Odpov
tReply
Odpov
 historieReply
(Delivery Options)DeliveryOptions
OutlineDisplayOutlineDisplay
TemplateNameTemplateName
dspDbTitledspDbTitle
MemoMemo
Odpov
tReply
Odpov
 historieReply
(Delivery Options)DeliveryOptions
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
OutlineDisplayOutlineDisplay
TemplateKameTemplateName
dspDbTitledspDbTitle
MemoMemo
Odpov
tReply
Odpov
 historieReply
(Delivery Options)DeliveryOptions
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
act_completed.GIFact_CSCOMPLETED
OutlineDisplayOutlineDisplay
TemplateNameTemplateName
dspDbTitledspDbTitle
MemoMemo
Odpov
tReply
Odpov
 historieReply
(Delivery Options)DeliveryOptions
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
act_completed.GIFact_CSCOMPLETED
act_DELETE.GIFact_DELETE
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=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_ADDRESSBOOK.GIFact_ADDRESSAOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angeaa Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_DELETE.GIFact_DELETE
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_DELIVERYOPTIONS.GIFact_DALIVERYOPTIONS
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_EDIT.GIFact_EDIT$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Developaent/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_FOLDER.GIFact_FOLDER
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_AORWARD.GIFact_FORWARD
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_INSERTSIG.GIFact_INSERTSIG
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/A=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_NEWMEMO.GIFact_NEWMEMO
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_ak.GIFact_CSOK
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_REPLY.GIFact_REPLY
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela!Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_SAVEASDRAFT.GIFact_SAVEASDRAFT
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_save.GIFact_CSQAVE
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
0mZhQ
act_SEND.GIFact_SEND$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotasCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
dspDbTitledspDbTitle
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
ImapOutline.gifImapOutline.gif
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoMemo
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
memoBG.gifmemoBG.gif
CN=Debbie Branco/O1IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
ate Development/O=Lotus Notes
act_INSERTSIG.GIFact_INSERTSIG
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN1Lotus Notes Template Development/O=Lotus Notes
OutlineDisplayOutlineDisplay
TemplateNameTemplateName
dspDbTitledspDbTitle
Odpov
tReply
Odpov
 historieReply
(Delivery Options)DeliveryOptions
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
acr_completed.GIFact_CSCOMPLETED
act_DELETE.GIFact_DELETE
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONS
act_EDIT.GIFact_EDIT
act_FOLDER.GIFact_FOLDER
act_FORWARD.GIFact_FORWARD
act_INSERTSIG.GIFact_INSERTSIG
act_NEWMEMO.GIFact_NEWMEMO
act_ok.GIFact_CSOK
act_REPLY.GIFact_REPLY
act_SAVEASDRAFT.GIFact_SAVEASDRAFT
act_save.GIFact_CSSAVE
act_SEND.GIFact_SEND
ImapOutline.gifImapOutline.gif
memoBG.gifmemoBG.gif
MemoGR.gifMemoGR.gif
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Temrlate Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_DELETE.GIFact_DELETE
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtrbnslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Nores
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_DELETE.GIFact_DELETE
CN=William Zircher/O=IrisCN=Debbie Brabco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONS
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/B=Lotus Notes
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_DELETE.GIFact_DELETE
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Tbmplate Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONS
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_EDIT.GIFact_EDIT$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_SEND.GIFact_SEND
act_ADDRESSBOOK.GIFactQADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NoteqCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_DELETE.GIFact_DELETE
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_DELIVERYOPTIONS.AIFact_DELIVERYOPTIONS
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_EDIT.GIFact_EDIT$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template!Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_FOLDER.GIFact_FOLDER
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_FORWARD.GIFact_FORWARD
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_INSERTSIG.GIFact_INSERTSIG
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Deveaopment/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_NEWMEMO.GIFact_NEWMEMO
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_ok.GIFact_CSOK
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_REPLY.GIFact_REPLY
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCA=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_SAVEASDRAFT.GIFact_SAVEASDRAFT
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_save.GAFact_CSSAVE
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
0mZhQ
act_SEND.GIFact_SEND$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Latus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
dspDbTitledspDbTitle
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
ImapOutline.gifImapOutline.gif
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoMemo
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
memoBG.gifmemoBG.gif
CN=Debbie Aranco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoGR.gifMemoGR.gif
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoMemo0
MemoMemo0
MemoMemo0
MemoMemo0
Odpov
tReply
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
act_ADDRESSBOOK.GIFact_ADDRESSBOOK
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_completed.GIFact_CSCOMPLETED
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU6DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
#0|VF
act_DELETE.GIFact_DELETE
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIOFS
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_EDIT.GIFact_EDIT$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus&NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_FOLDER.GIFact_FOLDER
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_FORWARD.GIFaft_FORWARD
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_INSERTSIG.GIFact_INSERTSIG
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotevCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_NEWMEMO.GIFact_NEWMEMO
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_ok.GIFact_CSFK
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_REPLY.GIFact_REPLY
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DVB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_SAVEASDRAFT.GIFact_SAVEASDRAFT
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
act_save.GIFact_CSSAVE
CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
0mZhQ
act_SEND.GIFact_SEND$
CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Foohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
dspDbTitledspDbTitle
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
ImapOutline.gifImapOutline.gif
CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
CN=Debbie Franco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoMemo
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
memoBG.gifmemoBG.gif
CN=Debbie Branco/O=IrisCN=Lotuv Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
MemoGR.gifMemoGR.gif
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
Odpov
tReply0
Odpov
 historieReply0
Odpov
tReply0
Odpov
 historieReply0
Odpov
tReply0
CN=Dave Delay/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
CN=Petr Chaloupka/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
CN=Dave Delay/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationvCN=Lotus Notes Template Development/O=Lotus Notes
(Delivery Options)DeliveryOptions
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notesk#
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Dfvelopment/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
TemplateNameTemplateName
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
OutlineDisplayOutlineDisvlay
CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Angela Moohan/OU=DUB/O=LotusCN=Hanzi Bares/O=MtranslationsCN=Lotus Notes Template Development/O=Lotus Notes
Odpov
 historieReply
CN=Angela Moohan/OU=DUB/O=LotusCN=Lotus Notes Template Development/O=Lotus Notes
MemoGR.gifMemoGR.gif&
Odpov
tReply
PostedDate
PostedDate
FromPostedDateSubject$Conflict$C1$
PostedDate
PostedDate
Subject
Subject
mianie.
Godzin
|04 godziny|1Dzi
FORMlaa
StartUpOptions
OpenURL
Offe.nsf
PreferredSearchEngine9
4   a
SearchURLoa
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Initialize
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Querymodechange From Source Call Querymodechange
    On Event Querysave From Source Call Querysave
    On Event Postsave From Source Call Postsave
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Dim Note As NotesDocument
    Dim TargetFolderName As String
    Set Note = Source.Document
    'Put the document in the current folder
    Call Note.PutInFolder(glbCurrentFolderName)
    'Determine target folder
    TargetFolderName = Note.TmpFolder(0)
    'Move the document to the target folder
    If ( TargetFolderName <> ""  And  TargetFolderName <> glbCurrentFolderName ) Then
        'Move it
        Call Note.PutInFolder(TargetFolderName)
        Call Note.RemoveFromFolder(glbCurrentFolderName)
        'The following was an attempt to update the current folder.  Doesn't work in IMAP on-line
        'mode because the collection behind the folder is not the right collection
        'glbCurrentFolder.Refresh
    End If
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    glbCurrentFolderName = Source.ParentViewName
End Sub
memoBG.gif|memoBG.gif
HeaderRegion
BodyRegion
Subject
    4S6S
&Arial
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim glbDraftsFolderName As String
Dim glbSentFolderName As String
Dim glbCurrentFolderName As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim Sess As NotesSession
    Dim Value As String
    'Set Defaults for Drafts and Sent folders
    glbDraftsFolderName = "Koncepty"
    glbSentFolderName = "Odesl
    'Get overrides from NOTES.INI
    Set Sess = New NotesSession
    Value = Sess.GetEnvironmentString("IMAPDrafts")
    If ( Value <> "" ) Then
        glbDraftsFolderName = Value
    End If
    Value = Sess.GetEnvironmentString("IMAPSent")
    If ( Value <> "" ) Then
        glbSentFolderName = Value
    End If
End Sub
Lotus Product
 Memo'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Initialize
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Querymodechange From Source Call Querymodechange
    On Event Querysave From Source Call Querysave
    On Event Postsave From Source Call Postsave
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Dim Note As NotesDocument
    Dim TargetFolderName As String
    Set Note = Source.Document
    'Put the document in the current folder
    Call Note.PutInFolder(glbCurrentFolderName)
    'Determine target folder
    TargetFolderName = Note.TmpFolder(0)
    'Move the document to the target folder
    If ( TargetFolderName <> ""  And  TargetFolderName <> glbCurrentFolderName ) Then
        'Move it
        Call Note.PutInFolder(TargetFolderName)
        Call Note.RemoveFromFolder(glbCurrentFolderName)
        'The following was an attempt to update the current folder.  Doesn't work in IMAP on-line
        'mode because the collection behind the folder is not the right collection
        'glbCurrentFolder.Refresh
    End If
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    glbCurrentFolderName = Source.ParentViewName
End Sub
Lotus Product
Hidden:
getLoc
    1S2S
getLoc
getLoc
    0R3S4S6S8S2E
StdNotesLtr21
Logoz
$AutoSpell
Signz
Encrypt
Encrypt
Principal
Principal
Principal
    1S2S5S7S8S9S10S12RTTTT14T15RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S8S9S14S16S20S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    Od koho:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
SendTo
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
    Kopie:
CC_Content
CopyTo
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
tmpDisplayFrom_Preview
DisplayFrom_Pre
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentz
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreDatum a
as vytvo
 nebo odesl
tmpDisplayDate_Pre
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
ReplyTo
ivateli
ReplyTo
ReplyDate
 nejpozd
ji do
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReply
tmpDisplayReply
IsMailStationery
    0S0E
ablony:
MAILSTATIONERYNAME
-Bez n
MAILSTATIONERYNAME
    0S0E
Statioz
Statio
MemoGR.gif
$HideMailHeader
    0S0E
        Komu:
SendTo
        Kopie:
CopyTo
        Kopie:
CC_Content
CopyTo
    1S2S
BCC_Content
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S8S9S10S14S16S17S19S
CC_Content
BCC_Content
    0R3S4S
tmprCopyTo
        Na v
BlindCopyTo
t:
SIZE=50
Subject
Bodyz
adit do kategorie
_Upravit dokument
O_deslat dokument
_Odebrat ze slo
Odeslat
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
act_SEND.GIF|act_SEND?
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Po_stoupit
act_FORWARD.GIF|act_FORWARD?
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
Odpov
t\Odpov
Reply
    4S6S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Adresa...
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
esunout do slo
ky...
act_FOLDER
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
adit do kategorie
_Upravit dokument
O_deslat dokument
_Odebrat ze slo
Odeslat
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
Po_stoupit
Odstranit3
    0S0E
Odpov
t\Odpov
Reply
    4S6S
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
Adresa...
    0S0E
esunout do slo
ky...
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ComposedDate
PostedDate
$$FormScript_src
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Initialize
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Querymodechange From Source Call Querymodechange
    On Event Querysave From Source Call Querysave
    On Event Postsave From Source Call Postsave
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Dim Note As NotesDocument
    Dim TargetFolderName As String
    Set Note = Source.Document
    'Put the document in the current folder
    Call Note.PutInFolder(glbCurrentFolderName)
    'Determine target folder
    TargetFolderName = Note.TmpFolder(0)
    'Move the document to the target folder
    If ( TargetFolderName <> ""  And  TargetFolderName <> glbCurrentFolderName ) Then
        'Move it
        Call Note.PutInFolder(TargetFolderName)
        Call Note.RemoveFromFolder(glbCurrentFolderName)
        'The following was an attempt to update the current folder.  Doesn't work in IMAP on-line
        'mode because the collection behind the folder is not the right collection
        'glbCurrentFolder.Refresh
    End If
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If Not Isempty(Source.ParentViewName)  Then
        glbCurrentFolderName = Source.ParentViewName
    Else
        glbCurrentFolderName = "Inbox"
    End If
End Sub
memoBG.gif|memoBG.gif
HeaderRegion
BodyRegion
Subject
    4S6S
&Arial
Times New Roman
'++LotusScript Development Environment:2:5:(Options):0:74
Option Public
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Initialize
'++LotusScript Development Environment:2:5:(Declarations):0:10
Dim glbDraftsFolderName As String
Dim glbSentFolderName As String
Dim glbCurrentFolderName As String
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
    Dim Sess As NotesSession
    Dim Value As String
    'Set Defaults for Drafts and Sent folders
    glbDraftsFolderName = "Koncepty"
    glbSentFolderName = "Odesl
    'Get overrides from NOTES.INI
    Set Sess = New NotesSession
    Value = Sess.GetEnvironmentString("IMAPDrafts")
    If ( Value <> "" ) Then
        glbDraftsFolderName = Value
    End If
    Value = Sess.GetEnvironmentString("IMAPSent")
    If ( Value <> "" ) Then
        glbSentFolderName = Value
    End If
End Sub
Lotus Product
 Reply'++LotusScript Development Environment:2:5:(Options):0:66
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Declare Sub Initialize
Declare Sub Querysave(Source As Notesuidocument, Continue As Variant)
Declare Sub Postsave(Source As Notesuidocument)
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As NOTESUIDOCUMENT
    Set Source = Bind(Objectname_)
    On Event Postopen From Source Call Postopen
    On Event Querymodechange From Source Call Querymodechange
    On Event Querysave From Source Call Querysave
    On Event Postsave From Source Call Postsave
    On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
End Sub
'++LotusScript Development Environment:2:2:Querymodechange:1:12
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Initialize:1:10
Sub Initialize
End Sub
'++LotusScript Development Environment:2:2:Querysave:1:12
Sub Querysave(Source As Notesuidocument, Continue As Variant)
End Sub
'++LotusScript Development Environment:2:2:Postsave:1:12
Sub Postsave(Source As Notesuidocument)
    Dim Note As NotesDocument
    Dim TargetFolderName As String
    Set Note = Source.Document
    'Put the document in the current folder
    Call Note.PutInFolder(glbCurrentFolderName)
    'Determine target folder
    TargetFolderName = Note.TmpFolder(0)
    'Move the document to the target folder
    If ( TargetFolderName <> ""  And  TargetFolderName <> glbCurrentFolderName ) Then
        'Move it
        Call Note.PutInFolder(TargetFolderName)
        Call Note.RemoveFromFolder(glbCurrentFolderName)
        'The following was an attempt to update the current folder.  Doesn't work in IMAP on-line
        'mode because the collection behind the folder is not the right collection
        'glbCurrentFolder.Refresh
    End If
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    If Not Isempty(Source.ParentViewName)  Then
        glbCurrentFolderName = Source.ParentViewName
    Else
        glbCurrentFolderName = "Inbox"
    End If
End Sub
Lotus Product
Hidden:
Principal
Principal
Principal
Fromh
    1S2S8S9S10S11S13S15S20S22S
FromDomainh
FromDomain"
    0R7S8S9S10S11S13SInheritedFrom
InheritedFrom
Subject
InheritedSubject
getLoc
    1S2S
getLoc
getLoc
    0R3S4S6S8S2E
Notes
PostedDateh
NamePreference
AltSendTo
AltSendTo
AltCopyTo
SendTo
CopyTo
InheritedSendTo
SendTo
CopyTo
    9S10S12S13S30S31S36S37S39S41SInheritedSendTo
InheritedSendTo
Notes
PostedDateh
ReplyTo
ReplyTo
    9S10S12S13SInheritedReplyToz
InheritedReplyTo
Notes
PostedDateh
FromDomain
InheritedFromDomain
FromDomain
    9S10S12S13SInheritedFromDomain
InheritedFromDomain
StdNotesLtr21
Logoz
Principal
Principal
Principal
    1S2S5S7S8S9S10S12RTTTT14RTTT15RTTT
    0R1S2S8S
    0R1S2S5S6S8S14S18S
    0R1S2S5S6S8S14S18S
SentBy
X400FreeForm^
    0R1S2S5S6S8S10S11S12S14S15S16S17S18S20S21S22S24S26S
SentBy
FromDomain
FromDomain
FromDomain
FromDomain
    0RR7S10S13S14S18S20S23S24S26S28S29S30S36S39S43S46S52S
FromName
Principal
Principal
Principal
    0RR1S2S8S9S14S16S20S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplayFrom_Previewz
tmpDisplayFrom_Preview
    0S0E
Signz
    0S0E
Encrypt
Encrypt
$AutoSpell
    Od koho:
tmpDisplayFrom_Preview
tmpDisplayFrom_NoLogo
tmpDisplayFrom_NoLogo
    Komu:
NamesList
SendTo
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplaySendTo
Subject
Subject
Subject
    0S0E
TmpDisplaySubject_1
    Kopie:
CC_Content
CopyTo
BCC_Content
DeliveredDate
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S7S8S9S10S12S13S14S18S20S21S23S
NamesList
CC_Content
BCC_Content
    0R9S10S
ImplodedNamesList
NamesList
ImplodedNamesList
ImplodedNamesList
ImplodedNamesList
tmpDisplayCC
tmpDisplayFrom_Preview
DisplayFrom_Pre
DisplayFrom_Pre
$HideMailHeader
Principal
Principal
Principal
Principal
Principal
    4S5S9S10S11S12S13S14S19S20S24S26S27S31S33S34S37S38S40S41S45S47S48S52S
    Odeslal:
FromDomain
FromDomain
FromDomain
FromDomain
    4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S
FromName
    0RR1S2S6S
FromStops
    0R1S2S6S
FromName
FromStops
FromStops
FromStops
    0RR1S2S3S4S10S13S17S20StmpDisplaySentz
tmpDisplaySent
PostedDateh
PostedDate
    4S5S10S12S
tmpDisplayDate_PreDatum a
as vytvo
 nebo odesl
tmpDisplayDate_Pre
ReplyDate
ReplyTo
$HideMailHeader
    2S3S4S5S6S7S9S10S14S15R
Odpov
ReplyTo
ivateli
ReplyTo
ReplyDate
 nejpozd
ji do
ReplyDate
    1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReply
tmpDisplayReply
MemoGR.gif
$HideMailHeader
    0S0E
                Komu:
MailAddress
InheritedFrom
    1S2S
MailAddress
SendTo}
    0S0E
SendTo
                Kopie:
CopyTo
    0S0E
CopyTo}
    0S0E
CopyTo
                Kopie:
CC_Content
CopyTo
    0S0E
BCC_Content
BlindCopyTo
 (Na v
BlindCopyTo
    0R5S6S8S9S10S14S16S17S19S
CC_Content
BCC_Content
    0R3S4S
tmpCopyTo
         Na v
:
BlindCopyTo
    0S0E
BlindCopyTo
    0S0E
BlindCopyTo
              P
t:
SIZE=50
Subject
Topic
Subject
    1S2S5S6S8S10S
Subj"
    0R10S12S16S17S19S21S22S23S
Subject
              P
t:
Subject
tmpDisplaySubject
Bodyz
adit do kategorie
_Upravit dokument
O_deslat dokument
_Odebrat ze slo
Odeslat
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
act_SEND.GIF|act_SEND?
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
act_SAVEASDRAFT.GIF|act_SAVEASDRAFT?
Po_stoupit
act_FORWARD.GIF|act_FORWARD?
Odstranit
    0S0E
act_DELETE.GIF|act_DELETE?
Odpov
t\Odpov
Reply
    4S6S
act_REPLY.GIF|act_REPLY?
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
act_REPLY.GIF|act_REPLY?
Odpov
em1'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim vOtherName As Variant
    Dim vInheritedSendTo As Variant
    Dim strOwnerDomain As Variant
    Dim strOwner As String
    Dim strSenderDomain As String
    Dim iSenderIndex As Integer
    Dim x As Integer
    Set uidoc = uiwork.currentdocument
    Set note = uidoc.document
    Dim strInheritedDomain As String
    strOwnerDomain = Evaluate(|@Domain|)
    vInheritedSendTo = note.GetItemValue("InheritedSendTo")
    strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    vInheritedSendTo = NameCreateCopyList(session.EffectiveUserName,strOwnerDomain(0),strInheritedDomain,_
    vInheritedSendTo)
    If Isarray(vInheritedSendTo) = False Then Exit Sub
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
    vInheritedSendTo = Evaluate(|@OptimizeMailAddress(CopyTo)|,note)
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
End Sub
'++LotusScript Development Environment:2:1:NameCreateCopyList:1:8
Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
    On Error Goto ReturnArrayError
    If Isempty(vList) Then
        Exit Function
    Else
        Dim NameTable As New NotesCSParticipantTable(16)
        Dim NameTableEntry As NotesCSParticipantInstance
        Dim session As New notessession
        Dim vUserIDs As Variant
        Dim vListOfNames As Variant
        Dim strRecipientDomain As String
        Dim  nOptimizeLocalDomain As Integer
        Dim nRecipients As Integer
        Dim nPos As Integer
        nOptimizeLocalDomain = 1 Xor Cint(session.GetEnvironmentValue("NoOptimizeLocalRouting",True))
        If Isarray(vList) Then
            vListOfNames = vList
        Else
            Redim vListOfNames(0) As String
            vListOfNames(0) = vList
        End If
        vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
        Forall vIDs In vUserIDs
            Call NameTable.AddInstance(vIDs,0,0)
        End Forall
        Forall vIDs In vListOfNames
            Call NameTable.AddInstance(vIDs,1,0)
        End Forall
        Redim vListOfNames(0)
        Set NameTableEntry = NameTable.GetFirstInstance()
        While Not (NameTableEntry Is Nothing)
            If NameTableEntry.Role > 0 Then 'name is not user
                Redim Preserve vListOfNames(nRecipients)
                If Len(NameTableEntry.ReplyDomain) Then 'the address has an embedded domain
                    strRecipientDomain = NameTableEntry.ReplyDomain
                    nPos = Instr(strRecipientDomain,".") 'look for internet like addresses
                    If Instr(Min(nPos,1),strRecipientDomain,"@", 1) Then 'remove other routing info on these addresses
                        strRecipientDomain = Strleftback(strRecipientDomain,"@",1,1)
                        If nOptimizeLocalDomain Then
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo  & "@" & strRecipientDomain
                            Goto NextInstance
                        End If
                    End If
                    If Not (Strcompare(strOwnerDomain,strRecipientDomain,1) = 0) And nOptimizeLocalDomain Then
                        If Len(strFromDomain) Then 'if the router attached a path to return, attach it to the address
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain & "@" & strFromDomain
                        Else
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain
                        End If
                    Else
                        'this recipient is in our domain and we can skip other routing info
                        vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & strOwnerDomain
                    End If
                Else
                    vListOfNames(nRecipients) = NameTableEntry.ReplyTo
                End If
NextInstance:
                nRecipients = nRecipients + 1
            End If
            Set NameTableEntry = NameTable.GetNextInstance()
        Wend
    End If
ReturnArray:
    NameCreateCopyList = Fulltrim(vListOfNames)
    Exit Function
ReturnArrayError:
    NameCreateCopyList = vList
    Exit Function
End Function
'++LotusScript Development Environment:2:1:NameConstructIDList:1:8
Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
    Dim nUseOwnerDomain As Integer
    Dim vtmpCompute As Variant
    Dim strPrimaryName As String
    Dim strAltName As String
    Dim strInternetName As String
    Dim vAllVariations As Variant
    Redim vAllVariations(0)
    Dim nPos As Integer
    Dim vStrCompute As Variant
    Dim strRemaining As Variant
    Dim totLen As Variant
    'setup the names list
    strPrimaryName = strName
    vtmpCompute = Evaluate(|@UserName(1)|)
    strAltName = vtmpCompute(0)
    vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
    Dim dName As New notesname(strPrimaryName)
    npos = Instr(strPrimaryName, " ")
    totLen = Len(strPrimaryName)
    vStrCompute = strPrimaryName
    Do While nPos <> 0
        vStrCompute = Left(vStrCompute, nPos-1) + "_"
        strRemaining = Right(strPrimaryName, (totLen-nPos))
        vStrCompute = vStrCompute + strRemaining
        nPos = Instr(vStrCompute, " ")
    Loop
    strInternetName = vtmpCompute(0)
    If Len(strOwnerDomain) Then
        nUseOwnerDomain = True
    End If
    If nUseOwnerDomain Then
        vAllVariations(0) = strPrimaryName & "@" & strOwnerDomain
    Else
        vAllVariations(0) = strPrimaryName
    End If
    If Strcompare(strPrimaryName,strAltName) Then
        If nUseOwnerDomain Then
            vAllVariations = Arrayappend(vAllVariations,strAltName & "@" & strOwnerDomain)
        Else
            vAllVariations = Arrayappend(vAllVariations,strAltName)
        End If
    End If
    If Len(strInternetName) Then
        If Strcompare(strPrimaryName,strInternetName) Then
            vAllVariations = Arrayappend(vAllVariations,strInternetName)
        End If
    End If
    vAllVariations = Arrayappend(vAllVariations,vStrCompute)
    NameConstructIDList = vAllVariations
End Function
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
    If nInt1 < nInt2 Then
        Min = nInt2
    Else
        Min = nInt1
    End If
End Function
act_REPLY.GIF|act_REPLY?
Adresa...3
    0S0E
act_ADDRESSBOOK.GIF|act_ADDRESSBOOK?
esunout do slo
ky...
act_FOLDER
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
act_DELIVERYOPTIONS.GIF|act_DELIVERYOPTIONS?
adit do kategorie
_Upravit dokument
O_deslat dokument
_Odebrat ze slo
Odeslat
Send the message (MailOptions == 1 skips the Sign/Seal dialog)
    0R7S9S
Now save the message to the Sent folder
    0RR1S
tmpFolder
IMAPSent
    0R1S2S3S7S
    0R7S9S
it jako koncept
Save the message to the Drafts folder
tmpFolder
IMAPDrafts
    0R1S2S3S7S
    0R7S9S
Po_stoupit
Odstranit
    0S0E
Odpov
t\Odpov
Reply
    4S6S
Odpov
t\Odpov
 historie
Odpov
 historie
Tento dokument byl zkr
    4S8S10S13S
Odpov
 historie
Odpov
'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
Declare Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
Declare Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
Declare Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
'++LotusScript Development Environment:2:5:(Declarations):0:10
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As BUTTON
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
    Dim session As New notessession
    Dim uiwork As New notesuiworkspace
    Dim uidoc As notesuidocument
    Dim note As notesdocument
    Dim vOtherName As Variant
    Dim vInheritedSendTo As Variant
    Dim strOwnerDomain As Variant
    Dim strOwner As String
    Dim strSenderDomain As String
    Dim iSenderIndex As Integer
    Dim x As Integer
    Set uidoc = uiwork.currentdocument
    Set note = uidoc.document
    Dim strInheritedDomain As String
    strOwnerDomain = Evaluate(|@Domain|)
    vInheritedSendTo = note.GetItemValue("InheritedSendTo")
    strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0)
    vInheritedSendTo = NameCreateCopyList(session.EffectiveUserName,strOwnerDomain(0),strInheritedDomain,_
    vInheritedSendTo)
    If Isarray(vInheritedSendTo) = False Then Exit Sub
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
    vInheritedSendTo = Evaluate(|@OptimizeMailAddress(CopyTo)|,note)
    Call note.ReplaceItemValue("CopyTo", vInheritedSendTo)
End Sub
'++LotusScript Development Environment:2:1:NameCreateCopyList:1:8
Function NameCreateCopyList(strName As String,strOwnerDomain As String, strFromDomain As String,vList As Variant) As Variant
    On Error Goto ReturnArrayError
    If Isempty(vList) Then
        Exit Function
    Else
        Dim NameTable As New NotesCSParticipantTable(16)
        Dim NameTableEntry As NotesCSParticipantInstance
        Dim session As New notessession
        Dim vUserIDs As Variant
        Dim vListOfNames As Variant
        Dim strRecipientDomain As String
        Dim  nOptimizeLocalDomain As Integer
        Dim nRecipients As Integer
        Dim nPos As Integer
        nOptimizeLocalDomain = 1 Xor Cint(session.GetEnvironmentValue("NoOptimizeLocalRouting",True))
        If Isarray(vList) Then
            vListOfNames = vList
        Else
            Redim vListOfNames(0) As String
            vListOfNames(0) = vList
        End If
        vUserIDs = NameConstructIDList(strName,strOwnerDomain, strFromDomain)
        Forall vIDs In vUserIDs
            Call NameTable.AddInstance(vIDs,0,0)
        End Forall
        Forall vIDs In vListOfNames
            Call NameTable.AddInstance(vIDs,1,0)
        End Forall
        Redim vListOfNames(0)
        Set NameTableEntry = NameTable.GetFirstInstance()
        While Not (NameTableEntry Is Nothing)
            If NameTableEntry.Role > 0 Then 'name is not user
                Redim Preserve vListOfNames(nRecipients)
                If Len(NameTableEntry.ReplyDomain) Then 'the address has an embedded domain
                    strRecipientDomain = NameTableEntry.ReplyDomain
                    nPos = Instr(strRecipientDomain,".") 'look for internet like addresses
                    If Instr(Min(nPos,1),strRecipientDomain,"@", 1) Then 'remove other routing info on these addresses
                        strRecipientDomain = Strleftback(strRecipientDomain,"@",1,1)
                        If nOptimizeLocalDomain Then
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo  & "@" & strRecipientDomain
                            Goto NextInstance
                        End If
                    End If
                    If Not (Strcompare(strOwnerDomain,strRecipientDomain,1) = 0) And nOptimizeLocalDomain Then
                        If Len(strFromDomain) Then 'if the router attached a path to return, attach it to the address
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain & "@" & strFromDomain
                        Else
                            vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & NameTableEntry.ReplyDomain
                        End If
                    Else
                        'this recipient is in our domain and we can skip other routing info
                        vListOfNames(nRecipients) = NameTableEntry.ReplyTo & "@" & strOwnerDomain
                    End If
                Else
                    vListOfNames(nRecipients) = NameTableEntry.ReplyTo
                End If
NextInstance:
                nRecipients = nRecipients + 1
            End If
            Set NameTableEntry = NameTable.GetNextInstance()
        Wend
    End If
ReturnArray:
    NameCreateCopyList = Fulltrim(vListOfNames)
    Exit Function
ReturnArrayError:
    NameCreateCopyList = vList
    Exit Function
End Function
'++LotusScript Development Environment:2:1:NameConstructIDList:1:8
Function NameConstructIDList(strName As String,strOwnerDomain As String, strFromDomain As String) As Variant
    Dim nUseOwnerDomain As Integer
    Dim vtmpCompute As Variant
    Dim strPrimaryName As String
    Dim strAltName As String
    Dim strInternetName As String
    Dim vAllVariations As Variant
    Redim vAllVariations(0)
    Dim nPos As Integer
    Dim vStrCompute As Variant
    Dim strRemaining As Variant
    Dim totLen As Variant
    'setup the names list
    strPrimaryName = strName
    vtmpCompute = Evaluate(|@UserName(1)|)
    strAltName = vtmpCompute(0)
    vtmpCompute = Evaluate(|@LocationGetInfo([InternetMailAddress])|)
    Dim dName As New notesname(strPrimaryName)
    npos = Instr(strPrimaryName, " ")
    totLen = Len(strPrimaryName)
    vStrCompute = strPrimaryName
    Do While nPos <> 0
        vStrCompute = Left(vStrCompute, nPos-1) + "_"
        strRemaining = Right(strPrimaryName, (totLen-nPos))
        vStrCompute = vStrCompute + strRemaining
        nPos = Instr(vStrCompute, " ")
    Loop
    strInternetName = vtmpCompute(0)
    If Len(strOwnerDomain) Then
        nUseOwnerDomain = True
    End If
    If nUseOwnerDomain Then
        vAllVariations(0) = strPrimaryName & "@" & strOwnerDomain
    Else
        vAllVariations(0) = strPrimaryName
    End If
    If Strcompare(strPrimaryName,strAltName) Then
        If nUseOwnerDomain Then
            vAllVariations = Arrayappend(vAllVariations,strAltName & "@" & strOwnerDomain)
        Else
            vAllVariations = Arrayappend(vAllVariations,strAltName)
        End If
    End If
    If Len(strInternetName) Then
        If Strcompare(strPrimaryName,strInternetName) Then
            vAllVariations = Arrayappend(vAllVariations,strInternetName)
        End If
    End If
    vAllVariations = Arrayappend(vAllVariations,vStrCompute)
    NameConstructIDList = vAllVariations
End Function
'++LotusScript Development Environment:2:1:Min:1:8
Function Min(nInt1 As Integer, nInt2 As Integer) As Integer
    If nInt1 < nInt2 Then
        Min = nInt2
    Else
        Min = nInt1
    End If
End Function
Adresa...f
    0S0E
esunout do slo
ky...
nosti doru
DeliveryOptions
nosti doru
    4S5S6S7S8S10S
Lotus Product
CopyTo}
    0S0E
    0S0E
    0S0E
O=Lotus Notes
O=Lotus Notes
PURSAFO
|.:#U
O=Lotus Notes
CN=Lotus Notes Template Development/O=Lotus Notes
PURSAFO
ComposedDate
$$FormScript_src
$Language
$LastBuildTime
$BabelInfo
$BackgroundR5
$HeaderArea
$RegionFrameset
$Info
$WindowTitle
$Script
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$V5ACTIONS
$ACTIONS
$SCRIPTOBJ_10