向计划电子邮件 vba 脚本添加附件选项

Question

我正在学习 VBA，但目前我还不太擅长，我发现了这个宏：

Outlook 中有计划和重复的电子邮件吗？

它根据日历中设置的预约发送电子邮件。

有人可以帮我完成它，以便也可以选择发送附件吗？

[编辑] 这是我修改的脚本，但它仍然不起作用。您能给我一个提示吗？

    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"

我尝试了你所做的更改后的代码，结果运行良好。