SoloCodigo

hola.
haber si me podeis ayudar con esto q no se porque no los envia:
no se si será por SmtpMail.SmtpServer q habra que poner un servidor de emails.
GRACIAS.
----------------------------------
Imports System.Web.Mail
Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button

#Region " Código generado por el Diseñador de Web Forms "

    'El Diseñador de Web Forms requiere esta llamada.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: el Diseñador de Web Forms requiere esta llamada de método
        'No lo modifique con el editor de código.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Introducir aquí el código de usuario para inicializar la página
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim email As New MailMessage()
        With email
            .From = "dir1@hotmail.com"
            .To = "dir2@hotmail.com"
            .Subject = "prueba"
            .Body = "prueba"
        End With
        Try
            'SmtpMail.SmtpServer = ""
            SmtpMail.Send(email)
        Catch ex As Exception
            Response.Write("ERROR")
        End Try
    End Sub
End Class