0

所以我正在开发一个 Outlook 插件，它基本上从表单中的用户那里收集一些信息，然后将格式正确的电子邮件发送给正确的人。然后我要做的是做一个日记条目，指出电子邮件已发送，并附上电子邮件作为参考。

要手动完成此操作，我可以转到“已发送邮件”文件夹，然后将选择的电子邮件向下拖动到左下角菜单中的日记图标上，这就完成了我正在尝试以编程方式执行的操作。

这是我在发送邮件后使用的代码：

Private Sub Application_ItemSend(ByVal Item As Object, ByRef Cancel As Boolean) Handles Application.ItemSend
    Cancel = False
    Dim sent As Outlook.MailItem = CType(Item, Outlook.MailItem)
    Dim app As New Outlook.Application

    Dim journal As Outlook.JournalItem = app.CreateItem(Outlook.OlItemType.olJournalItem)
    journal.Subject = sent.Subject & " - " & df.TextBox1.Text
    journal.Type = "E-mail Message"
    journal.Start = Now()
    journal.Duration = 0
    journal.Body = "Request sent to " & df.ComboBox4.SelectedItem.ToString()


    Try
        journal.Attachments.Add(sent, Outlook.OlAttachmentType.olByReference)
        journal.Save()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
    df.Close()
End Sub

它在 Attachments.Add 处挂断，我的错误消息是“找不到对象”。我猜这意味着“发送”不好。但是，我使用 sent.Subject 为日记帐分录命名，并且在那里没有出现错误。有什么想法吗？

您的帮助非常有价值！

4

1 回答 1

0

我相信您的错误是由 Outlook.OlAttachmentType.olByReference 引起的。不幸的是，我在谷歌上找不到任何关于 OlAttachmentType 和“找不到对象”的直接联系 - 所以你要么自己挖掘，要么提供更多信息。

于 2010-02-23T16:49:26.543 回答