MS Project 宏用于发送具有固定收件人、主题和正文的当前 .mpp答案

【问题标题】：MS Project macro to send current .mpp with fixed recipients, subject and bodyMS Project 宏用于发送具有固定收件人、主题和正文的当前 .mpp
【发布时间】：2021-01-11 15:42:57
【问题描述】：

我正在寻找一个宏来将存储它的 .mpp 发送给固定的收件人、主题和正文

如果我录制一个宏，我必须一遍又一遍地包含收件人、主题和正文，所以它不起作用

我写了一些代码，但我无法附加当前的 .mpp .有人可以帮忙吗？

Sub CreateMail()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
        .To = "aa@email.com"
        '.CC = "bb@email.com"
        .Subject = "Hi there"
        .Body = "Test"
        
OutMail.Display

End With

End Sub`

【问题讨论】：

标签： vba email outlook attachment ms-project

【解决方案1】：

如果当前项目已经保存则

Sub CreateMail()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
    .Attachments.Add (ActiveProject.FullName)
    .Display
End With

End Sub

【讨论】：

太棒了！！我添加了 to、cc 并受制于您的代码，它运行完美！如果可以，还有一个问题，我如何将文件名添加到电子邮件主题？我还需要添加单词“update”。Subject =“FILE NAME HERE”&“update”
.Subject = ActiveProject.Name & "update" docs.microsoft.com/en-us/office/vba/api/project.project.name