Lotus правильно ругается.
Включив телепатию я вот так вижу ваш код
Код:
Sub Initialize
Dim noteid$
Dim session As New NotesSession
Dim adminp As NotesAdministrationProcess
Set adminp = _
session.CreateAdministrationProcess("ServerName/Domain")
noteid$ = adminp.DeleteReplicas("ServerName/Domain", "mail/user004.nsf")
If noteid$ <> "" Then
Print noteID$
Call adminp.ApproveReplicaDeletion( noteID$ )
End If
End Sub
Результат:
---------------------------
IBM Domino Designer
---------------------------
Invalid Approval Request note.
---------------------------
ОК
---------------------------
Разберемся, чо за фигня:
1. noteid$ = adminp.DeleteReplicas("ServerName/Domain", "mail/user005.nsf")
Создан запрос
noteid$ = A16:
*Action:
Get Replica Information for Deletion
*Server(s) to perform the action: *
*Name(s) to perform the action on: User-004
*Action requested by: Domino Admin/Domain
*Name of process to perform action: Adminp
Подозрительный какой то запрос, да? Название совсем не о том, что мы хотели.
Пока я печатал, картина поменялась.
К A16 появился ответ от сервера
noteid$ = A1E:
*Action:
Get Replica Information for Deletion
*Link to request:
*Name(s) acted upon: User-004
*Action requested by: Domino Admin/Domain
*Server responding to request: ServerName/Domain
*Start time: 19:28:17 Сегодня
*End time: 19:28:17 Сегодня
*Databases processed: Title: User-004 Path: mail\user004.nsf
И Новый запрос
noteid$ = A1A:
*Action:
Approve Replica Deletion
*Server(s) to perform the action: ServerName/Domain
*Replica ID: 43258184:004EA26A
*Name(s) to perform the action on: User-004
*Action requested by: Domino Admin/Domain
*Name of process to perform action: Adminp
*Database name: mail\user004.nsf
*Database title: User-004
*Database ACL: The following have Manager access to this database; Domino Admin/Domain; agd-t/Domain; LocalDomainServers
*Database design template name: StdR9Mail
"Вот она, вот она, на #@& намотана"
В А1А есть поле ProxyOriginatingRequestUNID с UNID для A16
Отредактирую агент
Код:
Dim noteid$
Dim session As New NotesSession
Dim adminp As NotesAdministrationProcess
Set adminp = _
session.CreateAdministrationProcess("ServerName/Domain")
Call adminp.ApproveReplicaDeletion( "А1А" )
Отработал без ошибок.
Сформирован ответ к А1А:
*Action: Approve Replica Deletion
*Link to request:
*Name(s) acted upon: User-004
*Action completed by: Domino Admin/Domain
*Action requested by: Domino Admin/Domain
*Start time: 19:42:30 Сегодня
*End time: 19:42:30 Сегодня
*Databases processed: mail\user004.nsf
Сформирован запрос
*Action: Request Replica Deletion
*Server(s) to perform the action: Administration Server for the Domino Directory
Replica ID: 43258184:004EA26A
*Name(s) to perform the action on: User-004
*Action requested by: Domino Admin/Domain
*Name of process to perform action: Adminp
Database name: mail\user004.nsf
Database title: User-004
Не будем ждать
tell adminp process all
На консоле
[3AFC:0007-0C88] 05.10.2017 19:46:17 Admin Process: Received the following error performing a Get Replica Information
for Deletion request on User-004. The replica, belonging to 'User-004', does not exist on this server.
Да и хрен с ней.
... Мне пользователь User-004 звонит, говорит почта не открывается, я убежал.