Блог

Главная - Вопросы по программированию - Макрос MS Project для отправки текущего файла .mpp с фиксированными получателями, темой и телом

Макрос MS Project для отправки текущего файла .mpp с фиксированными получателями, темой и телом

#vba #email #outlook #attachment #ms-project

#vba #Адрес электронной почты #outlook #вложение #ms-project

Вопрос:

Я ищу макрос для отправки файла .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`

Ответ №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

Комментарии:

1. Отлично!! Я добавил в ваш код to , cc и subject, и он сработал идеально! Еще один вопрос, если можно, как я могу добавить имя файла в тему письма? Мне также нужно было бы добавить слово «обновить» .Subject = «ИМЯ ФАЙЛА ЗДЕСЬ» amp; «обновить»

2. .Тема = ActiveProject . Имя и «обновить» learn.microsoft.com/en-us/office/vba/api/project.project.name