WIP Email Validation

App/EmailProfiler.Form/frmMain.vb

@@ -7,6 +7,7 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Messaging
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Messaging.Mail
+Imports DigitalData.GUIs.Common
 
 Public Class frmMain
     Private Logger As Logger
@@ -931,4 +932,19 @@ Public Class frmMain
     Private Sub GridView6_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridView6.FocusedRowChanged
         SetEmailTextboxLabels()
     End Sub
+
+    Private Sub btnValidationSQL_Click(sender As Object, e As EventArgs) Handles btnValidationSQL.Click
+        Dim oForm As New frmSQLEditor(LogConfig, _database) With {
+            .SQLConnection = 1,
+            .SQLCommand = txtSQLValidation.EditValue,
+            .PlaceholdersManual = New Dictionary(Of String, String) From {
+                {"EMAIL", "EMAIL"},
+                {"DOMAIN", "DOMAIN"}
+            },
+            .PlaceholdersManualPrefix = "CUST"
+        }
+        oForm.Show()
+
+        txtSQLValidation.EditValue = oForm.SQLCommand
+    End Sub
 End Class