Кто умеет писать макрос для Microsoft Outlook 2003?

[Prosto Filya]

Кто умеет писать макрос для Microsoft Outlook 2003?

Нужен простой макрос который будет по нажатию к примеру CTRL-K пересылать выбранное письмо на нужны мне адрес. Сейчас приходится использовать комбинацию ALT-K на нужном письме, потом вводить нужный email и жать ввод.

 

[Capricorn]

STFG!
---
Sub SPAM()
Dim objMail As Outlook.MailItem
Set objItem = GetCurrentItem()
Set objMail = objItem.Forward
objMail.To = "[email protected]; [email protected]"
objMail.Display
Set objItem = Nothing
Set objMail = Nothing
End Sub

Function GetCurrentItem() As Object
Dim objApp As Outlook.Application
Set objApp = Application
On Error Resume Next
Select Case TypeName(objApp.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = _
objApp.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = _
objApp.ActiveInspector.CurrentItem
Case Else
End Select
End Function


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub
---

изменить мыло на нужное.
добавить в макросы.
изменить настройки Офиса так, что бы макросы работали
вынести иконку макроса на панель и назначить на нее кнопку с Alt (назначение комбинации клавиш с Ctrl не нашел как)