---

Замечание к документу "Не сработало"   >>>

Тема: а это http://web3.inttrust.ru/Site/itforum.nsf/all/F96B459C236CF648C32575980031C479?OpenDocument ? с ед. отступлением - удаление всех аттачей напроч типа:

Создан:

Mikhail Cholokov 04/15/2009 12:02 PM

Папка: 06. Разработка Notes-приложений

Тип сообщения: Мне лень заполнять это поле

---

Сообщение:
Function RemoveAttachments(objdoc As NotesDocument, fld As String) As NotesRichTextItem
Dim rtItem As NotesRichTextItem
Dim docItem As NotesItem

On Error Goto errorhandler
Set docItem=objdoc.GetFirstItem(fld)
DbgMsg("RichText:" & Cstr(docItem.Type = RICHTEXT))
If docItem.Type=RICHTEXT Then
Set rtItem=docItem
Else
Set rtItem=Nothing
End If
If objdoc.Hasembedded Then
If ( Not rtItem Is Nothing ) Then
If (Not Isempty(rtitem.EmbeddedObjects))Then
Forall o In rtitem.EmbeddedObjects
Call o.Remove
DbgMsg("RT field: remove attachments")
End Forall
End If
Else
If ( Not Isempty(objdoc.EmbeddedObjects)) Then
Forall o In objdoc.EmbeddedObjects
Call o.Remove
DbgMsg("remove attachments")
End Forall
End If
End If
End If

Do While Not objdoc.GetFirstItem("$FILE") Is Nothing
objdoc.RemoveItem("$FILE")
DbgMsg("remove fields: $FILE")
Loop

If (rtItem Is Nothing) Then
Do While Not objdoc.GetFirstItem(fld) Is Nothing
objdoc.RemoveItem(fld)
DbgMsg("Remove non RT fields:" & fld)
Loop
Set rtItem=objdoc.CreateRichTextItem(fld)
End If
Set RemoveAttachments=rtItem
ExitFunction:
Exit Function
errorhandler:
Call RaiseError()
Resume ExitFunction
End Function

---

Иерархия документов данной дискуссии:
Отображение вложения в RT (Sergey S Yakimov; Gate01) (14.04.2009 9:36:44)
.... это? (Nick A Norkin; VIT Server B) (14.04.2009 13:39:27)
........ "человеческий" реф может выглядеть так (www похачили): http://web3.inttrust.ru/site/itforum.nsf/49341ed5f4f44f64c3256cee002eeae7/1b3bd801d21c19c2c3256b6f005ebab5!OpenDocument (Mikhail Cholokov) (14.04.2009 15:58:27)
............ Не катит ( (Sergey S Yakimov; Gate01) (15.04.2009 10:11:54)
........ Не сработало (Sergey S Yakimov; Gate01) (15.04.2009 10:18:48)
............ а это http://web3.inttrust.ru/Site/itforum.nsf/all/F96B459C236CF648C32575980031C479?OpenDocument ? с ед. отступлением - удаление всех аттачей напроч типа: (Mikhail Cholokov) (15.04.2009 12:02:33)
................ Мысль понял... (Sergey S Yakimov; Gate01) (15.04.2009 16:05:25)
.................... бэкэндовый вариант возможен и через DXL (Mikhail Cholokov) (15.04.2009 18:19:00)
.... попробуйте делать закрытие дока так: (Mikhail Cholokov) (14.04.2009 12:03:35)


Разработчикам и администраторам: курсы, книги, сертификация