This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Thanks guys,
I did manage the extract the tabbed tables to an extent.
I was able to "count" the number of rows in the table.
Then I could use the GetField functionality to "get" each tab of the table. And smash them all into an html (actually aspx) document.
Result looks pretty good (except for random issues with how IE decides to opent he resultant files).
For example:
If Not rtn1doc.FindFirstElement(RTELEM_TYPE_TABLE) Then
'Do Nothing
' Messagebox "No tables in the attachments field,",, "No tables"
End If
If rtn1doc.FindFirstElement(RTELEM_TYPE_TABLE) Then
Dim rtt As NotesRichTextTable
Set rtt = rtn1doc.GetElement
Dim labelString As String
labelString = ""
Forall label In rtt.RowLabels
If(label <> "") Then labelString = labelString & Chr(13) & " " & label
cellCounter = cellCounter + 1
empList(cellCounter) = cellCounter
End Forall
End If
Then feed that into my GetField code:
Call GetHtmlFromField(createddoc, ProjCoordCommnameDoc, htmlfilename3, unidStr, rowNumberStr2, dbServerStrOnly, dbFilePath,useAltURL2 )
Eventual call. Its all abstracted but gices you an idea:
obj.open "GET", "http://" & dbServerStrOnly &"/" &dbFilePath & "/0/" & unidStrServer & "/" & fieldname & "?OpenField&TableRow=1." & rowNumberStr & "&Charset=utf-8#1.", False, "", ""
Feedback response number WEBBB49KTE created by ~Evelyn Cisnither on 09/03/2018
Thanks
Return to top
. . . . . . . . . . Thanks (~Evelyn Cisnith... 3.Sep.18) 
