Добавление опции вложения в запланированный почтовый скрипт vba

Question

Я изучаю VBA, но пока я не так хорош, и нашел этот макрос:

Запланированная и повторяющаяся электронная почта в Outlook?

Он отправляет электронное письмо благодаря назначенной встрече в календаре.

Может, кто-нибудь может помочь мне завершить его, чтобы можно было также отправить сообщение?

[EDIT] Это скрипт, который я изменил, но он все еще не работает.Не могли бы вы просто дать мне указание?

    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem
      Dim myAttachments As Outlook.Attachments
      Set objMsg = Application.CreateItem(olMailItem)
      Set myAttachments = objMsg.Attachments
    If Item.MessageClass <> "IPM.Appointment" Then
      Exit Sub
    End If

    If Item.Categories <> "Blue Category" Then
      Exit Sub
    End If

      objMsg.To = Item.Location
      objMsg.Subject = Item.Subject
      objMsg.Body = Item.Body
      myAttachments.Add "C:\Test.txt", _
      objMsg.Send

      Set objMsg = Nothing
    End Sub

Я думаю, что проблема заключается в том, что вложение определяется как нечто связанное с Outlook, тогда как MailItem не было. Макрос хорошо работал до вставки нескольких строк о вложении, теперь он даже не отправляет письмо.

Answer 1

Вы были так близко! Все, что вам нужно сделать, это удалить конечное подчеркивание и запятую с конца строки

myAttachments.Add "C:\Test.txt", _

Должно быть просто

myAttachments.Add "C:\Test.txt"

Я попробовал ваш код с этим изменением, и он работал просто отлично.