How To Send in a MSMQ Single-Message Transaction

MORE INFORMATION

   Dim qinfo As New MSMQQueueInfo
   Dim q As MSMQQueue
   Dim m As New MSMQMessage

   qinfo.PathName = "MachineName\TransactionalQueueName"
   Set q = qinfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
   m.Send q, MQ_SINGLE_MESSAGE
   q.Close
				

   void TransactSend(QUEUEHANDLE h, MQMSGPROPS * pMsgProps)
   {
      HRESULT hr;
      printf ("\nStarting transaction...\n\n");
      ////////////////////////////////////// 
      // Call MQSendMessage to send a transactional message to
      // the destination queue.
      ////////////////////////////////////// 
      hr = MQSendMessage(h,                  // Handle to dest queue
                        &msgprops,           // Pointer to MQMSGPROPS
                        MQ_SINGLE_MESSAGE);  // Implicit internal
                                             // transactional message.
      if (FAILED(hr))
      {
      printf("\nFailed in MQSendMessage(). hresult- %lxh\n", (DWORD) hr) ;
      }
      else
      {
          printf ("Committing the transaction...   ");
      }
     }