после ФП7 аттачи стали отображаться под чертой...

 

код

    Dim rtitem As NotesRichTextItem
    Set rtitem = RemoveAttachments(doc, "body")
    Call doc.Save(True,False,True)'установить прочитанным
   
    '   fname=Replace(fname,{\},{/})
    fname=Replace(fname,{/},{\})'Windows specific
    If ( rtitem.Type = RICHTEXT ) Then
        Call rtitem.EmbedObject( EMBED_ATTACHMENT,{} , fname, fnam(0))
        Call doc.Save(True, False)
        If worddoc Is Nothing Then
            Dim res, run As String
            'run={cmd.exe /C start "} &fname &{"}
            run={cmd.exe /C ""} &fname &{""}
            Print {Shell calling...}, run
            res=Shell(run, 6)
        End If
    End If

удалени аттачей

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)
    If Not docItem Is Nothing Then
        DbgMsg("RichText:" & CStr(docItem.Type = RICHTEXT))
        If docItem.Type=RICHTEXT Then
            Set rtItem=docItem
        End If
    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)
        Call objdoc.Save(True,False)
    End If
    Set RemoveAttachments=rtItem
ExitFunction:
    Exit Function
errorhandler:
    Call RaiseError()
    Resume ExitFunction
End Function

 

после ФП7 аттачи стали отображаться под чертой..

Есть такая беда.
А код этот для чего?

 

@garrick ну это его результат, когда аттачи через интерактив - такого нет
просто я думал че-то можно подкрутить (м.б. удалять поле вовсе)

 

Есть такая беда.
А код этот для чего?

и как лечить (программно)

 

как я понял - так отображается, и мне кажется - зареганные типы в ОС

 

@lmike,
Я чет не понял, этот код для демонстрации баго-фичи и ее лечения?
Код "удалени аттачей" для чего?

 

@lmike,
Я чет не понял, этот код для демонстрации баго-фичи и ее лечения?
Код "удалени аттачей" для чего?

код, раньше, лечил траблу со слетевшими хинтами
но теперь он не помогает
приведен просто как часть процесса

 

и еще - я даже не знаю как гугл спросить, про такой факап

 

По большому счету, не все ли равно как оно отображается, программно к аттачу достучаться же можно. У меня на практике такое часто выходило, я просто забил на это, отображаю иконку аттача "по-своему"

 

вот что заметил в программно аттачанных

<item name="Body" sign="true" seal="true">

 

кстати, у меня такое выходило, когда я программно аттачил в текущий открытый док

 

я давеча тоже натолкнулся на такую траблу.
костыль: в форме, в первой строке добавил header и высоту ему сделал 0.
уродско и не всегда применимо, ну а что делать...

 

кстати, у меня такое выходило, когда я программно аттачил в текущий открытый док

неа, теперь уже даже просто в background.
или это бага, которую исправят или нужно курить... уж и не знаю чего я только не курил с этими индусами.

 

флаги поснимал, но трабла не прошла

 

или это бага, которую исправят или нужно курить...

такое ощущение - они цепляют системную иконку (теперь) в хинт, но каким-то образом, хинт (при этом) портится
все больше склоняюсь к мысли - делать аттач через DXL

 

нашел разницу в ДХЛ
и она... в поле $FILE, но в нотусевой сучности я не знаю где копать, а ДХЛ

<item name="$FILE" summary="true" sign="true" seal="true">
- <object>
- <file hosttype="msdos" compression="none" flags="sign storedindoc" encoding="none" name="Договорзайма.doc" size="45545">

с flags! будет "нормально" загружен, а такой

- <item name="$FILE" summary="true" sign="true" seal="true">
- <object>
- <file hosttype="msdos" compression="none" encoding="none" name="Договорзайма.doc" size="45545">

в индусском стиле
то - достаточно flags='storedindoc' (атрибут) добавить в тег (<file...), для "правильного" резалта

 

@lmike @oshmianski
мне рассылка от IBM по APAR приходит, ICN больше нет

APAR LO90774: ATTACHMENTS APPEAR TWICE IN EMAIL IN NOTES 9.0.1 FIX PACK 7

The record has been opened. Subscription to this Authorized Program Analysis Report (APAR) is available.

APAR LO90539: ATTACHMENTS ARE SEEN TWICE IN VERSION 901FP7

The record has been opened. Subscription to this Authorized Program Analysis Report (APAR) is available.

 

https://xpagesandmore.blogspot.ru/2016/11/ibm-notes-9-fp7-issue-attachments-send.html

 

хм.. странно.. у мну fp7 давно стоит.. таких артефактов не наблюдал..
а ODS какой у Ваших баз?