Si es este, es incompatible con VBA, tendrías que reinstalar el Outlook clásico o utilizar CDO.

Por si le sirve a alguien.

En el editor de registro (Windows+R → regedit), ir a HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Options\General

Crear una entrada DWORD llamada HideNewOutlookToggle

Asignar el valor 1 a la entrada.

Abrir y cerrar Outlook.

Antes de hacer el proceso ¿compruebas que no haya ninguna instancia de Outlook abierta? ... mira segundo plano con el administrador de tareas.

Para versiones mas nuevas de office tuve que cambiar el codigo para enviar mails con adjuntos:

Crea un módulo:

Option Compare Database

Private Declare PtrSafe Function FindWindow Lib "user32" _

                Alias "FindWindowA" _

                (ByVal lpClassName As String, _

                ByVal lpWindowName As String) As Long

Function IsAppOpen(ClassName As String) As Boolean

    If FindWindow(ClassName, vbNullString) Then

        IsAppOpen = True

    End If

End Function

Luego en el formulario:

Dim Filepath As String

Dim oOutlook As Object

Dim oEmailItem As Object

On Error Resume Next

DoCmd.Hourglass True

err.Clear

Filepath = "C:\archivo.pdf" 'Ubicación donde tengas el adjunto a enviar

        

        If oOutlook Is Nothing Then

        Set oOutlook = GetObject(, "Outlook.Application")

        Set oOutlook = CreateObject("Outlook.Application")  'New Outlook.Application

        Set oEmailItem = oOutlook.CreateItem(olMailItem)

        End If

        

If IsAppOpen("rctrl_renwnd32") Then

              

        With oEmailItem

            .To = "email@email"

            .cc = "email2@email"

            .Subject = "Envío de archivo"

            .Attachments.Add Filepath           

            .display

            

        End With

 DoCmd.Hourglass False 

        Set oEmailItem = Nothing

        Set oOutlook = Nothing

Else

Shell "Outlook", vbNormalNoFocus

With oEmailItem

            .To = "email@email"

            .cc = "email2@email2"

            .Subject = "Envío de archivo"

            .Attachments.Add Filepath           

            .display

            

        End With

 DoCmd.Hourglass False

 

        Set oEmailItem = Nothing

        Set oOutlook = Nothing

End If

End Sub

Alguien envia correos con datos del servidor de hotmail.com y que funcione? me refiero a servidor SMTP, puerto, etc. Gracias 

Hola,

Te deja mandar los correos por CDO, yo lo utilizaba y algo paso con gmail y tuve que desistir, no me importo porque eran tres facturas al mes pero el caso es que directo era mejor y como más guay.

Saludos, ximo

Hola,

pues mediante un botón de comando creaba el pdf de la factura y lo envía al remitente (previamente tengo en un campo el correo del cliente obviamente) pero desafortunadamente gmail hizo cambios y esto ya no me era posible, la verdad para tres facturas no investigue demasiado.

saludos, ximo