IT Answers » Domino 6.5

New Lotus Notes Mailfile Replica is double the size!

emmaR — Fri, 24 Aug 2012 01:29:55 +0000

New Discussion Post by Abushahd

Lotus Notes Agent and newsletter with list problem

AMcAuley3 — Thu, 07 Oct 2010 18:37:02 +0000

Here is my Agent

Dim okayemail As Boolean Dim debugsearch As Boolean Dim logpath As String Dim errorlist List As String Dim AlertNotificationdoc As NotesDocument Dim x As Integer Dim AlertNotificationdc As NotesDocumentCollection Dim AlertNotificationdb As NotesDatabase Dim worksel As String Dim selection As String Dim LogDBV As Variant Dim LogEntry As String Dim workcount As Integer Dim strfield As String Dim timestamp As NotesDateTime Dim LOGNAME As String Const LOGagent = “SendAlert” Dim user As NotesName Dim samplist List As String Dim servname As NotesName

Sub Initialize On Error Goto ProcessError Set s = New NotesSession Set db = s.CurrentDatabase server = db.server Set timestamp = New NotesDateTime(Today) REM Loading the database into the agent LogDBV = GetKWV(“LogDatabases”) Call AgentLogAction(LOGNAME, “<——Start——>”) Set servname = New NotesName(db.server) LOGNAME = servname.Common & “-” & LOGagent    If GetKW(“Debug”) = “1″ Then   Debugsearch = True    Else   Debugsearch = False End If Forall LD In Logdbv   Logpath = LD      Set AlertNotificationdb = s.getdatabase(db.server,LD)        worksel = |(@created = @date(| & Year(timestamp.LSLocalTime) & |;| & Month(timestamp.LSLocalTime) & |;| & Day(timestamp.LSLocalTime) & |))|   selection = worksel      If debugsearch Then    Call AgentLogAction(LOGNAME, “selection= ” & selection)   End If      Set AlertNotificationdc = AlertNotificationdb.Search( selection , Nothing , 0)      If Not AlertNotificationdc Is Nothing Then    Set AlertNotificationdoc = AlertNotificationdc.GetFirstDocument       While (Not AlertNotificationdoc Is Nothing)     strfield = AlertNotificationdoc.GetItemValue(“A$LogType”)(0)     If strfield = “Error” Then     doc.getitemvalue(“A$Logtime”) (0)      errorlist(AlertNotificationdoc.UniversalID) =AlertNotificationdoc.GetItemValue(“A$LogType”)(0) & “~” & Alertnotificationdoc.GetItemValue(“A$Logtime”)(0) & “~” & AlertNotificationdoc.GetItemValue(“A$Progname”)(0)& “~” & Alertnotificationdoc.GetItemValue(“A$User”)(0) & “~” & Alertnotificationdoc.GetItemValue(“A$Action”)(0)& “~” & Alertnotificationdoc.GetItemValue(“A$ERRMSG”)(0)      okayemail=True     End If     Set AlertNotificationdoc = AlertNotificationdc.GetNextDocument(AlertNotificationdoc)       Wend   End If End Forall   If okayemail Then

REM Line 77 below the whole call statement

Call NewWeeklyNewsletterwithlist(AlertNotificationdoc,GetKWNames(“AlertNotification”) ,”ErrorAlert”)    End If Exit Sub Call AgentLogAction(LOGNAME, Cstr(workcount) & “ Error emails sent”) Call AgentLogAction(LOGNAME, “<——End ——>”) ProcessError: Call AgentLogError(LOGNAME,0, “Line: ” & Erl() & ” Error:” & Err() & “=” & Error() ) Call AgentLogError(LOGNAME,0, “ Error in ” & (AlertNotificationdoc.Logpath(0))) Resume Next End Sub

Here is my Newsletter

Sub NewWeeklyNewsletterwithlist(AlertNotificationdoc As NotesDocument, Attention As Variant, Action As String) On Error Goto ProcessError REM Dim db As NotesDatabase Dim s As New NotesSession Dim rtiText1 As NotesRichTextItem Dim rtiText4 As NotesRichTextItem Dim rtiBody As NotesRichTextItem Dim nrts As NotesRichTextStyle Dim nrtsbold As NotesRichTextStyle Dim strMsg As String Dim docloop As Integer Dim doc As New NotesDocument(s.CurrentDatabase) Dim ndoc As NotesDocument Dim Debug As Integer Const LOGNAME = “NewWeeklyNewsletterwithlist(S)” Dim Unid As String Dim codedb As NotesDatabase Dim codeview As NotesView Dim notifdoc As NotesDocument Dim item As NotesItem Dim att1 As Variant Dim st As Variant Dim samplist List As String server = s.CurrentDatabase.Server Set codeview = codedb.GetView(“Notification”) Set notifdoc = codeview.GetDocumentByKey(“SampNotification”) st = Attention   Set Item = doc.ReplaceItemValue(“OrigShipTo”,Attention) If notifdoc.DebugMode(0) = “1″ Then   Set item = notifdoc.GetFirstItem(“DebugEmail”)     Att1 = item.Values   st = att1   debug = True Else   debug = False End If If (Not debug) And (Attention(0) =”") Then   Exit Sub End If Set rtiText1 = New NotesRichTextItem(doc, “Title1″) Set rtiText4 = New NotesRichTextItem(doc, “Title4″) Set rtiBody = New NotesRichTextItem(doc, “Body”) Set nrtsbold = s.CreateRichTextStyle Set nrts = s.CreateRichTextStyle nrtsbold.NotesFont = Font_Helv nrtsbold.FontSize = 10 nrtsbold.NotesColor = Color_Dark_Blue nrtsbold.Bold = True Call rtiText1.AppendStyle(nrtsbold) Call rtiText4.AppendStyle(nrtsbold) nrtsbold.FontSize = 8 Call rtiText1.AddNewLine(2) Call rtiText1.AppendText(strMsg) Call rtiText1.AddNewLine(2) nrts.NotesFont = Font_Helv nrts.FontSize = 8 nrts.NotesColor = Color_Black nrts.Bold = False Forall e In samplist      REM parse out each value   E1 = Strtoken(e,”~”,1,5)   E2 = Strtoken(e,”~”,2,5)     E3 = Strtoken(e,”~”,3,5)   E4 = Strtoken(e,”~”,4,5)   E5 = Strtoken(e,”~”,5,5)     E6 = Strtoken(e,”~”,6,5) End Forall Call rtiBody.AppendStyle(nrts) docloop = 0 Set ndoc = dc.GetFirstDocument   While Not ndoc Is Nothing   docloop = docloop + 1   Call rtiBody.AppendText(Str$(docloop) & ” - ( “)      Unid = ndoc.UniversalID   strMsg = “An Error has occurred for a Lotus Database”   Call rtiBody.AppendDocLink(ndoc, strMsg)   Call rtiBody.AppendText(” ) “) Call AgentLogAction(LOGNAME, “Loc” & Cstr(ndoc.LocationNumber(0)) & “PassThru: ” & Cstr(nrts.PassThruHTML))   strmsg = “”       Select Case Action       Case “ErrorAlert”        Call rtiBody.AppendStyle(nrtsbold)    Call rtiBody.AppendText(“Database name of Agent log: “)    Call rtiBody.AppendStyle(nrts)    Call rtiBody.AppendText(ndoc.Location(0) & “ ” & ndoc.accountname(0))    Call rtiBody.AddNewLine(1)    Call rtiBody.AppendStyle(nrtsbold)    Call rtiBody.AppendText(“Date/Time of Error: “)    Call rtiBody.AppendStyle(nrts)    Call rtiBody.AppendText(ndoc.OriginatorsName(0) )    Call rtiBody.AddNewLine(1)    Call rtiBody.AppendStyle(nrtsbold)    Call rtiBody.AppendText(“Agent: “)    Call rtiBody.AppendStyle(nrts)    Call rtiBody.AppendText(ndoc.viewstatus(0) )    Call rtiBody.AddNewLine(1)    Call rtiBody.AppendStyle(nrtsbold)    Call rtiBody.AppendText(“User Name: “)    Call rtiBody.AppendStyle(nrts)    Call rtiBody.AppendText(ndoc.ageinstatus(0) )    Call rtiBody.AddNewLine(1)    Call rtiBody.AppendStyle(nrtsbold)    Call rtiBody.AppendText(“Error Message: “)    Call rtiBody.AppendStyle(nrts)    Call rtiBody.AppendText(ndoc.ageinstatus(0) )    Call rtiBody.AddNewLine(1)               Case “Confirm”   End Select   Set ndoc= dc.GetNextDocument(ndoc) Wend ‘Set up and Send Memo doc.Form = “ReadyMemo” Select Case Action Case “ErrorAlert”   strMsg = “An Error has occured in the following database”   Call rtiText1.AppendText( GetKWV(” LogDatabases”))   Call rtiText1.AddNewLine(2)    End Select (“Principal”) doc.Subject = strmsg doc.OrigST = Attention ’for debugging doc.Principal = “Error Notifications” doc.Save True, False Call doc.Send(True, st) Exit Sub ProcessError: Call AgentLogError(LOGNAME, 0, “NoteID: ” & ndoc.NoteID & Err() & “: ” & Error() & ” Line: ” & Erl() ) Msgbox Err() & “:” & Error() Resume Next End Sub

My problem is that it says that the Call Newsletterwithlist for the agent to the newsletter it says variable is not set and I can’t seem to fix it. I have tried debugging it and can’t not understand what it is missing when trying to link the two together. It doesn’t give me the error inless I put in some error processing which then shows me it is on line 77 which I have Rem out up top so you can see. Can anyone please help me fix this?

View Selection Help (domino designer)

AMcAuley3 — Tue, 05 Oct 2010 19:51:46 +0000

I have a Status field that if it equals 90 and it means that it is closed and has a date of when it was closed. If it equals 80 it is open.. 70 it is void … and so on down to 10. So I want to display all everything except the old ones which Status = 90 doesn’t have a close date and is blank. If I put @Isavailable(DateS90) it only displays the the status = 90 with dates in them and takes away the 80,70,60,50,40,30,20, and 10. I want to display all those as well just not the status = 90 that are blank. DateS90 = it eqauls the close date. So any Ideas

Domino server migration

Lot — Wed, 16 Sep 2009 11:26:04 +0000

Hi All,

I have Domino server and 10 clients. Domino server has version 5. and 7 clients have version 5 installed while 3 of them have 6.5 installed.

Is this going to affect domino server functionality any way because my server is in 5 while client is in 6.5?

How I can migrate domino server to 6.5 and update everything if required.

You’re not authorized to use the server at this port

mvb — Fri, 04 Sep 2009 09:59:33 +0000

When I enable the Out Of Office-agent, it runs with following error in the agent log :

Error (4000):Notes error: You are not authorized to use the server at this port.

I can’t find the reason.

Anybody?

Domino 8 Quota Issue

Brievap — Fri, 24 Jul 2009 19:38:56 +0000

I have a few workstations that are domino 5 that i am migrating to a domino 8 server enviroment. The domino 5 mail files have thier templates updated and copied to the remote workstaions to provide a local mail file that only replicates mail changes at an interval. now my questin is that this all works fine untill i get an message about a quota on the local mail file when i didnt have one set. The servers copy of the mail file is fine and lets me send email with no issues, its just the local mail file that i copied onto the local pcs that is becoming annoying. Is it something to do with the template that they are updating to ? where is this function getting the results fo this message. Any help would be greatly appreciated.

Domino 6.5 agent to Domino 8.5 Server

MatU — Wed, 22 Jul 2009 08:34:28 +0000

Question Edited by MatU

Edit other peoples documents (web)

Mrg — Mon, 13 Jul 2009 15:18:35 +0000

hi! I’m working on a domino-based website, I’ve developed a client contact form, that our staff can use when contacted by the public. Everything works fine, but when a document is added to the contact list, I’d like to make it so that if the client contacts one of our other staff, they can search the directory and edit/update the existing record. Everything works up to the point where they click to edit the document (using the !EditDocument cmd) they are prompted to log in again to the site. I guess it’s looking for the original author’s credentials.
Any suggestions on how to get around this?
Mucho thanks…

Why 2 different functions?

MParman — Wed, 08 Jul 2009 19:03:33 +0000

I have created a domino application that is used in creating sales contracts. The contracts are word templates that the application administrator controls, and are stored as individual documents within the application. The end client enters the sales information (type of sale, payment method….) that is used to determine which type of contract is needed. When the status of the contract reaches a specified level, links are created to the templates needed. Here is the problem! I need to be able to open the word template and updated the word template all with one click of a button. Currently I have 2 javascript functions, the first launches the ?OpenElement link, and the second uses activex to take control to the currently opened template and update it with information. I execute the first function to open the template, I then have to go back to the browser and execute the second function to get the template updated, this process works but if a try to combine them into one function I receive an activex error “automation server can’t create object”.

function launch_attachment (loc)
{
window.open(loc);
}

function populate_Doc() {
var w= GetObject(“”,”Word.Application”);
w.Visible = true;
obj= w.activedocument
obj.FormFields(“fld1″).result = “XXXXX”
}

Error message shown below on the Domino Server Console

GinaA — Wed, 13 May 2009 09:19:30 +0000

Domino Server : 6.5.3

I received an error message shown below on the Server Domino Console:

Error locating a Domino Directory entry for certifier /OU=HQ /O=ASIAN: Entry not found in index

Any Ideas on how to rectify this error message as to not shown on the server console anymore??

Would appreciate for your kind assistance

Many Thanks..