Итак, я разрабатываю надстройку для 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 для заголовка записи журнала, и я не получаю ошибку там.Есть мысли?
Ваша помощь очень ценится!