Create Function Key in Outlook

  • Thread starter Thread starter Matthew Couper
  • Start date Start date
M

Matthew Couper

Would there be a way to program a function key, or key sequence, to send a
highlighted email directly to a specified email address.

For instance, we need to send all spam email to our corp spam account, but
can't send multiple items.

So when I am going through my email I would like to just highlight the
email, hit {F5} (whatever), and it is sent.

Thanks in advance,

Matthew Couper
Charter Wire
 
Outlook doesn't have programmable function keys. You could create a
macro and assign it to a toolbar button, in the code you could get the
selected item and send it.
 
You can't assign custom keyboard shortcuts to commands. However, if you
have a custom toolbar button, adding "&" before the letter in the control's
caption will allow the button to be accessed using the ALT key plus the
letter following the &.
 
Ken's suggestion is the best route. I have the macro
myself, but I am having trouble with the VB code to perform
the forwarding. I have the same need - I want to be able
to forward it to corp email support, marked as low
priority, and then delete it - in one step. I have yet to
find anyone who can supply what must be very simple VB
code. Have you had any luck?
 
Hey! My suggestion is the same as Ken's! I agree, his instructions may be
clearer though, butwhatareyagonnado...

Anyway, the procedure below should do what you want, just change the e-mail
address and assign the macro to a custom toolbar button:

Sub ForwardSelectedMessagesInCurrentFolderAndDelete()
Dim objItem As Object, objCurFolder As Outlook.MAPIFolder
Dim objMessage As Outlook.MailItem, objForward As Outlook.MailItem
Dim objRecip As Outlook.Recipient

For Each objItem In ActiveExplorer.Selection
If objItem.Class = olMail Then
Set objMessage = objItem
Set objForward = objMessage.Forward
Set objRecip = objForward.Recipients.Add("(e-mail address removed)")
objRecip.Resolve
objForward.Importance = olImportanceLow
objForward.Send
objMessage.Delete
End If
Next
End Sub
 
Back
Top