<add key="SmtpServer" value="xxx.xxx.xxx.xxx" />
<add key="From" value="ich@xxx.de" />
<add key="To" value="ich@xxx.de;2@xxx.de;3@zzz.de" />
<add key="subject" value="test" />
<add key="ToBcc" value="ich@xxx.de" />

Sub EMAIL(ByVal e)
        Dim txtMail As New MailMessage
        txtMail.To = System.Configuration.ConfigurationSettings.AppSettings( _
          "To")
        txtMail.From = System.Configuration.ConfigurationSettings.AppSettings( _
        "From")
        txtMail.Bcc = System.Configuration.ConfigurationSettings.AppSettings( _
        "ToBcc")
        txtMail.Subject = _
        System.Configuration.ConfigurationSettings.AppSettings("subject")
        txtMail.Body = "Testmail"
        SmtpMail.SmtpServer = _
          System.Configuration.ConfigurationSettings.AppSettings("SmtpServer")
        SmtpMail.Send(txtMail)