Email 发送电子邮件VB 2012

我必须从我的VB 2012应用程序发送一封电子邮件，我尝试了在网上找到的不同功能。 我使用System.Net.Mail库使用了Sign MailAddress，SmtpClient ecc。 应用程序没有给我任何例外，但没有发送电子邮件。 VB 2010应用程序的相同功能在2012 IDE中也可以完美地执行。我不明白为什么=( 看看我的功能

Private Sub InviaMailProva2(ByVal SmtpServer As String, ByVal usermail As String, ByVal sender As String, ByVal password As String, ByVal receiver As String, ByVal subject As String, ByVal body As String)
    Dim email As New MailMessage
    Dim smtp As New SmtpClient
    email.From = New MailAddress(usermail)
    email.Subject = subject
    email.To.Add(receiver)
    smtp.Port = 25     'i use an aruba email, it work with other application'
    smtp.Host = SmtpServer
    smtp.Credentials = New Net.NetworkCredential(user, password)
    smtp.Send(email)
End Sub

---

所以你想发送一些电子邮件吗？你的电子邮件被发送了，只是你可能被视为垃圾邮件发送者，而你的电子邮件被忽略了。@Eric Leschinski，这是另一回事，不是吗-o@EricLeschinski但是为什么另一个应用程序使用相同的代码可以完美地工作呢？我在另一个VB应用程序中使用了相同的代码，但是VB 2010，它可以工作。