Здравствуйте, Dizel, Вы писали:

D>При написании макроса в Outlook'е возникла следующая проблема:
D>Созданное письмо помещается в папку OutBox и лежит там не регагируя на нажатия Принять/отправить.
D>Вопрос: почему так?

D> Set objFolder = MyNameSpace.PickFolder
D> a = objFolder
D> Set myAddrList = MyNameSpace.AddressLists(a)
D> ...
D> For Each objOneAE In myPABColl
D> MyItemDraft.To = MyAddrEntries.Item(i)
D> Set myCopy = MyItemDraft.Copy
D> myCopy.Move myOutbox
D> Next objOneAE

Если Вы в папке Исходящие посмотрите значение в столбце Отправлено, Вы увидите Нет,
это можно и через программу увидеть как

MsgBox myCopy.Sent

Аналогичная ситуация будет, если Вы просто через интерфейс перекопируете письмо из папки Черновики (или другой) в папку Исходящие.

Вместо

myCopy.Move myOutbox

используйте

myCopy.Send

Вообще, для меня загадка, что значат строки

a = objFolder
Set myAddrList = MyNameSpace.AddressLists(a)

— здесь должен быть указан индекс — число или строка, а не folder

Также в цикле

MyItemDraft.To = MyAddrEntries.Item(i)

и для чего цикл вообще
Может быть,

MyItemDraft.To = objOneAE.Address