Question

所以我正在开发一个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标题日记条目，我没有在那里得到错误。有什么想法吗？

你的帮助非常宝贵！

Answer 1

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

.NET Outlook加载项：将已发送的电子邮件项附加到日记条目

1 个答案: