Solved

** Time Saver: Shortcut to Outlook Address Book **

Posted on 1999-01-26
3
1,659 Views
Last Modified: 2008-02-26
I have been hunting around for the solution to this problem for about a week now with no success.

Q) I have been trying to customise the office shortcut bar with some shortcuts to outlook features. I have had success with the referencing of IPM class types in the shortcut target command line to bring up new mail forms, contacts list, tasks etc.

What i want to know is how can i reference in a form script or command line switch to bring up the Global Address book from a shortcut in one click from the office bar or desktop?

I have tried using the open item sub to bring up the address book via a IPM class reference but my knowledge of the object models and VB arent sufficient.
0
Comment
Question by:nbruse
  • 2
3 Comments
 
LVL 2

Expert Comment

by:Bodya
ID: 1622785
The problem with the address books is that it is no access to it provided by Outlook object model. The knowledge of MAPI will be rather helpfull here. But, may be you can specify your tast more explicitly, that we shall be able to find another way. Certainly, the address book is very seldom needed as itself, it is needed for certain purposes, i.e. composing the letter, getting a list of contacts etc., which can be realised with help of other Outlook features.
0
 
LVL 2

Accepted Solution

by:
Bodya earned 70 total points
ID: 1622786
Oh I find a desision. Look at this VBasic code
(in your VB project you should set references to the following libraries:
 Microsof Outlook Object Library
Microsoft Office Object Library)

Dim oApp As Outlook.Application
Dim oCB As Office.CommandBar
Dim oCBContr As Office.CommandBarControl

Set oApp = CreateObject("Outlook.Application")
'getting reference to menu Tools
Set oCB = oApp.ActiveExplorer.CommandBars.ActiveMenuBar.Controls("Tools").CommandBar
'command "Address Book..." is a third item in menu
Set oCBContr = oCB.Controls(3)
oCBContr.Execute

------------------
this code do the following:
1. Opens Outlook
2. Uses the menu command "Address book...", which is the third menu item in the menu "Tools" (in my version of Outlook)
to open the Address book

So, you can write a VB program with this code, make an exe file and place the shortcut to it on your Office shortcut bar.

0
 

Author Comment

by:nbruse
ID: 1622787
Thanks Bodya,
I had thought about doing it that way, but i had no idea about the VB commands to do it. One other problem i have is that i only have the VB editor that comes with office 97 and i cant seem to create an executable. Is there a scripting tool that can run a script file in win 95. Otherwise i think i can get my hands on an VB compiler from somewhere. Rgds

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

What does UTC stand for?  “Coordinated Universal Time” – Think of this as the true time on Planet Earth that never changes with the exception of minor leap seconds here and there to account for the changes in the planet's rotation.   What does th…
Resolve DNS query failed errors for Exchange
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now