Не обнуляется .AddAttachment в CDO

[88ra]

Доброй ночи!
может кто не спит)
Делаю рассылку в цикле клиентам методом CDO.Message с вложением, название которого совпадает с кодом клиента. Все хорошо, только 2-му клиенту отправляется файл 1-го и 2-го, следующему уже 3 файла и т.д.

Как обнулять mailObj.AddAttachment после отправки каждого письма???

[Stilet]

А посмотри есть ли у IBodyPart метод Release или у IMessage метод Clear

[88ra]

Сообщение от Stilet

А посмотри есть ли у IBodyPart метод Release или у IMessage метод Clear

подскажите пожалуйста, где посмотреть?
Я отправляю не через outlook...

Set mailObj = CreateObject("CDO.Message")
mailFrom = "...."....ru"
mailSubj = "тема..."

в цикле:

mailObj.To = mailAddr
mailObj.From = mailFrom
mailObj.Subject = mailSubj
mailObj.HTMLBody = mailBody
mailObj.AddAttachment mailAttach

Без вложения, все работает...
проблема решилась внесением создания письма в цикл, но так дольше

[Stilet]

Посмотреть конечно же в хелпе. Какие методы у сего интерфейса.

[kuklp]

Сообщение от 88ra

проблема решилась внесением создания письма в цикл, но так дольше

Еще бы. Вы в один объект CDO.Message циклом заряжали аттачи методом Add(добавить).

[88ra]

Сообщение от kuklp

Еще бы. Вы в один объект CDO.Message циклом заряжали аттачи методом Add(добавить).

понятно. а думал может аттач можно перезаписать в одном объекте.

[88ra]

Сообщение от Stilet

Посмотреть конечно же в хелпе. Какие методы у сего интерфейса.

в хэлпе excel этого нет, это ж к MS относится, как я понял, но и там не выдает ничего

[DiemonStar]

в хэлпе excel этого нет

Подключите в References модуль Microsoft CDO и в Object Browser станут доступны все свойства и методы объекта. Да и в редакторе станет работать намного проще.
И там наглядно видно, что у Message есть коллекция Attachments, которая и содержит вложения. Ваш метод лишь добавляет объект в коллекцию. так что очищается как обычно:

mailObj.Attachments.DeleteAll

p.s. При разработке удобнее проставить ссылки в References, а потом уже в готовом коде привязать объекты без этих ссылок. Особенно если объект не самый используемый.

[88ra]

Сообщение от DiemonStar

Подключите в References модуль Microsoft CDO . ...
.

Ага!!! спасибо!!! буду разбираться