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

EnvelopeGenerator.Common/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.9.4.0")>
+<Assembly: AssemblyVersion("1.9.5.0")>
-<Assembly: AssemblyFileVersion("1.9.4.0")>
+<Assembly: AssemblyFileVersion("1.9.5.0")>

EnvelopeGenerator.Common/Services/ActionService.vb

@@ -45,7 +45,7 @@ Public Class ActionService
         Return oSendResult
     End Function
     Public Function ResendReceiver(pEnvelope As Envelope, pReceiver As EnvelopeReceiver) As Boolean
-        EmailService.SendDocumentReceivedEmail(pEnvelope, pReceiver)
+        Return EmailService.SendDocumentReceivedEmail(pEnvelope, pReceiver)
     End Function
 
 

EnvelopeGenerator.Common/Strings/Envelope.en.resx

@@ -168,6 +168,9 @@
   <data name="Envelope-Editor" xml:space="preserve">
     <value>Envelope-Editor</value>
   </data>
+  <data name="Error email Validation" xml:space="preserve">
+    <value>This email could not be validated!</value>
+  </data>
   <data name="Error sending the envelope" xml:space="preserve">
     <value>Error sending the envelope:</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope.resx

@@ -168,6 +168,9 @@
   <data name="Envelope-Editor" xml:space="preserve">
     <value>Umschlag-Editor</value>
   </data>
+  <data name="Error email Validation" xml:space="preserve">
+    <value>Die Email-Adresse konnte nicht validiert werden!</value>
+  </data>
   <data name="Error sending the envelope" xml:space="preserve">
     <value>Fehler beim Senden des Umschlags:</value>
   </data>

EnvelopeGenerator.Common/Strings/Envelope1.Designer.vb

@@ -217,6 +217,15 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Die Email-Adresse konnte nicht validiert werden! ähnelt.
+        '''</summary>
+        Public Shared ReadOnly Property Error_email_Validation() As String
+            Get
+                Return ResourceManager.GetString("Error email Validation", resourceCulture)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Zeichenfolge, die Fehler beim Senden des Umschlags: ähnelt.
         '''</summary>

EnvelopeGenerator.Form/frmEnvelopeEditor.resx

@@ -1091,6 +1091,12 @@
   <data name="&gt;&gt;BarButtonItem3.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
+  <data name="&gt;&gt;BarButtonItem4.Name" xml:space="preserve">
+    <value>BarButtonItem4</value>
+  </data>
+  <data name="&gt;&gt;BarButtonItem4.Type" xml:space="preserve">
+    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
+  </data>
   <data name="&gt;&gt;RibbonPage1.Name" xml:space="preserve">
     <value>RibbonPage1</value>
   </data>
@@ -1289,12 +1295,6 @@
   <data name="&gt;&gt;txtEnvelopeIdLabel.Type" xml:space="preserve">
     <value>DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
   </data>
-  <data name="&gt;&gt;BarButtonItem4.Name" xml:space="preserve">
-    <value>BarButtonItem4</value>
-  </data>
-  <data name="&gt;&gt;BarButtonItem4.Type" xml:space="preserve">
-    <value>DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
-  </data>
   <data name="&gt;&gt;$this.Name" xml:space="preserve">
     <value>frmEnvelopeEditor</value>
   </data>

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

EnvelopeGenerator.Form/frmMain.vb

@@ -566,6 +566,7 @@ Public Class frmMain
             If oReceiver.Email = selReceiver.Email Then
                 If oController.ActionService.ResendReceiver(oEnvelope, oReceiver) = True Then
                     MsgBox(Resources.Envelope.Invitation_successfully_resend, MsgBoxStyle.Information, Text)
+
                 End If
             End If
         Next