L
larrygrobertson
Guest
I am working on a program for the Visually Impaired. The application Launches the Microsoft Mail Application by voice command using MS Speech to Text.
I have read the Keyboard shortcuts for the Mail and Calendar Application.
The documentation does not provide a shortcut to "Switch to Sent Items" however it does show a shortcut to "Switch to Outbox".
I have two questions:
Personally I always check my sent messages after sending an email to make sure the email was actually sent.
Please help if you know a solution.
Currently I am using the following code as an example of programmatically switching just to give you an idea what I am trying to accomplish.
Private Sub SwitchToInbox()
Dim intptrMailHwnd As IntPtr = GetHandleFromPartialTitle("inbox -")
BringWindowToFront(intptrMailHwnd)
keybd_event(VK_CONTROL, &H9D, 0, 0) 'Press CTRL key
keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYDOWN, 0) 'Press Shift Key
keybd_event(VK_I, 0, KEYEVENTF_KEYDOWN, 0) 'Press I Key
keybd_event(VK_I, 0, KEYEVENTF_KEYUP, 0) 'Release I Key
keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0) 'Release Shift Key
keybd_event(VK_CONTROL, &H9D, KEYEVENTF_KEYUP, 0) 'Release CTRL key
Speak("Switching to Inbox", 3)
End Sub
Private Sub SwitchToCalendar()
Dim intptrMailHwnd As IntPtr = GetHandleFromPartialTitle("inbox -")
BringWindowToFront(intptrMailHwnd)
keybd_event(VK_CONTROL, &H9D, 0, 0) 'Press CTRL key
keybd_event(VK_2, 0, KEYEVENTF_KEYDOWN, 0) 'Press 2 Key
keybd_event(VK_2, 0, KEYEVENTF_KEYUP, 0) 'Release 2 Key
keybd_event(VK_CONTROL, &H9D, KEYEVENTF_KEYUP, 0) 'Release CTRL key
Speak("Switching to Calendar", 3)
End Sub
Thank you very much for any help you offer.
More...
I have read the Keyboard shortcuts for the Mail and Calendar Application.
The documentation does not provide a shortcut to "Switch to Sent Items" however it does show a shortcut to "Switch to Outbox".
I have two questions:
- Is there a hidden/undocumented key combination to "Switch to Sent Items"?
- Why would there even be a "Switch to Outbox" option when the Outbox is always (99.9% of the time) empty with the exception that a particular email was not send due to an error condition.
Personally I always check my sent messages after sending an email to make sure the email was actually sent.
Please help if you know a solution.
Currently I am using the following code as an example of programmatically switching just to give you an idea what I am trying to accomplish.
Private Sub SwitchToInbox()
Dim intptrMailHwnd As IntPtr = GetHandleFromPartialTitle("inbox -")
BringWindowToFront(intptrMailHwnd)
keybd_event(VK_CONTROL, &H9D, 0, 0) 'Press CTRL key
keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYDOWN, 0) 'Press Shift Key
keybd_event(VK_I, 0, KEYEVENTF_KEYDOWN, 0) 'Press I Key
keybd_event(VK_I, 0, KEYEVENTF_KEYUP, 0) 'Release I Key
keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0) 'Release Shift Key
keybd_event(VK_CONTROL, &H9D, KEYEVENTF_KEYUP, 0) 'Release CTRL key
Speak("Switching to Inbox", 3)
End Sub
Private Sub SwitchToCalendar()
Dim intptrMailHwnd As IntPtr = GetHandleFromPartialTitle("inbox -")
BringWindowToFront(intptrMailHwnd)
keybd_event(VK_CONTROL, &H9D, 0, 0) 'Press CTRL key
keybd_event(VK_2, 0, KEYEVENTF_KEYDOWN, 0) 'Press 2 Key
keybd_event(VK_2, 0, KEYEVENTF_KEYUP, 0) 'Release 2 Key
keybd_event(VK_CONTROL, &H9D, KEYEVENTF_KEYUP, 0) 'Release CTRL key
Speak("Switching to Calendar", 3)
End Sub
Thank you very much for any help you offer.
More...