Vba 从Outlook邮件项目获取发件人、收件人、主题和日期

我需要帮助，以添加日期，从，到和Suject来构建一个pdf文件名

'Construct a safe file name from the message subject
Dim msgFileName As String
msgFileName = MySelectedItem.Subject

Set oRegEx = CreateObject("vbscript.regexp")
oRegEx.Global = True
oRegEx.Pattern = "[\/:*?""<>|]"
msgFileName = Trim(oRegEx.Replace(msgFileName, ""))

“从消息主题构造一个安全的文件名
将msgFileName设置为字符串
msgFileName=MySelectedItem.Subject
设置oRegEx=CreateObject（“vbscript.regexp”）
oRegEx.Global=True
oRegEx.Pattern=“[\/：*？”“|]”
msgFileName=Trim（oRegEx.Replace（msgFileName，“”）

我有这个代码，但它只保存在文件名中的主题。我尝试这样构造，但不起作用：

---

msgFileName=MySelectedItem.Subject.From.To

这应该足以连接四个部分：

msgFileName = mySelectedItem.SentOn & mySelectedItem.Subject & mySelectedItem.SentOnBehalfOfName & mySelectedItem.To

要将行拆分为多行，使代码更具可读性，请使用

-

进行拆分：

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

---

非常感谢。但它有一个错误：对象不支持此属性或方法。@Paulofereira-您是如何在代码的这一行中声明

mySelectedItem

的-

msgFileName=mySelectedItem.Subject

？太棒了！它起作用了！非常感谢。还有一个问题：如何用（-）字符分隔这些值？@PauloFerreira-不客气。我编辑了第二个代码，添加了

-

@paulofereira-true，有两个

&

，彼此相邻。