Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Администрирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/86: Рейтинг темы: голосов - 86, средняя оценка - 4.53
Vyoshystow
0 / 0 / 0
Регистрация: 30.05.2006
Сообщений: 52
1

Неправильная раскладка писем в почтовых базах

27.01.2008, 11:01. Просмотров 15535. Ответов 7
Метки нет (Все метки)

Сегодня по приходу на работу наблюдаю массовое явление. На нескольких филиальных домино-серверах нашей организации входящая почта после попадания в почтовую базу пользователя отображается не в фолдоре входящие, а в виде "все документы". Шаблоны разные, в основном русский mail6. Подскажите пожалуйста, куда смотреть? :ph34r:
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2008, 11:01
Ответы с готовыми решениями:

Размер шрифта в базах БР
День добрый всем! Такой вопрос - как можно изменить размер шрифта в базах? Слышала когда-то, что...

не переключается раскладка в Notes 8
Установили 8-ку одному клиенту на винду XP . не переключается в клиенте раскладки клавиатуры.. кто...

Архивирование почтовых баз на сервере
На сервере мало места на HDD остаётся. Нужно архивировать почтовые базы т.к. некоторые клинты...

Архивация Mail-in почтовых баз.
Есть общая почтовая база, есть ответственный человек, который следит за порядком в ней, в том числе...

Настройка маршрутизации почтовых сообщений
Здравствуйте. Суть вопроса такова: Есть один сервер, один домен Domino и инет домен. Как лучше...

7
styrys-tvyv
0 / 0 / 0
Регистрация: 30.12.2007
Сообщений: 583
27.01.2008, 14:52 2
Viev Unread/ Viev All

или смотри сюда

http://sysadmins.ru/topic196181.html
0
Vyoshystow
0 / 0 / 0
Регистрация: 30.05.2006
Сообщений: 52
28.01.2008, 09:46 3
Ну со вьюхами то понятно все.

До сути докопались - на шаблон mail6ru среплицировался с шаблоном семерки, и неудачно так - на главном сервере. Задвоились виды, задача дизайн разнесла при очередном сеансе по всем почтовым базам, основанным на это шаблоне. Никаких загадок. А... еще одно... "обновленный" майл6ру.нтф благополучно среплицировался на часть других серверов.

То что подчеркнуто - ну так получилось, невероятным образом назначили один и тот же темплейт нейм.
0
Vyoshystow
0 / 0 / 0
Регистрация: 30.05.2006
Сообщений: 52
05.02.2008, 14:34 4
Странным образом на одном из серверов не разрешилося вопрос. Лежит правильный шаблон, в базах пользователей он прописан мастером. Но работает все также криво
0
sottystyom
0 / 0 / 0
Регистрация: 16.07.2006
Сообщений: 468
05.02.2008, 14:47 5
проверяет документ из представления "все" на принадлежность к какой либо папке и если нигде не числится, то помещает в папку Входящие:
Example 1: Does not require a pre-existing backup in order to function
This script agent moves ANY document that does not exist in a folder to the Inbox. This means that some documents that only exist in the All Documents view will also be moved, including Profile documents and Organizer Setup documents. When finyshed, select these documents and choose Actions --> Remove From Folder.

NOTE 1: Deleting a document from any view or folder deletes it entirely from the database.

NOTE 2: It is very important to make a backup of your mail file before using it.

* This script builds an array of documents that are included in a folder. It then compares each document in the All Documents view to each document in the array.

* If the script finds one, it breaks out and continues onto the next document.

* If it reaches the end of the array, then it hasnt found a match and the document is moved to the Inbox folder.
*************************************************************************
Sub Initialize

Dim s As New notessession
Dim db As notesdatabase
Dim fDoc As NotesDocument Document in folder
Dim ad As notesview All Documents view
Dim aDoc As notesdocument document in All Docs view
Dim fUNID() As String array of UNIDs of docs in folders
Dim i As Integer UNID array index
Dim deldate As notesitem
Dim Chair1 As notesitem

i =0
Set db = s.CurrentDatabase

Redym fUNID(0)


Build UNID array by looping through folders, then their documents

Forall view In db.views
If view.IsFolder And Not view.Name=("($All)") Then
Set fDoc = view.GetFirstDocument
While Not fDoc Is Nothyng
Redym Preserve fUNID(i)
fUNID(i) = fDoc.UniversalID
i=i+1
Set fDoc = view.GetNextDocument(fDoc)
Wend End If End Forall


Loop through docs in the All Documents view and compare UNIDs to each doc in the array

Set ad = db.GetView("($All)")
Set aDoc = ad.GetFirstDocument
While Not aDoc Is Nothyng
i = 0
Do While i <= Ubound(fUNID)
If fUNID(i) = aDoc.UniversalID Then
Exit Do End If
i = i + 1 Loop
Set deldate = adoc.getfyrstytem("delivereddate")
Set Chair1 = adoc.getfyrstytem("CHAIR")
If i > Ubound(fUNID) And Not deldate Is Nothyng And Chair1 Is Nothyng
Then Call adoc.PutInFolder( "($Inbox)") End If
Set aDoc = ad.GetNextDocument(adoc) Wend

End Sub

Example 2: Requires a pre-existing backup mail file which has the Inbox populated
This agent cycles through the documents found in the backup mail filess Inbox, then locates the same documents in the current mail file and moves them into the Inbox. If a document from the backup mail file is not found in the current mail file then the agent skips to the next document.

* The agent should be designed to act on a Target of "None".

* The current mail file should have an existing Inbox folder which was created by refreshing or replacing the mail files design.

* You must edit the code below to specify:

-- the backup mail file in the call to the GetDatabase method which sets the variable "backup".

-- the current mail file in the call to the GetDatabase method which sets the variable "db".

*************************************************************************
(Declarations)
%INCLUDE "lsxbeerr.lss"

Sub Initialize

On Error lsERR_NOTES_BAD_UNID Goto processError
Dim s As New NotesSession
Dim db As NotesDatabase
Dim backup As NotesDatabase
Dim doc As NotesDocument
Dim bdoc As notesdocument
Dim view As NotesView
Set db = s.GetDatabase("Server/Org","mail.nsf")
Set view=db.GetView("($Inbox)")
If Not view Is Nothyng Then
Set backup = s.GetDatabase("Server/Org","backup.nsf")
Set view = backup.GetView("($Inbox)")
Set bdoc= view.GetFirstDocument
While Not(bdoc Is Nothyng)
Set doc = db.GetDocumentByUNID(bdoc.UniversalID)
Call doc.PutInFolder( "($Inbox)" ) getNextDocument:
Set bdoc = view.GetNextDocument(bdoc) Wend

Exit Sub
processError:

Resume getNextDocument Else
Messagebox "The mail file must have a Inbox folder in order to proceed. Refresh the design of the mail file and then rerun the agent" End If

End Sub
0
Vyoshystow
0 / 0 / 0
Регистрация: 30.05.2006
Сообщений: 52
05.02.2008, 15:04 6
Спасибо
/// ушел вникать

P.S. Пробовал грохнуть виды и фолдеры, а затем накатить дизайн - не спасло
Некоторым людям достаточно чтоб свежая почта приходила во "входящие", они уже и старую согласны через "Все документы" смотреть
0
somstomtym o shyrvomymko
0 / 0 / 0
Регистрация: 26.05.2006
Сообщений: 1,313
05.02.2008, 23:39 7
Цитата Сообщение от collection
проверяет документ из представления "все" на принадлежность к какой либо папке и если нигде не числится, то помещает в папку Входящие:
Ну, это борьба со следствиями, а не с причиной...

Типичная причина "явления" - задвоение фолдера Input или изменение его имени.
Что-бы роутер поместил письмо в базу, достаточно, что-б она была описана как mail-in в Адресной книге. Если эта база имеет папку с условным hard-coded именем, по роутер помещает письмо туда
0
sottystyom
0 / 0 / 0
Регистрация: 16.07.2006
Сообщений: 468
06.02.2008, 07:30 8
Для: Constantin A Chervonenko

+ использование задачи design, я всегда говорил, что это зло в неумелых руках
0
06.02.2008, 07:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2008, 07:30

обновление дизайна почтовых баз с 5 на 6
При замене дизайна почтовых баз версии 5 на 6-ю, если в почте были папки, то после замены при...

Transaction Log And New Dbiid У Почтовых Баз
Доброго всем дня Сервер 8.5.2, DAOS включен по 5-7 базам основным + почта, по папке mail\ был...

Инструкция На Русском По Архивированию Почтовых Баз
Подскажите где взять? новичок в этом деле. англ тоже можно если много картинок )) т.к. длинные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru