send Email to multiple users using exhchange

Hi every one

I have one application have multiple users I need to send them an email using my exchange server "dtreExhcange server"  this is my code

Sub SendSimpleMail(ByVal toEmailAddress As String)


        '======================================
        Dim mail As New MailMessage()
        Dim msgBody As String
        Dim smtp As New SmtpClient

     
        mail.From = New MailAddress("me@dt.org")
        msgBody = txtEmailBody.Text
        mail.To.Add(toEmailAddress)
        mail.Subject = Subject.Text
        mail.Body = msgBody
        mail.IsBodyHtml = True

        smtp.Host = "dtreExhcange.dt.org"
        smtp.Port = 25
        smtp.EnableSsl = True
        smtp.Credentials = New System.Net.NetworkCredential("me@dt.org", "123")

        Try
            smtp.Send(mail)
            mail.Attachments.Dispose()
            MsgBox("Thank You your Message has been sent.")

        Catch x As Exception
            If x.Message.ToString = "Failure sending mail." Then
                MsgBox("Please check your Internet Connection and try again", MsgBoxStyle.Information)
            Else
                MsgBox("Failed to Send", MsgBoxStyle.Exclamation)
            End If

        End Try



    End Sub

but it's not working it will not connect to the exchange server.

can you help me on that .