IT Answers » Lotus Domino 7

Updating a field (updated) Please help

AMcAuley3 — Wed, 23 Feb 2011 17:53:35 +0000

Hi, I have been working on this project for a few days now and really I am still fairly new at Lotus doimnos Here is what I have

Set view = db.GetView(“RREMB”)

Set locdoc = view.GetFirstDocument

REM Ekey = doc.agendaloc(0)

REM AM changes 2/16/2011

REM EKey= Cstr(agendaloc) & “~” & Cstr(Agyear) & “~” & Cstr(agMonth)

Ekey = locdoc.agendaloc(0)& “~” & locdoc.agyear(0) & “~” & locdoc.agmonth(0)

Set DC= view.GetAllDocumentsByKey(Ekey,True)

locdoc.actionitem = dc.count

I used the Headerdoc to pull in what I needed and a Locadengadoc to use the view embedded the form now I need a update command so that the actionitems updates back on the Headerdoc. What update command should I use here?[Br _extended=”true” />[Br _extended=”true” />

DC.count examples in Lotus Domino

AMcAuley3 — Fri, 18 Feb 2011 20:21:07 +0000

I am fairy new at dominos and I am not very good at loops yet and stuff like that.

I need to modify an agent to load a field using the dc.count

so far a i have

set dc = view.getalldocumentsbykey(key, true) doc.actionitems = dc.count

if dc.count = 0 then

end if

I really don’t know what to do in this loop.

The thing i am trying to get across is that I have an embedded view within a view. on the view, If a meeting is held it is Y if not it is N. They each have agenda items that should be written in the embedded view. Sometimes the meeting is Y and the didn’t set the agenda items. That is what I want to put in the actionitems field if the meeting happened it is Y and no agenda items =Not completed in red. If the meeting happened and agentitems are set then Completed. If the meeting has not happened yet and N then leave blank. In the new field

Any way someone could put an example for me here so I could get the hang of it?

Lotus Domino 7 isnewdoc or is newnote help needed!

AMcAuley3 — Mon, 25 Oct 2010 17:17:12 +0000

I am working on setting a default value for a feild in a view I have completed the web side of things but I was instructed to go into the postopen form and write something like if isnewdoc then default the daysopen field to a value of “1″. this is what i tried and it didn’t work any advice on how to do this.

If uidoc.IsNewdoc Then Set doc = uidoc.Document Call doc.ReplaceItemValue(“daysopen”,”1″)

Call doc.Save(True, False) Set doc = view.GetNextDocument(doc)

End If

How I could use postopen and put code in there so that “daysopen” would get a default value of 1. I originally did an if statement with @today in the field but that made it run far to slow. So I wrote an agent and now it runs faster it just doesn’t get the first day “1″ because the agent only runs once a day so until it runs it is blank. I need a code that would set the default in the client postopen that so it doesn’t slow it down. Any Ideas?

Please help me fix this.

PS. I am using a form for this and need to write code into the postopen form to get the default vavle

Displaying database and using common names

AMcAuley3 — Mon, 11 Oct 2010 19:24:47 +0000

1.)I just need to know the property name that would display the database name in the newletter. I was thinking something like this alertdoc..title but just not sure what property would display the name. Any Ideas?

2.) I need to be able to cut down the email address from some like CN= Joe Smith/gmail.com to joe smith. I don’t know weather to do it in the agent or in my newletteror both. I am using a list to my case statment with a for all loop. any ideas. or what I could look up to do this?

Help with Newsletter and agent with list

AMcAuley3 — Fri, 08 Oct 2010 01:23:55 +0000

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?

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

REM For debugging
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)

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

REM when using fields with dollar signs you must use 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)
REM sending it to a new database and checking for errors

Wend

End If

End Forall

REM Calling the e-mail letter

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
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

Where we require SMTP Foreign Document in Lotus Domino

Yahoo12 — Thu, 26 Aug 2010 13:31:48 +0000

I need to know where we require SMTP Forgine Document. at that place where require mail routing for our fake domain with in the Internal domain or restrict mail qouting from one domain to another outer domain.

Unread/Read marks do not replicate across clustered Domino servers

ChuB — Tue, 10 Aug 2010 02:33:44 +0000

Dear all,

Our company has 3 Domino Servers which form a Cluster, but the Unread/Read marks seems not synchronize across clustered servers, some mailboxes can replicate but some cannot.

Can someone encounter this problem, how to solve it ?

I’ve found the following link, is it simply add ADMINP_EXCHANGE_ALL_UNREAD_MARKS=1 in notes.ini file ?

http://www-01.ibm.com/support/docview.wss?uid=swg21245043

Thanks.

Pong

how to make text to speech from a lotus notes database

Meco — Fri, 16 Jul 2010 20:44:04 +0000

how to make text to speech from a lotus notes database, i want to find a code and i want to get the speech od that field please hel me

McAfee Virus Scan in Lotus domino server

jhamn — Wed, 24 Feb 2010 02:42:30 +0000

Hi, what is the proper command in stopping the McAfee from running in lotus domino? Right now, we were having a hard time sending and receiving messages from other mail servers reason being, our McAfee is currently scanning and don’t know the command to stop it. Please help. Thanks!

Domino Cannot allocate space – certificates

Pumrel — Tue, 02 Feb 2010 10:02:55 +0000

When trying to work with certificates, e.g. trying to look at the
expiration dates, an error message pops up “Unable to open the view
PeopleCertExpiration: Database is corrup — Cannot allocate space”
Same thing happens when trying to recertify an id or register a new
person. Fixing or compacting Desktop6.ndk did not solve it. Don’t you
know how can I fix it please?