Imprimir página | Cerrar ventana

Envio de correo Microsoft 365

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86670
Fecha de impresión: 26/Marzo/2026 a las 20:58


Tema: Envio de correo Microsoft 365
Publicado por: rocjfl-b
Asunto: Envio de correo Microsoft 365
Fecha de publicación: 30/Abril/2023 a las 21:49
Hola a todos.

Este código no funciona con Microsoft 365.  Si funciona desde Office 2016, Office 2019.

Alguna idea ?

Muchas gracias.

Private Sub CreaCorreo()
 On Error GoTo Err_CreaCorreo
 
        Dim CuerpoDelMail As String
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String
       
                    Set OutApp = CreateObject("Outlook.Application")
                    Set OutMail = OutApp.CreateItem(0)

                    With OutMail
                        .To = ""
                        .CC = ""
                        .BCC = ""
                        .Subject = ""
                        .Display
                    End With
                            
                    Set OutMail = Nothing
                    Set OutApp = Nothing
                    
Exit_CreaCorreo:
    Exit Sub

Err_CreaCorreo:
    MsgBox Err.Description
    Resume Exit_CreaCorreo

End Sub



Respuestas:
Publicado por: rocjfl-b
Fecha de publicación: 08/Mayo/2023 a las 19:32
Buenas tardes

Sospecho que el problema está en el "regedit" del ordenador ya que el frontend trabaja sin este error en microsoft 365 en otro ordenador.  Aún no tube la oportunidad de formatear la máquina para confirmar esta sospecha.

Se puede cerrar este hilo.

Gracias a todos.

Publicado por: rocjfl-b
Fecha de publicación: 22/Marzo/2024 a las 17:44
Es la sentencia 
Set OutApp = CreateObject("Outlook.Application")
la que hace que outlook se cuelgue

Se puede cerrar el hilo


Imprimir página | Cerrar ventana