使用WCF服务向MSMQ发送消息

Dim mq As MessageQueue
Dim msg As Message
Dim queueName As String = "webdevbvm.labsafety.com\emailsubscriptions"

Try
   msg = New Message("Test")
   msg.Priority = MessagePriority.Highest

   If (MessageQueue.Exists(queueName)) Then
       mq = New MessageQueue(queueName)
   msg.ResponseQueue = mq
   msg.UseJournalQueue = True
   msg.Label = "Test Message"
   msg.Body = "This is only a test"
   mq.Send(msg)
   Console.WriteLine("Message sent.")
   End If
Catch ex As MessageQueueException
   Console.WriteLine("MSMQ Error: " + ex.ToString())
Catch ex As Exception
   Console.WriteLine("Error: " + ex.ToString())
Finally
   mq.Close()
End Try

我没有收到任何错误,但我确实在运行程序的机器的传出队列中看到了消息。它显示队列存在,如果我将队列名称更改为不存在的名称,它就不会进入if语句,所以我知道它看到的只是队列没有发送文件。如果这有帮助的话,我正在笔记本电脑上本地运行该程序,它发送的队列也在Windows 2003服务器上。