Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim IPMail As New Smtp ' EMail Deklaration
        Dim Config As New SmtpConfig ' Konfiguration
        Dim Message As New ESUsoft.Smtp.Message
 
 
        Dim ArrayAdressen
 
        Config.Logging = True
        Config.Password = "wqdfhfre"
        Config.Username = "pt6855258-chri"
        Config.Port = "25"
        Config.Host = "smtp.1und1.de"
 
 
        ArrayAdressen = New System.Collections.ArrayList 'Emailadressen in 
        ' Array Speichern
        ArrayAdressen.Add(New ESUsoft.Smtp.Email("mail@hubrich.ch", _
          "sales@hubrich.ch"))
 
        IPMail.Message = Message
        IPMail.Config = Config
 
        With IPMail.Message
 
            '  .To = ArrayAdressen
            .To = ArrayAdressen
            .Body = "Textdsufhöliueghleuhlughwöguthwögtuihwörutghörtgiohgöiog" _
              & Chr(13) & "Testzeile2?"
            .Subject = "Test E-mail"
 
        End With
 
        IPMail.SendMail()
        End
    End Sub