asp.net - VB Net CheckboxList 根据 ListItem 值发送邮件

Question

我正在尝试更改变量：

.ToAddress = ConfigurationManager.AppSettings("RequestEmail")

基于 CheckBoxList ListItem 中的选定值。到目前为止，它不起作用。

这是该列表的代码：

<asp:CheckBoxList runat="server" ID="m_chckbxlstProperties" RepeatDirection="horizontal" RepeatColumns="2" CssClass="checkboxlist">
    <asp:ListItem Value="1"></asp:ListItem>
    <asp:ListItem Value="2"></asp:ListItem>
    <asp:ListItem Value="3"></asp:ListItem>
    <asp:ListItem Value="4"></asp:ListItem>
    <asp:ListItem Value="5"></asp:ListItem>
    <asp:ListItem Value="6"></asp:ListItem>
    <asp:ListItem Value="7"></asp:ListItem>
    <asp:ListItem Value="8"></asp:ListItem>
    <asp:ListItem Value="9"></asp:ListItem>
</asp:CheckBoxList> 

这是后面的代码：

For Each li In m_chckbxlstProperties.Items
  If li.Value = "1" Then
   If li.Selected Then
    .ToAddress = ConfigurationManager.AppSettings("1RequestEmail")
   End If
  Else If li.Value = "2" Then
  If li.Selected Then
    .ToAddress = ConfigurationManager.AppSettings("2RequestEmail")
   End If
  Else If li.Value = "3" Then
  If li.Selected Then
     .ToAddress = ConfigurationManager.AppSettings("3RequestEmail")
    End If    
  Else If li.Value = "4" Then
  If li.Selected Then
     .ToAddress = ConfigurationManager.AppSettings("4RequestEmail")
    End If  
  Else
     .ToAddress = ConfigurationManager.AppSettings("RequestEmail")
    End If
  End If
 Next