Quizás esto te pueda servir. Es una rutina que te conecta, a través de una API, con el Outlook o cualquier otro programa de correo que tengas configurado. Debo mencionar que esta rutina la obtuve preguntando en este mismo foro pero lamentablemente no recuerdo quien fue el colega que me contestó. Espero que te sirva de algo...
´Esto va en la sección declaraciones
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
´ExitWindowsEx Constants
´Esta es la rutina que envía el mail
Private Sub EnviarMail(MailTo As String)
Dim Success&
Success = ShellExecute(Me.hwnd, vbNullString, "mailto: " & MailTo, vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
