Отправка электронной почты с использованием VBA

Question

Получена ошибка: пользовательский тип не определен в Dim oapp Как Outlook.Application

Желаемый результат: у меня есть 2 вкладки «Лист 1» и вкладка «Электронная почта». Я хочу сделать снимок экрана ячеек B8 - M108 и отправитьэто для моих желаемых получателей в теле письма у меня есть следующий код. Я не уверен, как поступить. Могу ли я оказать некоторую помощь?

Sub sendemail()


Application.ScreenUpdating = False
Dim oapp As Outlook.Application
Dim email As Outlook.MailItem

Set oapp = New Outlook.Application
Set email = oapp.CreateItem(olMailItem)

email.To = Worksheets("Email").Range("A10").Value
email.CC = Worksheets("Email").Range("B10").Value
email.HTMLBody = 
email.Subject = "Snapshot"

email.Display True

End Sub

Answer 1

Позднее связывание может помочь.

dim oapp as object, email as object

set oapp = createobject("outlook.application")
set email = oapp.createitem(0)
with email
    .To = Worksheets("Email").Range("A10").Value
    .CC = Worksheets("Email").Range("B10").Value
    .HTMLBody = ""
    .Subject = "Snapshot"
    .Display
End With

set oapp = Nothing
set email = Nothing

Answer 2

В Инструменты / Предпочтения ... добавьте Microsoft Outlook ##. # Библиотека объектов. Просто проверьте.

##. # - Номер вашего офиса.