MS Job

EnvelopeGenerator.Form/frmMain.vb

@@ -597,31 +597,40 @@ Public Class frmMain
     End Sub
 
     Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtnitm_ResendInvitation.ItemClick
-        Dim oView As GridView = GridEnvelopes.FocusedView
-        Dim selReceiver As EnvelopeReceiver
-        If oView.Name = ViewReceivers.Name Then
-            selReceiver = oView.GetRow(oView.FocusedRowHandle)
-        Else
-            MsgBox(Resources.Envelope.Please_select_a_recipient_from_the_Recipients_tab, MsgBoxStyle.Information, Text)
-        End If
-        If ViewEnvelopes.FocusedRowHandle < 0 Or IsNothing(selReceiver) Then
-            Exit Sub
-        End If
-        Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
-
-        Dim oController = New EnvelopeEditorController(State, oEnvelope)
-        Dim Documents As New BindingList(Of EnvelopeDocument)
-        Dim Receivers As New BindingList(Of EnvelopeReceiver)
-        Receivers = New BindingList(Of EnvelopeReceiver)(oController.Envelope.Receivers)
-        For Each oReceiver As EnvelopeReceiver In Receivers
-            If oReceiver.Email = selReceiver.Email Then
-                If oController.ActionService.ResendReceiver(oEnvelope, oReceiver) = True Then
-                    Dim oMsg = Resources.Envelope.Invitation_successfully_resend.Replace("@Mail", oReceiver.Email)
-                    MsgBox(oMsg, MsgBoxStyle.Information, Text)
-
-                End If
+        Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
+        Try
+            Dim oView As GridView = GridEnvelopes.FocusedView
+            Dim selReceiver As EnvelopeReceiver
+            If oView.Name = ViewReceivers.Name Then
+                selReceiver = oView.GetRow(oView.FocusedRowHandle)
+            Else
+                MsgBox(Resources.Envelope.Please_select_a_recipient_from_the_Recipients_tab, MsgBoxStyle.Information, Text)
             End If
-        Next
+            If ViewEnvelopes.FocusedRowHandle < 0 Or IsNothing(selReceiver) Then
+                Exit Sub
+            End If
+            Dim oEnvelope As Envelope = ViewEnvelopes.GetRow(ViewEnvelopes.FocusedRowHandle)
+
+            Dim oController = New EnvelopeEditorController(State, oEnvelope)
+            Dim Documents As New BindingList(Of EnvelopeDocument)
+            Dim Receivers As New BindingList(Of EnvelopeReceiver)
+            Receivers = New BindingList(Of EnvelopeReceiver)(oController.Envelope.Receivers)
+            For Each oReceiver As EnvelopeReceiver In Receivers
+                If oReceiver.Email = selReceiver.Email Then
+                    If oController.ActionService.ResendReceiver(oEnvelope, oReceiver) = True Then
+                        Dim oMsg = Resources.Envelope.Invitation_successfully_resend.Replace("@Mail", oReceiver.Email)
+                        MsgBox(oMsg, MsgBoxStyle.Information, Text)
+
+                    End If
+                End If
+            Next
+        Catch ex As Exception
+            Logger.Error(ex)
+        Finally
+
+
+        End Try
+        SplashScreenManager.CloseOverlayForm(oHandle)
 
 
     End Sub