Блог

Прежде чем я обращусь за помощью, я хочу сообщить вам, что я не очень хорош в этом и только что изучил биты и биты с онлайн-страниц и форумов при написании кода.

У меня есть электронная таблица, которую я настроил для отправки предложений определенным поставщикам (повторяющимся). Я использую эту электронную таблицу уже почти 2 года, и она работает нормально. В конце прошлой недели я попытался нажать на обе кнопки и обнаружил, что Excel и Outlook зависли на минуту, но электронное письмо так и не было сгенерировано или отправлено. Я предполагаю, что что-то в настройках изменилось из-за обновления, поскольку оно внезапно перестало работать. Я использую Office365. Я заметил в настройках Outlook в разделе Надстройки, что «Добавление Microsoft VBA для Outlook» указано в разделе Неактивные надстройки приложений…чего бы это ни стоило

Скриншот — (https://ibb.co/fv2Pzx7 )

Обычно я бы добавил сведения о каждом из файлов, которые я хочу прикрепить, с правой стороны (каталог файла и имя файла). Название задания в правом нижнем углу — это тема.

В ссылке на VBAProject у меня отмечены следующие поля:

• Visual Basic для приложений
• Библиотека объектов Microsoft Excel 16.0
• Автоматизация OLE
• Библиотека объектов Microsoft Office 16.0

Я думаю, что мой код довольно простой (как будто даже я мог это сделать!)

     Sub GenerateAutoEmail3_Click()

On Error GoTo ErrHandler

' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")

' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)

With objEmail
    .To = Range("E3")
    .Subject = Range("F3")
    .Body = "Hi " amp; Range("C3") amp; "," amp; Range("R13") amp; Range("D3") amp; Range("R14")

    
    .Attachments.Add Range("I3").Text
    .Attachments.Add Range("K3").Text
    .Attachments.Add Range("M3").Text
    .Attachments.Add Range("O3").Text
    
    .Send        ' DISPLAY MESSAGE.
End With

' CLEAR.
Set objEmail = Nothing:    Set objOutlook = Nothing
    
 

Обработчик ошибок:
Диапазон («G3»).Значение = Сейчас
‘

Завершение подзаголовка

(Не удалось получить эти последние несколько строк в поле кода! …)

Извините, если я плохо объяснил свою проблему или если я без причины набросился!

Спасибо