How Do I Prevent My Mail From Being Sent As Spam

Dim Statement As New MailMessage
                            Dim EmailAdd As String = "Test@email.com"
                            'Dim emailaddress2 As String = sFieldsIn(6).ToString

                            Statement.Subject = "Login details"
                            'Statement.To.Add(emailaddress2)
                            Statement.To.Add(EmailAdd)
                            Statement.Bcc.Add("Test2@email.com")
                            Statement.From = New MailAddress("No-Reply@Test.com")


                            Statement.Body = "Please click the following link and enter the user details below to access your profile" & vbCrLf & "URL:" & System.Configuration.ConfigurationSettings.AppSettings("URL") & vbCrLf & "UserName:" & username & vbCrLf & "Password:" & Password


                            Dim SMTP As New SmtpClient("mail.SMTP.com")

                            SMTP.Credentials = New System.Net.NetworkCredential("Username", "Password")
                            SMTP.Port = CInt("25")
                            SMTP.Send(Statement)