IBM laat de naam Lotus vallen

Wellicht is het u opgevallen: IBM heeft de afgelopen maanden de naam Lotus laten vervallen uit hun producten reeks. In plaats van Lotus Notes en Lotus Domino spreken we nu van IBM Notes en IBM Domino. IBM Notes (voorheen Lotus Notes) en IBM Domino (voorheen Lotus Domino) zijn respectievelijk de cliënt en server, van een cliënt-server groupware-toepassing oorspronkelijk gecreëerd door de Lotus Development Corp. in 1989. En eigenlijk was het niet Lotus maar het bedrijf Iris Associates, een partner software ontwikkelingsbedrijf uit Littleton, Massachusetts, dat onder leiding van Ray Ozzie het product Lotus Notes bedacht. Na de aankoop door IBM in 1995 werd langzaam de naam IBM toegevoegd aan de producten, en werd het IBM Lotus Domino, IBM Lotus Notes, IBM Lotus Traveler enz. In november 2012 kondigde IBM al aan het merk Lotus te laten vallen om in de toekomst producten uitsluitend met het IBM merk te identificeren. Op 13 maart 2013 kondigde IBM dan ook de nieuwste versie aan als IBM Notes 9 Sociale Edition , waarmee er een einde komt aan de al jaren vertrouwde Lotus naam.   lees meer…

Lees verder ...

IBM Notes Roadmap / Toekomst

Bijna elk bedrijf dat nu IBM Notes gebruikt vraagt ons regelmatig wat nu de toekomst van Notes/Domino is. Al jaren roepen tegenstanders of onwetende mensen dat Notes dood is. Door deze geruchten worden wel eens verkeerde beslissingen genomen. IBM zelf promoot Notes niet, dit laten ze over aan hun Business Partners, die echter zelf ook vaak met deze vraag rondlopen. De plannen voor de nieuwe versies van Notes gaan echter onverminderd door. Bijna elk kwartaal komen er Fixpack’s uit voor de huidige versies en groeit het lijstje met aanpassingen aan de komende nieuwe versie van Notes. Is Notes dood? Wij vinden van niet, en gelukkig delen nog veel meer klanten en collega’s deze mening ook. Het volgende plaatje geeft een beeld van hoe IBM de toekomst tot 2015 ziet, verder is er nog geen materiaal voor handen.   lees meer…

Lees verder ...

Bijlage dialoog aanpassen

Vanaf Notes versie 8.01 is het mogelijk om het ”Open bijlage” dialoogvenster te manipuleren. De volgende notes.ini instellingen zijn beschikbaar: AttachmentActionDefault=1 Zet de standaard instelling op ”Openen”. Dit zorgt er voor dat de bijlage wordt geopend zonder tussenkomst van een dialoog. AttachmentActionDefault=2 Zet de standaard instelling ”Bewerken”. AttachmentActionDefault=3 Zet de standaard instelling op ”Weergeven”. AttachmentActionDefault=4 Zet de standaard instelling op ”Opslaan”. Deze notes.ini instellingen zijn natuurlijk ook met een Desktop policy aan te passen. lees meer…

Lees verder ...

LotusScript en Excel import van tekst bestand

Om 12000 documenten te exporteren naar Excel was een LotusScript agent te lang bezig met het vullen van de cellen. Daarom is er gekozen om het bestand naar een comma gescheiden bestand weg te schrijven. De klant vond het echter lastig om dit weer te openen in Excel, vandaar dat er een stukje code moest komen om dit te automatiseren. Een stukje van de code: Sub Initialize Dim OfficeApplication As Variant Dim workbook As Variant Dim xlsheet As Variant Dim ar() As Integer Const xlNone = -4142 Const xlAutomatic = -4105 Const xlUnderlineStyleNone = -4142 Const xlThemeFontNone = -4142 Const xlInsertDeleteCells = 1 Const xlDelimited = 1 Const xlTextQualifierDoubleQuote = 1 Const xlTextFormat = 2 ….. declareer dingen … fList(“Form”) = “Form” …. etc… Set ws = New NotesUIWorkspace filenames = ws.SaveFileDialog(False,”File name”,, “c:\”, “export” & Format(Today,”ddmmyyyy”) & “.txt”) If (Isempty(filenames)) Then Exit Sub End If Set curDB = Session.CurrentDatabase Set View = curDB.GetView(“myView”) View.AutoUpdate = False fileNum% = Freefile() Open filenames(0) For Output As fileNum% Forall i In fList mString$ = mString$ & “,” & i End Forall Print #fileNum%, Strright(mString$,”,”) Set Doc = View.GetFirstDocument Do Until Doc Is Nothing mString$ = “” Forall i In fList If Doc.HasItem(Listtag(i)) Then Set item = Doc.GetFirstItem(Listtag(i)) Select Case item.Type Case 768 mString$ = mString$ & “,” & Replace(Doc.GetFirstItem(Listtag(i)).Text,”,”,”.”) Case 1024 mString$ = mString$ & “,” & Replace(Format(item.Values(0),”dd-mm-yyyy”),”-“,”/”) Case Else mString$ = mString$ & “,” & Replace(Doc.GetFirstItem(Listtag(i)).Text,”,”,”;”) End Select Else mString$ = mString$ & “,” End If End Forall Print #fileNum%, Strright(mString$,”,”) Set Doc = View.GetNextDocument(Doc) Loop Close fileNum% con = “TEXT;” & filenames(0) If Not (setOfficeApplication(“Excel.application”)) Then Exit Sub ‘ start Excel met een functie rgbColor& = xlNone x = 0 Forall i In fList Redim Preserve ar(x) As Integer ar(x) = xlTextFormat x = x + 1 End Forall Set workbook = OfficeApplication.Workbooks.Add () Set xlsheet = OfficeApplication.Workbooks(1).Worksheets(1) With xlsheet.QueryTables.Add(con,xlsheet.Range(“A1″) ) .Name = Strright( filenames(0),”\”) .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 1252 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = ar .TextFileTrailingMinusNumbers = True .Refresh End With ExcelClose: On Error Resume Next OfficeApplication.Cells.EntireColumn.Autofit OfficeApplication.Rows(“1:1″).Select OfficeApplication.Selection.AutoFilter OfficeApplication.Visible = True Exit Sub ErrorHandler: Msgbox Lsi_info(2) & ” ” & Error & lees meer…

Lees verder ...

Aantal dagen in een bepaalde periode met LotusScript

Voor een applicatie moest herhaaldelijk uitgerekend worden hoeveel dagen er in een bepaalde periode zitten. De volgende functie voldeed hier goed: Input: getDaysBetween(“31-12-2007″,”01-01-2007”, “1,7” ,”25/12/07 – 26/12/07,05-12-2007″,Doc)   Output: 258 Function getDaysBetween(strStart As String, strEnd As String,daysToExclude As String , datesToExclude As String ,Doc As NotesDocument) As Long On Error GoTo ErrorHandler Dim Formula As Variant Dim dLow As String Dim dHigh As String If strStart = “” Or strEnd = “” Then GoTo ErrorHandler strStart = {@TextToTime(“} & strStart & {“)} strEnd= {@TextToTime(“} & strEnd & {“)} If daysToExclude = “” Then dLow = {;0} Else dLow = {;@TextToNumber(@Explode(“} & daysToExclude & {“;”,”))} End If If Not datesToExclude = “” Then dLow = dLow & {;@TextToTime(@Explode(@TextToTime(@Explode(“} & datesToExclude & {“;”,”))))} End If dHigh$ = {@BusinessDays(} & strStart$ & {;} & strEnd$ & dLow & {)} dLow$ = {-@BusinessDays(} & strEnd$ & {;} & strStart$ & dLow & {)} Formula = Evaluate({@If(} & strStart & {>} & strEnd & {;} & dLow$ & {;} & dHigh$ & {)} ,Doc) getDaysBetween = CLng(Formula(0)) Exit Function ErrorHandler: MsgBox GetThreadInfo(1) & ” ” & Error & ” (” & Err & “) op regel ” & Erl & “.” getDaysBetween = 0 Exit Function Resume Next End Function lees meer…

Lees verder ...

Kleurfuncties zoals RGB en Webkleuren

Soms is het nodig om kleuren te vertalen naar andere formaten. Excel wil bijvoorbeeld graag een RGB kleur als type Long zien, in style sheets e.d. gebruik je de Webkleuren in Hex formaat e.d. Meestal gebruik ik het kleurenpallet van Notes om een kleur te bepalen, en gebruik de RGB waarden om verder te werken. Een aantal LotusScript functies die ik dan gebruik zijn de volgende: Van RGB waarden naar Long (gelijk aan VBA functie, bijv. voor export naar Excel) : Function RGB(Byval lRed As Long, Byval lGreen As Long, Byval lBlue As Long) As Long ‘input 255,255,255 Dim tmpLong As Long tmpLong = lRed tmpLong = tmpLong + (lGreen*256) tmpLong = tmpLong + (lBlue*Clng(65536)) RGB = tmpLong ‘Output 16777215 End Function Van HEX naar RGB String (met kleine aanapssing voor bijv. weergavekolommen e.d.) : Function HEX2RGB(Byval HexColor As String) As String ‘Input #FFFFFF HexColor = Replace(HexColor, “#”, “”) HEX2RGB = Val(“&H” & Mid(HexColor, 1, 2))  & “,” & Val(“&H” & Mid(HexColor, 3, 2)) & “,” & Val(“&H” & Mid(HexColor, 5, 2)) ‘Output 255,255,255 End Function Van RGB waarden naar Hex (voor Web, css e.d.): Function RGB2HEX(Byval lRed As Long, Byval lGreen As Long, Byval lBlue As Long) As String ‘ input 255,255,255 RGB2HEX = Right(Cstr(Hex(lBlue + 256*(lGreen+256*lRed))),6) ‘ Output FFFFFF End Function RGB kleur naar Notes kleuren (Richtext item e.d.): Function RGB2NOTES(Byval lRed As Long, Byval lGreen As Long, Byval lBlue As Long) As Integer Dim session As New NotesSession Dim color As NotesColorObject Set color = session.CreateColorObject RGB2NOTES = color.SetRGB(lRed,lGreen,lBlue) End Function lees meer…

Lees verder ...

Aantal dagen in een maand

In een applicatie was het nodig om van een willekeurige maand het aantal dagen te kunnen tonen. Met de formule @BusinessDays( startDates ; endDates ; daysToExclude ; datesToExclude ) is dat goed mogelijk. Voor startDates kan simpelweg de eerste van de maand worden genomen, voor endDates zou je kunnen werken met @Adjust(@Adjust(startDates;0;1;0;0;0;0);0;0;-1;0;0;0) waarmee je dus eerst een maand opteld bij de startdatum en daarna een dag terug gaat. Voor LotusScript zou je de formule kunnen evalueren met de Evaluate functie. lees meer…

Lees verder ...

Wat is IBM Notes

IBM Notes is de client van de client-server groupware-toepassing gemaakt in 1989 door het bedrijf Lotus Development Corporation in samenwerking met Iris Associates waar in de tijd Ray Ozzie de eigenaar van was. In 1995 werd Lotus gekocht door IBM en omgedoopt in de Lotus Development afdeling van IBM, tegenwoordig onderdeel van de IBM Software Group. Tot begin 2013 was IBM Notes bekend onder de naam Lotus Notes. De producten hadden soms de naam Lotus nog, bijvoorbeeld IBM Lotus Domino, maar in maart 2013 heeft IBM de naam Lotus laten vervallen. Eind december 2018 is bekend gemaakt dat IBM een aantal producten, waar onder IBM Notes, verkocht heeft aan het Indiase HCL Technologies. Notes is vooral bekend als e-mail programma, en wordt daarom vaak in één adem genoemd met Microsoft Outlook. Dit is niet helemaal terecht omdat Notes in combinatie met de krachtige server, Domino genaamd, veel meer kan dan alleen mail verwerken. Met Domino en Notes halen bedrijven een compleet samenwerkingsplatform in huis met een zeer lage Total Cost of Ownership. De Notes client software is beschikbaar voor Linux, MacOS en natuurlijk MicroSoft Windows. De software kan geïsoleerd gebruikt worden, maar meestal in combinatie met de Domino server. Voor ontwikkelaars van Notes applicaties is er een gratis op Eclipse gebaseerde versie van Notes beschikbaar, de Domino Designer. Domino is dus de server software en draait op Windows, Linux, IBM iSeries, IBM zSeries en diverse Unix-varianten. Wat kunnen Domino en Notes? Mail Domino is onbetwistbaar een eersteklas mail server. De server ondersteunt IMAP, POP3, SMTP en Notes Mail. Notes is de mail client software, maar de mail kan ook gelezen worden via een webbrowser of een mail client die IMAP of POP3 ondersteunt. Als mail server is Domino een goed alternatief voor Microsoft Exchange. Agenda De Notes client kunt u gebruiken als agendabeheersysteem, vergelijkbaar met Microsoft Outlook. De Domino server zorgt ervoor dat u uw agenda kunt uitwisselen met collega’s en vergaderingen kunt plannen, zalen kunt reserveren, taken kunt delegeren. GroupWare IBM is de ‘uitvinder’ van GroupWare, software die teams helpt om efficiënter samen te werken. IBM bood organisaties al een ‘Intranet’ voor die term uitgevonden was. Met de Notes client kunnen bijgeleverde toepassingen snel geïmplementeerd worden (discussieforums, blogs, documentenbeheer, groep samenwerking enzovoort. Eindgebruikers kunnen eenvoudig eigen toepassingen bouwen (indien toegestaan door de beheerder), maar met het voordeel dat de software via de server door iedereen kan gebruikt worden. (Web) lees meer…

Lees verder ...