邮件群发-不同邮件发不同人(从excel,利用notes)（Mass mailing - different messages from different people (from excel, using notes)）.docVIP

下载本文档

11
0
约7.35千字
约 13页
2017-09-27 发布于河南
举报
版权申诉

邮件群发-不同邮件发不同人(从excel,利用notes)（Mass mailing - different messages from different people (from excel, using notes)）.doc

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

邮件群发-不同邮件发不同人(从excel,利用notes)（Mass mailing - different messages from different people (from excel, using notes)）

邮件群发-不同邮件发不同人(从excel,利用notes)（Mass mailing - different messages from different people (from excel, using notes)）保存到草稿箱 (sub) Dim nosession the object, nodatabase the object nosession? ? nodatabase? ? Dim nodocument the object, noattachment the object nodocument? ? noattachment? ? Dim I%, fileself $J $stmsg the integer , I = 邮件数量 stmsg =.Body 邮件信体 fileself J Dim varecipient () the string varecipient =.Sendto 邮件地址 Dim vafiles () the string vafiles 附件地址和路径 Dim stmsg () the string 修改原程序, 将邮件信体设置为字符串数组 Dim stsubject () the string 修改原程序, 将邮件标题设置为字符串数组 Dim HS HS the shape stmsg = best regards vbcrlf _ application.username vbcrlf _ vbcrlf _ -------------------------------------------------------------------------- vbcrlf _ (重要文件, 因涉及个人奖金评价, 请重视.) vbcrlf _ (填写完毕后, 请及时上交给我, 谢谢.) * * * * 取消原程序用窗体控件的部分, 改为用特征字列 I = 0 ReDim varecipient (activesheet.shapes.count - 1) the string 邮件地址数组的大小 = 活动勾选框 - 1 ReDim vafiles (activesheet.shapes.count - 1) the string 附件地址和路径数据数组的大小 = 活动勾选框 - 1 ReDim stmsg (activesheet.shapes.count - 1) the string 邮件信体数组的大小 = 活动勾选框 - 1 ReDim stsubject (activesheet.shapes.count - 1) the string 邮件主题数据的大小 = 活动勾选框 - 1 For each HS in activesheet shapes. If HS. Type = msoformcontrol then msofromcontrol = 窗体控件 If sh.formcontroltype = xlcheckbox then xlcheckbox = 复选框 If sh.controlformat.value = 1 then 找出勾选的邮件地址 varecipient (I) = (0, 1) sh.bottomrightcell.offset 勾选框右边第一列为邮件地址 vafiles (I) = sh.bottomrightcell.offset (0, 2) 勾选框右边第二列为附件地址和路径 stsubject (I) = sh.bottomrightcell.offset (0, 3) 勾选框右边第三列为邮件标题 stmsg (I) = vbcrlf sh.bottomrightcell.offset (0, 4) vbcrlf 勾选框右边第四列为邮件信体 I = I + 1 End if End if End if next Lastrow = range (a65536).End (xlup).Row 查找范围 Erow = 0 For I = 1 to lastrow 计算发送邮件的有效数量 If cells (I, a) = 发送 then erow = erow + 1 Next ReDim varecipient (erow - 1) the string 邮件地址数组的大小 = 有效数量 - 1 redim vafiles (erow - 1) as string 附件地址和路径数据数组的大小 = 有效数量 - 1 redim stmsg (erow - 1) as string 邮件信体数组的大小 = 有效数量 - 1 redim stsubject (erow - 1) as string 邮件主