error 429 Cannot create Outlook object

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.GetOutlook()
        Me.SendMessage()

    End Sub
    ' Declare module level variables
    Dim mOutlookApp As Microsoft.Office.Interop.Outlook.Application
    Dim mNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
    Dim mFolder As Microsoft.Office.Interop.Outlook.MAPIFolder
    Dim mItem As Microsoft.Office.Interop.Outlook.MailItem
    Dim fSuccess As Boolean

    ' Module contains only 2 methods:  
    '    1) GetOutlook() 
    '    2) SendMessage() 
    ''
    Public Function GetOutlook() As Boolean
        ' The GetOutlook() function sets the Outlook Application 
        ' and Namespase objects and opens MS Outlook
        On Error Resume Next

        ' Assume success
        fSuccess = True

        mOutlookApp = GetObject("", "Outlook.aplication")

        ' If Outlook is NOT Open, then there will be an error. 
        ' Attempt to open Outlook

        If Err.Number > 0 Then
            Err.Clear()
            mOutlookApp = CreateObject("Outlook.aplication")

            If Err.Number > 0 Then
                MsgBox(Err.Number)
                MsgBox("Could not create Outlook object", vbCritical)
                fSuccess = False
                Exit Function
            End If
        End If

        ' If we've made it this far, we have an Outlook App Object 
        ' Now, set the NameSpace object to MAPI Namespace
        mNameSpace = mOutlookApp.GetNamespace("MAPI")

        If Err.Number > 0 Then
            MsgBox("Could not create NameSpace object", vbCritical)
            fSuccess = False
            Exit Function
        End If

        ' Return the Success Flag as the value of GetOutlook()
        GetOutlook = fSuccess

Select allOpen in new window