The sample code in that article is VB6. You need to figure out how the
recoverable property is exposed in the language you are using.

Try this:
http://msdn2.microsoft.com/en-us/library/system.messaging.defaultpropertiestosend.aspx

>From: "shahbaz_yousuf555" <shahbaz_yousuf555@yahoo.com>
>Reply-To: msmq@yahoogroups.com
>To: msmq@yahoogroups.com
>Subject: [msmq] Re: how to store messages permanently!!
>Date: Sat, 07 Oct 2006 06:39:06 -0000
>
>hello,,Thanks for your reply.The link which u had told me to refer
>shows the following code
>
>Dim msmqMessage As System.Messaging.Message
> msmqMessage = New System.Messaging.Message("Hello World")
> msmqMessage.Recoverable = True 'default is False
>but the code which i have already written is something like shown below
>i dnt have a message object which has this property of recoverrable.How
>can i modify this now.
>Thanks and Regards,
>
>Shahbaz Yousuf
>
>
>
>
> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
>System.EventArgs) Handles Button1.Click
> Dim QUEUE_NAME As String = ".\private$\myprivq"
> Dim msqQ As System.Messaging.MessageQueue
> Dim msgText As String
>
> Dim s As String
> s = TextBox1.Text
> msgText = s
> msqQ = GetQ(QUEUE_NAME)
> msqQ.Send(msgText)
> TextBox1.Text = ""
>
> End Sub
>
>
> Private Function GetQ(ByVal queueName As String) As
>System.Messaging.MessageQueue
> Dim msgQ As System.Messaging.MessageQueue
> Dim queue_name As String = ".\private$\myprivq"
>
> If Not System.Messaging.MessageQueue.Exists(queueName) Then
> Try
>
> msgQ = System.Messaging.MessageQueue.Create(queueName)
> Catch CreateException As Exception
>
> Throw New Exception("Error Creating Queue",
>CreateException)
> End Try
> Else
> Try
> msgQ = New System.Messaging.MessageQueue(queueName)
> Catch GetException As Exception
> Throw New Exception("Error Getting Queue", GetException)
> End Try
> End If
> Return msgQ
> End Function
>
>
>
>
>