Domino 9 und frühere Versionen > ND6: Entwicklung

Rich Text Lite abfragen

<< < (3/4) > >>

TMC:

--- Zitat von: Semeaphoros am 26.11.04 - 17:26:39 ---Was ich zuletzt gesehen habe, liegen die höchsten Werte bei ca. 200KB für leere Felder, heisst, mit 500KB als Grenzwert liegt man in jedem Fall sicher.

--- Ende Zitat ---

Du meinst sicher Bytes statt KB, Jens  :)  ;D

Semeaphoros:
Du hast natürlich völlig richtig .... danke für die Korrektur   ;D

Fehno:
Hallo ! Ich bin heute auf das gleiche Problem gestossen: Ich will wissen ob der User einen Datei angehängt hat oder nicht. Eure Lösung finde ich einfach zu kompliziert.

Kann ich nicht einfach über @If(@Attachments; "Ja"; "Nein") das ganze abfragen ? Bei mir funktioniert das einwandfrei...

Dies unter der Vorgabe, dass ich nur einen Anhang je Dokument machen kann, was bei mir der Fall ist.

koehlerbv:
Die Frage war, ob das RTF irgendetwas enthält und nicht so simpel, ob dort ein Attachment eingebunden ist.

Bernhard

Christian Huber:
Hallo,

Kleiner Auszug aus Contact - Maileingangsverwaltung. Hat bis dato immer funktioniert.
(5/6/7). Geht nicht bei verschlüsselten Feldern, da braucht man dann ........
 
Die Sizemethode ist einfach zu unsicher.

Einfach kleine Funktion drausbasteln mit Pointer auf doc und Prüffeldname.

Sub Initialize
   
   Dim session   As New NotesSession
   Dim doc      As NotesDocument
   Dim rtitem   As Variant
   Dim iUsed   As Integer
   Dim pText   As String
   
   On Error Goto LabErr
   
   iUsed = 0
   Set doc = session.DocumentContext
   
   Set rtitem = doc.GetFirstItem( "HGInhalt" )   '* Prüffeld -> austauschen
   If Not rtItem Is Nothing Then
      If (rtitem.Type = RICHTEXT ) Then
         On Error Goto LabNoEmbedd
         Forall o In rtitem.EmbeddedObjects
            If ( o.Type = EMBED_ATTACHMENT ) Then
               iUsed = 1   '* RT ist belegt
               Exit Forall
            End If
         End Forall
LabNoEmbedd:
                       Err = 0
         On Error Goto LabErr
      End If
      
      If iUsed = 0 Then '* Nur prüfen, wenn keine Anhänge
         pText = rtitem.GetFormattedText (False, 0)
         If Trim (pText) <> "" Then
            iUsed = 2
         End If
      End If
   End If
   
   Select Case iUsed
   Case 0
      Msgbox "das Richtextfeld ist leer"
   Case 1
      Msgbox "das Richtextfeld beinhaltet Dateianhänge"
   Case 2
      Msgbox "das Richtextfeld beinhaltet Text"
   End Select
   
LabOk:
   Exit Sub
   
LabErr:
   Print Error (Err), Erl
   Exit Sub
End Sub

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete