mail error (run-time)

[jordyvk]

hoi iedereen,

ik ben bezig met een programma dat automatisch e-mails stuurt

 Dim smtpserver As New SmtpClient

        Dim mail As New MailMessage

        smtpserver.Credentials = New Net.NetworkCredential("mail@deromerij.be", "ww")

       
        smtpserver.Port = 2525

        smtpserver.Host = "customer-smtp.one.com"
        smtpserver.EnableSsl = True
        mail = New MailMessage()

        mail.From = New MailAddress("mail@deromerij.be")
        mail.To.Add("mailto@deromerij.be")
        mail.Subject = ("automatisch bericht")
        'Mail.body = de text die je krijgt in de mail..
        mail.Body = "test"
        smtpserver.Send(mail)

alleen ik krijg deze fout:
Server biedt geen ondersteuning voor beveiligde verbindingen.

kan iemand mij helpen

bij voorbaat dank