Working on automating the creation of a MSMQ private queue, not working. Can anyone see why this would not behave? Win2K/SP2, VFP7/SP1:
#INCLUDE msmq.h
lcName = "QMailer"
lcPath = ".\private$\" + lcName
oQueueInfo = CreateObject("MSMQ.MSMQQueueInfo")
oQueueInfo.Pathname = ".\private$\" + lcName
oQueueInfo.Label = lcName
oSendQueue = oQueueInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
If Transform(oSendQueue.IsOpen) != "1"
oQueueInfo.Create
? lcPath + " Queue Created"
EndIf
oMsg = create("MSMQ.MSMQMessage")
oMsg.Label = "<label>A Label</label>"
oMsg.Body = "<body>A body</body"
oMsg.Send(oSendQueue)I'm getting a COM error on the "oSendQueue = oQueueInfo.Open...." line.
Thanks.
