Multiple columns and rows in MessageService

Question

I am attempting to create a message (via MessageService) which has multiple lines of data, and each line has multiple data columns.
Background:  My program reads data from a web store, and creates Sales Orders in SBO.  A single run might process multiple orders.  When all orders have been entered, the program should send a (single) message to a list of recipients.  The message will have one line of data for each sales order produced.  Each line will contain two fields: the linked SBO sales order number, and the unlinked web order number.
When the message is initially created, I'm defining the multiple columns and initializing the data lines:
pMessageDataColumns = oMessage.MessageDataColumns
pMessageDataColumn = pMessageDataColumns.Add()
pMessageDataColumn.ColumnName = "SalesOrder"
pMessageDataColumn.Link = BoYesNoEnum.tYES
pMessageDataColumn = pMessageDataColumns.Add()
pMessageDataColumn.ColumnName = "WebOrder"
pMessageDataColumn.Link = BoYesNoEnum.tNO
oLines = pMessageDataColumn.MessageDataLines()
Later, as each Sales Order is processed, I'm attempting to inject the two data values into the message data:
oLine = oLines.Add()
oLine.Value = Str(pOrd.DocNum)
oLine.Object = 17
oLine.ObjectKey = Str(pOrd.DocEntry)
oLine = oLines.Add()
oLine.Value = pOrd.WebOrder
The above code would be invoked for each Sales Order processed.  However, it generates an "Internal error (-5002) occurred" when the message is ultimately sent.
The SDK documentation states:
The MessageDataLine is a child data structure related to the MessageDataColumn. It contains the value of a specified cell in the Data table, which is defined by its column number (vtIndex of Item of MessageDataColumns) and row number (vtIndex of Item of MessageDataLines).
I guess I don't understand the relationship between adding a "line" in my data display versus adding data into a "column".  It appears that the "oLines.Add()" is used to bump across the columns of the data.  If so, how do I advance to the next entire row of data in the message?
Thanks, Dave

Answer 1

    Class Item
        Public ItemCode As String
        Public Dscription As String
    End Class
Dim ItemCodes as new list( of item)
Dim one as new item
one.ItemCode = "ItemCode"
one. Dscription ="Name of Item"
itemcodes.add (one)
        Try
            Dim oCmpSvc As SAPbobsCOM.CompanyService = _ocmp.GetCompanyService()
            Dim oMsgSvc As SAPbobsCOM.MessagesService = oCmpSvc.GetBusinessService(ServiceTypes.MessagesService)
            Dim oMsg As SAPbobsCOM.Message = oMsgSvc.GetDataInterface(MessagesServiceDataInterfaces.msdiMessage)
            oMsg.Subject = DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")
            oMsg.Text = Msg
            Dim oMsgDataColumn As SAPbobsCOM.MessageDataColumn
            If ItemCodes.Count > 0 Then
                oMsgDataColumn = oMsg.MessageDataColumns.Add()
                oMsgDataColumn.ColumnName = "Product / Item Code"
                oMsgDataColumn.Link = BoYesNoEnum.tYES
                For Each oneitem As Item In ItemCodes
                    Dim oMsgDataLine As SAPbobsCOM.MessageDataLine = oMsgDataColumn.MessageDataLines.Add()
                    oMsgDataLine.Object = "4"
                    oMsgDataLine.ObjectKey = oneitem.ItemCode
                    oMsgDataLine.Value = oneitem.Dscription
                Next
                oMsgDataColumn = oMsg.MessageDataColumns.Add()
                oMsgDataColumn.ColumnName = "Description"
                oMsgDataColumn.Link = BoYesNoEnum.tNO
                For Each oneitem As Item In ItemCodes
                    Dim oMsgDataLine As SAPbobsCOM.MessageDataLine = oMsgDataColumn.MessageDataLines.Add()
                    oMsgDataLine.Value = oneitem.Dscription
                Next
            End If
                    Dim oMsgRecipient As SAPbobsCOM.Recipient = oMsg.RecipientCollection.Add()
                    oMsgRecipient.UserCode = "manager"
                    oMsgRecipient.SendInternal = BoYesNoEnum.tYES
                    oMsgRecipient.SendEmail = BoYesNoEnum.tNO
            oMsgSvc.SendMessage(oMsg)
            MsgBox("SAP B1 internal Message sent...")
        Catch ex As Exception
            MsgBox("Unable to send SAP B1 internal message. Error:" + ex.Message)
        End Try
    End Sub