Hola,
Puedes utilizar los objetos MAPISession y MAPIMessages.
A continuacion te especifico una funcion que envia un email. Espero que te sirva..
Public Function Manda_Correo(mensaje As String, asunto As String, _
sesion As MAPISession, correo As MAPIMessages) As Boolean
On Error GoTo Depurar
Dim appOutlook As Object
Dim emailItem As Object
sesion.UserName = "Microsoft Outlook"
sesion.NewSession = True
sesion.DownLoadMail = False
sesion.SignOn
With correo
.SessionID = sesion.SessionID
.MsgIndex = -1
.RecipAddress = "
[email protected]"
.RecipDisplayName = "
[email protected]"
.MsgSubject = asunto
.MsgNoteText = mensaje
.Send
End With
sesion.SignOff
Manda_Correo = True
Exit Function
Depurar:
Call funDepurar("Manda_Correo", "frmCursoInteres")
End Function