declare the object variable myOutlook and then assign to it a reference to an Outlook.Application object:
Sub obj() Dim myOutlook As Object Set myOutlook = CreateObject("Outlook.Application") End Sub