.NET complemento de Outlook: unir un elemento de correo electrónico enviado a una entrada de diario

Question

Así que estoy desarrollando una perspectiva complemento que básicamente recoge algo de información del usuario en el formulario, a continuación, envía un correo electrónico con el formato adecuado a la persona adecuada. Lo que quiero hacer a continuación, se crea una entrada de diario señalando que el correo electrónico fue enviado, y adjuntar el correo electrónico en referencia.

Para lograr esto manualmente, que puede ir a la carpeta "Elementos enviados", y simplemente arrastrar el correo electrónico de elección hacia abajo sobre el icono de diario en el menú inferior izquierda, y esto logra lo que yo estoy tratando de hacer mediante programación.

Este es el código que estoy usando una vez que se envía el correo:

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

Su quedarse atascado en Attachments.Add y mi mensaje de error es "un objeto no se pudo encontrar". Supongo que significa 'enviado' no es bueno. Sin embargo, yo uso a título sent.Subject la entrada del diario, y no me sale un error allí. ¿Alguna idea?

Su ayuda es muy apreciada!

Answer 1

Creo que su error es causado por Outlook.OlAttachmentType.olByReference. Por desgracia no pude encontrar, en Google, ninguna conexión directa con respecto OlAttachmentType y "un objeto no se pudo encontrar." - así que o bien hacer la excavación de sí mismo o que proporcione más información