• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 266
  • Last Modified:

Outlook Script or Shortcut Key

Hi Experts,

I have already asked for help with issue but I didn't get much of response, and no one was able to help me. Therefore, I'm going to repost this question and rephrase the question.

Basically, I'm able to call contacts directly from the contacts in the outlook contacts folder. However, the only way to do this is by clicking on dial and then clicking on 'start call'. I was hoping that an expert could show how to either assign a command to a button to make the call without clicking or may be help me compile a script so that with one click I can dial the contact.

I know some of you maybe saying that I'm very lazy, but my business is calling a huge number of people each day and if I can use technology to make that task easier then I say why not.

So please help if you can.


  • 4
  • 2
1 Solution
cpatte7372Author Commented:
Is anyone going to help me?????
Possibly a desktop macro? Fully functional trial here, buy if you like it -


This allows you to complete multiple steps with one click. Might be of use.

Chris B

p.s. Don't forget to close the earlier question.
David LeeCommented:
Hi, Carlton.

Try this.  Follow these instructions to add the code to Outlook.

1.  Start Outlook
2.  Click Tools > Macro > Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects
4.  If not already expanded, expand Modules
5.  Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert > Module.
6.  Copy the code from the Code Snippet box and paste it into the right-hand pane of Outlook's VB Editor window
7.  Edit the code as needed.  I included comments wherever something needs to or can change
8.  Click the diskette icon on the toolbar to save the changes
9.  Close the VB Editor

To use this solutions

1.  Select or open a contact.
2.  Run the macro.
Sub CallContact()
    Dim olkCon As Outlook.contactItem
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set olkCon = Application.ActiveExplorer.Selection(1)
        Case "Inspector"
            Set olkCon = Application.ActiveInspector.CurrentItem
    End Select
    Session.Dial olkCon
    SendKeys "%S"
    Set olkCon = Nothing
End Sub

Open in new window

Free tool for managing users' photos in Office 365

Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!

cpatte7372Author Commented:

I'm glad you're assisting me with this - you've helped me before. I will give this a go later this afternoon and let you know how it goes.


Thanks for your input. However, I can't seem to get the application to work. Each time I start to record macros the I'm unable to use my mouse.


cpatte7372Author Commented:

Once again you've come up trumps. I wonder if I could be a little cheeky and ask you could show me how to assign a key to the macro?

The best I can do is add the macro to the menu bar where I just click on it and it dials, however I was wondering if it was possible to add it to a keystroke so that I could hit, for example, F12 and it would activate the macro?

Cheers mate.
David LeeCommented:
Thanks, Carlton.  Unfortunately the only way I know of to assign a hotkey to a macro is to add it to a toolbar.  Once added to a toolbar you can edit the button properties and assign a hotkey.
cpatte7372Author Commented:
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Easily manage email signatures in Office 365

Managing email signatures in Office 365 can be a challenging task if you don't have the right tool. CodeTwo Email Signatures for Office 365 will help you implement a unified email signature look, no matter what email client is used by users. Test it for free!

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now