VBscript多条件判断求助：邮件软件联系人字段脚本编写

你的原始代码存在语法错误和逻辑冗余问题，直接修正后的代码如下：

If Contact.Field("company") <> "" Then
    If Contact.Field("category") = "VENUE" Then
        document.write("at " & Contact.Field("company"))
    Else
        document.write("with " & Contact.Field("company"))
    End If
End If

问题说明与优化点： #

• 语法错误修复：原代码所有If语句都缺少对应的End If，且最后一个document.write的括号未闭合，这会直接导致脚本运行报错。
• 逻辑简化：除VENUE外的所有类别都输出with + 公司名，无需逐个枚举类别判断，用Else分支即可覆盖所有其他情况，减少冗余代码。
• 冗余代码移除：company为空时无需执行document.write("")，直接跳过判断分支即可，逻辑更简洁。

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