VPF::AddIn Outlook - "Сбой операции. Объект не найден"

CybermanRU

Дата 11.7.2015, 22:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.7.2015

Репутация: нет
Всего: нет

При выполнении "Автоотправки" (MailItem.Send()), Outlook выдаёт сообщение об ошибке "Сбой операции. Объект не найден" при этом письмо всё-таки отправляется. Хотелось бы решить этот вопрос, помогите пожалуйста советом.

Код


Public Class ThisAddIn
 
    Private WithEvents inspectors As Outlook.Inspectors
 
    Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        inspectors = Me.Application.Inspectors
    End Sub
 
    Private Sub inspectors_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles inspectors.NewInspector
 
        Dim AppDir As String = "C:\AutoEmail"
        Dim Settings() As String = IO.File.ReadAllLines(AppDir + "\config\settings.cfg")
 
        If (Settings(0) = True) Then
 
            Dim Attach() As String = IO.File.ReadAllLines(AppDir + "\config\attach.cfg")
            Dim mailItem As Outlook.MailItem = TryCast(Inspector.CurrentItem, Outlook.MailItem)
            Dim BodyFile As String = IO.File.ReadAllText(AppDir + "\config\Body.cfg")
 
 
            If Not (mailItem Is Nothing) Then
                If mailItem.EntryID Is Nothing Then
 
                    mailItem.Subject = Settings(2)
 
                    If (Settings(3) <> "None") Then
                        Dim EmdedImage As Outlook.Attachment = mailItem.Attachments.Add(Settings(3))
                        Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001F"
                        EmdedImage.PropertyAccessor.SetProperty(PR_ATTACH_CONTENT_ID, "imageContID")
                        BodyFile = Replace(BodyFile, "::IMAGE::", "<img src='cid:imageContID'>")
                    End If
 
 
                    If (Attach.Length > 0) Then
                        For i = 0 To Attach.Length - 1
                            mailItem.Attachments.Add(Attach(i))
                        Next i
                    End If
 
                    mailItem.HTMLBody = BodyFile
                    mailItem.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
 
                    If (Settings(1) = True) Then
                        mailItem.Send()
                    End If
 
                End If
            End If
        End If
 
    End Sub
 
End Class

CybermanRU

Дата 20.7.2015, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.7.2015

Репутация: нет
Всего: нет

Вопрос всё ещё актуален, спасибо.

diadiavova

Дата 20.7.2015, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5820
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 1
Всего: 142

CybermanRU, твой вопрос скорее относится к программированию под офис, чем сюда. Лучше задай его там. Просто тут требуется именно знание модели автоматизации конкретно аутлука и если тут есть специалисты по этому вопросу, то они обитают скорее там чем здесь. Если хочешь, могу перенести тему туда.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

CybermanRU

Дата 29.7.2015, 07:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.7.2015

Репутация: нет
Всего: нет

diadiavova, да, будет удобно если ты перенесёшь тему, спасибо за совет.

CybermanRU

Дата 1.8.2015, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 11.7.2015

Репутация: нет
Всего: нет

Ben, I need help!!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »