receiver history

EnvelopeGenerator.Common/Models/ReceiverModel.vb

@@ -159,6 +159,25 @@ Public Class ReceiverModel
         End Try
     End Function
 
+    Public Function ListAllEnvelopeReceiverAddresses(pUserId As Integer) As IEnumerable(Of String)
+        Try
+            Dim oSql = $"SELECT DISTINCT T.EMAIL_ADDRESS FROM TBSIG_RECEIVER T
+                JOIN TBSIG_ENVELOPE_RECEIVER T2 ON T.GUID = T2.RECEIVER_ID
+                JOIN TBSIG_ENVELOPE T3 ON T2.ENVELOPE_ID = T3.GUID
+                WHERE T3.USER_ID = {pUserId}"
+            Dim oTable = Database.GetDatatable(oSql)
+
+            Return oTable?.Rows.Cast(Of DataRow).
+                Select(Function(r) r.Item("EMAIL_ADDRESS")).
+                Cast(Of String).
+                ToList()
+
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return New List(Of String)
+        End Try
+    End Function
+
     Public Function ListReceivers(pReceiversFromGrid As List(Of EnvelopeReceiver)) As IEnumerable(Of EnvelopeReceiver)
         Try
             If pReceiversFromGrid.Count = 0 Then