Visual Basic - Enviar mail desde mi programa

Hola amigos:
Como hago para traer al outlook express desde mi programa para enviar un mail, y que ya me ponga una direccion predeterminada??

Mira, es mas facil que busques ese codigo en lo siguientes links www.ambsoftware.com pones "correo" en busqueda de recursos.

Tambien hay ejemplos en www.portalvb.com haciendo lo mismo en la busqueda.

Espero puedas implementarlo, te rogaria que si funciona bien me avises, ya que voy a tener que hacerlo en unas semanas y todavia no he profundizado en el tema.

Saludos desde Lima

Hola, lo primero que debes hacer es agregar a tu reporte los siguientes controles microsoft Mapi que es que controla las funciones de outlook express y luego agrega el siguiente codigo.

ojo todavia estoy con lo de las direcciones para que me lo traiga desded una tabla relacionada pero si lo tienes en una sola tabla te debe funcionar.... saludos.

Function EnviarCorreo()


Dim Direcciones As String
Dim Detalle As Recordset
Dim BuscarDetalle As String
Dim MySql As String



Set Detalle = DDetalle.Recordset
BuscarDetalle = Detalle.Fields("sucursal")
MySql = "select * from sucursales where " & DBGrid1.Columns(0) & "=" & BuscarDetalle

CorreoSesion.Username = Username
CorreoSesion.NewSession = True
CorreoSesion.DownLoadMail = False
CorreoSesion.SignOn
CorreoMensajes.SessionID = CorreoSesion.SessionID

Detalle.MoveFirst
DSucursales.Recordset.MoveFirst
DSucursales.RecordSource = MySql

Do While Not DSucursales.Recordset.EOF

Direcciones = DSucursales.Recordset.Fields("email") & ";" & Direcciones
DSucursales.Recordset.MoveNext

Loop

CorreoMensajes.MsgIndex = -1
CorreoMensajes.RecipDisplayName = Direcciones '& " [email protected];"
CorreoMensajes.ResolveName
CorreoMensajes.MsgSubject = "Inicio de Plan, promoción: " & TxtPlan.Text
CorreoMensajes.MsgNoteText = "Inicio de Plan promoción: " & TxtPlan.Text & " de " & TxtCliente & "