ࡱ>  Root Entry ? __properties_version1.009__nameid_version1.0( W??__substg1.0_0E04001E* : 8!"#$%&'()*+,-./012345679A;<=>?@BCDEFRoot Entry FF? __properties_version1.009__nameid_version1.0( W??__substg1.0_0E04001E* : 8!"#$%&'()*+,-./012345679A;<=>?@BCDEF__substg1.0_0E03001E*__substg1.0_0E02001E*__substg1.0_001A001E*8__substg1.0_1035001E*73__substg1.0_67400102* 6.__substg1.0_300B0102* 5__substg1.0_3FF90102*3L__substg1.0_3FF8001E*2__substg1.0_3FFB0102* 0L__substg1.0_3FFA001E*/__substg1.0_0037001E*.__substg1.0_0E1D001E*__substg1.0_003D001E*-__substg1.0_80000102* 0__substg1.0_80010102*x__substg1.0_80020102*K__substg1.0_80030102*/__substg1.0_80040102* 8__substg1.0_80050102* __substg1.0_8007001E* __substg1.0_8013001E*__substg1.0_1000001E* __substg1.0_1008001E*__substg1.0_10090102*w__substg1.0_00020102*m __substg1.0_00030102*e__substg1.0_00040102*cL__substg1.0_10130102*b   !"#$%&'()*+,14:;<=>?@ABCDEFGdfghijklsLZFu9H#e rcpg125236  ch set0z Pm }  ; b 8  ucP cAE `n033 1_ a 8.5DBFromE lRenderingPos lRenderingPosE strEntryId strEntryIdD7SubjectReplyIPM.NoteStandard message formREf Reply to AllIPM.NoteStandard message formREgForwardIPM.NoteStandard message formFWhReply to FolderIPM.PostStandard post formlMessageMessagePage 2P.2Net Folder ConflictFolderPub.Conflict ( @0330083;3;0x;0xxxpxpwpwp ( @00x3308xx3308{0{08p0xpppxpxpxpxpwwxpwpxxpo'?c?_ ?c/?cYour Name HereA7O[JUDim objFpNewSub Sub KeepThis_Click() Set objFpNewSub = application.CreateObject("FPNewSubCtl.FPNewSub.1") Set myItem = Item.GetInspector.CurrentItem set myPage = Item.GetInspector.ModifiedFormPages(1) Set ListBox = myPage.lstAttachment Index = ListBox.ListIndex If Index = -1 then MsgBox "Please select an item from the list first", 48, "Net Folder" Else Item.UserProperties("lRenderingPos") = (myItem.Attachments.Item(Index+1).Position) - 1 objFpNewSub.lRenderingPos = Item.UserProperties("lRenderingPos") objFpNewSub.strMsgEntryId = Item.entryId objFpNewSub.pdsipItem = Item objFpNewSub.KeepOne() End If End Sub Sub KeepAll_Click() Set objFpNewSub = application.CreateObject("FPNewSubCtl.FPNewSub.1") Set myItem = Item.GetInspector.CurrentItem Item.UserProperties("lRenderingPos") = (myItem.Attachments.Item(1).Position) - 1 objFpNewSub.lRenderingPos = Item.UserProperties("lRenderingPos") objFpNewSub.strMsgEntryId = Item.entryId objFpNewSub.pdsipItem = Item objFpNewSub.KeepAll() End Sub Sub lstAttachment_Click() End Sub Sub Open_Click() Set objFpNewSub = application.CreateObject("FPNewSubCtl.FPNewSub.1") Set myItem = Item.GetInspector.CurrentItem set myPage = Item.GetInspector.ModifiedFormPages(1) Set ListBox = myPage.lstAttachment Index = ListBox.ListIndex If Index = -1 then MsgBox "Please select an item from the list first", 48, "Net Folder" Else Item.UserProperties("lRenderingPos") = (myItem.Attachments.Item(Index+1).Position) - 1 objFpNewSub.lRenderingPos = Item.UserProperties("lRenderingPos") objFpNewSub.strMsgEntryId = Item.entryId objFpNewSub.pdsipItem = Item objFpNewSub.OpenAttach() End If End Sub Function Item_Open() On Error Resume Next Set objFpNewSub = application.CreateObject("FPNewSubCtl.FPNewSub.1") If Err.Number <> 0 Then 'Msg = "Error # " & Err.Number & " was generated by " _ ' & Err.Source & Chr(13) & Err.Description 'MsgBox Msg, vbOKOnly, "Net Folder" Msg = "You must have the Net Folder feature installed before you can respond to this." MsgBox Msg, vbOKOnly, "Net Folder" Err.Clear ' Clear Err object fields Item.GetInspector.Close(olDiscard) Else lRet = objFpNewSub.InitConflictForm() If lRet <> 0 Then Item.GetInspector.ModifiedFormPages(1).Open.Enabled = FALSE Item.GetInspector.ModifiedFormPages(1).KeepOne.Enabled = FALSE Item.GetInspector.ModifiedFormPages(1).KeepAll.Enabled = FALSE Msg = "You must have the Net Folder feature installed before you can respond to this." MsgBox Msg, vbOKOnly, "Net Folder" Else set myPage = Item.GetInspector.ModifiedFormPages(1) set myListBox = myPage.lstAttachment myListBox.Clear myListBox.ColumnWidths = "0" Set myItem = Item.GetInspector.CurrentItem cAtt = myItem.Attachments.Count for i = 0 to (cAtt-1) count = i+1 myListBox.AddItem Msg = CStr(i+1) & ". " & myItem.Attachments.Item(i+1).DisplayName myListBox.Column(1,i) = Msg next End If End If End Function ࡱ>  Root Entryb\?Page 2`Z?b\?fFo  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHILNOPQRSTUWXYZ[\]^_`bcdefghikmnopqrstuvwxyz(H @ }2&"  Microsoft Forms 2.0 FormEmbedded Object9q0H. q@}Aa3 ¯NCh08K#F~~ؗh`%F(W2<SubjectCompObjaControlBinding Message b\?b\?f` Z@8KeepThis /Click this to keep the selected item and delete the restl [8AKeepAll /Click this to keep all of the items in conflict as seperate items@H \4$OpenU/Click this to view the selected item(^2DTextBox5{T, _28SentLabelHP4h22_RecipientControl1H(i2TextBox1(j2< Label11H k2@ Label12Subject of the original itemL l2D Label13'List of the items in conflictH(m24 Label7@(o2L Label6@`$p. Image2@$e. Image1@(q2,Label9@/, fLlstAttachment{H o F LicKeyJCompObj KaControlBinding M, H(W!Tahoma@$(TKeep This ItemHV aTahoma@(AKeep AllV aTahoma@(OOpenV aTahoma@(@H(~ None!Tahoma@,Date:@O}!Tahoma@BbFTahomaK #@HV7[* Conflicting edits have been made to the same item. The different versions of the message appear below. To resolve this conflict, do one of the following: 1. Specify one of the items as the master copy and merge any information you need from other items into the master copy. Then choose the "Keep This Item" button to replace the conflict item with the master copy, discarding the other versions. 2. Save all of the items in conflict. Choose the "Keep All" button. This will resolve the conflict by saving all items in conflict as new items. All subscribers will received copies of all items.!Tahoma@ -From:@`!Tahoma@$-jSubject:`!Tahoma@(-Conflict Items:X!Tahoma@#Y_5!Tahoma@0/NetFolder ConflictH1Tahoma@ &OOR KQlt ( @pppxpwwwxwwxpwwwwwwxwwwwwpwwwpwwwwwxxwwxpxxwwwpppxxpppppppwpppppppwwpwwwppwwwwpwpppwpwpppppppwwwwppppxpppwwwwpppppppwpwpwpppppppppwppwpppwwwww? &OOR KQlt ( @;0; ?  0? 0;33 0? 00;;0?0;;?0;00;?? p??$>{!Tahoma@ c_(@Tahoma@ Microsoft Forms 2.0 FormEmbedded Object9q`F(F7Subject(F7J `F@(F9Sent@(F9J D`F@(FBFrom(FBJ@0H. ;@}5|$ ¯NCh08K$FPPe`}Message-Readb\?b\?fVo a CompObjjaPCe`8K#F~~ؗh`%F $.22FromO$02@SentX&O, 124SentLabelQ$222ToF$422CC=$68 Subject4, 728 SubjectLabel$8Message_, 924FromLabel(:20ToLabel(;20CCLabel BTahomaR $@H(None!Tahoma(Sent:3X!Tahoma_-TahomaR _-TahomaR H(E-!Tahoma(jSubject:4X!Tahomaf4(From:4X!Tahoma(To:4X!Tahoma(Cc:4X!Tahoma Microsoft Forms 2.0 FormEmbedded Object9q `F@(FBFrom(FBF@`F@(F9Sent@(ControlBinding lF9F `F@(FTo(FF@`F@(FCC(FF@`F(F7Subject(F7F `F@(FMessage(FF@Dܧ@B+//O=ENTERPRISE/OU=ORG/CN=RECIPIENTS/CN=YOURADDRYour Name Hereܧ@B+//O=ENTERPRISE/OU=ORG/CN=RECIPIENTS/CN=YOURADDRRY _Y ,d_̫'o.t_̫'A}EIPM.Note.FolderPub.Conflict@0 W?@0 W?softooo?53#Z )@g. 6?  0?L??L?7o__substg1.0_10080102*!'a__substg1.0_10000102*(`__substg1.0_10110102**_ __substg1.0_10120102*"7^ __substg1.0_10010102*]__substg1.0_101E0102*4\__substg1.0_100A0102*)5[__substg1.0_100F0102*&/Z__substg1.0_10020102*$,Y__substg1.0_10090102*X__substg1.0_10100102*W__substg1.0_100B0102*9V__substg1.0_10040102*-2U(__substg1.0_10030102*T __substg1.0_100E0102*S__substg1.0_101A0102*#3R__substg1.0_101B0102*Q__substg1.0_10050102*P__substg1.0_10060102*16O__substg1.0_101C0102*0%N__substg1.0_101D0102*M__substg1.0_100D0102*+.L__substg1.0_10070102*K__substg1.0_10140102*8J__substg1.0_10150102*I__substg1.0_100C0102*Hn=0xK/8     !    w&  #x31;M.;0'$!4"7) :6(I.D,^c$P8Qp/ 99$B 0& E-5 8*T5#R @ 27  C+6:%A`4lRenderingPosstrEntryIdKeywordsA @RT     B PQ` $!4"5#9$:%0&'6(7)8*C+D,E-I.p/012x345678 9 :8; F F