Microsoft Outlook interop throws COMException (0x84130003)

Je ne peux pas sembler trouver quelque chose sur ce que ce code d'exception indique sur Google ou MSDN, et il se produit par intermittence et sans motif que je peux discerner. Est-ce que quelqu'un a traversé cela auparavant? L'échec semble se produire sur la dernière ligne ici:Microsoft Outlook interop throws COMException (0x84130003)

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

Toute aide serait appréciée.

Source

2010-03-18 Todd Allen

On dirait que vous n'avez pas créé votre objet olApp.

Set olApp = CreateObject("Outlook.Application")

Ce lien devrait vous aider: http://support.microsoft.com/kb/220595

Source

2010-03-18 20:35:12 Crispy

Merci, mais je ne suis pas sûr que ce soit elle. J'utilisais "Nouveau" pour déclarer l'application Outlook, et cela semble bien le faire dans la plupart des cas. Je vais essayer de le changer à cette syntaxe et voir si l'erreur se produit encore. –

Pas de chance, malheureusement. Merci pour l'idée cependant. –

Microsoft Outlook interop throws COMException (0x84130003)

Répondre

Questions connexes