На работе мы используем Outlook 2016 и недавно обновились до Microsoft Exchange.У нас есть различные программы VBA, запускаемые из Excel или Access, которые создают электронные письма Outlook и сохраняют их в папке «Черновики», готовые для проверки и отправки вручную после запуска программы.Эти программы работали до того, как мы перешли на Microsoft Exchange.Теперь, когда я дважды щелкаю одно из писем, которые были сохранены в черновиках той программой, которую я запускал, Outlook отказывается отправлять его и сообщает об ошибке «Операция не удалась».Никакая другая информация или коды ошибок не предоставляются.У одного из моих коллег такая же проблема.Другие нет.Теоретически у всех нас должна быть одинаковая версия Outlook и Microsoft Exchange.Я обнаружил, что могу воспроизвести эту проблему, запустив код непосредственно в Outlook.Я сделал Alt-F11, включил макросы, вставил модуль и вставил в окно следующий код:
Sub TestEmail2()
Dim OutMail As Outlook.MailItem
Dim EmailTo As String
Dim EmailSubject As String
EmailTo = "me@myaddress.com"
EmailSubject = "Test Email 2"
Set OutMail = Application.CreateItem(0)
With OutMail
.To = EmailTo
.Subject = EmailSubject
.Save
.Close 0 ' olSave
End With
Set OutMail = Nothing
Debug.Print "Finished"
End Sub
Если я установил точку останова на «Set OutMail = Nothing», и запустил код для этой точки останова(поэтому «Set OutMail = Nothing» еще не выполнено), затем перейдите в мою папку «Черновики» и попробуйте отправить электронное письмо, оно будет работать без ошибок.Если я перезапущу код и разрешу его запуск до конца, я получу сообщение об ошибке, если попытаюсь отправить сгенерированное им электронное письмо.
Я бы хотел (1) найти обходной путь, который я могу добавить ккод, чтобы я мог отправлять сообщения или (2) выяснить, что не так с моим профилем Outlook, чтобы я мог попросить нашу службу технической поддержки изменить его или изменить его самостоятельно.Я не хочу, чтобы наша служба технической поддержки сбрасывала мой профиль на настройки по умолчанию и теряла мои настройки.