Categoriearchief: Lotusscript

HCL Domino Volt

Geplaatst op door

Voeg een low-code tool toe aan uw arsenaal op een veilig platform dat u vertrouwt. Iedereen in IT kan webgebaseerde formulieren voor het vastleggen van gegevens en workflows bouwen met gegevens van Excel, meerdere gegevensbronnen of helemaal opnieuw. Domino Volt maakt het mogelijk om nieuwe apps 60-70% sneller te bouwen, en maakt het voor ontwikkelaars en zakelijke gebruikers gemakkelijk om snel krachtige, veilige en enterprise-grade workflow-applicaties te ontwikkelen zonder gespecialiseerde vaardigheden. Lees meer… lees meer…

Lees verder ...→

Terugvallen op de C API

Geplaatst op door

Tussen de kerstdagen eigenlijk vrij gehouden, maar een klant heeft een redelijke simpele wens om alle encrypted berichten in een paar honderd IBM Notes mailfiles te decrypten voor een conversie naar Office 365, zonder tussenkomst van de gebruiker. Met LotusScript liep ik helaas tegen een aantal bugs/beperkingen aan. Dus maar een virtuele Windows machine ingericht met de oude vertrouwde C compiler en Notes C API toolkit kijken of er om heen te programmeren valt. lees meer…

Lees verder ...→

NoteID

Geplaatst op door

De NoteID van een document is een hexadecimale waarde van maximaal 8 tekens die een document uniek identificeert in een bepaalde database. Een typische NoteID ziet er zo uit: 20FA. Een NoteID vertegenwoordigt de locatie van een document in een specifiek databasebestand, dus documenten die replica’s van elkaar zijn, hebben over het algemeen verschillende NoteID’s. Een NoteID verandert niet, tenzij het document wordt verwijderd. lees meer…

Lees verder ...→

Nieuw in 8.5: StampAllMulti – een voorbeeld hoe te gebruiken…

Geplaatst op door

De nieuwe methode StampAllMulti voor de NotesDocumentCollection en NotesViewEntryCollection classes is een waardevolle aanvulling! Nu kunnen we zeer snel meerdere velden in een documentenreeks van een nieuwe waarde voorzien. Omdat er in de Lotus 8.5 Designer Help geen voorbeeld staat voor het gebruik post ik het even hier. In dit geval maken we een document collectie door alle documenten in een view te selecteren, maken een nieuw (tijdelijk) document, vullen het document met een paar velden en roepen de methode StampAllMulti aan om de velden uit het tijdelijke document te kopieren naar alle documenten in de collectie. Snel en effectief! Voorbeeld: Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim vc As NotesViewEntryCollection Dim doc As NotesDocument Set db = session.CurrentDatabase Set view = db.GetView(“StampMulti”) Set vc = view.AllEntries Set Doc = db.CreateDocument Doc.ReplaceItemValue(“Company”,”INECO”).IsSummary = True Doc.ReplaceItemValue(“Address”,”Hoge Riem 27″).IsSummary = True Doc.ReplaceItemValue(“Zipcode”,”6666JA”).IsSummary = True Doc.ReplaceItemValue(“City”,”Heteren”).IsSummary = True Doc.ReplaceItemValue(“Country”,”The Netherlands”).IsSummary = True Doc.ReplaceItemValue(“Phone”,”+31653353140″).IsSummary = True Call vc.StampAllMulti( Doc ) End Sub Uit de Help: Replaces the values of specified items in all documents associated with the entries in a view collection. Note This method is new with Release 8.5. Defined in NotesViewEntryCollection Syntax Call notesViewEntryCollection.StampAllMulti( document ) EN Parameters: document NotesDocument. The document contains multiple items, each with values appropriate for the item type. Usage If an item does not exist, it is created. If the item is of a different data type, the existing item will be deleted and a new item of the new data type created. The item values are immediately written to the documents on the server. You do not have to use the Save method of NotesDocument after StampAllMulti. However, any documents modified by your script must be saved before calling StampAllMulti. This method does not modify existing NotesDocument objects. Documents must be retrieved again to see the changes. If you do not have the proper access to modify one or more of the documents in the view entry collection, this method will return ERR_NOTES_STAMP_FAILED. Only those documents you are able to modify will be stamped. lees meer…

Lees verder ...→

LotusScript en Excel import van tekst bestand

Geplaatst op door

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