The following is a VB.NET sample that enables to send an internal message with a single line.

SendMessage (Visual Basic)

Copy Code

Dim oCmpSrv As SAPbobsCOM.CompanyService Dim oMessageService As MessagesService Dim oMessage As Message Dim pMessageDataColumns As MessageDataColumns Dim pMessageDataColumn As MessageDataColumn Dim oLines As MessageDataLines Dim oLine As MessageDataLine Dim oRecipientCollection As RecipientCollection 'get company service oCmpSrv = oCompany.GetCompanyService 'get msg service oMessageService = oCmpSrv.GetBusinessService(ServiceTypes.MessagesService) 'get the data interface for the new message oMessage=oMessageService.GetDataInterface(MessagesServiceDataInterface.msdiMessage) 'fill subject oMessage.Subject = "My Subject" 'fill text oMessage.Text = "My Text" 'Add Recipient oRecipientCollection = oMessage.RecipientCollection 'Add new a recipient oRecipientCollection.Add() 'send internal message oRecipientCollection.Item(0).SendInternal = BoYesNoEnum.tYES 'add existing user code oRecipientCollection.Item(0).UserCode = "manager" 'get columns data pMessageDataColumns = oMessage.MessageDataColumns 'get column pMessageDataColumn = pMessageDataColumns.Add() 'set column name pMessageDataColumn.ColumnName = "My Column Name" 'get lines oLines = pMessageDataColumn.MessageDataLines() 'add new line oLine = oLines.Add() 'set the line value oLine.Value = "My Value" 'send the message oMessageService.SendMessage(oMessage)