From 9c9d7d5ff576fa77425d1f4021ca65b8e2b41cfe Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 14 Nov 2022 08:29:43 +0100 Subject: [PATCH] EmailService: Sort by GUID --- Services.EmailService/EmailService.vb | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Services.EmailService/EmailService.vb b/Services.EmailService/EmailService.vb index bc1f448d..017c6727 100644 --- 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