This LotusScript agent can be used in a view action button that reports spam to an email address similarly to how you would do it manually (View | Source... and Forward... ) You may use this code however you want but please share your changes (see Apache License below). Some improvements can be made (see todo in comment header), but it works well enough with 3rd party spam filters I've used. While this code was originally under GPL, I have changed it to Apache. There were no third party contributions to the code while it was under GPL. --- Copyright 2005 Ryan Benech Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0 Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License Thank you IBM for helping me clarify the licensing ;-) --- ======= BEGIN CODE ======= (select text below this line) Sub Initialize 'Notes Agent: name=ReportAsSpam, trigger=onEvent, Action menu selection, target=All selected docs 'forwards the selected message(s) with full header to a spam reporting email address 'moves message from inbox to junk mail and appends "[Spam]" to the subject line 'requires: Function walkmime (mime As notesmimeentity) As String 'to-do: prevent reporting of whitelisted messages, prevent report of local domain addresses 'created 12/10/2005 by Ryan Benech Const SPAMREPORTADDRESS = "spam@domain.com" 'the email address used to report spam, uncomment to go live 'Const SPAMREPORTADDRESS = "YourFullyQualified/NotesNameGoesHere" 'uncomment this line to debug messages Dim sess As New NotesSession Dim ws As New NotesUIWorkspace Dim db As NotesDatabase Dim memo As NotesDocument, doc As NotesDocument Dim col As NotesDocumentCollection Dim mime As NotesMIMEEntity Dim rtitem As NotesItem Dim temp As Variant 'to get info from non-ASCII data Dim i As Integer 'to count messages Dim uiview As NotesUIView 'to update the inbox after messages have been moved Dim mail As NotesRichTextItem 'the sent message Dim item As NotesItem 'to process fields with multiple items (i.e. recieved) sess.ConvertMime = False 'init mime conversion Set db = sess.CurrentDatabase Set col = db.UnprocessedDocuments Set doc = col.GetFirstDocument() If doc Is Nothing Then Exit Sub 'sanity check to abort early Print "Reporting " + Cstr( col.Count ) + " selected documents as Spam to " + SPAMREPORTADDRESS + ". Please wait..." i = 1 While Not(doc Is Nothing) Set memo = db.CreateDocument Set mail = New NotesRichTextItem( memo, "Body" ) Set mime = doc.GetMIMEEntity If Not(mime Is Nothing) Then Forall header In mime.HeaderObjects Call mail.AppendText( walkmime ( mime ) ) 'calls required function walkmime End Forall Call doc.CloseMIMEEntities 'allow clean switch to using items memo.subject = doc.subject(0) Call memo.Send( False, SPAMREPORTADDRESS) 'forward spam report message Print "Successfully reported message " Cstr(i) + " of " + Cstr( col.Count ) +" ("+ doc.Subject(0) + ")" Else Print "No MIME content found in message, not sending spam report. (the internet message may have been converted to Notes Format) " End If If Instr( doc.Subject(0), "[SPAM]" ) = 0 Then Call doc.ReplaceItemValue("Subject", "[SPAM] " + doc.Subject(0) ) 'remove [spam] End If Call doc.Save(True,True) Call doc.PutInFolder( "($JunkMail)" ) 'swap ($JunkMail) for ($Inbox) to perform a "not spam" action Call doc.RemoveFromFolder( "($Inbox)" ) 'vice versa for this line... :-) Call sess.UpdateProcessedDoc( doc ) Set doc = col.GetNextDocument(doc) i = i +1 'increment counter Wend Set uiview = ws.CurrentView Call uiview.DeselectAll 'to prevent UI bugs sess.ConvertMime = True 'revert mime conversion Beep Print "Done reporting " + Cstr( col.Count ) + " document(s) as Spam." End Sub Function walkmime (mime As notesmimeentity) As String 'returns string of complete mime message 'created: 12/10/05 by Ryan Benech 'closely based on code contributed by Kim Dowds from Lotus Sanbox: "SpamAssassin for Notes" Dim mime2 As notesmimeentity 'for walking mime tree walkmime = "" 'init string While Not (mime Is Nothing) walkmime = walkmime & Chr(10) _ & mime.Headers & Chr(10) _ & mime.ContentAsText Set mime2 = mime.GetFirstChildEntity 'get first child: If mime2 Is Nothing Then 'none? then get next sibling Set mime2 = mime.GetNextSibling End If If mime2 Is Nothing Then 'none? then get aunt/uncle : Set mime2 = mime.GetParentEntity If Not (mime2 Is Nothing) Then Set mime2 = mime2.GetNextSibling End If End If Set mime = mime2 Wend End Function ======= END CODE ======= (select text above this line)
Всем привет! Я конечно понимаю, что для моей проблемы есть соответсвующий раздел, там я уже отписал, никто не ответил. Половина ссылок из темы Lotus Software уже нерабочие, в других местах, а также в поиске клиента Lotus Notes 6.5.1 Rus не нашел...Если кто знает ссылку - поделитесь, пожалуйста!
GET AND STAY ON TOP OF ALL YOUR LOTUS NOTES SCHEDULED AGENTS With Agent Auditor you can easily gather detailed information on all of your agents or be notified when selected scheduled agents aren't running.
In addition to reporting most agent properties, Agent Auditor provides a tremendous amount of incredibly valuable information about your Notes scheduled agents.
Plus, source code for all agents (LotusScript, Formula, and Java).
Less than a week after wondering how long I'd last without an iPad and I now own one. On Sunday we drove in to town, had some lunch then went to our local "Apple store". Much better to get an instant fix than ordering online and waiting for the delivery.
I spent the rest of the day teasing myself by leaving the box unopened for as long as I could. This turned out to be a mistake, as, while I waited, my internet connection got turned off. By the time I'd excitedly sat down to play with the iPad late Sunday afternoon it turned out to be as much use as the proverbial chocolate tea pot. An brand new iPad with no internet connection is no fun at all.
It wasn't until the next night I got a chance to play proper and install some apps - which is when the brilliance of the iPad/app-store combination really comes to light. Since then I've installed the usual suspects - Flipboard, iBooks, Adobe Ideas, BBC News, some games (that burger-making one) and a handful of kids drawing apps. Enough to turn it in to something useful. Already I can see where it fits in to my life - somewhere between my laptop and my phone. Surprisingly, Karen has warmed to it too. Not half as much as the kids though, who you have wrestle it from.
What I want now is recommendations for useful apps and fun games. They don't have to be productivity apps. Anything you think is a must-have. Feed me!
It's probably a long-shot but I said I'd try and help out a customer of mine by trying to find a guru. Over to them:
We're looking for a Domino 'internals' expert/guru who can help us diagnose a fault occurring in our application which interfaces with Domino using the COM object APIs.
Our application runs a VBScript module using WScript.exe which essentially runs some Domino agents and reports the results of those agents back to our application. We regard each run of the VBScript module as a 'request', and it works fine whilst the loading is low. Unfortunately our application can generate hundreds of these 'requests' per minute during peak times, and after a period of peak runtime the Domino server often crashes.
Typically we end up with a "WScript.exe has generated errors and will be closed by Windows" error prompt. Our application tends to fail after this point with further "requests" failing. Quitting the Domino server typically results in a hang, followed by an automatic fault-shutdown-recovery and NSD output.
We have asked Lotus support for help with this, but after they examined the NSDs, they concluded that the fault was within WScript.exe (which we already knew) and said that they could not help any further. We suspect some kind of leak within the Domino COM side of things, but lack the technical knowledge to prove this.
So, we're looking for someone with extensive knowledge of Domino internals, ability to understand NSD logs, understand COM object access, being able to investigate threads, handles, pools etc.
If you know of anybody who can help (paid consultancy of course) then please comment here or let me know and I'll put you both in touch. Ta.
if you arrange some applicaton windows within a composite application, there are borders between this apps. i didn't find a way to set color, width or other style components to change the defaults.
if you move a user from server a to server b you have to change the clients location documents manually or you have to create a special policy (or policy per server.....). Other person record changes are also to transfer manually to location documents (internet address, mailfile, domain, ....). i wish an update function for notes client.
Niklas Heidloff and Steve Castledine
have created a set of re-usable XPages Custom Controls that you can use
to build mobile applications for IBM Lotus Domino. There are over a dozen
controls that you can use to deliver a true native mobile experience ...
Writing to sort by column, as well as several columns, asking them to order. Be able to save the order of columns for a particular View. Import and export orders of columns.
When running a NSD on Windows Vista or Windows 7 the following message is observed when memcheck opens shared memory. <@@ ------ Notes Memory -> Analysis -> DPOOL Memory Analysis :: (Shared) (Time 16:45:09) ------ @@> ERROR (48): couldn't access shared memory key 'IRIS$MEM$MM368$D.Program Files.IBM.Lotus.Notes.Data' - (2) No such file or directory As a result no shared memory information is reported in the NSD. This only occurs when the NSD service enabled.
Developers of all kinds may occasionally find a need to build an application that makes simple updates to a database table. This article describes how to build an IBM Mashup Center widget that can display an HTML form that lets users update relational database tables. Optionally, you can quickly create your own mashup page by simply using the downloadable sample widget as is and supplying your own HTML form.
This technote provides troubleshooting methods for when you create a Google calendar federation in Mac and encounter the password authentication error.
You attempt to run the IBM Lotus Notes 8.x install shield from a file system folder that contains Kanji characters in the folder name. Some installation options appear with incorrect text characters and the installation ultimately fails.
There are three known issues with Notes Basic 8.5.1.x clients intermittently disappearing, silently crashing, and terminating abnormally without generating an NSD. If you receive reports of this happening, review the symptoms and configurations listed below to assess which issue is applicable and identify the solution or workaround.