使用mailItem.Attachments.Add的索引越界

Question

我们已经创建了一个outlook插件，这样用户就可以在Outlook中按下一个按钮，并自动添加一个pdf文件作为附件，以节省他们必须尝试在系统上查找它的时间

尝试了使用mailItem.Attachments.Add的不同方法，但似乎都有相同的问题

Private Sub OfficeAccount_Click(sender As Object, e As RibbonControlEventArgs) Handles OfficeAccount.Click

    Dim theAttachment = "http://webapps/Intranet/Home/Office/Documents/Template.pdf"

    Dim item = TryCast(Me.Context, Outlook.Inspector)
    Dim mailItem = TryCast(item.CurrentItem, Outlook.MailItem)

    mailItem.Attachments.Add(theAttachment, , , "Template")

    Marshal.ReleaseComObject(mailItem)

End Sub

它通常会添加附件，但有时会停止添加附件，并显示索引越界。

然后，它还会停止允许正常添加附件，并具有相同的错误消息

Answer 1

附件的源可以是文件(由表示，完整的文件系统路径，文件名为)，也可以是构成附件的项目。

您需要将文件下载到本地，然后从硬盘附加一个文件。

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments  
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "C:\Test.doc", olByValue, 1, "Test" 
 myItem.Display 
End Sub