Vb.net 将XML消息发送到SONIC JMS队列

我是Sonic JSM队列的新手。我需要向JSM队列发送一条xml消息。我可以使用以下代码发送字符串消息

Dim msg As Sonic.Jms.TextMessage = SonicSendSession.createTextMessage()

msg.setText(ESBMessage)

msg.setStringProperty("instance", Header)

SonicSender.send(msg, Sonic.Jms.DeliveryMode.PERSISTENT, Sonic.Jms.DefaultMessageProperties.DEFAULT_PRIORITY, MESSAGE_LIFESPAN)

Dim msg As Sonic.Jms.Message = SonicSendSession.createMessage()
msg.setJMSMessageID(ESBMessage)

msg.setStringProperty("instance", Header)    

SonicSender.send(msg, Sonic.Jms.DeliveryMode.PERSISTENT, Sonic.Jms.DefaultMessageProperties.DEFAULT_PRIORITY, MESSAGE_LIFESPAN)

这很好用。但在我听到这个信息

内容类型=文本/普通

但我需要把它设置为

内容类型：text/xml

我可以通过以下代码发送它

Dim msg As Sonic.Jms.TextMessage = SonicSendSession.createTextMessage()

msg.setText(ESBMessage)

msg.setStringProperty("instance", Header)

SonicSender.send(msg, Sonic.Jms.DeliveryMode.PERSISTENT, Sonic.Jms.DefaultMessageProperties.DEFAULT_PRIORITY, MESSAGE_LIFESPAN)

Dim msg As Sonic.Jms.Message = SonicSendSession.createMessage()
msg.setJMSMessageID(ESBMessage)

msg.setStringProperty("instance", Header)    

SonicSender.send(msg, Sonic.Jms.DeliveryMode.PERSISTENT, Sonic.Jms.DefaultMessageProperties.DEFAULT_PRIORITY, MESSAGE_LIFESPAN)

但我无法将我的xml消息添加到此消息。我使用VS2010/VB.net。 请帮忙

---

Thanx。我不确定它在VB中是如何工作的。但是在Java中，这很容易

您可以尝试添加一个新的JMS头

msg.setStringProperty（“内容类型”、“文本/xml”）

或

您必须创建XML消息Sonic.Jms.Ext.XMLMessage，而不是Sonic.Jms.message