Map of address in Contacts (2000)

Topic

New Reply

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.

Reply | Quote

Replies

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:

http://officeupdate.microsoft.com/office/r…a&HELPLCID=1033

So you could create a little macro:

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.BusinessAddressStreet), 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 = "c:program filesinternet exploreriexplore.exe " & strURL
'start a new browser window and load it!
dblHandle = Shell(strCommand, vbNormalFocus)
End Sub

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.

Reply | Quote

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

Reply | Quote

> 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!

Reply | Quote