0 / 0 / 0
Регистрация: 26.03.2007
Сообщений: 27
|
|
1 | |
Открепление файла19.08.2007, 19:04. Показов 10624. Ответов 2
Метки нет (Все метки)
Здравствуйте!
Я уже спрашивал про отцепление файла. Но до конца не разобрался. Мне нужно проверять входящую почту на наличие прицеплённых файлов и сохранять эти файлы в директории. У меня не получается сделать цикл. Получается только с первым документом в списке Sub Initialize Dim doc As NotesDocument Dim db As New NotesDatabase("Test/Test_TTT","mail\name.nsf") Dim View As NotesView Set View =db.GetView("($Inbox)") Set doc = View.GetFirstDocument Do While doc=Null If (doc.HasEmbedded) Then Dim rtitem As Variant Set rtitem = doc.GetFirstItem("Body") If ( rtitem.Type = RICHTEXT ) Then If Not Isempty (rtitem.EmbeddedObjects) Then Forall o In rtitem.EmbeddedObjects If ( o.Type = EMBED_ATTACHMENT ) Then Call o.ExtractFile("F:\11111\" & o.Source) End If End Forall End If End If End If Set doc=View.GetNextDocument(doc) Loop End Sub Строка Do While doc=Null неправильна. А как сделать чтобы она работала? Чтобы цикл просматривал все документы во входящей. Скажите где у меня ошибки? Я первый раз скрипт пишу C этим разобрался оказывается надо было написать Do While Not(doc Is Nothyng) А как сделать чтобы переменная sb=doc.GetItemValue("Subject") имела тип String? И если можно поподробнее об разархивирование файлов в lotus
0
|
19.08.2007, 19:04 | |
Ответы с готовыми решениями:
2
Открепление и разархивирование файла Открепление лямбда метода от события Написать текстовый редактор, в котором продемонстрировать открытие файла, сохранение файла, создание нового файла Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла. |
0 / 0 / 0
Регистрация: 12.10.2006
Сообщений: 185
|
|
19.08.2007, 20:52 | 2 |
напиши sb=doc.GetItemValue("Subject")(0), если не помогает то sb=Cstr(doc.GetItemValue("Subject")(0))
0
|
1 / 1 / 0
Регистрация: 04.08.2006
Сообщений: 2,950
|
|
20.08.2007, 11:31 | 3 |
<!--QuoteBegin-shtrih+20:08:2007, 17:51 -->
<span class="vbquote">(shtrih @ 20:08:2007, 17:51 )</span><!--QuoteEBegin-->Строка Do While doc=Null неправильна. А как сделать чтобы она работала? Чтобы цикл просматривал все документы во входящей. [snapback]75806" rel="nofollow" target="_blank[/snapback]?[/quote] Doc это не просто переменная , а экземпляр класса, потому и работать с ним надо while Not Doc Is Nothyng ... А как сделать чтобы переменная sb=implode( doc.Subject )
0
|
20.08.2007, 11:31 | |
20.08.2007, 11:31 | |
Помогаю со студенческими работами здесь
3
Даны два текстовых файла. Добавить в начало первого файла содержимое второго файла Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла Даны два текстовых файла f и f1. Определить совпадают ли компоненты файла f с компонентами файла f1 Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |