如何在Excel表中增加自动发邮件功能?

Sub dd()
ActiveSheet.Copy '当前工作表复制出去
ActiveWorkbook.SaveAs "表名"
ActiveWorkbook.SendMail "llm@hdcoal", "主题" '发送这个另存的，邮箱和标题
ActiveWorkbook.ChangeFileAccess xlReadOnly '更改这个新建工作簿为可读
Kill ActiveWorkbook.FullName '删除这个新建工作簿
ActiveWorkbook.Close False '不保存就关闭它，这样新建的工作簿会被直接删除哦不会留下痕迹
End Sub