Я использую 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. Они оба перестали работать.