Email folders

bschulman — Wed, 26 Sep 2012 01:37:32 +0000

Question Edited by MTidmarsh

Lotus Notes 7.0.2 Mail Heirarchy Problems

csheefel3 — Mon, 10 Sep 2012 02:42:58 +0000

New Discussion Post by Abushahd

I want to cancel Auto reply mail on lotus note 7.0.2

Palmyengineer — Thu, 08 Dec 2011 04:53:37 +0000

New Discussion Post by

Issue with Outlook 2007 Calendar/updates sent to receipient using Lotus Notes 7.0.2

Myira512 — Tue, 13 Sep 2011 20:06:43 +0000

Having an issue with sending Outlook 2007 Calendar invitation updates to our clients who use Lotus Notes 7.0.2. Is there a fix or a way to make sure our Lotus Notes users receive all updates we make in Outlook?

Copy tab that upload based on computed subform

ALK — Wed, 03 Aug 2011 02:46:33 +0000

For a web application I need to copy a child of a document into another document. Each document may have many child documents. The child document is a different form with 5 tabs. Four of tabs has a customized subform. The fifth tab loads a subform based on a condition. And there are 150 of them. I wrote an agent to copy one child document into another parent document. The end user opens the child document using a browser and clicks on a button which opens a form to get the document number. On that popup form save button I trigger a notes agent( Lotus Script). The agent is using document context to copy the open child document. The agent works fine for all custom subforms. Copies subform and data. But for the fifth tab just design element is copied and no data. I have used copyAllItems class as well as child document unid which did not work. I have placed the copy button on one of computed subforms which has o effect. Any positive suggestions appreciated.

Lotus Notes 7.02 keeps resetting default browser

Katiermc — Wed, 01 Dec 2010 13:42:37 +0000

I am running Lotus Notes 7.02 on a Mac OSX. Every day I have to re-set my preferred default browser in notes to Firefox. Firefox is already set as the default for the o/s…why doesn’t notes keep it?

Error message from Lotus Notes when opening database

Antking — Fri, 19 Nov 2010 00:36:15 +0000

eaxch time want to open database appear Execution Security Alert messenges may me fail to open and can’t see nothing mail inside no mail………………

How to adjust Lotus Notes Domino web calendar links

ALK — Fri, 15 Oct 2010 01:22:48 +0000

New Discussion Post by

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?

How to fix “Time Range invalid” error in Lotus Notes 7.0.2

DualXeon1366 — Fri, 20 Aug 2010 19:19:52 +0000

When opening the calendar I get an error message that reads “your availability time range is invalid, please correct.” However, no matter what I change the time range to (following the example) it doesn’t like it. When other people try to schedule a meeting with me it also shows me as not available. As far as I can tell, my settings are the same as others – who don’t get this error. Any ideas?

IT Answers » Lotus Notes 7.0.2