SMTP via Domino server

Hej.

Jeg har brug for at kunne sende emails ud via SMTP på den Domino-server, som jeg sidder bagved. Men det driller.

Jeg har for at finde fejlen skrevet nedenstående forsimplede kode.

Under afvikling returnerer programmet denne fejlmeddelelse, som jeg ikke bliver klogere af: "Failure sending mail."

Er der nogen, der kan se hvad der er galt?

Kode:
Imports System.Web
Imports System.IO
Imports System.Net.Mail

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try
            Dim mail As New MailMessage()
            Dim SmtpServer As New SmtpClient
            SmtpServer.Port = 25
            SmtpServer.Host = "10.xxx.xxx.xxx"  'anonymiseret
            mail.To.Add("zzz@zzz.dk")  'anonymiseret
            mail.From = New MailAddress("xxx@xxx.dk")  'anonymiseret, men kendt bruger på Domino-serveren.
            mail.Subject = "Test of SMTP"
            mail.Body = "This is a test mail"
            SmtpServer.Send(mail)
            MsgBox("Success!")

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try
    End Sub
End Class