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