Alert message through the sdk.

Question

hi.
plz have a look on Attached image..
i want to send one alert to the particular user.
i am able to send it..
but here i have  a small  requirement.
Normally alert messages are Working on queries..
suppose
select docentery from ordr where docsttus='open''..
docentry will be popup
if i select the docentry  sales order will be pop up.
the below code i am able to send it...
but
i want to attach  the below query....just like a normal alert message
select docentery from ordr where docsttus='open''..
can i do it...
Dim msg As SAPbobsCOM.Messages = Nothing
                msg = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oMessages)
                Dim lretvel, errcode As Long
                Dim errmsg As String
                Dim orec As SAPbobsCOM.Recordset
                orec = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                orec.DoQuery(" select  U_apmuc  from [@TI_BITEMASAPR1]")
                For i As Integer = 1 To orec.RecordCount
                    Dim ousercode As String = orec.Fields.Item(0).Value
                    msg.MessageText = "Mess"
                    msg.Subject = "subj"
                    msg.Recipients.Add()
                    msg.Recipients.SetCurrentLine(0)
                    msg.Recipients.UserCode = ousercode
                    msg.Recipients.NameTo = ousercode
                    msg.Recipients.SendInternal = SAPbobsCOM.BoYesNoEnum.tYES
                    msg.Add()
                    orec.MoveNext()
                Next
                If lretvel <> 0 Then
                    ocompany.GetLastError(errcode, errmsg)
                    MessageBox.Show(errcode.ToString + " :: " + errmsg)
                    ' Else
                    ' MessageBox.Show("Success")

Answer 1

Hi
In this case you can't use the SAPbobsCOM.Messages object to send the message. You have to use the MessageService where you can define columns and add rows.
Check the following code:
Dim msgServ As SAPbobsCOM.MessagesService
Dim oMessage As SAPbobsCOM.Message
Dim DataColumn As SAPbobsCOM.MessageDataColumn
Dim oRecordset As SAPbobsCOM.Recordset
Try
  oRecordset = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
  msgServ = oCompany.GetCompanyService.GetBusinessService(SAPbobsCOM.ServiceTypes.MessagesService)
  oMessage = msgServ.GetDataInterface(SAPbobsCOM.MessagesServiceDataInterfaces.msdiMessage)
  oMessage.Subject = "subj"
  oMessage.Text = "Mess"
  oMessage.Priority = SAPbobsCOM.BoMsgPriorities.pr_Normal
  oRecordset.DoQuery("select  U_apmuc  from [@TI_BITEMASAPR1]")
  If oRecordset.RecordCount > 0 Then
       oRecordset.MoveFirst()
       For ii As Integer = 0 To oRecordset.RecordCount - 1
            With oMessage.RecipientCollection.Add()
                 .SendInternal = SAPbobsCOM.BoYesNoEnum.tYES
                 .UserCode = CStr(oRecordset.Fields.Item(0).Value)
                 .UserType = SAPbobsCOM.BoMsgRcpTypes.rt_InternalUser
            End With
                 oRecordset.MoveNext()
       Next
       DataColumn = oMessage.MessageDataColumns.Add
       DataColumn.ColumnName = "Order No."
       DataColumn.Link = SAPbobsCOM.BoYesNoEnum.tYES
       oRecordset.DoQuery("SELECT DocEntry, ObjType, DocNum FROM ORDR WHERE DocStatus = N'O'")
       If oRecordset.RecordCount > 0 Then
            oRecordset.MoveFirst()
            For ii As Integer = 0 To oRecordset.RecordCount - 1
                 With DataColumn.MessageDataLines.Add
                      .Value = oRecordset.Fields.Item("DocNum").Value
                      .Object = oRecordset.Fields.Item("ObjType").Value
                      .ObjectKey = oRecordset.Fields.Item("DocEntry").Value
                 End With
                           oRecordset.MoveNext()
            Next
            msgServ.SendMessage(oMessage)
       End If
     End If
Catch ex As Exception
     MsgBox(ex.Message)
End Try
Regards,
Csaba