Attachment löschen mit LS

Hallo zusammen,

ich habe einen Quellcode, der die Attachments in einem Doc löschen soll, wenn diese zu groß sind.

Das funktioniert eigentlich auch, nur das im Dokument das Bildchen des Attachments überbleibt.

Hier mal der Code:

Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim emb As NotesEmbeddedObject
	Dim rtitem As NotesRichTextItem

	Dim fileSizeKB As Long

	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document

	eval = Evaluate("@AttachmentLengths", doc)
	fileSizeKB=Clng(eval(0))/1024

	If fileSizeKB >150 Then
		Msgbox "The article picture is too big. Please notice that the file may not be greater than 150 kbyte!",16,"Error file size: "+Cstr(fileSizeKB)+" kbyte"

		'Delete Attachment		
		Set rtitem = doc.GetFirstItem( "Image" )
		If ( rtitem.Type = RICHTEXT ) Then
			Forall o In rtitem.EmbeddedObjects
				If ( o.Type = EMBED_ATTACHMENT ) Then
					Call o.Remove
					Call doc.Save( True, True )
				End If
			End Forall
		End If 

	End If

Was mache ich denn falsch?

Schonmal vielen Dank.

Gruß Stony

Hi Diali,

das ist ein guter Vorschlag. Werde das denke so tun.

Gruß Jan

Hallo,

hab jetzt mal versucht einfach ein File in ein Richtext Feld zu packen.
Nur irgendwie wird das file dann nicht in dem RichText Feld "Image" angezeigt, sondern am untersten Rand vom Doc??

Das Richtextfeld wollte ich dann verstecken, so dass den Anhang keiner mehr sieht.

Hier mal der Code:

files = ws.OpenFileDialog(False, "Image", "JPG|*.jp*", "C:\")
	If Isempty(files) Then
		Exit Sub
	End If

	Set rtItem = doc.getfirstitem("Image") 
	If(rtItem.Type = RICHTEXT) Then
		Call rtItem.EmbedObject( EMBED_ATTACHMENT, "", files(0))
	End If

	Call doc.Save(True,False)

Gruß Stony

Hallo,

ja der Code wird im Dokument aufgerufen.
Aber auch nach schließen und öffnen des Docs, hängt der Anhang unten dran und befindet sich nicht wie gewollt im RichtTextFeld "Image".

Gibts noch eine andere Möglichkeit?

Gruß Stony

So ist es.

Habe es mal probiert. Wenn der Client fragt, ob ich das Doc speichern wolle, habe ich nein gesagt und schon gings.

Aber wie kann ich das umgehen? Der User wird sicherlich "Ja" klicken und das Doc nochmals speichern.

Hi,

habs jetzt so gelöst.

Hier der Code:

doc.SaveOptions="0"
Call doc.Save(True,False)
Call uidoc.Close
Call ws.EditDocument(False, doc)

Und im Queryopen setze ich die SaveOptions wieder auf 1.

Danke.

Gruß Stony

Wie könnte ich es denn anders machen?

ok. danke.