В ней можно редактировать уже существующие (ответить, переслать, переслать с вложением и т.д.),
а так же создавать свои команды. При создании своих возможность выбора не очень большая.
В умной книге я нашел такую функцию:
- Код: Выделить всё
Set objAction = objItem.Actions.Add
у нее есть несколько свойств (ответить, переслать, с вложением, с сылкой и т.д.)
Я поставил эту феньку в событие на закрытие формы. Получилось так:
- Код: Выделить всё
Function Item_Close()
Set myItem = Application.CreateItem(0)
Set myAction = myItem.Actions.Add
myAction.Name = "Link Original"
myAction.ShowOn = 2
myAction.ReplyStyle = 4
myItem.To = "Dan Wilson"
myItem.Send
End Function
при запуске получается, что поля:
myAction.ShowOn = 2
myAction.ReplyStyle = 4 - этот пункт как раз то что мне очень нужно (встатка связи с исходным сообщением).
не обрабатываются, а сразу переходит к следующему ( myItem.To = "Dan Wilson" ).
может кто знает что не так ?