Microsoft Outlook interop throws COMException (0x84130003)

I can't seem to find a thing on what this exception code indicates on Google or MSDN, and it's occurring intermittently and without a pattern I can discern. Has anyone run across this before? The failure seems to occur on the final line here:

Dim olApp As New Outlook.Application
Dim olNS As Outlook.NameSpace = olApp.GetNamespace("MAPI")
Dim olMail As Outlook.MailItem = olApp.CreateItem(Outlook.O开发者_C百科lItemType.olMailItem)

Any help would be appreciated.

Looks like you haven't created your olApp object.

Set olApp = CreateObject("Outlook.Application")

This link should help you out: http://support.microsoft.com/kb/220595