Excel VBA中CreateObject报错：同一时间仅能运行一个Outlook版本

一段正常运行一年的Excel VBA代码近10天失效，执行Set OutlookApp = CreateObject("Outlook.Application")创建Outlook对象时，报错：CreateObject error: "Only one version of Outlook can run at a time."。已尝试以管理员身份运行Outlook，也改用另一种创建邮件的写法，但问题依旧。

尝试的代码 #

第一段代码 #

Dim OutlookApp As Object
Dim OutlookMail As Object

Set OutlookApp = CreateObject("Outlook.Application")

Set OutlookMail = OutlookApp.CreateItem(0)

With OutlookMail
    .To = "mail@mail.com"
    .Subject = "Subject"
    .HTMLBody = "Body"
    .Display
End With

第二段代码 #

Dim OutlookApp As Object
Dim OutlookMail As Object

On Error Resume Next
   Set OutlookApp = GetObject(, "Outlook.Application")
On Error GoTo 0

If OutlookApp Is Nothing Then
    Set OutlookApp = CreateObject("Outlook.Application")
End If

Set OutlookMail = OutlookApp.CreateItem(0) ' 0 represents olMailItem

内容的提问来源于stack exchange，提问作者tryExcept