iphone7音频解码芯片:如何在Excel表中增加自动发邮件功能?

来源:百度文库 编辑:偶看新闻 时间:2024/04/25 16:00:31
Sub dd()
ActiveSheet.Copy '当前工作表复制出去
ActiveWorkbook.SaveAs "表名"
ActiveWorkbook.SendMail "llm@hdcoal", "主题" '发送这个另存的,邮箱和标题
ActiveWorkbook.ChangeFileAccess xlReadOnly '更改这个新建工作簿为可读
Kill ActiveWorkbook.FullName '删除这个新建工作簿
ActiveWorkbook.Close False '不保存就关闭它,这样新建的工作簿会被直接删除哦不会留下痕迹
End Sub