1
1KIA
Суть следующая: необходимо в личных АК пользователей заменить автоматически, т.е. агентом, поле mail Server на данные этого пользователя в серверной АК
начила так:
MailServer не конкретно указанным значением заполнять, а значением данного человека из АК?
начила так:
Код:
sNamesLine = session.GetEnvironmentValue("names",True)
nPos = Instr(sNamesLine, ",")
If nPos > 0 Then
sNamesLine = Left$(sNamesLine, nPos-1)
Else
sNamesLine = "names.nsf"
End If
Set dbNab = New NotesDatabase( "",sNamesLine )
Set view = dbNab.GetView(VIEW_CONNECTION_NAME)
Set note = view.GetFirstDocument
While Not(note Is Nothing)
bNeedsUpdate = False
sDomainValue = note.SourceDomain(0)
If Lcase(sDomainValue) = Lcase(OLD_DOMAIN_NAME) Then
note.SourceDomain = NEW_DOMAIN_NAME
note.MailServer=" "
bNeedsUpdate = True