使用 VBA 发送电子邮件答案

【问题标题】：Sending email using VBA使用 VBA 发送电子邮件
【发布时间】：2019-10-04 11:19:43
【问题描述】：

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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：

感谢派诚，我如何将范围 B8:M108 的快照添加到我的电子邮件正文@PaichengWu
@user12151877 this 可以帮忙

【解决方案2】：

在工具/首选项中... 添加 Microsoft Outlook ##.# 对象库。看看就好。

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

【讨论】：

我做不到
我不明白。 “无法”是什么意思。