This is a valid RSS feed.
This feed is valid, but interoperability with the widest range of feed readers could be improved by implementing the following recommendations.
line 35, column 0: (2 occurrences) [help]
<content:encoded><![CDATA[
line 46, column 0: (10 occurrences) [help]
</style>
line 47, column 0: (4 occurrences) [help]
<div class='av-special-heading av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 ...
line 47, column 0: (4 occurrences) [help]
<div class='av-special-heading av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 ...
line 51, column 0: (2 occurrences) [help]
</div></section>
line 51, column 0: (2 occurrences) [help]
</div></section>
<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
xmlns:content="http://purl.org/rss/1.0/modules/content/"
xmlns:wfw="http://wellformedweb.org/CommentAPI/"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:atom="http://www.w3.org/2005/Atom"
xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
>
<channel>
<title>IT Studio</title>
<atom:link href="https://itstudio.be/feed/" rel="self" type="application/rss+xml" />
<link>https://itstudio.be/</link>
<description>Your IT Service Partner</description>
<lastBuildDate>Thu, 04 Nov 2021 15:33:54 +0000</lastBuildDate>
<language>en</language>
<sy:updatePeriod>
hourly </sy:updatePeriod>
<sy:updateFrequency>
1 </sy:updateFrequency>
<generator>https://wordpress.org/?v=6.4.3</generator>
<item>
<title>Lotusscript: Export attachments of Notes documents to the filesystem</title>
<link>https://itstudio.be/lotusscript-export-attachments-of-notes-documents-to-the-filesystem/</link>
<dc:creator><![CDATA[admin]]></dc:creator>
<pubDate>Thu, 04 Nov 2021 14:17:33 +0000</pubDate>
<category><![CDATA[code]]></category>
<category><![CDATA[LotusScript]]></category>
<category><![CDATA[Code]]></category>
<guid isPermaLink="false">https://lotusnotes.be/?p=922</guid>
<description><![CDATA[<p>The post <a href="https://itstudio.be/lotusscript-export-attachments-of-notes-documents-to-the-filesystem/">Lotusscript: Export attachments of Notes documents to the filesystem</a> appeared first on <a href="https://itstudio.be">IT Studio</a>.</p>
]]></description>
<content:encoded><![CDATA[
<style type="text/css" data-created_by="avia_inline_auto" id="style-css-av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30">
#top .av-special-heading.av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30{
padding-bottom:10px;
}
body .av-special-heading.av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 .av-special-heading-tag .heading-char{
font-size:25px;
}
.av-special-heading.av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 .av-subheading{
font-size:15px;
}
</style>
<div class='av-special-heading av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 av-special-heading-h1 avia-builder-el-0 el_before_av_textblock avia-builder-el-first '><h1 class='av-special-heading-tag' itemprop="headline" >Lotusscript: Export attachments of Notes documents to the filesystem</h1><div class="special-heading-border"><div class="special-heading-inner-border"></div></div></div>
<section class='av_textblock_section av-kvl0hifn-54f395be78e87e3524f727a034a86154' itemscope="itemscope" itemtype="https://schema.org/BlogPosting" itemprop="blogPost" ><div class='avia_textblock' itemprop="text" ><p>You can use the below script if you want to have all attachments of the selected Notes documents exported to the file system and also want to keep an option for developers to access the metadata of the original Notes document.</p>
<p>First the entire document is exported into DXL, then all attachments are detached to the file system.<br />
To avoid name conflicts while detaching files, a folder is created for each Notes document so all attachments of this Notes document will be stored in this subfolder.</p>
</div></section>
<section class='av_textblock_section av-kvl0i0og-54ce06919c6b6b087d2b47ec0189beba' itemscope="itemscope" itemtype="https://schema.org/BlogPosting" itemprop="blogPost" ><div class='avia_textblock' itemprop="text" ><pre class="EnlighterJSRAW" data-enlighter-language="cpp" data-enlighter-theme="eclipse"> Option Public
Option Declare
Dim gCounter&
Sub Initialize
Dim s As New NotesSession
Dim coll As NotesDocumentCollection
Dim BasePath$
BasePath$ = InputBox ("Export data to path...: ", "Export", "C:\")
'# add backslash at the end
If right (BasePath$,1) <> "\" Then BasePath$ = BasePath$ & "\"
Print "Using BasePath : " & BasePath$
Set coll = s.currentdatabase.Unprocesseddocuments
If coll Is Nothing Then
MessageBox "No documents selected"
Else
Print "Processing " & coll.count & " documents..."
Call ExportToDXL (coll, BasePath$)
Call ExportToFile (coll, BasePath$)
MessageBox "Export completed."
End If
End Sub
Function ExportToDXL (Coll As NotesDocumentCollection, BasePath As String)
Dim session As New NotesSession
Dim stream As NotesStream
Dim DXLfilename$
Dim doc As NotesDocument
Dim tdoc As NotesDocument
Dim exporter As NotesDXLExporter
If coll Is Nothing Then Exit function
Set doc = coll.getfirstdocument
While Not doc Is Nothing
Set tdoc = coll.getNextDocument (doc)
'# Open xml file named after current database
Set stream = session.CreateStream
DXLfilename$ = BasePath$ & doc.universalid & ".dxl"
If Not stream.Open(DXLfilename$) Then
MessageBox "Cannot open " & DXLfilename$,, "Error"
Exit Function
End If
'# kick off the exporter process
Set exporter = session.CreateDXLExporter
Call exporter.SetInput(doc)
Call exporter.SetOutput(stream)
Call exporter.Process
Set doc = tdoc
Wend
End Function
Function ExportToFile (coll As NotesDocumentCollection, BasePath As String)
On Error GoTo ErrH
Dim doc As NotesDocument
Dim tdoc As NotesDocument
Dim rtitem As variant
Dim targetpath$, fname$
Dim FieldList(0) As String
Dim oba As Variant
'# define which fields to scan for attachments
FieldList (0) = "Body"
If coll Is Nothing Then Exit Function
Set doc = coll.getfirstdocument
While Not doc Is Nothing
Set tdoc = coll.getNextDocument (doc)
If doc.Hasembedded Then
targetpath$ = BasePath$ & doc.universalid & "\"
If Dir$ (BasePath$ & doc.universalid, 16) = "" Then MkDir targetpath$
'# loop list of fields
ForAll f In FieldList
Set rtitem = doc.GetFirstItem(f)
If Not rtitem Is Nothing Then
If (rtitem.Type = RICHTEXT ) Then
'# make sure the field contains some objects and detach
If IsArray(rtitem.embeddedObjects) Then
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Fname$=o.Name
If FileExists (fname$) Then fname$ = CStr(gCounter&) & Fname$
Call o.ExtractFile(targetPath$ & Fname$)
gCounter& = gCounter& + 1
End If
End ForAll
End If
End If
End If
End ForAll
End If
Set doc = tdoc
Wend
continue:
Exit Function
errH:
Stop
Print "Error " & Err() & " in line " & Erl() & " - " & Error
Resume continue
End Function</pre>
</div></section>
<p>The post <a href="https://itstudio.be/lotusscript-export-attachments-of-notes-documents-to-the-filesystem/">Lotusscript: Export attachments of Notes documents to the filesystem</a> appeared first on <a href="https://itstudio.be">IT Studio</a>.</p>
]]></content:encoded>
</item>
<item>
<title>Lotusscript: Simple export from a Notes view to Excel</title>
<link>https://itstudio.be/lotusscript-simple-export-from-a-notes-view-to-excel/</link>
<dc:creator><![CDATA[admin]]></dc:creator>
<pubDate>Thu, 04 Nov 2021 14:05:39 +0000</pubDate>
<category><![CDATA[code]]></category>
<category><![CDATA[LotusScript]]></category>
<category><![CDATA[Code]]></category>
<guid isPermaLink="false">https://lotusnotes.be/?p=919</guid>
<description><![CDATA[<p>The post <a href="https://itstudio.be/lotusscript-simple-export-from-a-notes-view-to-excel/">Lotusscript: Simple export from a Notes view to Excel</a> appeared first on <a href="https://itstudio.be">IT Studio</a>.</p>
]]></description>
<content:encoded><![CDATA[
<style type="text/css" data-created_by="avia_inline_auto" id="style-css-av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5">
#top .av-special-heading.av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5{
padding-bottom:10px;
}
body .av-special-heading.av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5 .av-special-heading-tag .heading-char{
font-size:25px;
}
.av-special-heading.av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5 .av-subheading{
font-size:15px;
}
</style>
<div class='av-special-heading av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5 av-special-heading-h1 avia-builder-el-0 el_before_av_textblock avia-builder-el-first '><h1 class='av-special-heading-tag' itemprop="headline" >Lotusscript: Simple export from a Notes view to Excel</h1><div class="special-heading-border"><div class="special-heading-inner-border"></div></div></div>
<section class='av_textblock_section av-kvl0hifn-54f395be78e87e3524f727a034a86154' itemscope="itemscope" itemtype="https://schema.org/BlogPosting" itemprop="blogPost" ><div class='avia_textblock' itemprop="text" ><p>This simple LotusScript agent exports all documents from a view to Excel. It exports every column separately</p>
</div></section>
<section class='av_textblock_section av-kvl0i0og-54ce06919c6b6b087d2b47ec0189beba' itemscope="itemscope" itemtype="https://schema.org/BlogPosting" itemprop="blogPost" ><div class='avia_textblock' itemprop="text" ><pre class="EnlighterJSRAW" data-enlighter-language="cpp" data-enlighter-theme="eclipse">Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim wks As New NotesUIWorkspace
Dim uiView As NotesUIView
Dim column As NotesViewColumn
Dim doc As NotesDocument
Dim row As Long
Dim counter As Long
Dim colcounter As Integer
Dim filename As String
Dim xlApp As Variant
Dim xlsheet As Variant
Dim xlswb As Variant
Dim xlrange As Variant
Set db=session.currentdatabase
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True 'Make Excel visible
Set xlwb=xlApp.Workbooks.Add
Set xlsheet =xlwb.Worksheets(1)
Set uiView = wks.currentview
Set view = db.GetView( uiView.ViewName ) ' get the view currently open in UI
row=1
colcounter=0
Forall c In view.Columns
If c.isIcon<>True Then ' do not include icon columns
If c.Formula<>"""1""" And c.Formula<>"1" Then 'do not include columns which are counting docs (Totals)
xlsheet.Cells(row,colcounter+1).Value = c.Title 'set Excel column titles
colcounter=colcounter+1
End If
End If
End Forall
row=2
counter = 0
x=0
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
Forall c In view.Columns
If c.isIcon<>True Then ' do not include icon columns
If c.Formula<>"""1""" And c.Formula<>"1" Then 'do not include columns which are counting docs (Total)
currentvalue= doc.ColumnValues(counter)
xlsheet.Cells(row, x+1).Value = currentvalue 'set values to Excel table
x=x+1
End If
End If
counter = counter +1
End Forall
counter = 0
x=0
row=row+1
Set doc = view.GetNextDocument (doc)
Wend
Msgbox "Export completed!", 64, "INFO"
End Sub
</pre>
</div></section>
<p>The post <a href="https://itstudio.be/lotusscript-simple-export-from-a-notes-view-to-excel/">Lotusscript: Simple export from a Notes view to Excel</a> appeared first on <a href="https://itstudio.be">IT Studio</a>.</p>
]]></content:encoded>
</item>
</channel>
</rss>
If you would like to create a banner that links to this page (i.e. this validation result), do the following:
Download the "valid RSS" banner.
Upload the image to your own server. (This step is important. Please do not link directly to the image on this server.)
Add this HTML to your page (change the image src
attribute if necessary):
If you would like to create a text link instead, here is the URL you can use:
http://www.feedvalidator.org/check.cgi?url=https%3A//itstudio.be/feed/