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()
' 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