Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: seerow am 14.04.05 - 17:16:38
-
Hallo zusammen,
ja ich weiß, schon 1000mal angesprochen, aber ich komme mit der Suchfunktion nicht weiter. >:(
Gibt es in LS eine möglichkeit ein RT Feld auf ein attachment zu prüfen?
Mit der "GetEmbeddedObject" Variante komme ich nicht weiter, da man hier nur auf auf den Namen des attachments prüfen kann.
-
Schau Dir mal das Beispiel aus der Hilfe an :
This script goes through all the file attachments, object links, and embedded objects in the Body item of a document. Each time it finds a file attachment, it detaches the file to the SAMPLES directory on the C drive and removes the attachment from the document. The script has no effect on the object links or embedded objects in the Body item.
Dim doc As NotesDocument
Dim rtitem As Variant
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "c:\samples\" & o.Source )
Call o.Remove
Call doc.Save( False, True )
End If
End Forall
End If
Das sollte als Grundlage ausreichen, um sich da etwas entsprechendes zu bauen.
-
jepp das wars...... Danke
-
Hallo,
ich hab eigentlich vor, alle Attachments eine Mail DB zu lösen.
Dabei bin ich dann auf diesen Beitrag gestoßen, und wollte dies auch gleich mal testen. Hab auch das Beispiel in der Hilfe DB gefunden und versucht dieses umzusetzen.
Jedoch gibt er immer bei der Forall Schleife eine Type Mismatch Fehlermeldung aus. Nun ist aber noch die Frage, was ist eigentlich mit dem kleinen "o" ? Es wird nirgends gesetzt noch definiert. Kann mir da jemand weiterhelfen?
mfg
-
Bitte hier nicht antworten, es gibt bereits einen 2. Beitrag vom Verfasser zum Thema: Doppelposting (http://atnotes.de/index.php?topic=27711.0)