Thread: Outlook 2003. use of Withevents gives error 430
View Single Post
  #1  
Old May 16th 06, 01:10 PM posted to microsoft.public.outlook.program_vba
Jan Lefere
external usenet poster
  
Posts: 1
Default Outlook 2003. use of Withevents gives error 430
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 ?

--
J.Lefere
Ads