Domino 9 und frühere Versionen > ND8: Entwicklung

Wieder nochmal: Abfrage RTF nach Enthalt eines Anhangs

<< < (2/2)

sja:
Hallo,

herzlichen Dank @dnotes und @it898ur!
sorry, dass so spät mit der Antwort, ich hatte Urlaub und bin  Heute 1. Tag am Arbeit

atnotes hilft wie immer! Alles funktioniert!

   flagAnhang = "Angebot"
   
   If Not rtitemA1 Is Nothing Then
      If (rtitemA1.Type = RICHTEXT ) Then
         If Not Isempty(rtitemA1.EmbeddedObjects) Then   
            ForAll object In rtitemA1.EmbeddedObjects
               If ( object.Type = EMBED_ATTACHMENT ) Then
                  Call rtitemA1.CopyItemToDocument( docM, "Body" )
                  flagAnhang = "Abweichung"
                  Exit ForAll
               End If
            End ForAll   
         End If      
      End If   
   End If
   
   If flagAnhang = "Angebot" Then
      If Not rtitemA Is Nothing Then
         If (rtitemA.Type = RICHTEXT ) Then
            If Not IsEmpty(rtitemA.EmbeddedObjects) Then
               ForAll object In rtitemA.EmbeddedObjects
                  If ( object.Type = EMBED_ATTACHMENT ) Then
                     Call rtitemA.CopyItemToDocument( docM, "Body" )
                     Exit ForAll
                  End If
               End ForAll
            End If         
         End If   
      End If
   End If

Navigation

[0] Themen-Index

[*] Vorherige Sete