问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

想知道用excel或者word怎么能够群发邮件,word中的邮件合并能够吗????

发布网友 发布时间:2022-04-23 00:39

我来回答

4个回答

热心网友 时间:2023-10-09 10:50

【Word 合并邮件】功能无法直接发送带有附件的个性化群邮件,需要做一些修改。以下内容是根据网络上提供的方案,我用word 2007测试后能用的方法: 准备工作: 首先用Word建立一个“目录”类型的邮件合并,在主文档中插入一个只有一行的表格,列数根据需要设置,但在我们现在的这个文档中,至少需要两列,第一列存放客人邮箱地址的合并域,第二列存放附件的完整路径的合并域,包括附件的名称与后缀。如果你需要添加多于一个附件,就增加第三列,并把新的附件的路径的合并域放进去。完成以后,实行邮件合并,生成一个包含了所有客人邮箱地址和需要发送给每个客人的附件的路径的Word文档(我是直接手敲的,不大清楚怎么整附件的合并域)。为该文档建一个你喜欢的名字,并保存在电脑上。这样子,准备工作完成了。 合并前的列表主文档↓ 合并后的列表文档↓ 建立宏并完成邮件发送: 运行本文所介绍的宏,需要电脑中安装有Outlook(建议安装Outlook 2007或者以上版本)。在开始写宏程序之前,需要在vba编辑器中添加对Outlook的引用。具体步骤是:在需要建立邮件合并的Word主文档中按Alt+F11打开vba编辑器,然后在“工具”菜单中选择“引用”,并添加类似于“Microsoft Outlook ##.0 Object Library”的引用,其中“##”是Outlook的版本号(如果我没有记错的话,2003是11.0,2007是12.0,2010是14.0——好像微软觉得13.0不吉利,把13这个版本号给华丽的忽略掉了„„)。(这个是outlook,别看错了,我刚开始就是看错了,调试没通过) 然后,插入一个模块,并把下面的代码复制进去: Sub eMailMergeWithAttachments() Dim docSource As Document, docMaillist As Document, docTempDoc As Document Dim rngDatarange As Range Dim i As Long, j As Long Dim lSectionsCount As Long Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem Dim oAccount As Outlook.Account Dim sMySubject As String, sMessage As String, sTitle As String '将当前文档设置为源文档(主文档) Set docSource = ActiveDocument '检查Outlook是不是打开了。如果未打开的话,就打开新的Outlook On Error Resume Next Set oOutlookApp = GetObject(, "Outlook.Application") If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If '打开保存有客人的邮件地址和需要发送的附件的路径的word文档。 With Dialogs(wdDialogFileOpen) .Show End With '将该文档设置为客户邮件(附件)列表文档 Set docMaillist = ActiveDocument '设置发送邮件的账户(账户必须已经在Outlook中设置好了) '注意:如果你的Outlook版本低于2007,使用设置发送邮件的账户可能会导致错误, ' 建 议 将 下 面 的 Set oAccount = oOutlookApp.Session.Accounts.Item("someone@examplemail.com")语句删除 Set oAccount = oOutlookApp.Session.Accounts.Item("someone@examplemail.com") '显示一个输入框,询问并让用户输入邮件主题 sMessage = "请为要发送的邮件输入邮件主题。" sTitle = "输入邮件主题" sMySubject = InputBox(sMessage, sTitle) '循环查找源文档中所有的节(每一节为一封邮件内容),以及循环查找邮件列表文档中所有的客户信息, '以便用于插入到生成的邮件中 lSectionsCount = docSource.Sections.Count - 1 '当源文档中的节数仅有1时,lSectionsCount=0,将导致程序无法正常运行。 '为了保证当源文档只有1节时程序能正常运行,必须使lSectionsCount至少等于1 If lSectionsCount = 0 Then lSectionsCount = 1 For j = 1 To lSectionsCount Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem '注意:如果你的Outlook版本低于2007,使用设置发送邮件的账户可能会导致错误, '建议将下面的.SendUsingAccount = oAccount语句删除 .SendUsingAccount = oAccount .Subject = sMySubject .Body = docSource.Sections(j).Range.Text Set rngDatarange = docMaillist.Tables(1).Cell(j, 1).Range rngDatarange.End = rngDatarange.End - 1 .To = rngDatarange For i = 2 To docMaillist.Tables(1).Columns.Count Set rngDatarange = docMaillist.Tables(1).Cell(j, i).Range rngDatarange.End = rngDatarange.End - 1 .Attachments.Add Trim(rngDatarange.Text), olByValue, 1 Next i .Send End With Set oItem = Nothing Next j docMaillist.Close wdDoNotSaveChanges '如果Outlook是由该宏打开的,则关闭Outlook If bStarted Then oOutlookApp.Quit End If MsgBox "共发送了 " & lSectionsCount & " 封邮件。" '清空Outlook实例 Set oOutlookApp = Nothing End Sub 到这里,基本上已经完成大部分的工作了。(代码中,那两句编程我都没删掉,只是将someone@examplemail.com 修改为我自己的email地址) 现在,实行邮件合并,生成包含需要发给所有客人的邮件的Word文档。然后运行刚刚完成的宏,就可以了。 有一点需要特别注意的是:用于生成客人邮箱地址和附件列表的邮件合并的数据源,和用于生成邮件本身的邮件合并的数据源,最好是相同的,否则有可能导致把错误的附件发送给错误的客人的情况。 合并前的邮件主文档↓ 合并后的邮件文档↓ * 为了方便测试,一开始的数据源的数据不要太多,可以只有2、3个记录,然后把发送邮件的代码“.Send”给成“.Display”,这样子邮件不会马上发送出去,而是会打开邮件。这样子可以检查一下程序是否运行正确。 * 程序在Office 2010中测试通过 在Outlook 2007中,会出来安全警告,每封信都有,如果不提前做设置,就需要每封都点击允许,我就点了几百下,累死。这个可以在outlook信任中心(工具\信任中心\编程访问)中选择 从不向我发出可疑警告。 如果你感觉好的话,请采纳谢谢亲。sft568.c0爱慕,你懂得的,搜索一下

热心网友 时间:2023-10-09 10:50

  用excel或者word都不能够群发邮件。
  1、邮件合并:在Office中,先建立两个文档:一个WORD包括所有文件共有内容的主文档(比如未填写的信封等)和一个包括变化信息的数据源EXCEL(填写的收件人、发件人、邮编等),然后使用邮件合并功能在主文档中插入变化的信息,合成后的文件用户可以保存为Word文档,可以打印出来,也可以以邮件形式发出去 。
  2、应用领域
  1、批量打印信封:按统一的格式,将电子表格中的邮编、收件人地址和收件人打印出来。
  2、批量打印信件:主要是换从电子表格中调用收件人,换一下称呼,信件内容基本固定不变。
  3、批量打印请柬:同上2。
  4、批量打印工资条:从电子表格调用数据。
  5、批量打印个人简历:从电子表格中调用不同字段数据,每人一页,对应不同信息。
  6、批量打印学生成绩单:从电子表格成绩中取出个人信息,并设置评语字段,编写不同评语。[1]
  7、批量打印各类获奖证书:在电子表格中设置姓名、获奖名称和等资,在WORD中设置打印格式,可以打印众多证书。
  8、批量打印准考证、明信片、信封等个人报表。
  总之,只要有数据源(电子表格、数据库)等,只要是一个标准的二维数表,就可以很方便的按一个记录一页的方式从WROD中用邮件合并功能打印出来!

热心网友 时间:2023-10-09 10:51

此问题,EasyEDM邮件营销的小维在知道其他回答过,你可以点击这个问题查看详细的操作步骤:http://zhidao.baidu.com/question/573632619.html?oldq=1
1、创建通知单文档
2、选取Excel数据文件
3、插入域
4、合并到新文档
5、格式调整
整个组合就是OUTLOOK+EXCEL+WORD实施邮件批量发送,同时这个组织也适合网络传真个性化发送。

热心网友 时间:2023-10-09 10:51

可以的(详见视频)
用合并功能批量发送邮件
http://v.youku.com/v_show/id_XMTE4NjgwMzE2.html
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
小弟刚升到80级是法师 应该怎么弄装备啊 从哪里开始弄起 还有就是网上... 门上指纹锁要多少钱 手机百度如何搜索图片来源? 如何找出图片出处 win7电脑横屏如何处理笔记本电脑桌面变成横向了怎么办 win7电脑桌面反了怎么办电脑屏幕倒过来了怎么办 win7电脑变成竖屏快捷键我电脑变成竖屏了怎么调回来 win7系统电脑怎么横屏w7系统屏幕怎么横过来 win7系统更改电脑屏幕方向电脑屏幕旋转了怎么调整过来 调成竖屏模式电脑win7我电脑变成竖屏了怎么调回来 两张银行卡可以放在一起吗? 如何用WORD和EXCEL快速发送邮件 电热水器,灯亮不加热。旋钮温控器怎么测好坏,另外这热水器有热电偶吗? 怎样用word批量发邮件 怎样在Word2007中直接批量发送邮件 美的强排热水器温控器怎么判断好坏,两头接线可以短接吗? 海尔热水器通电后,指示灯不亮,量了下75℃温控器温控开关好的没事,那个限温器怎么测量出来好坏_百度问一问 怎样用word批量发邮件? 万用表如何测量电热水器的温度传感器好坏? 用数字万用表如何检测储水式电热水器上的温控器的好与坏 去菜市场买菜遇到最尴尬的事情是什么? 古代宫里买菜的叫什么 买菜小贩的人物描写 100字左右 关于买菜的事情啊 关于买菜的幽默句子 现在很多的年轻人喜欢去超市买菜,为何不去菜市场买菜? 买菜怎么砍价? 周公解梦梦见买菜是什么意思? 买菜的时候,哪种东西便宜味道鲜还能补脑? 早上起来买菜,无故头晕。是什么原因? 银行卡放家里还是带身上安全? 银行卡放家里还是带身上安全? 家用电热水器的温控器是怎么接线的? 我的股票连续开盘跌停了!怎样最快把它卖出去! word文档中发送邮件功能的使用方法 很多银行卡放到一起会不会消磁? 股票连续跌停会怎么样 银行卡放在手机壳后面会有影响吗? 银行卡放在手机壳后面会有影响吗? 连续八个跌停板的股票,这该怎么办? 怎么用word发送电子邮件? 怎样放银行卡不会消磁? 如何用word2003发送邮件 股票一直跌停怎么办 男人会把银行卡放在哪? 男人会把银行卡放在哪? 电热水器主板上的,温控器是什么样子的? 股票连续跌停两天该怎么处理 用WORD写完电子邮件怎么发送? 银行卡能否放在铁盒内?