ࡱ> Root Entry 0 @!__properties_version1.00Vp__nameid_version1.0(&u0p$0__substg1.0_0E04001E*!.  )"#$%&'(*+,-/Root Entry FF0 @!__properties_version1.00Vp__nameid_version1.0(&u0p$0__substg1.0_0E04001E*!.  )"#$%&'(*+,-/__substg1.0_0E03001E*__substg1.0_0E02001E*__substg1.0_001A001E*U __substg1.0_0037001E*T__substg1.0_0E1D001E*__substg1.0_1000001E* P__substg1.0_300B0102*O__substg1.0_8003001E* N__substg1.0_800A0102*__substg1.0_800B0102* /__substg1.0_800C0102*. __substg1.0_800D0102*,A__substg1.0_800E0102* __substg1.0_003D001E*__substg1.0_00020102* __substg1.0_00030102*}  !"#$%&'()*+-0123456789:;<=>?@ABCDEFGHIJKLMQRSWXYZ[\]^_~A7O[JU sub CreateContactsButton_Click Dim myMailMessage, myRec, myFolder, myContact, myResult Set myFolder = Application.ActiveExplorer.CurrentFolder If myFolder.DefaultItemType <> 2 Then MsgBox "Folder """ & myFolder.Name & """ not for contacts", _ vbCritical, "Wrong Folder Type" Exit Sub End If Set myMailMessage = Application.ActiveInspector.CurrentItem If myMailMessage.Recipients.Count = 0 Then MsgBox "No recipients in message", vbCritical, "No Recipients" Exit Sub End If myResult = MsgBox("You are about to create " & myMailMessage.Recipients.Count & _ " contact(s) in folder """ & myFolder.Name & """", vbOkCancel, _ "Create Contacts?") If myResult = 2 Then Exit Sub End If For Each myRec in myMailMessage.Recipients Set myContact = Application.CreateItem(2) myContact.FullName = myRec.Name myContact.Email1Address = myRec.Address myContact.Save myContact.Move(myFolder) Next MsgBox myMailMessage.Recipients.Count & _ " contact(s) created in folder """ & myFolder.Name & """", vbOkOnly, _ "Contacts Created" End SubMessageDToMessageMessageRecipient to ContactsRecipient to Contacts ( @ww{ppp `````wwwwp6 &(( @83w8x7pp{pwwwww{f`f`f`ffffff`ffff`fff`fwwwffwf``wwwwwwwwww( {wp p`p``p``pppp9.0о?J0=H4ࡱ>  Root Entryh~0 Messageh~0h~0fon  "$%&'()*+,-./010H. D@} 5 ¯NCh08K#F~~ؗh`%F\ =2ToO0D<CreateContactsButtonO ,TahomaR  (Create Contacts4aTahomaLicKeyCompObjaControlBinding  Message-Read h~0h~0 Microsoft Forms 2.0 FormEmbedded Object9q`F@(FTo(FF@0H. ;@}5|$ ¯NCh08K$FPPe`}PCe`8K#F~~ؗh`%f o  CompObj !aControlBinding #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@(F9F `F@(FTo(FF@`F@(FCC(FF@`F(F7Subject(F7F `F@(FMessage(FF@D --------------------------------------------- Alan Fahrner afahrner@tickets.com +61-2-9297-3686 (Australia) Tickets.com 4513 Vernon BLVD Madison, WI 53705 USA http://www.tickets.com/ IPM.Note@0u0@0u0EE__substg1.0_00040102* |__substg1.0_100F0102*${__substg1.0_10010102*!z__substg1.0_101E0102*)y__substg1.0_10120102*-x__substg1.0_10020102*w__substg1.0_10090102*,*v__substg1.0_100A0102*u__substg1.0_10110102*t __substg1.0_10100102*s__substg1.0_10130102*r __substg1.0_10080102*q__substg1.0_10000102*p__substg1.0_10030102*"o__substg1.0_10040102*n __substg1.0_100E0102*m__substg1.0_101A0102*(l__substg1.0_101B0102*k__substg1.0_10050102*j__substg1.0_10060102*i__substg1.0_101C0102*%h__substg1.0_101D0102*g__substg1.0_100D0102*+#f__substg1.0_100B0102*/e__substg1.0_10070102*'d__substg1.0_10140102*.c__substg1.0_10150102*0b__substg1.0_100C0102*a__substg1.0_10180102*`E   #& )67  0?o  o        A =EJ4x/-;M.7,#9 $47%6$I*D(1Qp+ 6P5  :! A`0B 3 C'28&0"@ .T5RE)KeywordsRTB    @ APQ` $459 :!0"#6$7%8&C'D(E)I*p+,-.x/0123J45 67 F F