Outlook 2003. use of Withevents gives error 430

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Option Explicit

Public WithEvents myOlApp As Outlook.Application

Private Sub Class_Initialize()
Set myOlApp = CreateObject("Outlook.Application")
End Sub

Private Sub Class_Terminate()

If Not myOlApp Is Nothing Then Set myOlApp = Nothing

End Sub


Why Class_initialize generates an error 430, Class does not support
automation or does not support expected interface ?
 
Does myOlApp return Nothing or an actual Outlook.Application object. Many antivirus programs block CreateObject("Outlook.Application")

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Back
Top