VBScript 错误类型不匹配代码 800A000D

Question

我复制了一个脚本来创建 Outlook 的签名并根据我的需要对其进行了调整，令人惊讶的是效果很好，除非有一点。当我尝试从 Active Directory 中插入移动 Phone 号码时，格式为 +49 173 ####### 我收到以下错误：

这是我使用的代码：

strMobile = objUser.Mobile

if (strMobile) Then objSelection.TypeText "Mobil: " & strMobile

当我删除移动phone号码中的2个空白时它确实有效，当我删除objSelection ...前面的“if then”查询时它确实有效，我不明白完全没有，但在我的情况下都不是一个选项。
“if then”查询是因为不是每个人都有移动 phone 号码条目，没有空格看起来很糟糕。我确定一定有解决方案，但到目前为止我找不到它。

Answer 1

我相信你的问题是if (strMobile) Then。假设您正在测试 non-empty 字符串，它可能需要重述为 If Trim(strMobile) <> ""。发生类型错误是因为 strMobile 不能在 VBScript 中计算为布尔值，因为它是一个字符串。