Access - [Ayuda] Outlook.Application no funciona

Sub probando_referencia_bis()

   Dim outlookApp As Object

   Set outlookApp = CreateObject(“Outlook.Application”) 'El error me sombrea la parte que dice "Outlook.Application"

   MsgBox outlookApp.Name 'No dar importancia a este MsgBox

End Sub

Sub probando_referencia()

Dim outlookApp As Outlook.Application 'El error me sombre la declaracion de la variable como aplicacion de Outlook

 Set outlookApp = New Outlook.Application

 MsgBox outlookApp.Name

End Sub

Private Sub Comando56_Click() 'Al hacer clic en el boton guardar

        'Declaramos las variables que constituirán la base de la instancia de Outlook

    Dim Olk As Outlook.Application

    Dim OlkCita As Outlook.AppointmentItem

        'Creamos la instancia de Outlook

DoCmd.SetWarnings False

    If IsNull(Me.xId) Or IsNull(Me.Cuadro_combinado69) Or IsNull(Me.Texto74) Or Me.xNotas = "" Then

        MsgBox "Por favor rellene todos los campos", vbCritical, "Campos Incompletos"

    Else

''''''''''''''GUARDAR CITA EN OUTLOOK'''''''''''''''''

    'Creamos un control de errores, por si las moscas

On Error GoTo sol_err

        'Es necesario asegurarse de que el registro está guardado. Por ello lo guardamos

    DoCmd.RunCommand acCmdSaveRecord

    Set Olk = CreateObject("outlook.application")

    Set OlkCita = Olk.CreateItem("olAppointmentItem")

        'Vamos añadiendo los elementos de la cita

    With OlkCita

        .Start = Me.xfecha_inicio.Value & " " & "8:00:00 a.m."

        .Finish = Me.Texto74.Value & " " & "4:15:00 p.m."

        .Subject = "Estudios - " & Me.Cuadro_combinado69.Value

        .Body = Me.xNotas.Value

        .Location = "Instalaciones."

        .ReminderMinutesBeforeStart = 60 * 24 * 7

        .ReminderSet = True

        'Guardamos la cita

        .Save

    End With

        'Lanzamos un mensaje de que todo ha ido bien

    MsgBox "El evento se ha guardado correctamente en el calendario de su Outlook", vbInformation, "OK"

        'Eliminamos la instancia de Outlook

    Set Olk = Nothing

Salida:

    DoCmd.Save

    DoCmd.GoToRecord , , acNewRec

    Exit Sub

sol_err:

    MsgBox "Se ha producido el error " & Err.Number & " - " & Err.Description

    Resume Salida

    End If

End Sub