outlook - 我的任务是找出为什么我们曾经成功的 Outlook 签名脚本现在抛出“无效的外部程序错误”请告知

Question

当我尝试运行此代码时，我收到一条错误消息，指出：invalid outside procedure. 我的格式有问题吗？是不是太过时了？我不知道该怎么做。

On Error Resume Next
Const RTF = "6"
Const Text = "4"
Const HTML = "8"

'Declare:
Dim qQuery, objSysInfo, objuser
Dim FullName, PhoneNumber, MobileNumber, FaxNumber, Department
Dim web_address, FolderLocation, HTMFileString, StreetAddress
Dim County, Company, Country
Dim UserDataPath, mail
Dim cert, vet

'Check AD:
Set objSysInfo = CreateObject("ADSystemInfo")
objSysInfo.RefreshSchemaCache
qQuery = "LDAP://" & objSysInfo.Username
Set objuser = GetObject(qQuery)

'Retrieve:
SPACE = ""
cert = 0
vet = 0