La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  1071 - CORREO EN VISUAL BASIC CON OUTLOOK
Autor:  Euge
Estoy preparando una aplicación que mande correo automáticamente utilizando el Outlook. El código generado es :
Set Uno = CreateObject("Outlook.Application")
Set Dos = Uno.GetNameSpace("MAPI")
Set Tres = Uno.CreateItem(0)
Dos.BCC = "Dirección de correo cualquiera"
Dos.Subject = "Asunto cualquiera"
Dos.Body = "Texto del correo ..."
Dos.Send
El código se ejecuta sin error, pero no me genera ningún mensaje en Outlook.
¿Dónde está el fallo?
  Respuesta:  Ruben Alejandro Romero Mansilla
El problema esta en que tenes que reemplazar el Dos por un Tres luego del ultimo Set.

Set Uno = CreateObject("Outlook.Application")
Set Dos = Uno.GetNameSpace("MAPI")
Set Tres = Uno.CreateItem(0)
Tres.BCC = "Dirección de correo cualquiera"
Tres.Subject = "Asunto cualquiera"
Tres.Body = "Texto del correo ..."
Tres.Send

Y deberias colocar un If Err Then msgbox "Error"
Luego de cada set para verificar que pudo crear cada uno de los objetos correctamente. Saludos
  Respuesta:  Hernan Medrano
Para mí, lo mas conveniente es que utilices el control mapi que te proporciona vb 5.0.
Tenes el objeto mapisession y el mapimessage. Si queres que te amplie el panorama enviame un mail.