Lotus Notes Agent and newsletter with list problem

105 pts.
Tags:
Domino 6.5
Lotus 7.0.2
Lotus Domino
Lotus Domino 6.5
Lotus Domino error messages
Lotus Notes
Lotus Notes 7.0.2
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?

 



Software/Hardware used:
Lotus/domino
ASKED: October 7, 2010  6:37 PM
UPDATED: October 12, 2010  2:27 PM

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • BruceWayne
    You should use the balise CODE and /CODE to post your agent code
    Dim db As NotesDatabase  
    Dim s As New NotesSession
    Dim rtiText1 As NotesRichTextItem 
    
    4,110 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following