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