Domino 9 und frühere Versionen > Entwicklung

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

<< < (5/8) > >>

Worn:
Aha Danke erstmal !

Er bleibt in der Zeile.

Forall o In rtitem.EmbeddedObjects

kleben! Der Code sieht so aus wie der zuletzt von ATA gepostet.

Ideen ?

Ich danke euch..


BEN

diali:
Wenn der Fehler auftritt stehst Du im Debuger, dann kannst Du unten umschalten auf Variablen. Was steht bei rtitem rechts und ist vor dem rtitem ein +?

Worn:
Sorry ich muss weg nun ich melde mich aber später wieder !

Danke soweit

BEN

ata:
Der folgende Code funktioniert - debuggt und getestet...

--- Code: ---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
--- Ende Code ---

Toni  ;D

Worn:
Okay,

dann teste ich den nächsten Dienstag auch mal.
Mal sehen ob dann die Browse Folder Funktion
auch noch geht.
Ich bedanke mich aber für die rege Hilfe, das ist
echt ein tolles Forum. Ich werde dann nochmal Posten
wie es ausgegangen ist.

Allen ein schönes Wochenende.

BEN

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete