Dim s As New ESUsoft.Smtp.Smtp
        Dim arr As New ArrayList
        arr.Add("to_addresse@host.de")
        s.Message = New ESUsoft.Smtp.Message(New ESUsoft.Smtp.Email( _
          "from_addresse@host.de", "steve"), arr, "SUBJECT", "BODY")
        s.Config = (New ESUsoft.Smtp.SmtpConfig("mailto.btx.dtag.de"))
        Try
            s.SendMail()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try