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

Dim objOneAE As AddressEntry ' single address entry in collection
Dim myPABColl As AddressEntries ' AddressEntries collection of PAB


Set MyNameSpace = Application.GetNamespace("MAPI")

Set objFolder = MyNameSpace.PickFolder
a = objFolder
Set myAddrList = MyNameSpace.AddressLists(a)
Set myPABColl = myAddrList.AddressEntries

Set myOutbox = MyNameSpace.GetDefaultFolder(olFolderOutbox)

MsgBox "Пожалуйста, выберите черновик", vbOKOnly, "Warning"

Set objFolder = MyNameSpace.PickFolder
Set MyItemDraft = objFolder.Items.Item(1)

For Each objOneAE In myPABColl
MyItemDraft.To = MyAddrEntries.Item(i)
Set myCopy = MyItemDraft.Copy
myCopy.Move myOutbox
Next objOneAE