Все макросы Outlook VBA больше не работают - PullRequest
0 голосов
/ 10 февраля 2020

Я использую 2 документа Excel, которые используют макросы для генерации электронных писем.

Тем не менее, начиная с 2 дней go эти специфические c макросы outlook перестали работать, когда я пытаюсь их запустить, ничего не происходит (и он отлично работает для любых других макросов).

Я также проверил, и «Библиотека объектов Microsoft Outlook» активирована.

Вот код, который всегда работал просто отлично:

Sub mailEN()
Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim template As String

If Range("H16") = "1" And Range("I16") = "3" Then
template = "C:\Users\NAME\Desktop\testfinal.oft"

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate(template)

With MyItem
    .To = " "
    .Subject = "Hello : " + Range("F2")
    .HTMLBody = Replace(.HTMLBody, "#NOMINAL#", Worksheets("Feuil1").Range("D6").Text)
    .Display
End With
Set MyItem = Nothing
Set myOlApp = Nothing
End If
End Sub

Я не понимаю, почему больше ничего не работает, на этом и на другом очень простом макросе создания электронной почты Outlook. Они оба перестали работать.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...