Lotus Notes/Domino -- продукт и инструмент. Выпуск: 18
Компания ПУЛ - разработка приложений на Lotus Notes/Domino CodeStore. Коды Примеры Шаблоны1. How to configure SSO with LTPA for IBM Lotus Connections 2.0This article explains how to configure single sign-on (SSO) with Lightweight Third-Party Authentication (LTPA) for IBM® Lotus® Connections 2.0. Learn the basics of SSO and LTPA and the detailed steps for configuring SSO in a stand-alone environment.2. LotusScript accesses clipboard to view copied Notes documentsFind out how to access copied Lotus Notes documents on your clipboard with this downloadable LotusScript code. This tip is helpful when using queryPaste events to determine what content is being pasted into a Lotus Notes database.3. Open database listed in an email ( like GSX errors )Sub Initialize' posted to http://www.openntf.org/projects/codebin/codebin.nsf/CodeByDate/BB07663266C769D2862574F60054154B ' written by Mike Mortin, 20070830 Dim ws As New NotesUIWorkspace Dim uiDoc As NotesUIDocument Dim nServer As NotesName Dim tempStr As String, fileList As String, server As String Dim tempVar As Variant Dim index As Integer Const kDelim = " " ' get email content Set uiDoc = ws.CurrentDocument tempStr = uiDoc.FieldGetText("body") ' split and join to remove unwanted characters tempVar = Split(tempStr, Chr(13)) ' new line characters tempVar = Join(tempVar, kDelim) tempVar = Split(tempVar, "'") ' single quotes tempVar = Join(tempVar, kDelim) ' lastly, split into words tempVar = Split(tempVar, kDelim) ' spaces ' server name is the next entry Set nServer = New notesName(tempVar(3)) server = nServer.Common ' then parse through remaining entries to get all mailfiles listed For index = Lbound(tempVar) To Ubound(tempVar) Print tempVar(index) If Instr( tempVar(index), ".nsf" ) > 0 Then ' add it to the list tempStr = Left( tempVar(index), Instr( tempVar(index), "nsf") +2 ) fileList = fileList & tempStr & "," End If Next index ' now, did we find any mail files? If Len(fileList) > 0 Then ' make the list and tighen it up tempVar = Split( fileList, "," ) tempVar = Arrayunique(tempVar) tempVar = Fulltrim(tempVar) ' present and open the db tempStr = ws.Prompt(4, "Select the database on " & server & " that you want to open.", "Click 'Cancel' to exit.", "", Split( fileList, "," )) If tempStr <> "" Then Call ws.OpenDatabase(server, tempStr) Else Msgbox "No mailfiles detected" End If End Sub 4. Modify or Remove any field in the current viewSub Initialize' from the current view, removes a field or modifies a field in every document ' posted to http://www.openntf.org/Projects/codebin/codebin.nsf/CodeBySubCategory/A37FAED4F7480160862574F10071BAAA ' written by Mike Mortin 20081029 On Error Goto ErrorHandler Dim s As NotesSession Dim ws As New NotesUIWorkspace Dim currentDb As NotesDatabase Dim uiView As NotesUIView Dim view As NotesView Dim coll As notesViewEntryCollection Dim entry As NotesViewEntry Dim doc As NotesDocument Dim field As String, newValue As String, msg As String, action As String Dim items As Variant Const kActionRemove = "remove" Const kActionReplace = "replace" Const kActionNone = "" Const kMsgNoActionDone = "No changes made." ' setup Set uiView = ws.CurrentView Set view = uiView.View Set coll = view.AllEntries ' get a list of all items Set doc = coll.GetFirstEntry.Document Forall item In coll.GetFirstEntry.Document.items items = items & item.name & "," End Forall ' tighten up the list items = Split(items, ",") items = Fulltrim(items) items = Arrayunique(items) ' find out what action we are doing If Msgbox("Click 'No' to replace values or to exit.", MB_YESNO, "Are you going to REMOVE a field?") = IDYES Then action = kActionRemove Elseif Msgbox("Click 'No' to exit.", MB_YESNO, "Then you must be REPLACING data in a field?") = IDYES Then action = kActionReplace Else action = kActionNone End If ' prompt for the item to change If action <> kActionNone Then field = ws.Prompt(PROMPT_OKCANCELEDITCOMBO, "Please select the field you wish to " & action, "or enter a field manually.", "", items) Select Case action Case kActionRemove ' verify the action If Msgbox("Click 'No' to cancel.", MB_YESNO, "Are you sure you want to REMOVE " & field & " from all document in this view?") = IDYES Then ' loop through all docs in view and remove the item in question Set entry = coll.GetFirstEntry While Not entry Is Nothing Set doc = entry.Document ' Call doc.RemoveItem(field) ' Call doc.Save(True,False) Set entry = coll.GetNextEntry(entry) Wend msg = "Finished removing '" & field & "' from all documents at " & Time() Else msg = kMsgNoActionDone End If Case kActionReplace If Msgbox("This might take a few minutes as each document will be examined.", MB_YESNO, "Do you want see all the current values or type one in manually?") = IDYES Then ' grab all current entries items = "" Set entry = coll.GetFirstEntry While Not entry Is Nothing Set doc = entry.Document items = items & doc.GetItemValue(field)(0) & "," Set entry = coll.GetNextEntry(entry) Wend ' tighten up the list items = Split(items, ",") items = Fulltrim(items) items = Arrayunique(items) ' prompt for a new value newValue = ws.Prompt(PROMPT_OKCANCELEDITCOMBO, "Please select the value you want to use", "or enter a value manually.", "", items) Else ' prompt for a new value newValue = Inputbox("Please enter the new value for '" & field & "") End If ' verify the action If Msgbox("Currently setting '" & field & "' = '" & newValue &"'.", MB_YESNO, "Are you sure you want to set " & field & " = " & newValue & " for all documents in this view?") = IDYES Then ' Call coll.StampAll(field, newValue) msg = "Finished stamping all documents with " & field & " = " & newValue & " at " & Time() Else msg = kMsgNoActionDone End If Case kActionNone msg = kMsgNoActionDone End Select ' fall through to print a message ErrorHandler: If msg = "" Then msg = "Your action did not complete successfully. Please investigate. (" & Now() & ")" Msgbox msg Exit Sub ' gets around "No Resume" error End Sub 5. Get Your Enterprise NAB from the current database ( shorten your code )Function GetEnterpriseNAB( default As String ) As NotesDatabase' returns the NAB from the server the current Db is on ' posted to http://www.openntf.org/projects/codebin/codebin.nsf/CodeBySubCategory/808CDC4680D8BF37862574EF006EDD01 ' written by Mike Mortin Dim s As New NotesSession Dim db As NotesDatabase Dim server As String Dim nname As NotesName ' set the default If default = "" Then default = "Admin01/Operations/CA" ' get our parent server to get the NAB Set db = s.CurrentDatabase Set nname = New NotesName(db.Server) server = nname.Common ' now, use default server if we are local If server = "" Then server = default ' finally, grab names.nsf from that server Set GetEnterpriseNAB = New NotesDatabase(server, "names.nsf") End Function Форумы о Lotus Notes/Domino:
Интенет эфир о Lotus Notes. Блоги и форумы1. Foreign SMTP DomainЗдравствуйте!Вопрос такой: 4 сервера Lotus, один домен. Нужно сделать так, чтобы 3 сервера отправляли почту во "внешку" с одного. Foreign SMTP Domain - занимается этим. Я никак не могу найти, где его настроить или добавить. Читал, что надо делать в адресной книге, но такого названия я там не увидел. 2. Exploring New Features in IBM Lotus Notes 8 web seminarThe Exploring New Features in IBM Lotus Notes 8 web seminar is a versatile seminar that quickly shows current Notes users how to use the new Notes 8 client to be more productive, highlighting changes3. Moving from Microsoft Outlook® 2003 to IBM Lotus Notes 8 web seminarThe Moving from Microsoft Outlook 2003 to IBM Lotus Notes 8 web seminar is a brief, versatile seminar that quickly shows current Microsoft Outlook 2003 users how to use the Lotus Notes 8 client to be4. Using IBM Lotus Notes 8: Productivity Series web seminarThe Using IBM Lotus Notes 8: Productivity Series web seninar is a versatile set of seminar materials that quickly shows new Notes users how to use the Notes 8 client to be more productive in their job5. Customization: How to tell if the mode is Full or LiteIf you're adding some customization code and need to be able to tell if you're in full or lite mode, you can do it like this: In 8.0.x: Check the value of window.AAA. In lite mode, it should poin6. How to configure SSO with LTPA for IBM Lotus Connections 2.0This article explains how to configure single sign-on (SSO) with Lightweight Third-Party Authentication (LTPA) for IBM® Lotus® Connections 2.0. Learn the basics of SSO and LTPA and the detailed steps for configuring SSO in a stand-alone environment.7. Secure your IBM Lotus Forms-based application with digital signaturesIn this article, learn how to use digital signature technology to prevent tampering during transmission. Follow the example provided in this article to design the form, sign the form, and verify the signature.8. Requesting your list of 6.5.x - 8.0 app upgrade issuesFor those of you who've been doing server updates and having to deal with any resulting application issues, I'm seeking to compile a document to help developers and admins size this task and know what ...9. засада с профилемВ общем прохожусь по колекции профайловнахожу нужный удаляю НО в последствии взяв профайл по имени я попадаю на удаленный со всеми итемсами .isDeleted = True и флаг при f = Doc.Remove(True) возвращает всё время False как же удалить профайл и не попадать на удаленный? 10. Sametime 7.5 под UbuntuЯ - новичок в Ubuntu... Пытаюсь проинсталить Sametime 7.5 под Linux (ну очень нужно).... 11. Lotus Notes и Intellimirror (windows)Добрый вечер или день!!!У меня возник вопрос, на который я надеюсь получить ответ - Как сделать так, что-бы при инсталяции клиентской части Lotus Notes "для всех пользователей компьютера" даные пользователя (*\lotus\notes\data) ложились не в C:\Documents and Settings\%USERNAME%\Local Settings\Application Data\Lotus\Notes\Data, а в C:\Documents and Settings\%USERNAME%\Application Data\Lotus\Notes\Data ? Где находиться файл настройки в котором прописано куда закидывать даные и настройки пользователя по умолчанию? PS: Нужно найти файл (скорее всего находиться в C:\Program Files\lotus\notes), потому что клиетнская часть устанавливаеться, и создаеться папка откуда по умолчанию будут браться шаблоны C:\Documents and Settings\All Users\Application Data\Lotus\Notes\Data\Shared\ А уже потом, при первом запуске лотуса настраиваються свойства пользователя... и создаеться папка C:\Documents and Settings\%USERNAME%\Local Settings\Application Data\Lotus\Notes\Data, а надо чтобы создавалась в C:\Documents and Settings\%USERNAME%\Application Data\Lotus\Notes\Data... Большое спасибо за помощь!!!! 12. Выпуск рассылки "Lotus Notes/Domino -- продукт и инструмент. Выпуск: 13" от 03 ...Вышел новый выпуск рассылки "Lotus Notes/Domino -- продукт и инструмент.13. Р"С"РїСгСГРє СѬР°СГСГС"Р"РєРё "Lotus Notes/Domino -- РїСѬРѭРґСгРєС" Рё РёРѬСГС ...Р"С"СРѭР" РѬРѭРІС"Р№ РІС"РїСгСГРє СѬР°СГСГС"Р"РєРё "Lotus Notes/Domino -- РїСѬРѭРґСгРєС" Рё РёРѬСГС"СѬСгРѭРѭРѬС".14. QueryClose annoyancesVersions 8.0 and later of Notes have a bug (SPR #AGUD7DSU3Q) where if there's a Queryclose event on a form, and the document is not "dirty," the Eclipse environment closes the document tab first, and ... Блиц-опрос
Вакансии для специалистов1. Jr Lotus Notes AdministratorComtech LLC is an award winning, customer-oriented, full-service IT solutions provider serving the Federal Government, Department of Defense and other contractors.Job Title: Junior/Mid Level - Lotus N...2. Lotus Notes DeveloperLotus Notes Developer, CT Job # 5983 Job Type: Full Time, regular direct position Local candidates Requirements; Four year college degree in IT related discipline 5 - 7 years experience in systems ana...3. Lotus Notes Developer with PHP--Description--Responsibilities: Kforce is seeking a Lotus Notes Developer for a direct hire position with a local Cincinnati client.This position will:Develop and implement software systems or enhanc...4. Lotus Notes Domino Developer--Description--Responsibilities: As a Lotus Notes/Domino Developer, you will be a key part of the group, working individually and as part of a team involved in the design and development of custom app...5. Lotus Notes Support--Description--Venturi Staffing is currently assisting their client Downtown Pittsburgh fulfill their need for a 6 month to 12 month temporary Lotus Notes Support Tech. Qualified candidate must have a...6. Lotus Notes/Domino Developer--Description--GO! Systems Inc, a Miami-based software firm is seeking experienced Lotus Notes/Domino Application Developers. GO! Systems is a premier services firm engaged in providing technology sol...7. Lotus Notes DeveloperSr. and Mid-level Lotus Notes Developers needed for an upcoming project in downtown Sacramento. This is State Project and will begin in/around early December. Qualified candidates please apply, no thi...8. Lotus Notes DeveloperDomino 7 lotus notes application* DB2* RPG* AS400Project: They want someone to scope out and do the design and development. All work to be completed on-site in Tallahassee, Fl.9. LOTUS NOTES DEVELOPERNeed Lotus Notes Developer with Web client Exp.Duration 6months plus Rate 45/hr IMMEDIATE INTERVIEW . PLEASE CALL IF YOU HAVE ANY QUESTIONS .Thanks.AhsanAhsan@sonsoftinc.com781-821-3678.10. Lotus Notes DeveloperOne of the Major Financial Institutions in Phoenix,AZ is looking for a Lotus Notes Developer with following skills and experience:Will work in small motivated teams to analyze, design, code, test, and...RTFM Читаем Справку (help.nsf)1. Документ не содержит поля "SendTo". Воспользуйтесь командой "Переслать" меню "Действия". | Справка Lotus Notes 72. Документ был удален | Справка Lotus Notes 73. Добавьте почтовый файл <имя файла базы данных> в рабочую область | Справка Lotus Notes 74. Добавление, переименование и удаление изображений | Справка Lotus Notes 75. Добавление цвета в таблицу | Справка Lotus Notes 76. Данные, реплицируемые через сервер роуминг-пользователя | Справка Lotus Notes 77. Данные Notes | Справка Lotus Notes 78. Группы и роли | Справка Lotus Notes 79. Выход из службы экспресс-сообщений | Справка Lotus Notes 710. Вырезание и вставка данных в таблицах | Справка Lotus Notes 711. Включение режима автоматических оповещений | Справка Lotus Notes 712. Включение отладки Java | Справка Lotus Notes 713. Включение SwiftFile | Справка Lotus Notes 714. Включение Java-программ в среде Notes | Справка Lotus Notes 715. Пространство, отведенное в базе данных под представления, формы, агенты и общие поля, исчерпано. Удалите часть компонентов: <имя базы данных>. | Справка Lotus Notes 716. Просмотр файлов | Справка Lotus Notes 717. Просмотр списка агентов | Справка Lotus Notes 718. Просмотр сведений о документах | Справка Lotus Notes 719. Просмотр сведений о действиях пользователя и сервера | Справка Lotus Notes 720. Печать представления | Справка Lotus Notes 721. Печать наборов рамок | Справка Lotus Notes 722. Печать календаря | Справка Lotus Notes 723. Печать задач | Справка Lotus Notes 724. Печать документов | Справка Lotus Notes 725. Вы не можете удалить эту базу данных | Справка Lotus Notes 726. Вы не имеете права создавать базы данных на этом сервере <имя сервера> | Справка Lotus Notes 727. Вы не имеете права на доступ к этой базе данных | Справка Lotus Notes 728. Вы не имеете права на доступ к серверу | Справка Lotus Notes 7Закладки о Lotus Notes1. Lotus Notes/Domino 7 application performance: Part 1: Database properties and document collections2. Lotus Notes/Domino 7 application performance: Part 2: Optimizing database views3. http://www.templatekit.com/lotusnotes1.php4. Badkey Corner | Lotus Notes 8 and NOMAD installation5. IBM business email solution - Lotus Notes6. developerWorks : Lotus updates, fixes, and utilities7. IBM developerWorks : Lotus Notes on a Stick8. Mein TiddlyWikiServer - in Probe !9. Lotus Connections wikiИсточники знаний. Сайты с книгами
По вопросам спонсорства, публикации материалов, участия обращайтесь к ведущему рассылку LotusDomiNotes |
| В избранное | ||
