- 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
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