Visual Basic

Public Sub OpenOfficeMail(ByVal StrFilter As String)
     Dim oSM ''Root object for accessing OpenOffice from VB
     Dim oDesk, oDoc As Object ''First objects from the API
     Dim arg(-1)
     ''Instanciate OOo : this line is mandatory with VB for OOo API
     oSM = CreateObject("com.sun.star.ServiceManager")
     ''Create the first and most important service
     oDesk = oSM.createInstance("com.sun.star.frame.Desktop")

     ''Create a new doc
     oDoc = oDesk.loadComponentFromURL("private:factory/swriter", "_blank", 0, arg)
     ''Close the doc
     oDoc.Close(True)
     oDoc = Nothing

     ''Open an existing doc (pay attention to the syntax for first argument)
     oDoc = oDesk.loadComponentFromURL("file:///C:\Users\Savan\Documents\1.odt", "_blank", 0, arg)
     Dim t_OOo As Type
     t_OOo = Type.GetTypeFromProgID("com.sun.star.ServiceManager")
     Dim objServiceManager As New Object
     objServiceManager = System.Activator.CreateInstance(t_OOo)
     Dim oMailMerge As New Object
     oMailMerge = t_OOo.InvokeMember("createInstance", Reflection.BindingFlags.InvokeMethod, Nothing, _
 objServiceManager, New [Object]() {"com.sun.star.text.MailMerge"}) 'com.sun.star.text.MailMerge"})
     oMailMerge.DocumentURL = "file:///C:\Users\Savan\Documents\1.odt"
     oMailMerge.DataSourceName = CreateSource(StrFilter)''Calling Function to return Txt file which will be used as datasource
     oMailMerge.CommandType = 0
     oMailMerge.Command = "file:///C:\Mail.txt"
     oMailMerge.OutputType = 2
     oMailMerge.execute(New [Object]() {}) '"com.sun.star.text.MailMerge"})----->Here i am gettting error.
 End Sub

Folder ID       Parent ID      Folder Name
1                 -1              Folder 1
2                 1               Folder 1-1
3                 2               Folder 1-1-1
4                 1               Folder 1-2
5                 1               Folder 1-3
6                 5               Folder 1-3-1
7                 5               Folder 1-3-2
8                 1               Folder 1-4