UTILISATION DE MSMQ

Imports System.Messaging

Public Class FonctionsMSMQ

    Public Shared Function WriteTextToQueue(ByVal path As String, ByVal Message As String, ByVal Label As String, ByRef ErrorMsg As String) As Boolean
        Dim Success As Boolean = False
        Dim queue As MessageQueue = New MessageQueue
        queue.Path = path.ToString
        If (queue.Transactional = False) Then
            Try
                queue.DefaultPropertiesToSend.Recoverable = True
                queue.Send(Message, Label)
                Success = True
            Catch ex As Exception
                ErrorMsg = ex.Message.ToString
                Success = False
            End Try
        Else
            ErrorMsg = "Erreur, ne peut envoyer des message vers une queue transactionnelle"
            Success = False
        End If
        Return Success
    End Function

    Public Shared Function WriteObjectToQueue(ByVal path As String, ByVal Objet As Object, ByVal Label As String, ByRef ErrorMsg As String) As Boolean
        Dim Success As Boolean = False
        Dim queue As MessageQueue = New MessageQueue
        queue.Path = path.ToString
        If (queue.Transactional = False) Then
            Try
                queue.DefaultPropertiesToSend.Recoverable = True
                queue.Send(Objet, Label)
                Success = True
            Catch ex As Exception
                ErrorMsg = ex.Message.ToString
                Success = False
            End Try
        Else
            ErrorMsg = "Erreur, ne peut envoyer des message vers une queue transactionnelle"
            Success = False
        End If
        Return Success
    End Function

End Class