Question

我真的需要一些快速提示。

我有这个发送电子邮件的VBScript脚本。我想做几次检查以确定属性是否为真，如果是，则在邮件中写一个额外的行。

我该怎么做？这是脚本的一部分：

    obMessage.HTMLBody = ""_
        & "<MENU>"_
        & "<LI type = square>This is a line</i>."_

我想要一些看起来像这样的东西：

    obMessage.HTMLBody = ""_
        & "<MENU>"_
    If statement1 = true Then
        & "<LI type = square>This is an additional line</i>."_
    end if

首先，可以做出一些选择性陈述吗？我真的不介意代码是什么样的，我只是想让它尽快工作：）

Answer 1

无论你怎么做，它看起来都像意大利面条代码。这是最直接的方法之一：

obMessage.HTMLBody = & "<MENU>"

if statement1 then
  obMessage.HTMLBody = obMessage.HTMLBody & "<LI type=""square"">This is a line</LI>."
end if

if statement2 then
  obMessage.HTMLBody = obMessage.HTMLBody & "<LI type=""square"">This is another line</LI>."
end if

但是，我建议您将行连接到临时字符串，将结果字符串分配给obMessage.HTMLBody，例如：

Dim Foo
Foo = "<MENU>"

if statement1 then
  Foo = Foo & "<LI type=""square"">This is a line</LI>."
end if

.
.
.

obMessage.HTMLBody = Foo

Answer 2

类似的东西：

obMessage.HTMLBody = "Begin Text" & _ 
IIf(statement1 = true, "<LI type = square>This is an additional line</i>.", "") & _
"Further text"

应该可以正常工作。

VBScript - 在邮件脚本中使用IF语句？

2 个答案: