RoutingSlip не работает

[Владимир7]

На одном из сайтов прочитал макрос, и в Excel 2007 help тоже есть этот
пример, но у меня он почему то не выполняется. Может references какие
не подключены, но за них нигде по этому примеру не упоминается, или
мой Excel барахлит.
Public Sub BookRoute()
With ThisWorkbook
.HasRoutingSlip = True 'макрос стопорится на этой строке,
'в т.ч. и при сохранённой книге, но должен выполняться по идее и без
'сохранения файла на диске
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("MyAddress@mail.ru")
.Subject = "Test1"
.Message = "Это пример"
.ReturnWhenDone = True
End With
.Route
End With
End Sub

Второй вариант для Word - тоже стопорится на той же строке:
Activedocument.HasRoutingSlip = True
With Activedocument.RoutingSlip
.Subject = "Новый заголовок"
.AddRecipient "MyAddress@Mail.ru"
.Delivery = wdAllAtOnce
End With
Activedocument.Route

[D-m-i-t-r-y]

Ошибки при этом выдаются какие-нибудь?
При задании Activedocument.HasRoutingSlip = True идёт обращение к почтовому клиенту.
В случае Outlook появляется такое вот окно (см. вложение).
Возможно, что вы его просто не видите по какой-то причине, а макрос ждёт как раз завершения работы с этим окном.