Visual Basic.NET - Formulario desde vb.net hacia dir. de correo.

saludos, tengo una inquietud:

Tengo una tabla en access que contiene los siguientes campos:

usuario_id (autonumber)
nombre_usuario (text)
correo (text)
estado

bueno, la cuestion es la siguiente: el formulario de contacto consta de la siguiente informacion:

nombre: xxxx
correo: [email protected]
telefono: 2345667
usuario_id: 1

boton-enviar boton-borrar

cuando el usuario pulse el boton enviar dicho formulario tendra que llegarle a la direccion de correo, que tenga asignado en usuario con usuario_id=1.

Espero de verdad no haber sido muy confusa y que alguienme pueda ayudar con esta inquietud, por cierto estoy programando en visual studio 2005 (vb).

Anticipamente les agradezco de cualquier forma que me puedan colaborar. gracias!

Aqui tienes una function para enviar email

Function EnviarEmail(ByVal DirOrigen As String, ByVal DirTo As String, _
ByVal DirCC As String, ByVal DirCCO As String, _
ByVal Asunto As String, ByVal Mensaje As String, _
ByVal SMTP As String, ByVal Usuario As String, _
ByVal Clave As String) As Boolean
Dim Mail As New MailMessage
Dim objSmtpServer As New SmtpClient
With Mail
.From = New System.Net.Mail.MailAddress(DirOrigen)
.To.Add(DirTo)
If DirCC <> "" Then
.CC.Add(DirCC)
End If
If DirCCO <> "" Then
.Bcc.Add(DirCCO)
End If
.Subject = Asunto
.IsBodyHtml = True
.Body = Mensaje
.Priority = System.Net.Mail.MailPriority.High
End With
'Dim oAttachment As MailAttachment = New MailAttachment("C:\prueba.txt")
'.Attachments.Add(oAttachment)
objSmtpServer.Host = SMTP
objSmtpServer.Credentials = New System.Net.NetworkCredential(Usuario, Clave)
'Dim valor As New Net.NetworkCredential
'objSmtpServer.Credentials = Net.CredentialCache.DefaultNetworkCredentials
Try
objSmtpServer.Send(Mail)
Catch ex As Exception
'MessageBox.Show("Error en envió:" & vbCrLf & ex.Message)
End Try
Mail = Nothing
EnviarEmail = True
End Function

luego la llamas asi

Dim Ok As Boolean = obj.EnviarEmail(Origen, dr.GetValue(2), Copia, Oculto, _
Asunto, Mensaje, SMTP, User, Pwd)

SMTP es tu servidor de email
user es un usuario con la cuenta q saldrán los msjes
y su password correspondiente

Donde Dr.getvalue(2) es un datareader q trae la lista de los usuarios a los cuales se le enviará el email.

Sólo tiens q declarar tus variables y formar tu mensaje

Hasta Pronto

Muchas gracias, lo voy a implementar cualquier pregunta se la hare saber, muchas gracias nuevamente.

hola Santos, primero gracias por tu respuesta la estuve implementando y me sa algunos errores, yo invoco la funcion en el evento click del boton enviar del formulario, ok?

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Ok As Boolean = obj.EnviarEmail(origen, dr.GetValue(2), Copia, Oculto, Asunto, Mensaje, smtp, User, Pwd)

End Sub

pero en obj. me dice el error que obj no esta declarado, ademas no esta declarado Copia, Oculto, Asunto, Mensaje y Pwd.

Ademas disculpa talvez estas dudas sean muy tontas pero en esta linea poir ejemplo objSmtpServer.Host = SMTP el nombre del smtp no deberia ir entre comillas dobles asi:

objSmtpServer.Host = "[email protected]"

o eso esta mal? y aqui:
objSmtpServer.Credentials = New System.Net.NetworkCredential(Usuario, Clave)

el usuario seria :

objSmtpServer.Credentials = New System.Net.NetworkCredential("[email protected]", "payaso")

seria si, disculpame si estoy perdida, gracias nuevamente!