怎么发邮件(怎么发邮件文件)
如果你每天都要做一份报告，并发送给一个固定的收件人，你是否希望只需点击一个按钮，立即将报告作为附件发送？只要你学过Excel中的VBA编程，这是一件非常简单的事情。
首先在报表中创建一个“邮箱地址”表(当然其他名字也可以，在程序中引用这个名字即可)。收件人的地址从B2添加到D2，cc的地址添加到F2，G2填充主题，H2填充文本。列A、C和E可以填充相应接收者的姓名，但这不是必须的。
密送收件人只是在这里说明程序的用途，失去了密送的意义。这个收件人列表可能不需要，但是应该在代码中维护收件人，这样更接近实际。一般初学者可以在收件人表中维护收件人信息。
B2收件人，D2抄送，F2密送，G2邮件主题，H2邮件正文B2收件人，D2抄送，F2密件抄送，G2电子邮件主题，H2电子邮件正文
发送邮件代码如下:
公共订阅发送电子邮件()
将OutlookApp调暗为Outlook。应用
将新邮件隐藏为Outlook.mailitem
将我的附件显示为Outlook。附件
Dim n为整数，I为整数
将ws标注为工作表
出错时继续下一步
set ws = Worksheets(& # 34；邮件地址& # 34；)
n = ws。范围(& # 34；B65536 & # 34).结束(xlUp)。排
地址=工作表(& # 34；邮件地址& # 34；).细胞(2，2)
对于i = 2至n
如果我& lt那么
地址=地址& amp"；"& amp工作表(& # 34；邮件地址& # 34；).单元格(i + 1，2)
如果…就会结束
接下来我
'抄送
n = ws。范围(& # 34；D65536 & # 34).结束(xlUp)。排
address cc = Worksheets(& # 34；邮件地址& # 34；).细胞(2，4)
对于i = 2至n
如果我& lt那么
addressCC = addressCC & amp"；"& amp工作表(& # 34；邮件地址& # 34；).单元格(i + 1，4)
如果…就会结束
接下来我
'秘送
n = ws。范围(& # 34；F65536 & # 34).结束(xlUp)。排
address bcc = Worksheets(& # 34；邮件地址& # 34；).细胞(2，6)
对于i = 2至n
如果我& lt那么
地址BCC =地址& amp"；"& amp工作表(& # 34；邮件地址& # 34；).单元格(i + 1，6)
如果…就会结束
接下来我
设置OutlookApp =新Outlook。应用
wbStr = ThisWorkbook。全名& # 39；指定要发送的工作簿的名称字符串。
设置newMail = OutlookApp。CreateItem(ol mailitem)& # 39；创建新邮件
使用新邮件
。主题=工作表(& # 34；邮件地址& # 34；).单元格(2，7)& # 39；设置邮件主题
。Body =工作表(& # 34；邮件地址& # 34；).单元格(2，8)& # 39；设置邮件正文
'发送附件
设置myAttachments = newMail。附件
我的附件。Add wbStr，olByValue，1，& # 34；工作簿& # 34；
。To =地址& # 39；承销人
。CC = addressCC & # 39为…复印一份
。BCC = addressBCC & # 39体形立方晶格
。发& # 39；开始发送
以…结尾
末端接头
请注意，在Outlook中设置编程权限，具体请参考我的另一篇文章《如何使用Excel实现办公自动化》。否则，会弹出以下对话框供您选择:
Outlook弹出的对话框Outlook弹出对话框
最后，在附加菜单中添加一个按钮，链接到您编写的程序模块。单击按钮运行程序，并将您的报告作为附件发送给相关收件人。要在将来发送电子邮件，只需点击此按钮。
免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。系信息发布平台，仅提供信息存储空间服务。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。
本文来自网络,若有侵权，请联系删除，作者：马阳华，如若转载，请注明出处：
