在Outlook VBA中格式化SentOn,使其仅显示日期,

时间:2019-06-21 08:29:07

标签: vba outlook

我正在尝试从Outlook项目构造文件名。我有一些代码,但是当我保存文件时,它是日期(来自mySelectedItem.SentOn),但是我不需要小时,分钟和秒,例如"19062019 105228-from-to-subject"

Dim msgFileName As String
msgFileName = mySelectedItem.SentOn & "-" & _
              mySelectedItem.SentOnBehalfOfName & "-" & _
              mySelectedItem.To & "-" & _
              mySelectedItem.Subject

我只需要"19062019-from-to-subject"。我怎样才能做到这一点?谢谢。

1 个答案:

答案 0 :(得分:2)

这可以工作

您需要在日期上使用Format函数。 像Format(date, "ddmmyyy")

Dim msgFileName As String
msgFileName = Format(mySelectedItem.SentOn,"ddmmyyyy") & "-" & _
              mySelectedItem.SentOnBehalfOfName & "-" & _
              mySelectedItem.To & "-" & _
              mySelectedItem.Subject