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:
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
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.MailItemDim 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"
.SendEnd 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
0