Australian Personal Computer 1999 April

home *** CD-ROM | disk | FTP | other *** search

/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / notes / 50lbwis.exe / DATA1.CAB / NotesDataFilesRequiredDataFiles / imapcl5.ntf (.txt) < prev next >

Wrap

Lotus Notes Storage Facility | 1999-01-28 | 259.0 KB | 2,671 lines

Mail (IMAP) #1StdR50IMail O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $TITLE $Index $Formula $FormulaClass $ViewFormat $Comment $FolderInfo $profile_013imail profile_ #0|VF 0mZhQ CN=Lotus Notes Template Development/O=Lotus Notes qWYw{Y CN=Teresa Deane/O=IrisCN=Debbie Branco/O=IrisMailFSMail (IMAP) #1StdR50IMailtFR################################# CN=Dave Delay/O=IrisCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ################################# ?InboxInbox\ PostedDate PostedDate FromPostedDateSubject$Conflict PostedDate PostedDate Subject Subject FromFromPostedDateDate" PostedDate PostedDate SubjectSubject& CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ######### MemoMemoD BodySubjectBlindCopyToCopyToSendToEncryptSign$AutoSpellLogoFrom CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################################## ReplyReplyDC BodySubjectBlindCopyToCopyToSendTo$AutoSpellEncryptSignLogoInheritedFromDomainInheritedReplyToInheritedSendToFromInheritedSubjectInheritedFrom CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes#################################################### ($All Messages)R FromDateSubject$Conflict$REF Subject L1S1 FromFromDateDateSubjectSubject& CN=Dave Delay/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesY####################### $FolderInfo($FolderInfo) $1038 CN=Marc Zehngut/O=IrisCN=Mike Palone/O=IrisCN=Teresa Deane/O=IrisCN=Rob Slapikoff/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesY# ($IMAPResyncInfo) IMAPUID $IMAPUIDh $IMAPUID 7S9S IMAPLastFolderUNID $IMAPLastFolderUNID $IMAPLastFolderUNID 7S12S IMAPSeqNo $IMAPSeqNoh $IMAPSeqNo 7S9S IMAPFlags $IMAPFlagsh $IMAPFlags 7S9S IMAPDiscFlags $IMAPDiscFlagsh $IMAPDiscFlags 7S9S IMAPMsgID $IMAPMsgIDh $IMAPMsgIDV 7S12S $1IMAPUIDIMAPLastFolderUNIDIMAPSeqNoIMAPFlagsIMAPDiscFlagsIMAPMsgID$Conflict $1IMAPUID IMAPUID CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesY############################################ $Modified 1S2S3S $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O$LANGUAGE $Flags 0SL1S4S5S3724 $TITLE CN=Teresa Deane/O=Iris############### CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesm MailOutline#################################### 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 NotesMailFS|MailFS#4C##### OutlineDisplayOutlineDisplayC34W CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################### TemplateNameTemplateNameC34W CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################## CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_ADDRESSBOOK.GIFact_ADDRESSBOOKaddress book.GIF##################################### #0|VF completed.GIF CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_completed.GIFact_CSCOMPLETED1##################################### CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_DELETE.GIFact_DELETEdelete.GIF##################################################### CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_DELIVERYOPTIONS.GIFact_DELIVERYOPTIONSdelivery options.GIF######################### CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_EDIT.GIFact_EDITedit.GIF1########################### CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_FOLDER.GIFact_FOLDERfolder.GIF##################################################### CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_FORWARD.GIFact_FORWARDforward.GIF################################################## insert signature.GIF CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=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 Notes act_NEWMEMO.GIFact_NEWMEMOnew mail.GIF################################################# ok.GIF CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_ok.GIFact_CSOK1########################################################## CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_REPLY.GIFact_REPLYreply.GIF######################################################## CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_SAVEASDRAFT.GIFact_SAVEASDRAFTsave as draft.GIF#################################### 0mZhQ save.GIF CN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_save.GIFact_CSSAVE1#################################################### CN=William Zircher/O=IrisCN=Ryan Jansen/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes act_SEND.GIFact_SENDsend.GIF1########################### $ACTIONSCny CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########### dspDbTitledspDbTitleHC34W CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## (autoquote) CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################# CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################## CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################# CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notesbeta3 grey bg.gif34Ci bg.gifbg############## mail outline.gif CN=William Zircher/O=IrisCN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes34CiP ImapOutline.gifImapOutline.gif######################## memoBG.gifmemoBG.gifglacier.gif CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################### 34CiQ gateway.gif gateway.gifgateway.gif CN=Debbie Branco/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################ ########################################################## ########################################################## ########################################################## $profile_013imail profile_ CN=Lotus Notes Template Development/O=Lotus Notes ######################################## ########################################################## ########################################################## ########################################################## O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ACLDigest FOLDER_DIRECTORY_OBJECT Categori_zeK _Edit Document Send Docu_ment _Move To Folder... _Remove From FolderK New Memo, 0S0E act_NEWMEMO.GIF|act_NEWMEMO? _Forward act_FORWARD.GIF|act_FORWARD? Delete 0S0E act_DELETE.GIF|act_DELETE? Refresh FoldersK 0S0E act_completed.GIF|act_CSCOMPLETED? Categori_zeK _Edit Document Send Docu_ment _Move To Folder... _Remove From FolderK New Memo, 0S0E _Forward Delete 0S0E Refresh FoldersK 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 OBJECT '++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 $TITLE $Name $Index $Formula $FormulaClass $ViewFormat $Comment $V5ACTIONS $ACTIONS $ViewGlobalScript $ViewGlobalScript_O $ViewScript $ViewScript_O Inbox memoBG.gif|memoBG.gif HeaderRegion BodyRegion New Memo 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 = "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 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 OBJECT Hidden: StdNotesLtr21 Logoz $AutoSpell 0S0E Signz 0S0E 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 From: tmpDisplayFrom_Preview tmpDisplayFrom_NoLogo tmpDisplayFrom_NoLogo NamesList SendTo ImplodedNamesList NamesList ImplodedNamesList ImplodedNamesList ImplodedNamesList tmpDisplaySendTo Subject: Subject Subject Subject 0S0E TmpDisplaySubject_1 CC_Content CopyTo BCC_Content DeliveredDate BlindCopyTo (bcc: 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 Sent by: FromDomain FromDomain FromDomain FromDomain 4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S FromName 0RR1S2S6S FromStops 0R1S2S6S FromName FromStops FromStops FromStops 0RR1S2S3S4S10S13S17S20StmpDisplaySentz tmpDisplaySent PostedDateh PostedDate 4S5S10S12S tmpDisplayDate_PreTime/date memo was created or mailed. tmpDisplayDate_Pre ReplyDate ReplyTo $HideMailHeader 2S3S4S5S6S7S9S10S14S15R Please respond ReplyTo ReplyTo ReplyDate ReplyDate 1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReply tmpDisplayReply IsMailStationery 0S0E Stationery name: MAILSTATIONERYNAME -Untitled- MAILSTATIONERYNAME 0S0E Statioz Statio gateway.gif|gateway.gif $HideMailHeader 0S0E To: SendTo cc: CopyTo cc: CC_Content CopyTo 1S2S BCC_Content BlindCopyTo (bcc: BlindCopyTo 0R5S6S8S9S10S14S16S17S19S CC_Content BCC_Content 0R3S4S tmprCopyTo bcc: BlindCopyTo Subject: SIZE=50 Subject Bodyz Categori_zeK _Edit Document Send Docu_ment _Move To Folder... _Remove From FolderK Send the message (MailOptions == 1 skips the Sign/Seal dialog) MailOptions 0R1S2S3S 0R7S9S MailOptions 0R1S2S3S Now save the message to the Sent folder 0RR1S tmpFolder IMAPSent 0R1S2S3S7S 0R7S9S act_SEND.GIF|act_SEND? Save As Draft Save the message to the Drafts folder tmpFolder IMAPDrafts 0R1S2S3S7S 0R7S9S act_SAVEASDRAFT.GIF|act_SAVEASDRAFT? _Forward act_FORWARD.GIF|act_FORWARD? Delete 0S0E act_DELETE.GIF|act_DELETE? Reply\ReplyK. Reply 4S6S act_REPLY.GIF|act_REPLY? Reply\Reply With Historyv @Command([ToolsRunMacro]; "(autoquote)") Not implemented yet 0R4S6S act_REPLY.GIF|act_REPLY? Address... 0S0E act_ADDRESSBOOK.GIF|act_ADDRESSBOOK? Categori_zeK _Edit Document Send Docu_ment _Move To Folder... _Remove From FolderK Send the message (MailOptions == 1 skips the Sign/Seal dialog) MailOptions 0R1S2S3S 0R7S9S MailOptions 0R1S2S3S Now save the message to the Sent folder 0RR1S tmpFolder IMAPSent 0R1S2S3S7S 0R7S9S Save As Draft Save the message to the Drafts folder tmpFolder IMAPDrafts 0R1S2S3S7S 0R7S9S _Forward Delete 0S0E Reply\ReplyK. Reply 4S6S Reply\Reply With Historyv @Command([ToolsRunMacro]; "(autoquote)") Not implemented yet 0R4S6S Address... 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO -`[1j ComposedDate PostedDate $Background $HeaderArea $RegionFrameset $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $V5ACTIONS $ACTIONS IconBitmap$UpdatedBy$DefaultFrameset$TITLE$FlagsNoRefresh$Flags$Name$ACLDigest$Signature$Index$Formula$FormulaClass$Collation$Collation1$Collation2$Collation3$Collation4$Collation5$ViewFormat$Comment$V5ACTIONS$ACTIONS$ViewGlobalScript$ViewGlobalScript_O$ViewScript$ViewScript_O$FolderObject$FolderIDTableComposedDatePostedDateDate$Background$HeaderArea$RegionFrameset$Info$WindowTitle$Fonts$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_OFromLogo$AutoSpellSignEncryptSendToCopyToBlindCopyToSubjectBody$Fields$BodyInheritedFromInheritedSubjectInheritedSendToInheritedReplyToInheritedFromDomain$SCRIPTOBJ_11$DesignVersion$Version$SiteMapList$FrameSet$ImagesWide$ImagesHigh$ImagesColorize$ImageData$ImageNames$PublicAccess$SCRIPTOBJ_5$WebFlags$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$NoPurgeIMailProxyType$Revisions memoBG.gif|memoBG.gif HeaderRegion BodyRegion New Memo 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 = "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 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 OBJECT Hidden: Principal Principal Principal Fromh 1S2S8S9S10S11S13S15S20S22S FromDomainh FromDomain" 0R7S8S9S10S11S13SInheritedFrom InheritedFrom Subject InheritedSubject 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 From: tmpDisplayFrom_Preview tmpDisplayFrom_NoLogo tmpDisplayFrom_NoLogo NamesList SendTo ImplodedNamesList NamesList ImplodedNamesList ImplodedNamesList ImplodedNamesList tmpDisplaySendTo Subject: Subject Subject Subject 0S0E TmpDisplaySubject_1 CC_Content CopyTo BCC_Content DeliveredDate BlindCopyTo (bcc: 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 Sent by: FromDomain FromDomain FromDomain FromDomain 4S10S14S21S24S32S33S36S37S39S41S42S43S49S52S56S59S64S FromName 0RR1S2S6S FromStops 0R1S2S6S FromName FromStops FromStops FromStops 0RR1S2S3S4S10S13S17S20StmpDisplaySentz tmpDisplaySent PostedDateh PostedDate 4S5S10S12S tmpDisplayDate_PreTime/date memo was created or mailed. tmpDisplayDate_Pre ReplyDate ReplyTo $HideMailHeader 2S3S4S5S6S7S9S10S14S15R Please respond ReplyTo ReplyTo ReplyDate ReplyDate 1S2S5S6S8S10S11S12S19S20S23S24S26S28S29S30StmpDisplayReply tmpDisplayReply gateway.gif|gateway.gif $HideMailHeader 0S0E To: MailAddress InheritedFrom 1S2S MailAddress SendTo} 0S0E SendTo cc: CopyTo 0S0E CopyTo} 0S0E CopyTo cc: CC_Content CopyTo 0S0E BCC_Content BlindCopyTo (bcc: BlindCopyTo 0R5S6S8S9S10S14S16S17S19S CC_Content BCC_Content 0R3S4S tmpCopyTo bcc: BlindCopyTo 0S0E BlindCopyTo 0S0E BlindCopyTo Subject: SIZE=50 Subject Topic Subject 1S2S5S6S8S10S Subj" 0R10S12S16S17S19S21S22S23S Subject Subject: Subject tmpDisplaySubject $HideMailHeader tmpDisplayLink Bodyz Categori_zeK _Edit Document Send Docu_ment _Move To Folder... _Remove From FolderK Send the message (MailOptions == 1 skips the Sign/Seal dialog) MailOptions 0R1S2S3S 0R7S9S MailOptions 0R1S2S3S Now save the message to the Sent folder 0RR1S tmpFolder IMAPSent 0R1S2S3S7S 0R7S9S act_SEND.GIF|act_SEND? Save As Draft Save the message to the Drafts folder tmpFolder IMAPDrafts 0R1S2S3S7S 0R7S9S act_SAVEASDRAFT.GIF|act_SAVEASDRAFT? _Forward act_FORWARD.GIF|act_FORWARD? Delete 0S0E act_DELETE.GIF|act_DELETE? Reply\ReplyK. Reply 4S6S act_REPLY.GIF|act_REPLY? Reply\Reply With Historyv @Command([ToolsRunMacro]; "(autoquote)") Not implemented yet 0R4S6S act_REPLY.GIF|act_REPLY? Reply To All'++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 NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = 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 vInheritedSendTo As Variant Dim vRealInheritedSendTo As Variant Dim iSenderIndex As Integer Dim x As Integer Dim strOwner As String Dim strInheritedDomain As String Set uidoc = uiwork.currentdocument Set note = uidoc.document strOwner = session.username vInheritedSendTo = note.GetItemValue("InheritedSendTo") strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0) ' Remove the sender from the list iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo) If (iSenderIndex >= 0) Then vInheritedSendTo(iSenderIndex) = "" End If vRealInheritedSendTo = Fulltrim(vInheritedSendTo) ' Append the inheritedfromdomain If Len(strInheritedDomain) Then For x = 0 To Ubound(vRealInheritedSendTo) If Not vRealInheritedSendTo(x) = "" Then vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain End If Next End If Call note.ReplaceItemValue("CopyTo", vRealInheritedSendTo) ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain ' Find all addresses without a domain and append FromDomain ' Find all addresses whose domain is the same as ours and strip it off End Sub '++LotusScript Development Environment:2:1:NAMEFindInList:1:8 Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Given a name and a list of names return the index position if the user is found, -1 otherwise %END REM Dim x As Integer Dim iNames As Integer NAMEFindInList = -1 If Isempty(vListOfNames) Then Exit Function End If If Isarray(vListOfNames) Then iNames = Ubound(vListOfNames) For x = 0 To iNames If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then NAMEFindInList = x Exit Function End If Next Else NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames)) End If End Function '++LotusScript Development Environment:2:1:NAMECompare:1:8 Function NAMECompare(sName1 As String, sName2 As String) As Integer Returns true if two names are equal, False otherwise %END REM Dim sCanName1 As String Dim sDomainName1 As String Dim sCanName2 As String Dim sDomainName2 As String Dim nLenName1 As Integer Dim nLenName2 As Integer Dim name1 As NotesName Dim name2 As NotesName Call NAMEGetComponents(sName1, sCanName1, sDomainName1) Call NAMEGetComponents(sName2, sCanName2, sDomainName2) Set name1 = New NotesName(sCanName1) Set name2 = New NotesName(sCanName2) ' Do a canonical comparison if both names are hierarchical If (name1.IsHierarchical) And (name2.IsHierarchical) Then If (Strcompare(Lcase(sCanName1), Lcase(sCanName2)) = 0) Then NAMECompare = True Exit Function Else Exit Function End If End If ' Compare the common names If (Strcompare(name1.common, name2.common) = 0) Then NAMECompare = True Exit Function End If NAMECompare = False End Function '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8 Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) Dim nameUser As NotesName Set nameUser = New NotesName(sUsername) If Instr(sUserName,"@") Then sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@") sRetDomain = Strright(nameUser.abbreviated,"@") Else sRetAbbreviatedName = nameUser.abbreviated sRetDomain = "" End If End Sub act_REPLY.GIF|act_REPLY? Address... 0S0E act_ADDRESSBOOK.GIF|act_ADDRESSBOOK? Categori_zeK _Edit Document Send Docu_ment _Move To Folder... _Remove From FolderK Send the message (MailOptions == 1 skips the Sign/Seal dialog) MailOptions 0R1S2S3S 0R7S9S MailOptions 0R1S2S3S Now save the message to the Sent folder 0RR1S tmpFolder IMAPSent 0R1S2S3S7S 0R7S9S Save As Draft Save the message to the Drafts folder tmpFolder IMAPDrafts 0R1S2S3S7S 0R7S9S _Forward Delete 0S0E Reply\ReplyK. Reply 4S6S Reply\Reply With Historyv @Command([ToolsRunMacro]; "(autoquote)") Not implemented yet 0R4S6S Reply To All'++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 NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = 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 vInheritedSendTo As Variant Dim vRealInheritedSendTo As Variant Dim iSenderIndex As Integer Dim x As Integer Dim strOwner As String Dim strInheritedDomain As String Set uidoc = uiwork.currentdocument Set note = uidoc.document strOwner = session.username vInheritedSendTo = note.GetItemValue("InheritedSendTo") strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0) ' Remove the sender from the list iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo) If (iSenderIndex >= 0) Then vInheritedSendTo(iSenderIndex) = "" End If vRealInheritedSendTo = Fulltrim(vInheritedSendTo) ' Append the inheritedfromdomain If Len(strInheritedDomain) Then For x = 0 To Ubound(vRealInheritedSendTo) If Not vRealInheritedSendTo(x) = "" Then vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain End If Next End If Call note.ReplaceItemValue("CopyTo", vRealInheritedSendTo) ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain ' Find all addresses without a domain and append FromDomain ' Find all addresses whose domain is the same as ours and strip it off End Sub '++LotusScript Development Environment:2:1:NAMEFindInList:1:8 Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Given a name and a list of names return the index position if the user is found, -1 otherwise %END REM Dim x As Integer Dim iNames As Integer NAMEFindInList = -1 If Isempty(vListOfNames) Then Exit Function End If If Isarray(vListOfNames) Then iNames = Ubound(vListOfNames) For x = 0 To iNames If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then NAMEFindInList = x Exit Function End If Next Else NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames)) End If End Function '++LotusScript Development Environment:2:1:NAMECompare:1:8 Function NAMECompare(sName1 As String, sName2 As String) As Integer Returns true if two names are equal, False otherwise %END REM Dim sCanName1 As String Dim sDomainName1 As String Dim sCanName2 As String Dim sDomainName2 As String Dim nLenName1 As Integer Dim nLenName2 As Integer Dim name1 As NotesName Dim name2 As NotesName Call NAMEGetComponents(sName1, sCanName1, sDomainName1) Call NAMEGetComponents(sName2, sCanName2, sDomainName2) Set name1 = New NotesName(sCanName1) Set name2 = New NotesName(sCanName2) ' Do a canonical comparison if both names are hierarchical If (name1.IsHierarchical) And (name2.IsHierarchical) Then If (Strcompare(Lcase(sCanName1), Lcase(sCanName2)) = 0) Then NAMECompare = True Exit Function Else Exit Function End If End If ' Compare the common names If (Strcompare(name1.common, name2.common) = 0) Then NAMECompare = True Exit Function End If NAMECompare = False End Function '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8 Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) Dim nameUser As NotesName Set nameUser = New NotesName(sUsername) If Instr(sUserName,"@") Then sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@") sRetDomain = Strright(nameUser.abbreviated,"@") Else sRetAbbreviatedName = nameUser.abbreviated sRetDomain = "" End If End Sub Address... 0S0E Lotus Product OBJECT ^8 +t ^H +t #KH - #KH - O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO KlJ~Tf ComposedDate $Background $HeaderArea $RegionFrameset $Info $WindowTitle $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $Body $V5ACTIONS $ACTIONS $SCRIPTOBJ_11 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 $106Folder Name 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 $103Folder UNID 0S0E $107Folder Flags Set the folder flags in addition to those that are stored FolderFlags1 $FolderFlagsh $FolderFlags 0R1S2S9S11S Set the FOLDER_FLAG_HIDDEN (32) and FOLDER_FLAG_SYSTEM (16) flags 0R1S FolderFlags1 $Name $Name 0R1S2S8S10S11S13S19S21S22S24S26S29S& New Memo. 0S0E Delete 0S0E Move To Folder... 0S0E _Forward Reply Reply 0S0E Reply With History@ Reply with history 0S0E Categori_zeK _Edit Document Send Resend NonDelivery Report Not a Delivery Failure Report You cannot Resend a message unless it is a Delivery Failure Report. 6S12S17S23S Convert To TaskK0 ConvertToTask _Move To Folder... _Remove From Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO "K[46 $Name $TITLE $Index $Formula $ViewFormat $Comment $ACTIONS $FormulaClass $1NoteID IMAPUIDIMAP UIDR IMAPUID $IMAPUIDh $IMAPUID 7S9S IMAPLastFolderUNIDLastFolderUnidp IMAPLastFolderUNID $IMAPLastFolderUNID $IMAPLastFolderUNID 7S12SIMAPSeqNoIMAP SequenceNoX IMAPSeqNo $IMAPSeqNoh $IMAPSeqNo 7S9S IMAPFlagsMessage FlagsX IMAPFlags $IMAPFlagsh $IMAPFlags 7S9S IMAPDiscFlagsDisconnected Flagsd IMAPDiscFlags $IMAPDiscFlagsh $IMAPDiscFlags 7S9S IMAPMsgIDInternet MsgIDT IMAPMsgID $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 $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 $SiteMapList $View? TemplateName|TemplateName? NotesNavigatorNotesView? OutlineDisplay|OutlineDisplay? Switcher dspDbTitle|dspDbTitle? NotesViewNotesPreview? Inbox? NotesPreview O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $TITLE $Comment $FrameSet $Flags ImapOutline.gif|ImapOutline.gif Mail Picker MailOutline MailOutlineNotesView O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Background $Info $$ScriptName $Body 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 GIF89a U/c:<`#V( Oa)n3 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a ___OOO .!f&a JCv2. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames $TITLE $PublicAccess GIF89a ___OOO h^/&W@ !#ap=Y"%l`jyj .g$:') oP{3$<{ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO "BQ4tD_.' StJKBE $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a c\")% )>@8$]! rZd !=IK~$Qu6 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a `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 $TITLE $ImageData $ImageNames $PublicAccess GIF89a S!t"W ='h1!K t#8BD=Gvj_ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO |RO;~" $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a ___OOO 9^cE9!f e^#:DF.XJCt36 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a ___OOO 'X5}~ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames $TITLE GIF89a ___OOO pE9p]j aQQ@C 8DFHJl3 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a ___OOO g;}QS pW/ O9GIfMst O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO 8pE W%1X $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames $TITLE $PublicAccess 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 TB"r $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a ___OOO A*;8$ \vDe ] O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89a @B$`) eM! c:<~(& O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames $TITLE $PublicAccess GIF89a ___OOO m[QNK \#& 3 QFv4# O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames $PublicAccess Send the message (MailOptions == 1 skips the Sign/Seal dialog) MailOptions 0R1S2S3S 0R7S9S MailOptions 0R1S2S3S Now save the message to the Sent folder 0RR1S tmpFolder IMAPSent 0R1S2S3S7S 0R7S9S act_SEND.GIF|act_SEND? Save As Draft Save the message to the Drafts folder tmpFolder IMAPDrafts 0R1S2S3S7S 0R7S9S act_SAVEASDRAFT.GIF|act_SAVEASDRAFT? Delete 0S0E act_DELETE.GIF|act_DELETE? Reply\ReplyK. Reply 4S6S act_REPLY.GIF|act_REPLY? Reply\Reply With Historyv @Command([ToolsRunMacro]; "(autoquote)") Not implemented yet 0R4S6S act_REPLY.GIF|act_REPLY? Reply To All'++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 NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = 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 vInheritedSendTo As Variant Dim vRealInheritedSendTo As Variant Dim iSenderIndex As Integer Dim x As Integer Dim strOwner As String Dim strInheritedDomain As String Set uidoc = uiwork.currentdocument Set note = uidoc.document strOwner = session.username vInheritedSendTo = note.GetItemValue("InheritedSendTo") strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0) ' Remove the sender from the list iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo) If (iSenderIndex >= 0) Then vInheritedSendTo(iSenderIndex) = "" End If vRealInheritedSendTo = Fulltrim(vInheritedSendTo) ' Append the inheritedfromdomain If Len(strInheritedDomain) Then For x = 0 To Ubound(vRealInheritedSendTo) If Not vRealInheritedSendTo(x) = "" Then vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain End If Next End If Call note.ReplaceItemValue("CopyTo", vRealInheritedSendTo) ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain ' Find all addresses without a domain and append FromDomain ' Find all addresses whose domain is the same as ours and strip it off End Sub '++LotusScript Development Environment:2:1:NAMEFindInList:1:8 Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Given a name and a list of names return the index position if the user is found, -1 otherwise %END REM Dim x As Integer Dim iNames As Integer NAMEFindInList = -1 If Isempty(vListOfNames) Then Exit Function End If If Isarray(vListOfNames) Then iNames = Ubound(vListOfNames) For x = 0 To iNames If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then NAMEFindInList = x Exit Function End If Next Else NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames)) End If End Function '++LotusScript Development Environment:2:1:NAMECompare:1:8 Function NAMECompare(sName1 As String, sName2 As String) As Integer Returns true if two names are equal, False otherwise %END REM Dim sCanName1 As String Dim sDomainName1 As String Dim sCanName2 As String Dim sDomainName2 As String Dim nLenName1 As Integer Dim nLenName2 As Integer Dim name1 As NotesName Dim name2 As NotesName Call NAMEGetComponents(sName1, sCanName1, sDomainName1) Call NAMEGetComponents(sName2, sCanName2, sDomainName2) Set name1 = New NotesName(sCanName1) Set name2 = New NotesName(sCanName2) ' Do a canonical comparison if both names are hierarchical If (name1.IsHierarchical) And (name2.IsHierarchical) Then If (Strcompare(Lcase(sCanName1), Lcase(sCanName2)) = 0) Then NAMECompare = True Exit Function Else Exit Function End If End If ' Compare the common names If (Strcompare(name1.common, name2.common) = 0) Then NAMECompare = True Exit Function End If NAMECompare = False End Function '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8 Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) Dim nameUser As NotesName Set nameUser = New NotesName(sUsername) If Instr(sUserName,"@") Then sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@") sRetDomain = Strright(nameUser.abbreviated,"@") Else sRetAbbreviatedName = nameUser.abbreviated sRetDomain = "" End If End Sub act_REPLY.GIF|act_REPLY? Address... 0S0E act_ADDRESSBOOK.GIF|act_ADDRESSBOOK? Send the message (MailOptions == 1 skips the Sign/Seal dialog) MailOptions 0R1S2S3S 0R7S9S MailOptions 0R1S2S3S Now save the message to the Sent folder 0RR1S tmpFolder IMAPSent 0R1S2S3S7S 0R7S9S Save As Draft Save the message to the Drafts folder tmpFolder IMAPDrafts 0R1S2S3S7S 0R7S9S Delete 0S0E Reply\ReplyK. Reply 4S6S Reply\Reply With Historyv @Command([ToolsRunMacro]; "(autoquote)") Not implemented yet 0R4S6S Reply To All'++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 NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Declare Function NAMECompare(sName1 As String, sName2 As String) As Integer Declare Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = 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 vInheritedSendTo As Variant Dim vRealInheritedSendTo As Variant Dim iSenderIndex As Integer Dim x As Integer Dim strOwner As String Dim strInheritedDomain As String Set uidoc = uiwork.currentdocument Set note = uidoc.document strOwner = session.username vInheritedSendTo = note.GetItemValue("InheritedSendTo") strInheritedDomain = note.GetItemValue("InheritedFromDomain")(0) ' Remove the sender from the list iSenderIndex = NAMEFindInList(strOwner, vInheritedSendTo) If (iSenderIndex >= 0) Then vInheritedSendTo(iSenderIndex) = "" End If vRealInheritedSendTo = Fulltrim(vInheritedSendTo) ' Append the inheritedfromdomain If Len(strInheritedDomain) Then For x = 0 To Ubound(vRealInheritedSendTo) If Not vRealInheritedSendTo(x) = "" Then vRealInheritedSendTo(x) = vRealInheritedSendTo(x) & "@" & strInheritedDomain End If Next End If Call note.ReplaceItemValue("CopyTo", vRealInheritedSendTo) ' Look for all addresses whose last domain is the same as the sender's domain -> append from domain ' Find all addresses without a domain and append FromDomain ' Find all addresses whose domain is the same as ours and strip it off End Sub '++LotusScript Development Environment:2:1:NAMEFindInList:1:8 Function NAMEFindInList(sKeyName As String, vListOfNames As Variant) As Integer Given a name and a list of names return the index position if the user is found, -1 otherwise %END REM Dim x As Integer Dim iNames As Integer NAMEFindInList = -1 If Isempty(vListOfNames) Then Exit Function End If If Isarray(vListOfNames) Then iNames = Ubound(vListOfNames) For x = 0 To iNames If (NAMECompare(sKeyName,Cstr(vListOfNames(x)))) Then NAMEFindInList = x Exit Function End If Next Else NAMEFindInList = NAMECompare(sKeyName, Cstr(vListOfNames)) End If End Function '++LotusScript Development Environment:2:1:NAMECompare:1:8 Function NAMECompare(sName1 As String, sName2 As String) As Integer Returns true if two names are equal, False otherwise %END REM Dim sCanName1 As String Dim sDomainName1 As String Dim sCanName2 As String Dim sDomainName2 As String Dim nLenName1 As Integer Dim nLenName2 As Integer Dim name1 As NotesName Dim name2 As NotesName Call NAMEGetComponents(sName1, sCanName1, sDomainName1) Call NAMEGetComponents(sName2, sCanName2, sDomainName2) Set name1 = New NotesName(sCanName1) Set name2 = New NotesName(sCanName2) ' Do a canonical comparison if both names are hierarchical If (name1.IsHierarchical) And (name2.IsHierarchical) Then If (Strcompare(Lcase(sCanName1), Lcase(sCanName2)) = 0) Then NAMECompare = True Exit Function Else Exit Function End If End If ' Compare the common names If (Strcompare(name1.common, name2.common) = 0) Then NAMECompare = True Exit Function End If NAMECompare = False End Function '++LotusScript Development Environment:2:2:NAMEGetComponents:1:8 Sub NAMEGetComponents(sUserName As String,sRetAbbreviatedName As String,sRetDomain As String) Dim nameUser As NotesName Set nameUser = New NotesName(sUsername) If Instr(sUserName,"@") Then sRetAbbreviatedName = Strleft(nameUser.abbreviated,"@") sRetDomain = Strright(nameUser.abbreviated,"@") Else sRetAbbreviatedName = nameUser.abbreviated sRetDomain = "" End If End Sub Address... 0S0E Lotus Product OBJECT ^8 +t ^H +t #KH - #KH - O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $Body $V5ACTIONS $ACTIONS $SCRIPTOBJ_5 Untitled O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $WebFlags $$ScriptName $Body '++LotusScript Development Environment:2:5:(Options):0:74 Option Public Option Declare '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Class FormatRichText Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:10 'autoquote: 'InternetReply: Const DEFAULT_OFFSETCHAR = ">>" Class FormatRichText Private session As notessession Private uiws As notesuiworkspace Private noteUIEditDocument As notesuidocument Private noteParent As notesdocument Private noteMemo As notesdocument Private rtParentBody As notesrichtextitem Private strReplyFormat As String Private strFormattedText As String Private strArray() As String Private nLineAdded As Integer Declare Public Function Init() Public Function Init() Set session = New notessession Set uiws = New notesuiworkspace strReplyFormat = DEFAULT_OFFSETCHAR Dim uidoc As notesuidocument Set uidoc = uiws.currentdocument Set noteParent = uidoc.document ' Set noteParent = session.CurrentDatabase.UnprocessedDocuments.GetFirstDocument() Set noteMemo = session.CurrentDatabase.createdocument() If Not noteParent Is Nothing Then If GetBodyFromNote() Then If ExtractFormattedText() Then With noteMemo Call .replaceitemvalue("Form","Reply") 'still need to create the address items... Call CreateBody()'Text() Call noteMemo.MakeResponse(noteParent) Call noteMemo.replaceitemvalue("InheritedFrom", noteParent.GetItemValue("from")(0)) Call noteMemo.replaceitemvalue("Subject", "RE: " + noteParent.GetItemValue("subject")(0)) Call noteMemo.replaceitemvalue("From", Evaluate("@username")) Call noteMemo.replaceitemvalue("ReplyTo", noteParent.GetItemValue("ReplyTo")(0)) Call noteMemo.replaceitemvalue("InheritedFromDomain", noteParent.GetItemValue("FromDomain")(0)) Call noteMemo.replaceitemvalue("Logo", "StdNotesLtr21") Call noteMemo.replaceitemvalue("$AutoSpell", "1") Dim item As notesitem Dim pSendTo As Variant Dim pCopyTo As Variant pSendTo = noteParent.getitemvalue("SendTo") pCopyTo = noteParent.getitemvalue("CopyTo") Call noteMemo.replaceitemvalue("InheritedSendTo", pSendTo) Set item = noteMemo.getfirstitem("InheritedSendTo") Call item.appendtotextlist(pCopyTo) Set noteUIEditDocument = uiws.Editdocument(True, noteMemo) End With End If End If Else 'Bail we got no masterdocument End If Exit Function End Function Private Function CreateBody() As Integer Dim rtMemoBody As notesrichtextitem Dim n As Integer Set rtMemoBody = New notesrichtextitem(noteMemo,"Body") For n = 0 To Ubound(strArray) If Len(strArray(n)) > 1 Then nLineAdded = False Call rtMemoBody.Appendtext(strReplyFormat & strArray(n)) Call rtMemoBody.Addnewline(1,True)'this should be set based off acume string length Else If Not nLineAdded Then Call rtMemoBody.Appendtext(strReplyFormat) Call rtMemoBody.Addnewline(1,False) nLineAdded = True End If End If Next End Function Private Function GetBodyFromNote() As Integer GetBodyFromNote = False If noteParent.hasitem("Body") Then Set rtParentBody = noteParent.GetFirstItem("Body") If Not rtParentBody Is Nothing Then GetBodyFromNote = True Exit Function End If End If End Function Private Function ExtractFormattedText() As Integer strFormattedText = rtParentBody.Getformattedtext(False, 80) If CreateFormattedArray() Then ExtractFormattedText = True End If End Function Private Function CreateFormattedArray() As Integer CreateFormattedArray = True Redim strArray(0) Dim strWorkingString As String Dim strTempString As String Dim n As Integer Dim lngLeftPart As Long Dim lngTotalLength As Long Dim lngLength As Long strWorkingString = strFormattedText While Instr(strWorkingString,Chr(13)) Redim Preserve strArray(n) lngTotalLength = Len(strWorkingString) lngLeftPart = Instr(strWorkingString,Chr(13)) strTempString = Left(strWorkingString,lngLeftPart - 1) While Instr(strTempString,Chr(13)) = 1 strTempString = Right(Left(strWorkingString,lngLeftPart),(Len(strWorkingString) - 1)) Wend strArray(n) = strTempString strWorkingString = Right(strWorkingString,(lngTotalLength - (lngLeftPart + 1))) n = n + 1 Wend End Function End Class '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim InternetReply As New FormatRichText Call InternetReply.Init() End Sub Lotus Product OBJECT n$U p$U n$U p$U B U p$U n$U W d/E NW 85W 5W (6W )W H*W ` ` h /` #8 O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO "wVZ) Xch0c $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex Times New Roman GIF89a 7~1-] About Mail (IMAP) What does this database do? A Mail (IMAP) database is a local database that allows you to interact with an IMAP server by reading and manipulating messages and folders in your IMAP mailbox. You can also work disconnected from the network and then later re-syncronize with the IMAP server. To use the Mail (IMAP) database, you need to first create an Internet Account document. When you save the Internet Account document, a Mail (IMAP) database is automatically created. A description of Internet Account documents is described in the Using This Database document. Who will use this database? Anyone who has a mailbox on an IMAP server. Important Features Folders: Folders called mailboxes can be created, renamed, moved and deleted. After folders have been modified, you can use the option "Refresh Folders" to retrieve the latest list of folders from the server. Messages: Messages can be deleted, moved, replied to, and created. IMAP Online Mode: Used to interactively manipulate messages and folders (mailboxes) on the IMAP server. Message summaries and messages are retrieved by the Mail (IMAP) database. They are not stored in the local database. Only design elements for forms and folders are stored in the local database. IMAP Disconnected Mode: Used to retrieve messages and folders into a local Mail (IMAP) replica. These messages and folders (mailboxes) can be manipulated while disconnected and then later re-synced with the IMAP sever. Where to find more information? - More information can be found in the 0S0E Using This Database document. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $Body Times New Roman Using Mail (IMAP) Internet Account documents An Internet Account is a document in your Personal Address Book that describes an Internet service. For example, an IMAP Internet Account document defines the name of the IMAP server and the user name and password you use to access it. To use a Mail (IMAP) database you must first create an IMAP Internet Account document. When you save the IMAP Internet Account document, a Mail (IMAP) database is automatically created. When you run Notes for the first time you can choose to have Notes automatically create Internet Account documents. To create an IMAP Internet Account: Open your Personal Address Book. Expand the Advanced triangle. Click on the Accounts folder. Click on the Add Account button in the action bar. Fill in the "Account name" field. You're free to use any name you'd like for the account, but the account name must be unique within your Personal Address Book. Generally, it's a good idea to base the account name on the server you are accessing. For example, if you are adding an account for an IMAP server called imap.myisp.com, call the account "imap myisp". Fill in the "Account server name" field with the full Internet name of the server you are accessing, for example, imap.myisp.com for an IMAP mail server. If the server you are accessing is authenticated, enter your login name and password. IMAP servers are almost always authenticated. Select "IMAP Online" as the type of service in the Protocol field. If your Internet server requires SSL (Secure Sockets Layer), change the SSL field to "Enabled". If you enable SSL, you should also review the SSL settings on the Advanced tab of the Account form. See Advanced Topics below for more information on SSL. If you want to use this account only from selected locations, change the "Only from location(s)" field. For example, if your IMAP account is only available when you dial your Internet Service Provider (ISP) from home, you might want to select only the "Home" location. Using IMAP To read your IMAP mail online, you use a Mail (IMAP) database. Although the database is a local database, it does not store your IMAP messages locally. Instead, the database stores certain design elements like folders and forms, and retrieves message summaries and messages from your IMAP server. To read your IMAP mail: Switch to the Internet location or any location you have manually set up for IMAP Internet mail. Choose File - Database - Open and select the "Incoming Internet Mail" database. If you manually created the IMAP account, the database is "<Your Account Name> (IMAP)", where <Your Account Name> is the name you chose. When you have selected the correct database, click Open. Notes R5 connects to your IMAP server and retrieves message summaries from your IMAP Inbox. To read a mail message, select the message and press Enter. In addition to IMAP online mode, Notes R5 supports IMAP disconnected mode. For more information, see the section "Creating an IMAP replica" in the Advanced topics section below. Setup to send Internet Mail When you run Notes for the first time, you can choose to have Notes automatically create Internet Account documents for outgoing mail. To set up Notes for sending Internet mail you need to create an Internet Account documents for outgoing SMTP mail. To create an SMTP Internet Account document see the "Internet Account documents" section above and note the following. Select "SMTP" as the type of service in the Protocol field. Once you have created the SMTP account, you may also need to create or edit a Location document. SMTP is used to send mail only from locations that have the Location document field "Send outgoing mail" set to "directly to Internet". Sending Internet mail When you use IMAP for incoming mail, you send mail with your Inbox or other mail folder open: Click the New Memo button. Complete the To, Subject and cc: fields. Enter the text of your message Click Send. If your SMTP account is accessible, Notes sends your mail immediately. If your SMTP account is inaccessible, Notes holds your mail in a local database called "Outgoing mail" (SMTP.BOX). To send mail from the "Outgoing mail" database, go to the Replicator page, check the box next to the Replicator entry called "Send outgoing Internet mail", and click Start. Advanced topics Notes R5 supports Secure Sockets Layer (SSL) for secure communication using IMAP, POP3, LDAP and NNTP. To enable SSL you need to first find out what version of SSL your server supports. Notes supports SSL versions 2.0 and 3.0. It can also negotiate the best SSL version to use with a particular server. To enable SSL for a particular account: Open your Personal Address Book. Expand the Advanced triangle. Click on the Accounts folder. Open the appropriate account, for example, POP3. On the Basics tab change the SSL field to "Enabled". On the Advanced tab select the correct SSL protocol version. If you select anything other than "V2.0 only" be sure to follow the instructions in the next section, Retrieving an Internet Cross Certificate. Click Save and then Close. Retrieving an Internet Cross Certificate Before you can use SSL version 3.0 with IMAP, LDAP, NNTP or POP3, you must first obtain a cross certificate for the server. To do so, follow these steps: Choose File - Tools - Add Internet Cross Certificate. Choose a protocol with which to obtain the cross certificate. The server must be listening on the port indicated. Once you obtain the cross certificate, it can be used for SSL communications using any protocol. Enter the server name. Click the Advanced button and make sure the Proxy check box is appropriately set, depending on whether you use a proxy server to access the Internet. Click Cross Certify. A dialog box appears that allows you to choose the certificate to cross certify. Note: If the dialog box does not appear, you do not have a cross-certificate. Check that the server is listening on the port indicated and that the Proxy check box is correct. Choose the certificate of the server, and click OK. Creating an IMAP replica As described earlier, an Mail (IMAP) database doesn't store messages locally. Depending on your needs however, you may want to create a replica of your Mail (IMAP) that does store messages locally. For example, you may need to disconnect from the network to go on a business trip, but you need to read mail. When you create a replica, you pull messages from all your IMAP folders to a separate local database. To make a replica of an existing Mail (IMAP) database: Open the Mail (IMAP) database. Choose File - Replication - New Replica. Change the File Name. For example, if the Mail (IMAP) database is named IMAP.NSF, change the file name to IMAPREP.NSF. Click OK. Open the Replicator page. Notice there is a new replication entry for your Mail (IMAP) database. Click Start to begin replication. When replication is finished, double-click the icon on the IMAP replication entry to open the IMAP replica. You can now read and send mail messages locally. If you are disconnected from your network, sent mail is held in the "Outgoing mail" database (SMTP.BOX). When you reconnect and restart replication, your mail is sent. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $Info $Body (GIF89a XxeWE C'J_>^ ?YxYX. LI"ICG# c*&Aoe y{(~: Oi;kYY$ 3f6t! #M5& D:q L\31w c+!1Y t5sM& ?R+F,m *MRD_Q x>Y\V Aw|HU QF)ud UA2Te =^|| j<"Eef/ B3]\"G= )`40h d oTn \X&$T 5Ln2gBt 3$4I@TGE Q|7qvcF TtY;vy k[plo' Dj!rt YP6H& DBVs?h &7=c' Y%Me.9 {k]{Z !VGn Si*{~ l9hvR ])ZfO Nw&%9H N;YCB C#n<fiJ6i ZcS35 *L+D7+ )sCKQ <>R"_ \eYA#: T 5.6h 0NKEm &j54r&WFX ddo$ 7d}<[ *HD13 ^&NS J8D`c ?AcAF 2? _@u TVY?nA ?2{CE T4}jS wQY0-cmT OWV.H S%BT*"' ZD 1d JTZ'g!9 agxeU y"gF2.Z H ]paQ V!(&H c6d+;} $R:[d yQ(Dh ow{H< >2]"$ 8WK3# R/ &G [ g37d &0} P? O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImageData $ImageNames $TITLE (GIF89a 1u)d# $,]>U N%nry \}lM{zY q0v]; @Mn?Y< UfySr c8V^kv WVt3vidx b+He@E ODg@G OWOW2 Y(TNhS aIl~FTs D5urK }V}du +jNc9 O'JDI $WzxQ \eF^| /ejvde Hw0.b rEp+ vtxPd |eCGY M9(P %zh H:|l# 6PyU7 q^XJ5 o"6mr Y_P4e wTxy: J)a?`9 7o!F_ GgBES-G! bEhx{> 7%S~j GO7DH 7[?'{ S>r"u {5CRk gXwy% tR_tOyJz a@]8$| C\Y9y:71 tz;vZ# >< J' L"7kA [5L#2 xK*:B U=/5- S(FS6 %T q* d*3s^ mOEGFo @7!(0d "\L#U&2, Q#^"Htl 6r|1O(X WEUS} $cPek[ )23bJ s F_[ m o\R e ?aAb# F{8~8k ;plKO *&7}{e? lS#4Q ;Rpl| "?Txr f`$HH `i2%7dAS bh (o wG4"3 RDB~z (MDSj .iX W4C vuGr6K j#j_fr 6~-tP G1PP< K3(uto ;P\gW 9$juc1 h1*!A F)3Xc* <K|Wx l' #7 :UneJp d7zPCh /S4-S`Y2 Qh&A\ X3L:(d )uYLtC I^2o*= (l+o> &hB?Y$ *L!B#J }uJ]# S>qj% *R!1e tJr>] FWrad Kky{P 7z/Wp_ _KwM; heWgH n]YU;g zm7uX yYW8 er4BB RP%#i5,$p ;:Pz Is"rl w 5X! xA#q! Nab79=? KNQOVVXW U{hx$i S&Q(QI GUSeLq$ j0GGG0 mO&W#\ k6d0[ '@#]C >1Jk@ WI%QR fv{_G <6=VIh /<F6[ jI|?4 cxk"f ]7A.' v|FgH Xz de[ ^!xM>HD S$XuW @ FDl off^e Yiaxk 6;Iv% LLq0E } 7*vx| Yt=uu ?QYmF Me63WMSY j]9jv V5ec& -*c(m O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO !6%g^% $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames $TITLE $Comment (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 Ug,.F $ImagesWide $ImagesHigh $ImagesColorize $TITLE $ImageData $ImageNames GIF89aX @B|xN `-P=aP (`0/ eT-o Z Blv,eN Q3M(@ %5KI9@ A1VV8 bfzYg 9y]9C %7;t1 n}b"d L,WP9 ]` 8Y/(Sv ?)W:[ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO $ImagesWide $ImagesHigh $ImagesColorize $ImageData $ImageNames $TITLE 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