网站首页建设公司,建设大型网站怎样赢利,wordpress添加数据库文件,wordpress电影插件Excel中用VBA实现Outlook发送当前工作簿#xff0c;首先按AltF11打开VBA编辑器#xff0c;插入模块#xff0c;并在工具-引用中勾选 Microseft Outlook .0 Object Library(其中为你Microseft Outlook的版本号。
Sub 发送邮件()
保存当前excel
ThisWorkbook.Save让excel连接…Excel中用VBA实现Outlook发送当前工作簿首先按AltF11打开VBA编辑器插入模块并在工具-引用中勾选 Microseft Outlook .0 Object Library(其中为你Microseft Outlook的版本号。
Sub 发送邮件()
保存当前excel
ThisWorkbook.Save让excel连接outlook 要将工具/引用中的Microseft Outlook *.0 Object Library(其中*为你Microseft Outlook的版本号)选上
Dim 信差 As Outlook.Application
Set 信差 New Outlook.Application
创建邮件实例
Dim 新邮件 As MailItem
Set 新邮件 信差.CreateItem(olMailItem)
获取当前工作簿完整路径
Dim filePath As StringfilePath ThisWorkbook.FullNameMsgBox filePathWith 新邮件设置收件人地址.To 设置抄送收件人地址.CC 设置邮件主题.Subject 设置邮件内容.Body 设置附件.Attachments.Add (filePath)显示UI.Display发送邮件.SendEnd With 清理Set 新邮件 NothingSet 信差 NothingEnd Sub
