Public Function mailsenden()
        Dim IPMail As Smtp ' EMail Deklaration
        Dim Config As New SmtpConfig ' Konfiguration
        Dim ArrayAdressen
 
        Config.Logging = True
        Config.Password = Stammdaten.eBayeMailSMTPPasswort
        Config.Username = Stammdaten.eBayeMailSMTPBenutzer
        Config.Port = "25"
        Config.Host = Stammdaten.eBayeMailSMTPServer
 
 
        ArrayAdressen = New System.Collections.ArrayList 'Emailadressen in 
        ' Array Speichern
        ArrayAdressen.Add(New ESUsoft.Smtp.Email("mail@hubrich.ch", _
          "sales@hubrich.ch"))
 
        IPMail.Config = Config
 
        With IPMail.Message
 
            .To = ArrayAdressen
            .Body = "Textdsufhöliueghleuhlughwöguthwögtuihwörutghörtgiohgöiog" _
              & Chr(13) & "Testzeile2?"
            .Subject = "Test E-mail"
 
        End With
 
        IPMail.SendMail()
        End
    End Function