Excel 如何测试outlook是否已设置，如果未设置，如何绕过

所以基本上我有一些代码可以执行outlook电子邮件。不过，对于我们的一些机器来说，虽然安装了outlook，但不允许它们进行设置。所以我有一个变通功能，它是我的错误处理功能

当这段代码运行时，它开始打开outlook，但我需要它在这里测试它是否已设置，如果是-使用它-如果不是，则绕过并执行“转到解决方案”。下面是一段代码

'NO OUTLOOK APP WORK AROUND
On Error GoTo WORKAROUND

'---> this is where i would need to test if outlook is set up and if not 
reference the GoTo function.

'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
    .Display
    .To = ""
    .CC = ""
    .Subject = "QUOTE FOR -" + xSht.Name + xStr
    .Attachments.Add xFolder
    If DisplayEmail = False Then
        '.Send
    End If
End With

---

这需要一些挖掘，但我回答了我自己的问题。使用getobjectfunction并在出现错误时转到解决方法

为什么您会问类似的问题，却再也不回头