Announcement

Collapse
No announcement yet.

Include additional contact folders in user's Outlook Address Book centrally by Exchan

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Include additional contact folders in user's Outlook Address Book centrally by Exchan

    User's Outlook address book normally included Global Address List and user's contact folder only, to include addtional contact folders (e.g. contact folders from public folder), need to right-click on each contact folders, select properties, goto Outlook Address Book tab, tick the option to include, can done centrally in exchange? Thx!

  • #2
    Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

    No.
    That is an exclusively client side setting which cannot be automated. I have been looking for a way to do so since at least 2004 and Exchange 2003.

    Simon.
    --
    Simon Butler
    Exchange MVP

    Blog: http://blog.sembee.co.uk/
    More Exchange Content: http://exchange.sembee.info/
    Exchange Resources List: http://exbpa.com/
    In the UK? Hire me: http://www.sembee.co.uk/

    Sembee is a registered trademark, used here with permission.

    Comment


    • #3
      Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

      problem then : (

      want to move 400+ (total size 50MB) public contact folders from ex2k to ex07, tested by add replicate to ex07 but over half of those folders never replicated even after a few days, giving up and test by copy and paste to ex07 in Outlook, work but "show this folder as an e-mail address book" will not be copied and will become unselected by default, know many users should selected "show this folder as an e-mail address book" for various public contact folders on ex2k by themselve.

      i.e. if continue move by copy and paste in Outlook, all users need to restore each "show this folder as an e-mail address book" setting they selected before for each public contact folders on ex07 by themselve one-by-one.

      anyway, thx a lot for your help!

      Comment


      • #4
        Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

        btw, how to mark this thread being answered? thx!

        Comment


        • #5
          Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

          answer become possible again, see below, i'm trying

          http://www.ms-news.net/f2590/help-with-automatic-selection-of-show-this-folder-as-an-email-address-book-via-mapifolder-showasoutlookab-property-4424703.html


          http://www.experts-exchange.com/Prog..._21578801.html

          Comment


          • #6
            Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

            Many people have tried, but no one has been successful. That posting you have found is about the closest anyone has got, but they always end in the same way - a dead end because it simply can't be done.

            Exchange is a not a CRM. If you have 400 odd contacts then you are pushing towards CRM levels and therefore should look at using a CRM to manage that information instead.

            Simon.
            --
            Simon Butler
            Exchange MVP

            Blog: http://blog.sembee.co.uk/
            More Exchange Content: http://exchange.sembee.info/
            Exchange Resources List: http://exbpa.com/
            In the UK? Hire me: http://www.sembee.co.uk/

            Sembee is a registered trademark, used here with permission.

            Comment


            • #7
              Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

              import script below to outlook visual basic and run work for me

              attribute VB_Name = "Module1"
              Sub Main()
              On Error Resume Next

              Dim strPath, objOutlook, objNS, blnWeStartedOutlook, arrFolders, objFolder, i

              ' root folder start to propagate to include in Outlook Address Book
              ' suggest right click the root folder in Outlook then copy the path because path may varies when for different
              language
              strPath = "公用資料夾\所有公用資料夾\Test"

              Set objOutlook = GetObject(, "Outlook.Application")
              If objOutlook Is Nothing Then
              Set objOutlook = CreateObject("Outlook.Application")
              Set objNS = objOutlook.GetNamespace("MAPI")
              objNS.Logon "", "", True, True
              blnWeStartedOutlook = True
              Else
              Set objNS = objOutlook.GetNamespace("MAPI")
              End If

              arrFolders = Split(strPath, "\")

              Set objFolder = objNS.Folders(arrFolders(0))
              For i = 1 To UBound(arrFolders)
              Set objFolder = objFolder.Folders(arrFolders(i))
              Next

              ' Avoid unexpect update by quit when error
              On Error GoTo 0

              EnumSubFolders objFolder

              If blnWeStartedOutlook Then
              objNS.Logoff
              objOutlook.Quit
              End If
              Set objNS = Nothing
              Set objOutlook = Nothing
              End Sub
              Function EnumSubFolders(tempfolder)
              Dim j

              'types: 0 = mail; 1 = calendar; 2 = contacts; 3 = tasks; 4 = journal; 5 = notes
              If (tempfolder.DefaultItemType = 2) Then
              ' enable/disable show in Outlook address book
              tempfolder.ShowAsOutlookAB = True
              End If

              If tempfolder.Folders.Count Then
              For j = 1 To tempfolder.Folders.Count
              EnumSubFolders tempfolder.Folders(j)
              Next
              End If
              End Function

              Comment


              • #8
                Re: Include additional contact folders in user's Outlook Address Book centrally by Ex

                That is an Outlook script though. All that is doing is duplicating the manual changes in the GUI. I am not aware of any way to deploy that centrally.

                You may want to adjust that script to remove the oriental characters as well.

                Simon.
                --
                Simon Butler
                Exchange MVP

                Blog: http://blog.sembee.co.uk/
                More Exchange Content: http://exchange.sembee.info/
                Exchange Resources List: http://exbpa.com/
                In the UK? Hire me: http://www.sembee.co.uk/

                Sembee is a registered trademark, used here with permission.

                Comment

                Working...
                X