Outlook VisualBasic Script

Sub obj()
    Dim myOutlook As Object
    Set myOutlook = CreateObject("Outlook.Application")
End Sub