Send address to map program

  • Thread starter Thread starter GemstoneTalent
  • Start date Start date
G

GemstoneTalent

How would one send address to map program for driving directions - eg
MAPQUEST, EXPEDIA, etc.?

How about reverse phone look ups?

Thanks, Rick

Gemstone Talent
www.GemTal.com
 
Rick,

The following has worked for me ...

First, enter an address into the MapQuest address fields and click the
Search button. Then, copy the entire URL and paste it into Notepad or
Wordpad so that you can look at it.

For example, if you were searching for:

601 Travis
Houston, TX 77002

the complete URL would look like the following:

http://www.mapquest.com/maps/map.adp?country=US&addtohistory=&address=601+Tr
avis&city=Houston&state=TX&zipcode=77002&homesubmit=Get+Map

The first line, "http://www.mapquest.com/maps/map.adp?" is fixed so it
needs no change. For the address, you will need to use your field values to
construct a string that looks just like the rest of the URL:

"country=US&addtohistory=&address=601+Travis&city=Houston&state=TX&zipcode=7
7002&homesubmit=Get+Map"

Then, you can use the following (untested) to get to the map page:

Dim strLinkPath as string
Dim strExtra as string

strLinkPath = "http://www.mapquest.com/maps/map.adp?"
strExtraInfo = ' string with your search values

Application.FollowHyperlink Address:=strLinkPath,
extrainfo:=strExtra,NewWindow:=True

The same process should work for Reverse Telephone Lookups.

hth,
 
Thanks! I will try it soon!

Rick,

The following has worked for me ...

First, enter an address into the MapQuest address fields and click the
Search button. Then, copy the entire URL and paste it into Notepad or
Wordpad so that you can look at it.

For example, if you were searching for:

601 Travis
Houston, TX 77002

the complete URL would look like the following:

http://www.mapquest.com/maps/map.adp?country=US&addtohistory=&address=601+Tr
avis&city=Houston&state=TX&zipcode=77002&homesubmit=Get+Map

The first line, "http://www.mapquest.com/maps/map.adp?" is fixed so it
needs no change. For the address, you will need to use your field values to
construct a string that looks just like the rest of the URL:

"country=US&addtohistory=&address=601+Travis&city=Houston&state=TX&zipcode=7
7002&homesubmit=Get+Map"

Then, you can use the following (untested) to get to the map page:

Dim strLinkPath as string
Dim strExtra as string

strLinkPath = "http://www.mapquest.com/maps/map.adp?"
strExtraInfo = ' string with your search values

Application.FollowHyperlink Address:=strLinkPath,
extrainfo:=strExtra,NewWindow:=True

The same process should work for Reverse Telephone Lookups.

hth,
Click to expand...


Gemstone Talent
www.GemTal.com
 
Back
Top