如何在VBA for Outlook中更改日期格式

Question

我将构建一个VBA宏，用于在Outlook中发送电子邮件。

Sub Today Email()
Dim msg As Outlook.MailItem
Set msg =Application.CreateItem(olMailItem)
msg.To = ""
msg.Subject = Date & " Bla Bla Bla"
msg.Body = "Good morning!,<p>Today is & Date:</p>"
msg.Display
'msg.Attachments.Add ("")
Set msg = Nothing
End Sub

日期显示为2022年3月15日。如果我需要2022年3月15日，我该怎么办？

类似于格式(日期(＝"；dd-mmm-yyyy"？

Answer 1

若要确保日期的格式符合Microsoft Outlook的预期，请使用Format函数。例如：

msg.Subject = Format("1/15/22 3:30pm", "ddddd h:nn AMPM") & " Bla Bla Bla"

Format函数返回一个Variant(String(，其中包含根据格式化表达式中包含的指令进行格式化的表达式。