Attachmensts die Man nicht sieht :-)

21. Februar 2008

Hallo

bei mir kommt es in einigen Dokumenten vor das ich 10 Attachments sehen kann aber wenn ich auf die Properties des Doc gehe dann sehe ich das da zb. 15 Atachments sind.

Und wenn ich die dan nach Sql shicke sind da natuerlich 15 Attachments.

Wie kann ich das synchronisieren?

Danke

taurec · 21. Februar 2008

Redest du jetzt von der Anzahl der $FILE Elemente ?

Diese können z.B. auch durch eingebettete Elemente oder in der Maske enthaltene Attachments entstehen

taurec · 21. Februar 2008

taurec

Ja genau, was ich will ist das ich nur die $file elemente habe die ich auch im doc sehen kann.

Danke

Diali · 21. Februar 2008

gehe über die NotesEmbeddedObjects und lies von den Anhängen den Name und den Source aus.

Danach eine Schleife über alle Felder, wenn es ein $File-Feld ist, dann kannst Du anhand des Namen im $File-Feld und der Zuordnun g Name zu Source die entsprechenden Felder finden und ggf. löschen.

Gruß
Dirk

taurec · 21. Februar 2008

Kommt drauf an wie du sie im Doc anzeigst. Machst du das über ein Feld oder wie ?

Und bist du sicher, daß es tatsächlich mehr Attachments sind und nicht nur welche die auf mehrere $FILE Felder aufgeteilt sind ?

Diali · 21. Februar 2008

Diali

Ich versuch es mall wie du es beschrieben hast.

taurec:
Sie sind in einem feld und ja ich kann es im namen sehen welche gemeint sind.

Danke an alle

21. Februar 2008

Code

Function sync(fld As String, doc As NotesDocument)
	Set rtitem = doc.GetFirstItem( fld )
	names = ""
	If ( rtitem.Type = RICHTEXT ) Then
		If  Not Isempty(rtitem.EmbeddedObjects) Then			
			Forall o In rtitem.EmbeddedObjects
				If o.name Then
					Call o.remove
					Call doc.Save(True,False)
				End If
			End Forall
		End If
	End If
End Function

Alles anzeigen

Das war ein versuch, ich nehme den namen aller Attachments aus dem Feld fld aber wie soll ich sie mit $FILE vergleichen?

DANke

Diali · 21. Februar 2008

mach eine Schleife über NotesDocument.Items

Gruß
Dirk

25. Februar 2008

Code

Forall x In doc.Items
If x.name="$FILE" Then
Print x.name
End If
End Forall

So kriege ich die $FILE items abe ich schaffe es nicht den Namen des attachment zuz kriegen damit ich es loeschen kann wenn es nicht ins doc reingehoert.

Danke im voraus

Diali · 26. Februar 2008

löschen kannst Du es mit Remove.

Gruß
Dirk

Diali · 27. Februar 2008

Diali

Ich weiss wie ich es loeschen kann aber ich weiss nicht wie ich herausfinden soll welches attachment im $file item ist;-)

Danke

4. März 2008

Kann mir vieleicht irgendjemand sagen wie ich herausfinden soll welches Attachment im $FILE Item ist?

Diali?

Danke

Diali · 4. März 2008

Code

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document


Dim internerAnhangsName As String


Forall it In doc.Items
   If it.Name = "$FILE" Then
      internerAnhangsName = it.Values(0)
   End If
End Forall

Alles anzeigen

Gruß
Dirk

4. März 2008

Code

Function sync(fld As String, doc As NotesDocument)
	Set rtitem = doc.GetFirstItem( fld )


	If ( rtitem.Type = RICHTEXT ) Then
		If  Not Isempty(rtitem.EmbeddedObjects) Then			
			Forall x In doc.Items		
				If x.name="$FILE" Then
					Forall o In rtitem.EmbeddedObjects
						If o.name= x.Values(0) Then
							Print o.name
						Else 
							Print o.name & "-" & x.Values(0)
						End If
					End Forall
				End If
'				Call o.remove

			End Forall
		End If
	End If
	Call doc.Save(True,False)
End Function

Alles anzeigen

If o.name= x.Values(0) Then gibt mir Variant does not contain an container

Im debuger steht bei X Values nichts also leer.

Danke

EDITXXXXXX
Also jetzt habe ich vor if o.name ein On error resume next gesetzt und irgendwann komm ich zu x das den wert values hat und dan geht der code. Wie kann ich das umgehen? Soll ich die x ohne values loeschen? Wie soll ich im code testen ob x valuers hat?

Danke im voraus

Diali · 4. März 2008

Umgehen kannst Du es mit einer Fehlerbehandlung.

Einfach löschen würde ich es nicht. Schau erst mal ob noch irgendwelche Dinge im Dokument drin sind (andere eingebettete Elemente).

Gruß
Dirk

Teilen