VBA convert date to text

[Shadkng]

Hi, in the below snippet of code I need help in revising the code so range ("G15"), which is a date can be changed to text. Currently when we enter the date in that field we do so as 052324 and it changes to appear as 5/23/24. But when the date moves to the outlook email it shows as 52324. I want it to appear as 5/23/24 if possible. Thanks for the help.

With oMail
        .SentOnBehalfOfName = "sales@rfbcorp.com"
        .To = Worksheets("DETAIL FORM").Range("G3")
        .cc = ""
        .HTMLBody = "See attached order confirmation. Your order will be released for production. Please notify us immediately if any changes are needed." & "<br/>" & "<br/>" _
                   & "Estimated ship date: " & Sheets("FINALORDER").Range("G15") & "<br/>" & "<br/>" _
                   & "Thank You" & "<br/>" & "<br/>" _

 

[Akuini]

Another option:
In your code in post #1, try using .Text property:

With oMail
        .SentOnBehalfOfName = "sales@rfbcorp.com"
        .To = Worksheets("DETAIL FORM").Range("G3")
        .cc = ""
        .HTMLBody = "See attached order confirmation. Your order will be released for production. Please notify us immediately if any changes are needed." & "<br/>" & "<br/>" _
                   & "Estimated ship date: " & Sheets("FINALORDER").Range("G15").Text & "<br/>" & "<br/>" _
                   & "Thank You" & "<br/>" & "<br/>" _

 

[MARK858]

Another option might be

Dim Holder As String
Holder = Format(Sheets("FINALORDER").Range("G15"), "0\/00\/00")

With oMail
        .SentOnBehalfOfName = "sales@rfbcorp.com"
        .To = Worksheets("DETAIL FORM").Range("G3")
        .cc = ""
        .HTMLBody = "See attached order confirmation. Your order will be released for production. Please notify us immediately if any changes are needed." & "<br/>" & "<br/>" _
                   & "Estimated ship date: " & Holder & "<br/>" & "<br/>" _
                   & "Thank You" & "<br/>" & "<br/>" _