Imports ESUsoft.Smtp
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    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 = "xxxxxxxxx"
        Config.Username = "xxxxxxxxxxxx"
        Config.Port = "25"
        Config.Host = "xxxxxxxxxxxxxxx"
 
 
        ArrayAdressen = New System.Collections.ArrayList 'Emailadressen in 
        ' Array Speichern
        ArrayAdressen.Add(New ESUsoft.Smtp.Email("xxxx@xxxxxxx.xx", _
          "xxxxxxxxx@xxxxxxxx.xxx"))
 
        IPMail.Config = Config
 
        With IPMail.Message
 
            .To = ArrayAdressen 'HIER BEKOMME ICH DIE FEHLERMELDUNG!!!
            .Body = "Textdsufhöliueghleuhlughwöguthwögtuihwörutghörtgiohgöiog" _
              & Chr(13) & "Testzeile2?"
            .Subject = "Test E-mail"
 
        End With
 
        IPMail.SendMail()
        End
    End Sub
 
End Class