EmailService: Sort by GUID

This commit is contained in:
Jonathan Jenne
2022-11-14 08:29:43 +01:00
parent a47d6d683e
commit 9c9d7d5ff5

View File

@@ -335,12 +335,11 @@ Public Class EmailService
Dim oAccountQueue As DataRow() Dim oAccountQueue As DataRow()
' TODO: Sort by guid
Select Case Database Select Case Database
Case DatabaseType.Firebird Case DatabaseType.Firebird
oAccountQueue = oEmailQueue.Select($"EMAIL_ACCOUNT_ID = {oAccount.Guid}") oAccountQueue = oEmailQueue.Select($"EMAIL_ACCOUNT_ID = {oAccount.Guid}", "GUID ASC")
Case Else Case Else
oAccountQueue = oEmailQueue.Select($"SENDING_PROFILE = {oAccount.Guid}") oAccountQueue = oEmailQueue.Select($"SENDING_PROFILE = {oAccount.Guid}", "GUID ASC")
End Select End Select
' No mails for this profile ' No mails for this profile