ࡱ>  Root Entry ? !__properties_version1.00K__nameid_version1.0(*? ?__substg1.0_0E04001E*  ;I !"#$%9'()*+,-./012345678:C<=>?@ABDEFGHJRoot Entry FFg@ !__properties_version1.00K__nameid_version1.0(*? ?__substg1.0_0E04001E*  ;I !"#$%9'()*+,-./012345678:C<=>?@ABDEFGHJ__substg1.0_0E03001E* __substg1.0_0E02001E*__substg1.0_001A001E*J!__substg1.0_0037001E*I__substg1.0_0050001E* H__substg1.0_0070001E*G__substg1.0_10090102*Ep__substg1.0_300B0102*D__substg1.0_8002001E*C__substg1.0_8008001E* B__substg1.0_8009001E*A__substg1.0_800A001E* @__substg1.0_800D0102*&&__substg1.0_800E0102*!__substg1.0_800F0102*K__substg1.0_80100102*__substg1.0_80110102*__substg1.0_80120102*4 __substg1.0_8013001E* __substg1.0_8014001E* __substg1.0_8016001E* __substg1.0_8017001E* __substg1.0_8018001E* __substg1.0_8019001E*__substg1.0_801A001E*__substg1.0_801B001E*__substg1.0_801D001E*__substg1.0_003D001E*__substg1.0_0E1D001E*__substg1.0_00020102* __substg1.0_00030102*!#|__substg1.0_00040102*1w< "#$%&'()*+,-./0123456789:;<=>?FLMNOPQRSTUVWXYxyz{}~EfIsSMTPfIsSMTPE FolderClass FolderClassEFolA7O[JUDim objFpNewSub Sub Subscribe_Click() Set objFpNewSub = application.CreateObject("FPNewSubCtl.FPNewSub.1") objFpNewSub.lPermission = Item.UserProperties("Permission") objFpNewSub.strPublicationName = Item.UserProperties("PublicationName") objFpNewSub.strPublicationDesc = Item.UserProperties("PublicationDesc") objFpNewSub.strFolderClass = Item.UserProperties("FolderClass") objFpNewSub.strPubId = Item.UserProperties("PublisherID") objFpNewSub.strSubId = Item.UserProperties("SubscriberID") objFpNewSub.strPublisherName = Item.SenderName objFpNewSub.strFolderName = Item.UserProperties("SubFolderName") objFpNewSub.strMsgEntryId = Item.entryId objFpNewSub.strStoreId = Item.UserProperties("StoreID") objFpNewSub.strFolderId = Item.UserProperties("FolderID") objFpNewSub.pdsipItem = Item objFpNewSub.Accept() If objFpNewSub.bSetFocus <> FALSE Then Set FldTextBox = Item.GetInspector.ModifiedFormPages("Message").Controls("TextBox7") FldTextBox.SetFocus FldTextBox.SelStart = 0 FldTextBox.SelLength = FldTextBox.TextLength End If End Sub Sub Decline_Click() Set objFpNewSub = application.CreateObject("FPNewSubCtl.FPNewSub.1") objFpNewSub.lPermission = Item.UserProperties("Permission") objFpNewSub.strPublicationName = Item.UserProperties("PublicationName") objFpNewSub.strPublicationDesc = Item.UserProperties("PublicationDesc") objFpNewSub.strFolderClass = Item.UserProperties("FolderClass") objFpNewSub.strPubId = Item.UserProperties("PublisherID") objFpNewSub.strSubId = Item.UserProperties("SubscriberID") objFpNewSub.strPublisherName = Item.SenderName objFpNewSub.strFolderName = Item.UserProperties("SubFolderName") objFpNewSub.strMsgEntryId = Item.entryId objFpNewSub.strStoreId = Item.UserProperties("StoreID") objFpNewSub.strFolderId = Item.UserProperties("FolderID") objFpNewSub.pdsipItem = Item objFpNewSub.Decline() End Sub Sub Browse_Click() set myNameSpace = Application.GetNameSpace("MAPI") On Error Resume Next set fld = myNameSpace.PickFolder() If Err.Number = 0 Then Item.UserProperties("SubFolderName") = fld.Name Item.UserProperties("StoreID") = fld.StoreID Item.UserProperties("FolderID") = fld.Parent.EntryID 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, "Folder Publishing" Msg = "You must have the Net Folders component installed before you can respond to this invitation." MsgBox Msg, vbExclamation, "Net Folders" Err.Clear ' Clear Err object fields Item.GetInspector.Close(olDiscard) Else set myNameSpace = Application.GetNameSpace("MAPI") set myRecip = myNameSpace.CurrentUser() set myRecip2 = Item.Recipients.Item(1) If UCase(myRecip.Address) <> UCase(myRecip2.Address) Then If Item.UserProperties("fIsSMTP") = 0 Then Msg = "The email address this invitation was sent to does not match your default email address. You should not accept or decline this invitation if you were not the intended recipient." MsgBox Msg, vbExclamation, "Net Folders" End If End If lRet = objFpNewSub.Init() If lRet <> 0 Then Item.GetInspector.ModifiedFormPages("Message").Subscribe.Enabled = FALSE Item.GetInspector.ModifiedFormPages("Message").Decline.Enabled = FALSE Msg = "You must have the Net Folders component installed before you can respond to this invitation." MsgBox Msg, vbExclamation, "Net Folders" End If End If End FunctionderIDFolderIDE FolderType FolderTypeDBFromMessageE Permission PermissionEPublicationDescPublicationDescEPublicationNamePublicationNameE PublisherID PublisherIDD9SentEStoreIDStoreIDE SubFolderName SubFolderNameD7SubjectE SubscriberID SubscriberIDDToReplyIPM.NoteMessageREf Reply to AllIPM.NoteMessageREgForwardIPM.NoteMessageFWhReply to FolderIPM.PostPostlMessageMessagePage 6P.6Page 2P.2Options SubscriptionFolderPub.NewSubscriber Net Folders1.0 ( @D{{{" z"{{{/"/p;8& 3 "", r*, ',y,@)"?6 &(( @DDHDDDH{{{{{" LLLH""{{{{{"" z**"({{{{{'(x*****({{{{{z(x**({{{x{ )"")",{{{{{ '&"lh{{{x" '&Ƈ"',ll h"zz*" nb llllL  z* nn"* ",llb zrb,*"*""lllbD '",D@z*") l@LD)&@zr"""lLzz*"""D@zz*" ?( D{{{" z"{{{/"/p;8& 3 "", r*, ',y,@)"  C ?_ࡱ>  Root Entry?Page 2{?{?fFo  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGJLMNOPQRSTUVWXY(H &@_}#N{'  Microsoft Forms 2.0 FormEmbedded Object9q(H @}RP" ¯NCh!Tahoma@8K$FPPe`LicKeyCompObjaControlBinding Message {??fo  LicKeyHCompObj Ia&F8K#F~~ؗh`%F(C2Message2 X M8+SubscribeX BClick if you want to have the shared folder\ N82DeclinebJClick if you do not want to have the shared folder, O2<SentLabelXB,(P2PTextBox5SF4e28AdminstratorLabelio  (m2<TextBox6t q8KTextBox7 Name of the local folder where the copy of the shared folder will be placed` D7Browse@uSelect the folder to place a copy of the owner's folder(2P Label6@+(24 Label7@<T 22 _RecipientControl1ioOwner of the shared folderT 2< AdminstratorLabel1io Owner of the shared folder422 _RecipientControl2io $. Image1@O(24Label8@(2,Label9@(2,Label105(2Label11$2 Image2@ j|55WQ (AAccept@aTahoma@(DDeclineaTahoma@ -Sent:@X!Tahoma@4@H( Wed 1/8/97 1:02 PM!Tahoma@-To:!Tahoma@ H(aL!Tahoma@ H(uDF!Tahoma@((LLocal Folder Name... aTahoma@4/Net Folder Invitation1Tahoma@#j__substg1.0_10000102*i__substg1.0_10190102*9h__substg1.0_10040102*):g0__substg1.0_10170102*/+f__substg1.0_10140102*?e__substg1.0_10050102*d__substg1.0_10030102*c__substg1.0_100E0102*b__substg1.0_101A0102*a__substg1.0_10060102*60`__substg1.0_101D0102*,%___substg1.0_100D0102*=8^__substg1.0_100B0102*-@]__substg1.0_10070102*\__substg1.0_10150102*[__substg1.0_100C0102*Zb cp    p 0!m       &g3K4 =x97;M.B09-:$*(4+% A" D2P&?$S_R6Uxpg2WQ'p5 @ᇐq:. Aw `!B t<8 )7  6#I4њ0/@8>E3; C1=T5,RtFolderClassXFolderTypePermissionPublicationDesc[PublicationName!PublisherID7SubFolderName SubscriberIDStoreID{fIsSMTPFolderIDKeywordsRT67 8  B   @A4LpPQ `!"#$%&'()$*4+5,9-:.0/0C1D2E3I4p5678x9:;<=>? @ A(B F F