Mandar mails por correo interno

[belenjer]

Pero por supuesto que publico el código, es el siguiente:

Imports MSMAPI

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Mmess As New MAPIMessages, Msesion As New MAPISession, i As Integer
Msesion.SignOn()
Do While Msesion.SessionID = 0
'hazte guey hasta que la session se prenda
Loop
Mmess.SessionID = Msesion.SessionID
Mmess.Compose()
Mmess.Show()
txtPara.Text = ""
For i = 0 To Mmess.RecipCount - 1
Mmess.RecipIndex = i
If Len(Trim(txtPara.Text)) > 0 Then
txtPara.Text = txtPara.Text & ";" & Mmess.RecipDisplayName
Else
txtPara.Text = Mmess.RecipDisplayName
End If
Next i
Mmess.MsgSubject = txtAsunto.Text
Mmess.MsgNoteText = txtMensaje.Text
Mmess.Send()
Msesion.SignOff()
End Sub

Acuerdense de referenciar el objeto Microsoft MAPI. (En el menu Website, Add Reference...)
Espero que a alguien le sirva