VBscript combobox에 대한

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 식을 평가하고, 값 Y와 비교 ... Case Y 부분과 (에 대한 첫 번째 블록을 실행) X와 Y의 값은 동일하다. "SPOED"와 같은 문자열을 포함하는 strMail에이를 적용하려면 케이스 Y 표현식은 문자열 리터럴이어야한다 : 당신이 Option Explicit을 사용했을 경우

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

, VBScript를이 SPOED이 (등) (로 이해)되어, 말 것 (괜찮은) strMail과 같을 수없는 단위화된 변수.