ASP.NET

Public Sub GetMailMessages() Implements ISvcEmailManagement.GetMailMessages

        Try
            ' Create an instance of MessageQueue. Set its formatter.
            Dim _msmqQueue As New MessageQueue(msmqQueuePath)
            '_msmqQueue.Formatter = New XmlMessageFormatter(New Type() {GetType([String])})
            _msmqQueue.Formatter = New BinaryMessageFormatter
            _msmqQueue.MessageReadPropertyFilter.SetAll()
            ' Add an event handler for the ReceiveCompleted event.
            AddHandler _msmqQueue.ReceiveCompleted, AddressOf msmqQueue_ReceiveCompleted
            Dim returnValue As IAsyncResult
            ' Begin the asynchronous receive operation.
            returnValue = _msmqQueue.BeginReceive()
            signal.WaitOne()
            ' Do other work on the current thread.
            Return
        Catch ex As Exception
            Dim Msg As String = ex.Message
            Throw ex
        End Try

    End Sub

Public Sub msmqQueue_ReceiveCompleted(ByVal sender As Object, ByVal e As ReceiveCompletedEventArgs)
        Try
            Dim emailMsg As EmailEntities.CEmailMessage = e.Message.Body
            'Remplir l'objet Message avec TO, FROM, BODY, SUBJECT en supposant que le message soit au bon format
            Dim mailMessage As MailMessage = New MailMessage()
            mailMessage.To.Add(New MailAddress(emailMsg.sTO))
            mailMessage.From = New MailAddress(emailMsg.sFROM)
            mailMessage.Subject = emailMsg.sSUBJECT
            mailMessage.Body = emailMsg.sBODY
            Dim oclient As SmtpClient = New SmtpClient()
            Try
                oclient.DeliveryMethod = SmtpDeliveryMethod.SpecifiedPickupDirectory
                oclient.Send(mailMessage)
            Catch ex As SmtpFailedRecipientsException
                Dim i As Integer
                For i = 0 To ex.InnerExceptions.Length - 1
                    Dim status As SmtpStatusCode = ex.InnerExceptions(i).StatusCode
                    If (status = SmtpStatusCode.MailboxBusy) Or (status = SmtpStatusCode.MailboxUnavailable) Then
                        'Echec à l'envoi du message : tentative dans 5 secondes
                        System.Threading.Thread.Sleep(5000)
                        oclient.Send(mailMessage)
                    Else
                        'Echec d'envoi du message à {0}
                        MsgBox("Failed to deliver message to {0}", MsgBoxStyle.Information, ex.InnerExceptions(i).FailedRecipient)
                    End If
                Next i
            Catch ex As SmtpException
                Dim msstatus As String = ex.Message
            End Try
        Catch ex As SmtpException
            Dim msstatus As String = ex.Message
        Catch ex As Exception
            Dim msstatus As String = ex.Message
            'Catch ex As XmlException
            '    Dim msstatus As String = ex.Message
        End Try
    End Sub

@Html.DropDownListFor(model => model.HList4DD.First().HolidayDate, new SelectList(Model.PList4DD, "Id", "Name", Model.currentPersonID), "--select--")

@Html.DropDownListFor(model => model.PersonId, new SelectList(ViewBag.Id, "Value", "Text"),"---Select---")

TempData["CurrentPersonID"] =currentPersonID;

@TempData["CurrentPersonID"]

<div>
@Html.LabelFor(model => model.currentPersonID, "currentPersonID")
@Html.ValidationMessageFor(model => model.PersonId) 
</div>

<asp:TemplateField>
                                   <ItemTemplate >
                                       <asp:ImageButton ID="ImageDeleteBuyingKala" ImageUrl="~/ServerFile/ApplicationFiles/Icons/Button/add.png"
                                          Width="25" runat="server" OnClientClick="Open('<%# Eval("Id") %>')" />
                                   </ItemTemplate>
                               </asp:TemplateField>

<script type="text/javascript">
       function Open(IdItem) {
           // to handle in IE 7.0
           if (window.showModalDialog) {
               window.showModalDialog(location.protocol + "//" + location.host + "/" + "WorkFlows/Forms/BuyingKala/Estelam.aspx?Id=" + IdItem, "Show Popup Window", "dialogHeight:450px,dialogWidth:80%,toolbar=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,modal=yes,center:yes");
           }
           // to handle in Firefox
           else {
               window.open(location.protocol + "//" + location.host + "/" + "WorkFlows/Forms/BuyingKala/Estelam.aspx?Id=" + IdItem, "Show Popup Window", "height=450px,width=80%,toolbar=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,modal=yes,center:yes");

           }
          // window.showModalDialog(location.protocol + "//" + location.host + "/" + "WorkFlows/Forms/BuyingKala/Estelam.aspx?Id=" + IdItem, null, "height=290px,width=400px,toolbar=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,modal=yes")
       }
   </script>

<ItemTemplate>
                                        <asp:ImageButton ID="ImageEstelamBuyingKala" ImageUrl="~/ServerFile/ApplicationFiles/Icons/Button/add.png"
                                            Width="25" runat="server" OnClientClick='<%# " Open("+ DataBinder.Eval(Container.DataItem,"Id") + ");" %>' />
                                    </ItemTemplate>