Vba 将文件名添加到电子邮件主题行，并将电子邮件发送到最后修改人/作者

我有一个Word文档，其中我在文档上放置了一个CommandButton，以便用户可以发送带有消息的Outlook电子邮件，但我希望电子邮件的主题是打开的活动Word文档的名称，因此主题根据活动文档的名称和发送给该活动文档作者的电子邮件的名称而变化

要识别上次修改的作者/作者姓名，请根据该姓名将其转换为firstname。secondname@xyz.ro? 作者将向其上级发送电子邮件，此人将通过该命令按钮查看文档Wd

应该是

如果文档尚未命名，此属性将返回文档的临时名称

编辑

根据下面的评论

范例

此属性返回内置文档属性的整个集合使用：

.Subject = ActiveDocument.Name

---

错误的仅引用运行代码的文档，例如Word模板，而不是活动文档。如果op有多个活动文档，该怎么办？这是最好的选择。即使有多个文档，userform也可能位于模板中，并且意图/期望使用活动文档。事实上，正如OP明确指出的那样：我希望电子邮件的主题是打开的活动Word文档的名称。您能帮助我修改代码行吗。收件人：为了向该活动文档的作者发送电子邮件，请确定上次修改的作者/作者名称，并根据该名称将其转换为firstname。secondname@xyz.ro? 作者将向其上级发送电子邮件，此人将通过该命令按钮查看文档Wd。非常感谢您的支持！对只需稍加调整，效果就非常好！非常感谢你帮助我！！您的输入和反馈非常好！您正在尝试获取commandButton上的文档名称吗？嗨，0m3r，请帮我完成最后一个请求好吗？现在，我转换的.pdf格式的文档保存到桌面上，最后一件事是附加到电子邮件正文，但保留HTML签名。我看到这行代码.Attachments.Add PdfFile.FullName，但是.pdf仍然没有附加。非常感谢你！

.Subject = ThisDocument.Name

Option Explicit
Public Sub Example()
    Dim LastAuthor As String
        LastAuthor = ActiveDocument.BuiltInDocumentProperties("last Author")

        Debug.Print LastAuthor ' Print on Immediat Window, Crtl-G

        Dim Email As String
            Email = Replace(LastAuthor, " ", ".") & "@email.com"

        Debug.Print Email ' Print on Immediat Window, Crtl-G

End Sub

.Subject = ActiveDocument.Name