temporär das Dokument merkendim doc_temp as NotesDocument
...
While not doc is Nothing
set doc_temp = dc.GetNextDocument(doc)
...
set doc = doc_temp
Wend
...
Na es will nich so recht. Also ich gehe mal davon aus das dc = collection ist, quasi documentcollection.
Ich bekomme aber immer einen Type Mismatch.
Das ganze sieht jetzt so aus. Vielleicht bin ich ja Fehlerblind!
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim folder As String
Dim doc_temp As NotesDocument
folder = BrowseFolder ("","")
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set doc_temp = collection.GetNextDocument(doc)
Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
Set doc = doc_temp
Wend
End Sub
Also was verplane ich hier die ganze Zeit?
Vielen Dank
BEN
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim folder As String
Dim doc_temp As NotesDocument
folder = BrowseFolder ("","")
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set doc_temp = collection.GetNextDocument(doc)
Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
If Not (rtitem.EmbeddedObjects Is Nothing) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
Set doc = doc_temp 'collection.GetNextDocument(doc)
Wend
End Sub
Das ist der Code und da kommt eine Meldung Type Mismatch.
Alles was ich will ist das dieser Agent über die markierten Documents rennt und alle Anhhänge in einen Ordner speichert, den ich ausgewählt habe. Anschließend soll er ohne zu fragen die gewählten Dokumente entfernen.
BEN
' Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim folder As String
Dim doc_temp As NotesDocument
folder = BrowseFolder ("","")
Print "Ordner: " + folder
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set doc_temp = collection.GetNextDocument(doc)
Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
If rtItem.Type = 1 Then ' # Das Feld Body kann auch als Textfeld vorliegen - dann Type mismatch-Möglichkeit
If Not (rtitem.EmbeddedObjects Is Nothing) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If ' ende der Prüfung auf Rich-Text-Feld...
End If
Set doc = doc_temp 'collection.GetNextDocument(doc)
Wend
... das könnte es pi mal daumen sein...
Toni
Der folgende Code funktioniert - debuggt und getestet...
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim folder As String
Dim doc_temp As NotesDocument
folder = "C:\Temp"
Print "Ordner: " + folder
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set doc_temp = collection.GetNextDocument(doc)
Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
If Not rtitem Is Nothing And rtItem.Type = 1 Then ' # Das Feld Body kann auch als Textfeld vorliegen - dann Type mismatch-Möglichkeit
If Isarray( rtitem.EmbeddedObjects ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
End If ' ende der Prüfung auf Rich-Text-Feld...
Set doc = doc_temp 'collection.GetNextDocument(doc)
Wend
End Sub
Toni ;D
Hallo :-),
ich habe das Debuggen Kapiert ::)!
Also er spring bei diesem dokument an der Stelle:
If Isarray( rtitem.EmbeddedObjects ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
direkt vom if zum Endif. Das heißt die Prüfung ist False. Hilft das weiter ? Sehe ich das richtig das er mit Isarray prüft ob dort mehrere Anhänge drin sind ?
Grüße BEN
Naja okay ich hab das verstanden, nur komm ich da nich weiter. also ich baue nun mal ein Else ein.
If Isarray( rtitem.EmbeddedObjects ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
else
Forall o In doc.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
End If
Das klappt aber nicht, da gibts wieder den berühmten Type Mismatch bei der Forall Zeile. Ich denk ich hab da noch einiges zu lernen, ich versteh zwar die Syntax aber ich kann mir dann bei nem Fehler nur schwerlich helfen.
Ideen? Was mach ich falsch?
Ok,
ich kann mein Problem nun genauer eingrenzen.
Ich weis nicht wie das Array für die Attachments heißt.
Also genauergesagt:
Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
Hier habe ich ja mein BODY - Teil.
Den entsprechenden Teil der quasi dann nicht im body sucht sondern im/am Dokument ist mir nicht bekannt.
Wenn ich :
If Isarray( doc.EmbeddedObjects) Then
Forall o In doc.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
In das else einfüge dann mekert er schon wenn ich speichern will das das o nicht der geliche Datentyp wäre wie das doc.emb...
Ich habe mal geschaut, der Anhang der nicht funktioniert ist einer den ich lösen kann. Aber ich denke der ist nicht im Body sondern wie gesagt am Dokument oder so :-)?
Also wie frage ich nun :
wenn Dokument.HastDuAnhänge = True dann
Für jeden Anhang in doc
speicherAnhang(ort)
weiter
doc.AbInDenMüll
So einfach klingt das hehehe aber is zum Haareausreissen!!
Ben
... so lang du noch Haare hast geht dir auf jeden Fall nicht der Humor aus ;D ;D ;D
Das Array heißt "EmbeddedObjects"
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim rtitem As Variant
Dim folder As String
Dim doc_temp As NotesDocument
folder = "C:\Temp"
Print "Ordner: " + folder
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
Set doc_temp = collection.GetNextDocument(doc)
Set rtitem = doc.GetFirstItem( "Body" ) 'Hier das entsprechende RT-Feld angeben
If Not rtitem Is Nothing And rtItem.Type = 1 Then ' # Das Feld Body kann auch als Textfeld vorliegen - dann Type mismatch-Möglichkeit
If Isarray( rtitem.EmbeddedObjects ) Then
Forall o In rtitem.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
Else
If Isarray( doc.EmbeddedObjects ) Then
Forall o In doc.EmbeddedObjects
Call o.ExtractFile( folder+"\" & o.Name )
End Forall
Call doc.Remove(True)
End If
End If ' ende der Prüfung auf Attachments...
Set doc = doc_temp 'collection.GetNextDocument(doc)
Wend
End Sub
Aber ich habs geschafft. Ich denke nach dem Motto:
Warum einfach wenn es auch kompliziert geht.
Hier mein Code der im Else Bereich steht:
If Not rtitem2 Is Nothing And rtItem2.Type = 1084 Then
If Isarray( rtitem2.values) Then
Forall o In rtitem2.values
name1 = o
Set anhang = doc.GetAttachment(o)
Call anhang.ExtractFile( folder+"\" & o )
End Forall
Call doc.Remove(True)
End If
Dazu muss ich noch sagen das ritem2 =
Set rtitem2 = doc.GetFirstItem("$file")
---ist!
Letztlich wäre nun noch die Frage zu klären ob der Type 1084 bei Anhängen die am Dokument hängen immer so ist?
Ich danke allen die mir geholfen haben.
Noch eine Idee zu 1084 ?
BEN