Help with Activating Macro from Outlook 1

[cojiro]

When I am using Outlook I would like the following code to execute when I push Control+M. Can anyone help me out with this?


Sub SendMessage()
Dim Message As String
Message = InputBox("Enter your message and press enter.", "Enter Message")
Shell ("Command.com /c net send u54p37 " & Message)
End Sub

 

[VBslammer]

Create a toolbar button for it and set the toolbar control's name to:
[tt]
Send Net &Message[/tt]

The ampersand will become an undserscore below "M" indicating that the "M" is a hotkey. That way you can call the procedure using "Alt + M"

VBSlammer

"You just have to know which screws to turn." - Professor Bob