Habe die Vault komplett neu gemacht, aber keine Änderung, das Problem bleibt.
Habe mal etwas Code hinzugefügt.
Die IDs sind alle in der Vault und da ich die neu gemacht habe sollte das eigentlich passen.
Habe dennoch mal auf den Testuser eingeloggt und mit der Vault gesynced, kann ja nicht schaden.
Mein Designer hat sich bei 'userID.' geweigert mir eine Autovervollständigung zu machen, also habe ich halt das Script geschlossen und neu aufgemacht. Der Designer blieb aber hartnäckig der Meinung er müsse da nichts tun. Also Manuell das Username drangeschrieben und es hat sich auch ohne Probleme speichern lassen.
If Not idVault.IsIDInVault(username, servername) Then
Print "User NICHT in der Vault gefunden"
GoTo lblExit
End If
Dim userID As NotesUserID
Set userID = idVault.GetUserID(username, password, servername)
Print userID.Username
Das passt alles.
Aber noch etwas anderes. Andrew, in deinem Code sehe ich nichts, was eine sichtbare Ausgabe im Client erzeugt, wenn keys vorhanden sind. Liegt es evtl daran? Du erwartest etwas, was aber nicht passieren kann?
Wohlmöglich hast Du Recht und ich erwarte hier etwas, was so gar nicht existiert.
Meine Erwartung ist, das ich hier den Private Key vorfinde, mit welchem ich ganz normal verschlüsseln kann.
Kann es sein das ich hier einen Denkfehler begangen habe und nur zusätzliche Keys drin sind?