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