1 Тема от SerB

  • SerB
  • рядовой
  • Неактивен
  • Зарегистрирован: 30.11.2011
  • Сообщений: 1

Тема: RoutingSlip помогите пожалйста разобраться

В Word2010 создал кнопку и макрос, содержащий нижеприведенный код

Private Sub CommandButton1_Click()
Activedocument.HasRoutingSlip = True
With Activedocument.RoutingSlip
    .Subject = "Новый заголовок"
    .AddRecipient "bahmatov@ucke.ru"
    .Delivery = wdAllAtOnce
End With
Activedocument.Route
End Sub

при выполнении выдает ошибку run-time Error 5892 "Этот метод недоступен для данного объекта".
Не подскажите в чем  может быть причина?  sad
И есть ли способ заставить работать этот макрос по событию сохранения документа. Т.е. без размещения в документе кнопки. Требуется отсылка документа (формы заявки после заполнения и сохранения) по одному, жестко заданному адресу как вложение wink

И еще одна часть этой же проблемы, как мне сделать автоматическое заполнение адреса в случае использования стандартной команды  "Сохранить и отправить" -- "отправить по электронной почте" , чтобы избавить пользователей от ввода адреса вручную?