Свойство Attachments – список вложений сообщения

Синтаксис:

Описание:

Свойство возвращает список вложений сообщения. Имя элемента списка содержит имя вложения, значение – массив байт, представляющий собой вложение.

Для только что созданного исходящего сообщения список всегда пуст. Для добавления элемента в список используйте свойство IList.Items.

Пример:

//Сохраним все вложения сообщения Message в папку MessageFolder

adTypeBinary = 1

adSaveCreateOverWrite = 2

I = 0

while I < Message.Attachments.Count

  AttachStream = CreateObject("ADODB.Stream")

  AttachStream.Type = adTypeBinary

  AttachStream.Open()

  AttachStream.Write(Message.Attachments.Values(I))

  AttachStream.SaveToFile(IncludeTrailingPathDelimiter(MessageFolder) &

    Message.Attachments.Names(I); adSaveCreateOverWrite)

  I = I + 1

endwhile