Question

所以基本上我有一些代码可以执行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

Answer 1

花了一些时间，但我回答了我自己的问题。使用getobject函数和出错时的goto解决方法

如何测试Outlook是否已设置以及是否绕过

1 个答案: