excel批量发送邮件带附件,批量发邮件 不同附件

excel批量发送邮件带附件,批量发邮件 不同附件

.Attachments.AddCells(rowCount,4).Value'设置附件（从Excel表格第四列中的"附件"字段获取）.SendEndWithSetobjMail=Nothing'DestroytheobjMailobjectNextMsgBox("AllmailshavebeensentStep2MailMergeOperation1.CreateanewWorddocumentandeditthetext2.ClickMail-StartMailMerge-MailMergeStep-by-StepWizard3.安装向导：选择电子邮件-下一步-使用当前文档 -NextSelectRecipients4.选择数据源：

CDO.Message对象的常用属性复制以下代码，激活工资单所在的工作表，然后运行代码批量发送邮件。 SubSendMailEnvelope()DimavntWageAsVariantDimiAsLoExcel自动批量发送邮件的操作步骤准备发送数据：a.)打开Excel，新建Book1.xlsxb.)填写以下内容，第一列：收件人，第二列：邮件标题，第三列：文本，第四列：附件路径注

1、必须配置OutlookExcel模板。2、打开Excel模板，按Alt+F11，导入SendMail.bas文件，修改相应数字打开Excel文件，按快捷键ALT+F11进入VBE界面。 单击左侧的项目窗口，单击鼠标右键，然后创建一个新模块。 将代码粘贴到模块中。 返回Excel界面并开始验证电子邮件发送功能。 如果您不明白以上文字，请阅读

首先打开Excel文件，里面有两个工作表，第一个是发送列表，里面的内容很简单，如下：另一个工作表是邮件的标题和正文：写完相应的文字后，点击发送按钮之后，邮箱附件下会自​​动弹出附件的名称，代码中需要正确输入附件的路径第三步：复制以下代码进入模块，在excel表格中，创建一个按钮控件，指定代码，即可运行；Subbutton1_Click()'ProgramButton'即可正确