Question

他在那里，我是VB脚本的新手，我正在尝试制作一个选择案例，将电子邮件地址更改为组合框选择。我知道我想要轻松但我需要帮助的方向。组合框工作但我无法获得组合框中选择的值来触发选择案例。

  Sub Item_Open()

  Set FormPage = Item.GetInspector.ModifiedFormPages("Message")

  Set Control = FormPage.Controls("Subject")

  Control.PossibleValues = "SPOED;STATUS;MANCO;KLACHT;TRANSPORT;TRACKING;INKOMEND;REPARATIE;RETOUREN;LADEN;MILKRUN"

  Set MyPage = Item.GetInspector.ModifiedFormPages("Message")
    Set Mail = MyPage.Item("Subject").Value

    Select Case Mail
        Case SPOED   
            Item.To = "hihi@blabla.com"         

        Case STATUS
            Item.To = "haha@blabla.com"

        Case else
            Item.To = ""    

    End Select

End Sub

Answer 1

假设MyPage.Item("Subject").Value返回类似“STATUS”的字符串值。然后你必须在字符串变量中选择它：

strMail = MyPage.Item("Subject").Value  ' look ma, no Set!

Select Case X语句评估X表达式并将其与Case Y部分中的值Y，...进行比较，并执行第一个块（值为X）和Y是平等的。要将此应用于包含“SPOED”等字符串的strMail，Case Y表达式应为字符串文字：

Select Case strMail
   Case "SPOED"
     ...
   Case "STATUS"
     ...

如果您使用Option Explicit，VBScript会告诉我，SPOED（等）是（理解为）一个不能等于（体面）{{1}的统一变量}}

组合框的VBscript选择案例

1 个答案: