Ok, habs verstanden und werde die Dinge fürs nächste mal beachten.
@Axel
Hat leider nicht funktioniert. Habs mit Deinem letzten Tipp versucht, mit = 0 und mit = "". Alles vergebens. Hier mein Code:
...
' Diese Abfrage wird übergangen
If collection.Count = 0 Then
Messagebox "Sie haben kein Dokument markiert!",0 + 16,"Achtung"
Exit Sub
End If
........
Hi,
so weit waren wir doch schon. Ich hatte dir dann die Version aus Antwort#7 angeboten. Hast du es damit mal probiert?
So sollte das aber jetzt funktionieren.
Sub Initialize
Dim ordner As String
Dim auswahl As Integer
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
'Abfrage, ob überhaupt ein Eintrag markiert wurde
If collection.Count = 0 Then
Messagebox "Sie haben kein Dokument markiert!",0 + 16,"Achtung"
Exit Sub
End If
Set doc = collection.GetFirstDocument
'Abfrage, ob Kategorie gewählt wurde
If doc Is Nothing Then
Messagebox "Sie haben eine Kategorie markiert!",0 + 16,"Achtung"
Exit Sub
End If
...
Axel
ich hab es mit dem Schnipsel probiert; funzt einwandfrei
Bei mir funzt das auch. Axels Lösung muss auch funktionieren.
Liegen könnte das daran, das hier
Sub Initialize
Dim ordner As String
Dim auswahl As Integer
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument
' Diese Abfrage wird übergangen
If collection.Count = 0 Then
Messagebox "Sie haben kein Dokument markiert!",0 + 16,"Achtung"
Exit Sub
End If
Agent mit Run on Selected. folgenden
Sub Initialize
Dim ordner As String
Dim auswahl As Integer
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
' Diese Abfrage wird übergangen
If collection.Count = 0 Then
Messagebox "Sie haben kein Dokument markiert!",0 + 16,"Achtung"
'Exit Sub
Else
Msgbox collection.count & " Dokumente wurden markiert - sie können über die Klasse" & Chr$(10) &_
"NotesDocumentCollection weiter bearbeitet werden"
End If
End Sub
@Command([ToolsRunMacro];"testSelect")
Das funktioniert einwandfrei mit und ohne Kategorien, mit einem zwei oder fünzig Dokumenten. mit Dokumenten + Kategorien ...
Er zeigt mir in der Documentcollection immer nur die echten Dokumente an.