Visual Basic

MPEConfirm = New AjaxControlToolkit.ModalPopupExtender<br />
   Dim popup As LiteralControl = New LiteralControl<br />
   PnlConfirm = New Panel<br />
   btnConOK = New Button<br />
   btnConCancel = New Button<br />
                'asp panel for modal popup<br />
                With PnlConfirm<br />
                    .ID = "PnlConfirm"<br />
                    .CssClass = "modalPopup"<br />
                    .Attributes.Add("Style", "display: none")<br />
                    .Height = 100<br />
                    .Width = 233<br />
                End With<br />
<br />
                With btnConOK<br />
                    .ID = "btnConOK"<br />
                    .CssClass = "Buttons"<br />
                    .Text = "Yes"<br />
                    .Width = 50<br />
                End With<br />
                arrbtnConOK(l) = btnConOK<br />
                AddHandler btnConOK.Click, AddressOf btnConOK_Click<br />
<br />
                With btnConCancel<br />
                    .ID = "btnConCancel"<br />
                    .CssClass = "Buttons"<br />
                    .Text = "No"<br />
                    .Width = 50<br />
                End With<br />
                AddHandler btnConCancel.Click, AddressOf btnConCancel_Click<br />
<br />
                popup = New LiteralControl("&lt;br /><div align='center'>")<br />
                PnlConfirm.Controls.Add(popup)<br />
                'popup = New LiteralControl("&lt;span style='font-size:10px;color:white;font-family:Verdana'>Are you sure you want to continue without saving?</span><br /><br />")<br />
                'PnlConfirm.Controls.Add(popup)<br />
                popup = New LiteralControl("&lt;span style='font-size:10px;color:white;font-family:Verdana'>Do you want to save the changes that you made?</span><br /><br />")<br />
                PnlConfirm.Controls.Add(popup)<br />
                PnlConfirm.Controls.Add(btnConOK)<br />
                popup = New LiteralControl("&nbsp")<br />
                PnlConfirm.Controls.Add(popup)<br />
                PnlConfirm.Controls.Add(btnConCancel)<br />
                popup = New LiteralControl("&lt;/div>")<br />
                PnlConfirm.Controls.Add(popup)<br />
<br />
For l = 0 To dt.Rows.Count - 1<br />
<br />
                imgExpand = New ImageButton<br />
                With imgExpand<br />
                    .ID = "imgExpand_" & l<br />
                    .ImageUrl = "~/Files/images/expand_blue.gif"<br />
                    .CommandName = l<br />
                    .CommandArgument = dt.Rows(l)("core_id")<br />
                End With<br />
                AddHandler imgExpand.Click, AddressOf imgExpand_Click<br />
<br />
                'modalpopup extender<br />
                With MPEConfirm<br />
                    .ID = "MPEConfirm" & l<br />
                    .TargetControlID = "imgExpand_" & l<br />
                    .PopupControlID = "PnlConfirm"<br />
                    .BackgroundCssClass = "modalBackground"<br />
                    '.OkControlID = "btnConOK"<br />
                    '.CancelControlID = "btnConCancel"<br />
                End With<br />
                arrMPEConfirm(l) = MPEConfirm<br />
                PnlCoreComp.Controls.Add(imgExpand)<br />
                PnlCoreComp.Controls.Add(arrMPEConfirm(l))<br />
Next<br />
PnlCoreComp.Controls.Add(PnlConfirm)

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