Я пытался выяснить, как сделать следующее в MS Outlook 2016
- Отправить еженедельно заполненную электронную почту с обновленными датами в теле
- В письме естьобновленный файл .pptx (каталог может быть статическим)
- Outlook может быть открыт для запуска приложения, но желательно не
- Нет никакого взаимодействия с пользователем, кроме обновления .pptx в каталоге
Я играл с приведенным ниже макросом, сейчас он зависит от отклонения уведомления, связанного с уведомлением календаря, для отправки электронного письма (независимо от того, установлено ли для уведомления значение none).
Кто-нибудь делал что-нибудь подобное / предлагал совет?
Private Sub Application_Reminder(ByVal Item As Object)
Dim MItem As MailItem
Set MItem = Application.CreateItem(olMailItem)
If Item.MessageClass <> "IPM.Appointment" Then Exit Sub
If Item.Categories <> "Send_att_recurring_email" Then Exit Sub
MItem.To = "user@gmail.com"
MItem.CC = "otherUser@gmail.com"
MItem.Subject = Item.Subject
MItem.Body = Item.Body
With MItem
.Attachments.Add "<C:\Desktop\Documents\Agenda.docx>"
.Display
End With