Hmm yo lo hice pero no puedo conseguir los puntos de bonificación supongo...
Estoy ejecutando outlook 2010 para que yo pudiera usar una nueva característica denominada "Acceso Rápido" en el menú en el que puede definir las cadenas de acciones como un único botón con una tecla de acceso directo (lamentablemente no tiene que ser de teclas Ctrl+Shift+NUM así que ya me quería esta acción a ejecutar cuando se pulse Eliminar, tuve que hacer un paso extra. Véase a continuación)
En Outlook 2007, usted todavía puede definir macros, me robaron este de otra entrada sobre el mismo tema:
http://www.formortals.com/outlook-macro-mark-as-read-delete/
Sub DeleteAndMarkAsRead()
Dim oItem As Object
Dim oMailItem As MailItem
Dim oRSSItem As PostItem
If Application.ActiveExplorer.Selection.Count = 0 Then
Exit Sub
End If
For Each oItem In Application.ActiveExplorer.Selection
If oItem.Class = olMail Then
Set oMailItem = oItem
oMailItem.UnRead = False
oMailItem.Delete
End If
Next
Set oItem = Nothing
End Sub
A continuación, puede agregar la macro como un botón y asignar un acceso directo a él:
http://www.howto-outlook.com/howto/macrobutton.htm
Luego de ser capaz de ejecutar cuando se pulse eliminar he utilizado AutohotKey y agregue lo siguiente a mi archivo de secuencia de comandos:
#IfWinActive Inkorgen -
;
Del::
Send ^+1
return
#IfWinActive
La parte después de #IfWinActive es el Título (Title) de mi ventana de Outlook (Inkorgen es sueca para la bandeja de entrada para su INFORMACIÓN...) por lo que tendrá que cambiar para reflejar el Título de la ventana de Outlook.
El Envío ^+1 indica AutoHotKey para simular un ^(Control)+(Shift) y un "1" keypress (es la tecla de acceso directo para mi macro (Botón de Acceso Rápido))
(Hay una manera de comparación en el nombre de la clase de la ventana (ahk_class) pero esto funcionó para mí, así que me cansaría ser molestado en averiguarlo )