Question

我有一个Word文档，其中在文档上放置了throw "this and this condition was not met"，以便用户可以发送带有消息的Outlook电子邮件，但我希望电子邮件的主题为打开的活动对象的名称。 Word文档，因此根据活动文档的名称和发送给该活动文档Wd的作者的电子邮件，主题是可变的。

要标识“最后修改者/作者”名称并基于该名称将其转换为firstname.secondname@xyz.ro？作者将向他的上级发送一封电子邮件，该人员将通过CommandButton对该文档进行审核。

CommandButton

Answer 1

使用：

.Subject = ActiveDocument.Name

Answer 2

应。

.Subject = ThisDocument.Name

https://docs.microsoft.com/en-us/office/vba/api/visio.document.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

BuiltinDocumentProperties Property

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

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

2 个答案: