Sort multiple cell value from oldest to newest by month & day

[Attrazion]

Hi everyone. I just want to ask for some help regarding my problem. [I put every comments that need attention.]

Sub SendReminderEmail()


Dim OutApp As Object, OutMail As Object

Dim Reminder1 As String
Dim Reminder2 As String
Dim Reminder3 As String
Dim Reminder4 As String
Dim Reminder5 As String


'Here is the sample data but in reality this is fetching a data from my confidential excel file and the cell value has a multiple entered data like the data on Reminder1
'I also want to organize it using the first 5 characters like "mm/dd".

Reminder1= "04/07 - To attend meetings" & "04/02 - To attend meetings" & "04/01 - To attend meetings"
Reminder2= "04/06 - To attend church"
Reminder3= "04/03 - To attend family gatherings"
Reminder4= "04/02 - To attend friend gatherings"
Reminder5= "04/13 - To attend sports I like"


'Dim OutApp As New Outlook.Application
'Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strBodyTable = Reminder1 & "<br>" & Reminder2 & "<br>" & Reminder3 & "<br>" & Reminder4 & "<br>" & Reminder5


With OutMail
.To = "Test To"
.Subject = "Test Subject" & " " & TodayDate
.CC = "Test CC"
.Display 


.HTMLBody = Replace(strBodyTable, Chr(10), "<br>", , , vbTextCompare) & .HTMLBody


End With

Set OutApp = Nothing
Set OutMail = Nothing

End Sub

The output should be like this when I run the macro.

 

[Attrazion]

Hi @Anthony47. Thank you so much. I already solved my problem with these.

strBodyTable = Reminder1 & "<br>" & Reminder2 & "<br>" & Reminder3 & "<br>" & Reminder4 & "<br>" & Reminder5      '*** SEE TEXT
'NEW BLOCK>>:
strBodyTable = Replace(strBodyTable, Chr(10), "<br>", , , vbTextCompare)
Dim nArr
nArr = Split(strBodyTable, "<br>", , vbTextCompare)
nArr = Application.WorksheetFunction.Sort(nArr, , , True)
strBodyTable = Application.WorksheetFunction.TextJoin("<br>", True, nArr)
'<< END OF NEW BLOCK
With OutMail
'etc
'etc

 

[Anthony47]

Just in time! (I was writing to ask for some investigation)

Thank you so much. I already solved my problem with these.

And which is the difference with the code I suggested?

 

[Attrazion]

Just in time! (I was writing to ask for some investigation)



And which is the difference with the code I suggested?

It helped me a lot, it also remove the excess blank if the value is blank. There's a lot of difference but I think I just put your code on the right part of the code and boom it works properly. Thank you so much!!