通过VBA每次执行excel程序后都用outlook自动发送邮件

qiao1019

excel表自动执行后，能自动发送邮件给指定的人，好让人知道有人执行了这个程式。但是遇到一个问题，下面代码需要引用micrsoft outlook，我把文件给别人用的时候不可能还和人家说，用这个excel前记得引用。。。。。，有人知道有什么类似后期绑定的能解决这问题吗？

Dim obj As Object
Set obj = CreateObject("outlook.application")
Dim itmmail As Outlook.mailitem  '提示说未定义，我想问有没有办法不引用也能运行
Set itmmail = obj.createitem(olmailitem)
With itmmail
.Subject = "主题"
.body = "内容"
.to = "*********@**.com"
'.cc = ""
.attachments.Add ThisWorkbook.Path & "\" & ne & ".xlsx"
.display
.send
End With
Set obj = Nothing
Set dic = Nothing
Set itmmail = Nothing
End Sub

zpy2

Dim itmmail
改成这样子试试

qiao1019

zpy2 发表于 2022-12-19 15:46
Dim itmmail
改成这样子试试

成了。。。大佬谢谢。

2900357148

因为你没有引用outlook，所以Dim itmmail As Outlook.mailitem这句话报错，你可以在工具-引用中找到Microsoft Outlook 16.0 object Library，然后勾选；不引用的话，Set obj = CreateObject("outlook.application")     Dim itmmail As Object也是可以的，只不过前者是前期绑定，后者是后期绑定。