MS Common v1.5.9 email Valdiation, email Resending, Clientintegration

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -543,18 +543,36 @@ Partial Public Class frmEnvelopeEditor
                 Dim oNameCellValue = ViewReceivers.GetRowCellValue(e.RowHandle, COL_NAME)
                 If oNameCellValue Is Nothing Then
                     Dim oEmailAdress As String = DirectCast(e.Value.ToString.ToLower, String)
+                    oEmailAdress = Trim(oEmailAdress)
+                    If IsValidEmailAddress(oEmailAdress) = True Then
+                        Dim oLastName As String = Controller.GetLastNameByEmailAdress(oEmailAdress)
+                        Dim oAccessCode As String = Helpers.GetAccessCode()
+                        ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns.Item(COL_EMAIL), oEmailAdress)
+                        ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns.Item(COL_NAME), oLastName)
+                        ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns.Item(COL_CODE), oAccessCode)
+                        CellValueChanged = False
+                    Else
+                        MsgBox(Resources.Envelope.Error_email_Validation, MsgBoxStyle.Exclamation, Text)
+                        ViewReceivers.SetFocusedValue("")
+                    End If
 
-                    Dim oLastName As String = Controller.GetLastNameByEmailAdress(oEmailAdress)
-                    Dim oAccessCode As String = Helpers.GetAccessCode()
-                    ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns.Item(COL_EMAIL), oEmailAdress)
-                    ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns.Item(COL_NAME), oLastName)
-                    ViewReceivers.SetRowCellValue(e.RowHandle, ViewReceivers.Columns.Item(COL_CODE), oAccessCode)
-                    CellValueChanged = False
                 End If
             End If
         End If
     End Sub
-
+    Private Function IsValidEmailAddress(pEmailAddress As String) As Boolean
+        Try
+            If pEmailAddress.Contains("@") Then
+                Dim oAddress = New System.Net.Mail.MailAddress(pEmailAddress)
+                Return oAddress.Address = pEmailAddress
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
     Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
 
     End Sub