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

    Pregunta:  61474 - ERROR EN METODO DOCMD.SENDOBJECT AL CERRAR OUTLOOK
Autor:  Jorge Pradas
Desde un formulario Access 2007 ejecutado en modo runtime ejecuto el siguiente comando para el envio de correos:

docmd.SendObject , , , para, , , subject, body, True

Esto hace que se abra una ventana de Outlook para completar el envio del correo, va todo bien si se pulsa el botón de enviar correo en el outlook , pero si se decide no enviar el correo y se cierra la ventana del Outlook entonces Access da un error en tiempo de ejecución y se cierra automaticamente.

Alguna sugerencia?

Gracias!!
  Respuesta:  Lenin Valderrama Alvis
Yo estoy trabajando actualmente esto en Access 2007, me funcionó y luego dejo de hacerlo pero fue por configuración del Outlook, y no le he dedicado mas tiempo, pero el código es el siguiente: 
On Error GoTo Error_Leva

Dim via As String, nomarchi2 As String

via = CurrentProject.Path & "digitaluno"

Dim ante As Single, sigue As Single

'DoCmd.GoToRecord , , acFirst

ante = codgradoygrupo

Do While (codgradoygrupo > 0)

     nomarchi2 = via & Trim(Str(codest)) & ".pdf"

     If Len(nomarchi2 & vbNullString) = 0 Then

      Exit Sub

      Else

       DoCmd.SendObject acSendNoObject, nomarchi2, , "[email protected]", , , "Boletin 4 p", "Señore ahi envio el boletin", False

       'DoCmd.SendObject acSendNoObject, , , "[email protected]", , , "Boletines", "Boletin periodo 3", "hola", "saludes", nomarchi2

        DoCmd.Close

     End If

     DoCmd.GoToRecord , , acNext

     sigue = codgradoygrupo

     ante = sigue

  Loop

  

Error_Leva:

    'Algun error (en este caso es que se asigna ante = sigue cuando es vacio

    ' MsgBox "Ha pasado los promedios"

    MsgBox "Ha culminado el envio de archivos digitales. Observelos en:" + via

    DoCmd.Close

    Exit Sub