Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
Sub Initialize
REM Get local database
dbName$ = Inputbox$("Database name", _
"Enter name of local database")
Dim db As New NotesDatabase("", dbName$)
Dim rep As NotesReplication
Dim re As NotesReplicationEntry
If Not db.IsOpen Then
Messagebox "No local database",, dbName$
Exit Sub
End If
REM Get source and destination computers
source$ = "-"
destination$ = "-"
REM Get replication entry
REM Remove if it exists
Set rep = db.ReplicationInfo
Set re = rep.GetEntry(source$, destination$, False)
If re Is Nothing Then
Messagebox "Any-to-any does not exist",, _
"Entry does not exist"
Else
Call re.Remove
Messagebox "Any-to-any entry deleted",, _
"Entry deleted"
End If
End Sub
ты вообще о чём?вощем я в тупке, как эти транкейтед доки возвратить к жизни - ненаю
ИБМ ссылко битая, да и не верю что рецепт поможет
самое интересное, что доки какбэ полные (т.е. все поля и аттач нормальный)
вот как его перевести в нормальный статус?
СиАПИ курить не хоца (без особого повода)
правишь что?берешь ScanEZ - и правишь док если он нормальный
окурки видны в обычной вьюшке?но что-то мне кажется что у тебя окурки
уже не помню, там или отдельное поле с флагом что трункатед или просто нужно удалить поле на котором зажевалоправишь что?
окурки это документ у которое нету итемов - от того он не в одном виде по определению виден быть не можетокурки видны в обычной вьюшке?
Обучение наступательной кибербезопасности в игровой форме. Начать игру!