Взаимодействие с Microsoft Outlook создает исключение COMException (0x84130003) - PullRequest
Новая
       13

Взаимодействие с Microsoft Outlook создает исключение COMException (0x84130003)

1 голос
/ 18 марта 2010

Кажется, я не могу найти информацию о том, что этот код исключения указывает на Google или MSDN, и это происходит с перерывами, и я не могу различить шаблон. Кто-нибудь сталкивался с этим раньше? Кажется, что сбой произошел в последней строке здесь: 

Dim olApp As New Outlook.Application
Dim olNS As Outlook.NameSpace = olApp.GetNamespace("MAPI")
Dim olMail As Outlook.MailItem = olApp.CreateItem(Outlook.OlItemType.olMailItem)

Любая помощь будет оценена.

1 Ответ

0 голосов
/ 18 марта 2010

Похоже, вы не создали свой объект olApp. 

Set olApp = CreateObject("Outlook.Application")

Эта ссылка должна помочь вам: http://support.microsoft.com/kb/220595

...