Congratulations!

[Valid RSS] This is a valid RSS feed.

Recommendations

This feed is valid, but interoperability with the widest range of feed readers could be improved by implementing the following recommendations.

Source: https://itstudio.be/feed/

  1. <?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
  2. xmlns:content="http://purl.org/rss/1.0/modules/content/"
  3. xmlns:wfw="http://wellformedweb.org/CommentAPI/"
  4. xmlns:dc="http://purl.org/dc/elements/1.1/"
  5. xmlns:atom="http://www.w3.org/2005/Atom"
  6. xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
  7. xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
  8. >
  9.  
  10. <channel>
  11. <title>IT Studio</title>
  12. <atom:link href="https://itstudio.be/feed/" rel="self" type="application/rss+xml" />
  13. <link>https://itstudio.be/</link>
  14. <description>Your IT Service Partner</description>
  15. <lastBuildDate>Thu, 04 Nov 2021 15:33:54 +0000</lastBuildDate>
  16. <language>en</language>
  17. <sy:updatePeriod>
  18. hourly </sy:updatePeriod>
  19. <sy:updateFrequency>
  20. 1 </sy:updateFrequency>
  21. <generator>https://wordpress.org/?v=6.5.2</generator>
  22. <item>
  23. <title>Lotusscript: Export attachments of Notes documents to the filesystem</title>
  24. <link>https://itstudio.be/lotusscript-export-attachments-of-notes-documents-to-the-filesystem/</link>
  26. <dc:creator><![CDATA[admin]]></dc:creator>
  27. <pubDate>Thu, 04 Nov 2021 14:17:33 +0000</pubDate>
  28. <category><![CDATA[code]]></category>
  29. <category><![CDATA[LotusScript]]></category>
  30. <category><![CDATA[Code]]></category>
  31. <guid isPermaLink="false">https://lotusnotes.be/?p=922</guid>
  32.  
  33. <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>
  34. ]]></description>
  35. <content:encoded><![CDATA[
  36. <style type="text/css" data-created_by="avia_inline_auto" id="style-css-av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30">
  37. #top .av-special-heading.av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30{
  38. padding-bottom:10px;
  39. }
  40. body .av-special-heading.av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 .av-special-heading-tag .heading-char{
  41. font-size:25px;
  42. }
  43. .av-special-heading.av-kvl0iqbv-2de596ca56a59465231e6ca06a6a3c30 .av-subheading{
  44. font-size:15px;
  45. }
  46. </style>
  47. <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>
  48. <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>
  49. <p>First the entire document is exported into DXL, then all attachments are detached to the file system.<br />
  50. 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>
  51. </div></section>
  52. <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
  53.    Option Declare
  54.    Dim gCounter&amp;
  55.    Sub Initialize
  56.          Dim s As New NotesSession
  57.          Dim coll As NotesDocumentCollection
  58.          Dim BasePath$
  59.    
  60.          BasePath$ = InputBox ("Export data to path...: ", "Export", "C:\")
  61.        
  62.          '# add backslash at the end
  63.          If right (BasePath$,1) &lt;&gt; "\" Then BasePath$ = BasePath$ &amp; "\"
  64.        
  65.          Print "Using BasePath : " &amp; BasePath$
  66.        
  67.          Set coll = s.currentdatabase.Unprocesseddocuments
  68.          If coll Is Nothing Then
  69.                  MessageBox "No documents selected"
  70.          Else
  71.                  Print "Processing " &amp; coll.count &amp; " documents..."
  72.                  Call ExportToDXL (coll, BasePath$)
  73.                  Call ExportToFile (coll, BasePath$)
  74.                  MessageBox "Export completed."
  75.          End If        
  76.    End Sub
  77.    
  78.    Function ExportToDXL (Coll As NotesDocumentCollection, BasePath As String)
  79.          Dim session As New NotesSession
  80.          Dim stream As NotesStream
  81.          Dim DXLfilename$
  82.          Dim doc As NotesDocument
  83.          Dim tdoc As NotesDocument
  84.          Dim exporter As NotesDXLExporter
  85.        
  86.          If coll Is Nothing Then Exit function
  87.          Set doc = coll.getfirstdocument
  88.          While Not doc Is Nothing
  89.                  Set tdoc = coll.getNextDocument (doc)
  90.                  '# Open xml file named after current database
  91.                  Set stream = session.CreateStream
  92.                  DXLfilename$ = BasePath$ &amp; doc.universalid &amp; ".dxl"
  93.                  If Not stream.Open(DXLfilename$) Then
  94.                          MessageBox "Cannot open " &amp; DXLfilename$,, "Error"
  95.                          Exit Function
  96.                  End If
  97.                
  98.                  '# kick off the exporter process
  99.                  Set exporter = session.CreateDXLExporter
  100.                  Call exporter.SetInput(doc)
  101.                  Call exporter.SetOutput(stream)
  102.                  Call exporter.Process
  103.                
  104.                  Set doc = tdoc
  105.          Wend
  106.    End Function
  107.    
  108.    Function ExportToFile (coll As NotesDocumentCollection, BasePath As String)
  109.            On Error GoTo ErrH
  110.            Dim doc As NotesDocument
  111.            Dim tdoc As NotesDocument
  112.            Dim rtitem As variant
  113.            Dim targetpath$, fname$
  114.            Dim FieldList(0) As String
  115.            Dim oba As Variant
  116.          
  117.            '# define which fields to scan for attachments
  118.            FieldList (0) = "Body"
  119.          
  120.            If coll Is Nothing Then Exit Function
  121.          
  122.            Set doc = coll.getfirstdocument
  123.            While Not doc Is Nothing
  124.                    Set tdoc = coll.getNextDocument (doc)
  125.                    If doc.Hasembedded Then
  126.                            targetpath$ = BasePath$ &amp; doc.universalid &amp; "\"
  127.                          
  128.                            If Dir$ (BasePath$ &amp; doc.universalid, 16) = "" Then MkDir targetpath$
  129.                          
  130.                            '# loop list of fields
  131.                            ForAll f In FieldList
  132.                                     Set rtitem = doc.GetFirstItem(f)
  133.                                     If Not rtitem Is Nothing Then
  134.                                            If (rtitem.Type = RICHTEXT ) Then
  135.                                                    '# make sure the field contains some objects and detach
  136.                                                    If IsArray(rtitem.embeddedObjects) Then
  137.                                                            ForAll o In rtitem.EmbeddedObjects
  138.                                                                    If ( o.Type = EMBED_ATTACHMENT ) Then
  139.                                                                            Fname$=o.Name
  140.                                                                            If FileExists (fname$) Then fname$ = CStr(gCounter&amp;) &amp; Fname$
  141.                                                                            Call o.ExtractFile(targetPath$ &amp; Fname$)
  142.                                                                            gCounter&amp; = gCounter&amp; + 1
  143.                                                                    End If
  144.                                                            End ForAll
  145.                                                    End If
  146.    
  147.                                            End If
  148.                                    End If
  149.                            End ForAll
  150.                    End If
  151.                    Set doc = tdoc
  152.            Wend
  153.    continue:
  154.            Exit Function
  155.          
  156.    errH:
  157.            Stop
  158.            Print "Error " &amp; Err() &amp; " in line " &amp; Erl() &amp; " - " &amp; Error
  159.            Resume continue
  160. End Function</pre>
  161. </div></section>
  162. <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>
  163. ]]></content:encoded>
  167. </item>
  168. <item>
  169. <title>Lotusscript: Simple export from a Notes view to Excel</title>
  170. <link>https://itstudio.be/lotusscript-simple-export-from-a-notes-view-to-excel/</link>
  172. <dc:creator><![CDATA[admin]]></dc:creator>
  173. <pubDate>Thu, 04 Nov 2021 14:05:39 +0000</pubDate>
  174. <category><![CDATA[code]]></category>
  175. <category><![CDATA[LotusScript]]></category>
  176. <category><![CDATA[Code]]></category>
  177. <guid isPermaLink="false">https://lotusnotes.be/?p=919</guid>
  178.  
  179. <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>
  180. ]]></description>
  181. <content:encoded><![CDATA[
  182. <style type="text/css" data-created_by="avia_inline_auto" id="style-css-av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5">
  183. #top .av-special-heading.av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5{
  184. padding-bottom:10px;
  185. }
  186. body .av-special-heading.av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5 .av-special-heading-tag .heading-char{
  187. font-size:25px;
  188. }
  189. .av-special-heading.av-kvl0iqbv-3cbbd07e98c8b27e4bb67e03ef3463b5 .av-subheading{
  190. font-size:15px;
  191. }
  192. </style>
  193. <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>
  194. <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>
  195. </div></section>
  196. <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
  197.  
  198. Dim session As New NotesSession
  199. Dim db As NotesDatabase
  200. Dim view As NotesView
  201. Dim wks As New NotesUIWorkspace
  202. Dim uiView As NotesUIView
  203. Dim column As NotesViewColumn
  204. Dim doc As NotesDocument
  205.  
  206. Dim row As Long
  207. Dim counter As Long
  208. Dim colcounter As Integer
  209. Dim filename As String
  210.  
  211. Dim xlApp As Variant
  212. Dim xlsheet As Variant
  213. Dim xlswb As Variant
  214. Dim xlrange As Variant
  215.  
  216. Set db=session.currentdatabase
  217. Set xlApp = CreateObject("Excel.Application")
  218. xlApp.Visible = True 'Make Excel visible
  219.  
  220. Set xlwb=xlApp.Workbooks.Add
  221. Set xlsheet =xlwb.Worksheets(1)
  222.  
  223. Set uiView = wks.currentview
  224. Set view = db.GetView( uiView.ViewName ) ' get the view currently open in UI
  225. row=1
  226. colcounter=0
  227. Forall c In view.Columns
  228. If c.isIcon&lt;&gt;True Then ' do not include icon columns
  229. If c.Formula&lt;&gt;"""1""" And c.Formula&lt;&gt;"1" Then 'do not include columns which are counting docs (Totals)
  230. xlsheet.Cells(row,colcounter+1).Value = c.Title 'set Excel column titles
  231. colcounter=colcounter+1
  232. End If
  233. End If
  234. End Forall
  235.  
  236. row=2
  237. counter = 0
  238. x=0
  239. Set doc = view.GetFirstDocument
  240. While Not ( doc Is Nothing )
  241. Forall c In view.Columns
  242. If c.isIcon&lt;&gt;True Then ' do not include icon columns
  243. If c.Formula&lt;&gt;"""1""" And c.Formula&lt;&gt;"1" Then 'do not include columns which are counting docs (Total)
  244. currentvalue= doc.ColumnValues(counter)
  245. xlsheet.Cells(row, x+1).Value = currentvalue 'set values to Excel table
  246. x=x+1
  247. End If
  248. End If
  249. counter = counter +1
  250. End Forall
  251. counter = 0
  252. x=0
  253. row=row+1
  254. Set doc = view.GetNextDocument (doc)
  255. Wend
  256.  
  257. Msgbox "Export completed!", 64, "INFO"
  258.  
  259. End Sub
  260. </pre>
  261. </div></section>
  262. <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>
  263. ]]></content:encoded>
  267. </item>
  268. </channel>
  269. </rss>
  270.  

If you would like to create a banner that links to this page (i.e. this validation result), do the following:

  1. Download the "valid RSS" banner.

  2. Upload the image to your own server. (This step is important. Please do not link directly to the image on this server.)

  3. 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/

Home · About · News · Docs · Terms

 
Copyright © 2002-9 Sam Ruby, Mark Pilgrim, Joseph Walton, and Phil Ringnalda