Visual Basic para Aplicaciones - Error al cargar Biblioteca DLL en VBA Excel en Office 365

Life is soft - evento anual de software empresarial
   
Vista:

Error al cargar Biblioteca DLL en VBA Excel en Office 365

Publicado por Javier Ramos (1 intervención) el 23/08/2017 14:18:44
Hola, tengo hecha una macro para enviar un email desde VBA. Lo curioso es que en la versión Office 2016 funcionaba perfectamente pero al actualizar a la versión Office 365 ProPlus, me sale el mensaje "Se ha producido el error '48' en tiempo de ejecución: Error al cargar biblioteca DLL". El sistema operativo que utilizo es el Windows 7 Profesional
La referencia cargada es "Microsoft Outlook 15.0 Object Library"

La macro es la siguiente:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim OutlookApp As Outlook.Application
  Dim MItem As Outlook.MailItem
  Dim Msg As String
  Dim title As String
  Msg = "¿Quieres enviar un email confirmando la actualización de tus Seguimientos?"   ' Define message.
  response = MsgBox(Msg, vbOKCancel + vbExclamation, "Confirmación de Email...")
 
  If response = 1 Then   ' User chose Yes.
 
    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
 
        With MItem
 
            .To = "example@hotmail.com"
            .Subject = "Envío de Email desde VBA"
            .Body = "Hola, estoy enviando un email desde VBA. Saludos"
            .Send
 
        End With
        MsgBox ("Email enviado correctamente")
  Else
        End
  End If
End Sub

No sé como solucionarlo, ¿me falta por cargar otra biblioteca en Referencias que el office 365 necesite?

Por favor ayúdenme.

Un saludo y gracias por anticipado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad