excel - 使用 VBA 发送电子邮件

Question

收到错误:未定义用户定义的类型
将 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

后期绑定(bind)可能会有所帮助。

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