Domino 9 und frühere Versionen > Entwicklung

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

<< < (2/8) > >>

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


 
--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete