Anhänge gewählter Mails lösen & Löschen ?

[Worn]

Hallo,

ich beziehe mich auf diesen Post.

http://www.atnotes.de/index.php?topic=10524.0

Dort wurde ein cooles kleines Agenten Feature beschrieben welches über ausgewählte Mails in der aktuellen DB rennt, alle Markierten Mails nach Anhängen durchsucht und diese dann in ein vorher ausgewähltes Verzeichnis löst.

Super Sache, soweit zufrieden. Ich möchte nun aber das diese Mails auch noch gelöscht werden. also habe ich hier (nur ein Auszug aus dem Script!) noch etwas eingefügt.::::

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 docid As String
folder = BrowseFolder ("","")
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
   
While Not (doc Is Nothing)
docid = doc.NoteID
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
del(docid)         
End If
del(docid)   
Set doc = collection.GetNextDocument(doc)
Wend
End Sub

Diese Variable docid übergibt dann die dokumentID (hab ich das richtig gemacht ?) an die Funktion DEL. Die sieht wiederum so aus:

Function del (docid As String) As String
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Set db = s.currentdatabase
   Set doc = db.GetDocumentByID(docid)
   Call doc.Remove(True)
End Function

So Das Funktioniert auch, also das Anhänge lösen. Das löschen geht nicht, nur die letze der markierten Mails die löscht er, dann kommt eine Meldung:

Function needs a valid ADT Argument.

Also da ich laie bin (nur VB und VBA Kenntnisse) kann ich irgendwie nix damit anfangen. Kann mir jemand nen Tipp geben? Ich möchte also nur das die ausgewählten Dokumente nachdem die dort enthaltenen Anhänge gelöst wurden gelöscht werden, thats all.

Ich danke sehr...


BEN


PS: Noch was, ich kann den Agenten auch nicht debuggen. Da mekert er das ich den in einem Ansichtsfenster starten soll. Habe hier in einem Beitrag auch schon gelesen das man dann mal "aus Liste der Agenten starten" oder so ähnlich auswählen soll, was bei mir aber nicht das Problem löst.

[Glombi]

Das übliche Problem: Du löschst doc und dann kommt
 Set doc = collection.GetNextDocument(doc)
Das hintere doc gibt es aber nicht mehr.

Kann das jemand ins Entwicklerforum verschieben?

Andreas

[Thomas Schulte]

Da du alle Dokument aus der Collection löschen willst ist das eine einfache Sache:

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 docid As String
folder = BrowseFolder ("","")
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
   
While Not (doc Is Nothing)
docid = doc.NoteID
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
End If
Set doc = collection.GetNextDocument(doc)
Wend
call collection.removeall(true)      
End Sub

[Worn]

Hy,

Danke das ging ja schnell.

@Glombi --> Also was schlägst du vor ?
@Thomas--> Das war es leider nicht. Kommt eine Fehlermeldung

"Type Missmatch"

Trotzdem danke ich schonmal für Hilfe.

PS. Ja bitte verschieben, das sollte eingentlich nicht hier rein, war ein versehentliches Versehen 

[diali]

temporär das Dokument merken

Code

dim doc_temp as NotesDocument
...
While not doc is Nothing
  set doc_temp = dc.GetNextDocument(doc)
  ...
  set doc = doc_temp
Wend
...

[Worn]

OJE!!

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!

Code

 
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

[diali]

in welcher Zeile kommt den der Fehler?

[Worn]

Tja das kann ich leider nicht sagen. Ich kann nämlich nicht debuggen.
Da kommt dann immer die Meldung :

"Der Agent muss von einem Ansichtsfenster aus gestartet werden."

Ich habe schon Alle hier geschriebenen Ansätze probiert, aber ich komm nich zu dem gewünschten Ergebnis.

 

Also was tun, weitere Ideen 

BEN

[koehlerbv]

Kann leider nur einen kurzen Blick auf den Code werfen, aber ich vermute, dass das Forall genau dann in die Hose geht, wenn gar keine EmbeddedObjects vorhanden sind.
Daher vor abfragen: If not (rtitem.EmbeddedObjects is nothing) Then ...

Wegen Debuggen: Da gab es doch gerade gestern einen Thread dazu - such den mal. Da wird beschrieben, wie man solch einen Agent debugfähig macht (Target umstellen auf "manuell aus der Liste der Agenten").

Bernhard

[ata]

... ansonsten kannst du auch mit Print/MsgBox-Befehlen eine Debug-Kette aufbauen.

Toni

[Worn]

Hy,

ja diesen Beitrag habe ich auch schon gelesen und auch getestet, aber ich scheine einer der Pechvögel zu sein bei dem die Sachen nicht funktionieren  . Ich bekomme da trotzdem noch die Meldung das der Agent in einem ....Fenster usw....

ja ich probiere das mal aus mit dem Forall. Aber es geht ja nur um ausgewählte Dokumente, und ich wähle ja nur welche aus die Anhänge haben.


BEN

[ata]

... dein Agent ist als "... auf alle markierten Dokumente einer Ansicht" deklariert. Wenn du den Agent nicht aus einer Ansicht startest, dann muß er als als "... einmalig ausführen - @Commands sind möglich" deklariert werden...

Toni

[Worn]

Ähh also wenn ich das einstelle dann geht nach rechtsklick auf den Agenten in der Agentenliste und dann testen ein kleines Fenster auf wo drinne steht wann der Agent gestartet wurde und wann er beendet wurde, nicht sehr informativ hehehehehe.

Ohh man die kleinsten Wünsche sind immer sooo kompliziert!

Wieso geht nicht

if i = 1 then
lösch den scheiss.
end if

 

BEN


Vielleicht hat ja mal jemand Zeit sich das script (link im ersten Post)
selbst zu laden und dann mal zu testen was man machen muss damit der die ausgewählten Docs dann auch löscht.

[ata]

... Wo liegt jetzt das Problem?

Toni

[ata]

... in deinem Script löschst du das Dokument, bevor du auf das nächste zugreifen möchtest. Da dein Vorgänger-Doc nicht mehr existiert, kann er das Folge-Doc nicht initialisieren.

Du musst also zuerst das Folge-Doc initialisieren und das Doc löschen - dazu arbeitest du am Besten mit 2 doc-Variablen ...

Oder du durchläufst die Collection ein zweites Mal und nimmst hier nur die Löschungen vor...

Toni

[Worn]

Code

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

[diali]

was mich interessieren würde, warum Du nicht den Debugger benutzen und uns die Zeile mit dem Fehler mitteilen kannst?

[ata]

Code

' 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

[Worn]

Danke immernoch TYPE MISSMATCH 

Debugger kann ich nicht benutzen weil

a) weis ich nicht wie
b) ich muss ja dokumente auswählen die einen Anhang haben,
dazu brauche ich ja ne Ansicht
c) wenn ich in den Agenten gehe um diesen zu bearbeiten, dann
kann ich auf nem kleinen fenster welches sich öffnet ein paar sachen auswählen. Was soll ich da denn einstellen ?

- Auswahl in der Agentenliste
- Und unter Ziel ?


Thanks

BEN

[diali]

a) Menü - Datei - Extras - Debug LotusScript
b) Dein Script starten wie immer
c) nichts verändern

nach dem Start des Agenten öffnet sich der Debugger, dann auf Fortfahren und nach der Fehlermeldung steht der Debugger in der richtigen Zeile.