1

他在那里，我是 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
4

1 回答 1

0

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

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

该Select Case X语句计算X表达式并将其与Case Y部分中的值 Y, ... 进行比较，并执行 X 和 Y （的值）相等的第一个块。要将其应用于strMail包含诸如“SPOED”之类的字符串，Case Y 表达式应该是字符串文字：

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

如果您使用Option ExplicitVBScript 会告诉您，SPOED(etc) 是（理解为）一个不能等于 (decent) 的统一变量strMail。

于 2012-10-12T13:01:46.990 回答