EmailService: 1.5.1.0

EmailService: Sort by GUID
2022-11-14 08:30:34 +01:00 · 2022-11-14 08:29:43 +01:00
2 changed files with 5 additions and 6 deletions
--- a/Services.EmailService/EmailService.vb
+++ b/Services.EmailService/EmailService.vb
@@ -335,12 +335,11 @@ Public Class EmailService

                    Dim oAccountQueue As DataRow()

-                    ' TODO: Sort by guid
                    Select Case Database
                        Case DatabaseType.Firebird
-                            oAccountQueue = oEmailQueue.Select($"EMAIL_ACCOUNT_ID = {oAccount.Guid}")
+                            oAccountQueue = oEmailQueue.Select($"EMAIL_ACCOUNT_ID = {oAccount.Guid}", "GUID ASC")
                        Case Else
-                            oAccountQueue = oEmailQueue.Select($"SENDING_PROFILE = {oAccount.Guid}")
+                            oAccountQueue = oEmailQueue.Select($"SENDING_PROFILE = {oAccount.Guid}", "GUID ASC")
                    End Select

                    ' No mails for this profile
--- a/Services.EmailService/My
+++ b/Services.EmailService/My
@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("DDEmailService")>
 <Assembly: AssemblyCopyright("Copyright © 2022")>
-<Assembly: AssemblyTrademark("")>
+<Assembly: AssemblyTrademark("1.5.1.0")>

 <Assembly: ComVisible(False)>

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>

-<Assembly: AssemblyVersion("1.5.0.0")>
-<Assembly: AssemblyFileVersion("1.5.0.0")>
+<Assembly: AssemblyVersion("1.5.1.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>
Author	SHA1	Message	Date
Jonathan Jenne	30e0d55600	EmailService: 1.5.1.0	2022-11-14 08:30:34 +01:00
Jonathan Jenne	9c9d7d5ff5	EmailService: Sort by GUID	2022-11-14 08:29:43 +01:00