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

Спасибо за отклик.

E_>Вместо
E_>

E_>myCopy.Move myOutbox
E_>

E_>используйте
E_>

E_>myCopy.Send
E_>

При такой отправке выскакивает предупреждение:"Программа пытается отправить сообщение."
Этот диалог висит около 5 сек. И потом требует нажатия кнопки ОК. Неприемлемо.
На 23 письмах уже достаточно надоедливо.
А на 100 — просто выматывает.

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

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

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

Может быть и имя папки.
Просто есть несколько произвольно названных адресных книг, имена которых заранее неизвестны.