Outllok açıkken hata vermemesi için alttaki kod ilave edildi.
Dosyayı deneyin abey.

Function outlookAcikmi() As Boolean

    Dim objOutlook As Object

    outlookAcikmi = False

    On Error Resume Next

    Set objOutlook = GetObject(, "Outlook.Application")

    If Not objOutlook Is Nothing Then

        outlookAcikmi = True

    End If

    On Error GoTo 0

    Set objOutlook = Nothing

End Function