使用VBA发送电子邮件

Question

收到错误：未定义的用户定义类型 Dim oapp作为Outlook.Application

期望的结果：我有2个标签工作表1和电子邮件标签 我希望拍摄单元格B8 TO 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

在工具/首选项中... 添加Microsoft Outlook ##。＃对象库。 只需检查一下即可。

##。＃-您的办公室号码。

Answer 2

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

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