Results 1 to 4 of 4
  1. #1
    3 Star Lounger
    Join Date
    Jul 2001
    Location
    San Jose, California, USA
    Posts
    290
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Map of address in Contacts (2000)

    Microsoft has done it again!

    I recently upgraded from MapPoint 2001 to MapPoint 2002. You may not think this would affect Outlook, but it does. The yellow road sign on the toolbar in the Contacts folder, which took you to the Expedia website and produced a nice little map for that particular contact's address, has gone. It is replaced by an icon for MapPoint. This is a real nuisance, since it requires that I dig out the MapPoint 2002 CD if I want a map. I was very happy with the Expedia web map. I can't even customize Outlook to put it back, since the item has been removed from the Tools|Customize list of available commands. Short of uninstalling MapPoint 2002, and possibly Outlook 2000, and re-installing MapPoint 2001 and Outlook, what can I do to get back the icon for Expedia? I should mention that installing MapPoint 2002 also put the darned icon on the toolbars in Word and Excel.

  2. #2
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Map of address in Contacts (2000)

    Hey, I never even noticed that feature. And it doesn't work...unless I put the dreaded "United States of America" back in my contact record. This is the link:

    <A target="_blank" HREF=http://officeupdate.microsoft.com/office/redirect/fromoffice9/outlmap.htm?a=555+Broadway&c=Redwood+City&s=CA&p=9 4063-3122&i=United+States+of+America&HELPLCID=1033>http://officeupdate.microsoft.com/office/r...a&HELPLCID=1033</A>

    So you could create a little macro:

    <pre>Sub MapOnExpedia()
    Dim aContact As ContactItem, strURL As String
    Dim dblHandle As Double, strCommand As String
    'Do not run if there are no inspectors open
    If Inspectors.Count = 0 Then Exit Sub
    On Error Resume Next
    Set aContact = ActiveInspector.CurrentItem
    If Err.Number = 13 Then
    'this ain't a contact!
    MsgBox "Run macro in a Contact record."
    Err.Clear
    Exit Sub
    End If
    On Error GoTo 0
    'build URL from business address (not sure how to know which is current!)
    strURL = "http://officeupdate.microsoft.com/office/redirect/fromoffice9/" & _
    "outlmap.htm?a=" & _
    Replace(Replace(Trim(aContact.BusinessAddressStree t), Chr(10), ", "), " ", "+") & _
    "&c=" & Replace(Trim(aContact.BusinessAddressCity), " ", "+") & _
    "&s=" & Replace(Trim(aContact.BusinessAddressState), " ", "+") & _
    "&p=" & Left(aContact.BusinessAddressPostalCode, 5) & _
    "&i=" & Replace(IIf(Trim(aContact.BusinessAddressCountry) = vbNullString, _
    "United States", Trim(aContact.BusinessAddressCountry)), " ", "+") & "&HELPLCID=1033"
    'get rid of the contact object
    Set aContact = Nothing
    'create command string (e.g., Start, Run... string)
    strCommand = "crogram filesinternet exploreriexplore.exe " & strURL
    'start a new browser window and load it!
    dblHandle = Shell(strCommand, vbNormalFocus)
    End Sub</pre>

    This has the virtue that it ignores the error-causing additional characters in a ZIP+4 code, and supplies the United States information if it is not in the address. However, on the down side, it is coded only for the business address, and I do not know how to code for the "currently displayed address"; I didn't try to sort out which line in a multiple-line street address was really the address (as opposed to a Suite No.); it always opens a new browser window, which is slower than reusing an existing window. But... it's probably better than finding that CD.

  3. #3
    Platinum Lounger
    Join Date
    Jan 2001
    Location
    Roanoke area, Virginia, USA
    Posts
    3,729
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Map of address in Contacts (2000)

    what happens if you disable the mappoint com addin? tools > options > other > advanced > com addin

  4. #4
    3 Star Lounger
    Join Date
    Jul 2001
    Location
    San Jose, California, USA
    Posts
    290
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Map of address in Contacts (2000)

    > what happens if you disable the mappoint com addin?

    What happens is that the old map icon reappears and the MapPoint one goes away! That was the solution. Thanks a lot!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •