word群发邮件-word里群发邮件怎么把默认的发件地址换掉

1、word如何更换默认的发送地址？

　　word如何更换默认发件地址？word在设置或发送电子邮件时更改发送地址。

2。想知道如何用excel或word群发邮件。word电子邮件合并可以吗？？？

　　[Word该功能不能直接发送带有附件的个性化群邮件，需要进行一些修改。以下内容是基于网络上提供的方案，我使用word测试后可以使用的方法：准备：首先使用word建立一个“目录”类型的电子邮件合并，在主文档中插入一个只有一行的表格，列数是根据需要设置的，但在我们目前的文档中，至少需要两列，**列存储客人电子邮件地址的合并域，第二列存储附件的完整路径，包括附件的名称和后缀。若需添加多个附件，则添加第三列，并将新附件路径的合并域放入其中。完成后，实施电子邮件合并，生成包含所有客人电子邮件地址和需要发送给每个客人的附件路径的Word文档（我直接敲击，不知道如何整个附件）。为这个文档建立一个你喜欢的名字，并保存在电脑上。这样，准备工作就完成了。列表主文档合并前↓合并后的列表文档↓建立宏并完成邮件发送：运行本文介绍的宏需要安装在计算机上Outlook(建议安装Outlook或以上版本)。在开始写宏程序之前，需要在vba编辑器中添加对outlook的引用。具体步骤是在需要建立电子邮件合并的Word主文档中按下Alt 打开vba编辑器，然后在“工具”菜单中选择“引用”，并添加类似于“MicrosoftOutlook##。0ObjectLibrary“##”是Outlook的版本号(如果我没记错的话，是11。0，是12。0，是14。0-微软似乎觉得13。0不吉利，华丽地忽略了13的版本号„„）。（这个是outlook，别看错了，我刚开始看错了，调试没通过)然后，插入一个模块，复制下面的代码:SubeMailMergeWithAttachments()DimdocSourceAsDocument，docMaillistAsDocument，docTempDocAsDocumentDimrngDatarangeAsRangeDimiAsLong，将当前文档设置为源文档(主文档)SetdocSource=ActiveDocument检查outlook是否打开。如果不打开，就打开新的OutlookOnErrorResumeNextSetoOutlookApp=GetObject(，"Outlook。Application")IfErr<>0ThenSetoOutlookApp=CreateObject("Outlook。Application")bStarted=TrueEndIf打开word文档，以保存客人的电子邮件地址和需要发送的附件路径。WithDialogs(wdDialogFileOpen)。ShowEndWith将文档设置为客户邮件(附件)列表文档SetdocMaillist=ActiveDocument如果您的outlok版本低于，则设置发送邮件的帐户(帐户必须在outlok中设置)使用发送电子邮件的帐户可能会导致错误，建议使用以下帐户SetoAccount="someone@examplemail。com删除语句SetoAccount="someone@examplemail。com一个输入框显示，询问并让用户输入电子邮件主题sMessage=“请将邮件主题输入到要发送的邮件中。"sTitle=“输入邮件主题”sMySubject=InputBox(sMessage，sTitle)“循环搜索源文档中的所有部分（每个部分为一封电子邮件内容），以及循环搜索电子邮件列表文档中的所有客户信息，以便插入生成的电子邮件lSectionsCount=-当源文档中的节数只有1时，lSectionsCount=0。会导致程序无**常运行。为确保当源文档只有一个节时程序能够正常运行，必须使lSectionsCount至少等于1IflSectionsCount=0ThenlSectionsCount=1Forj=1TolSectionsCountSetoItem=oOutlookApp。CreateItem(olMailItem)WithoItem如果你的Outlook版本低于，使用发送邮件的帐户可能会导致错误，下面的建议。SendUsingAccount=oAccount语句删除。SendUsingAccount=oAccount。Subject=sMySubject。Body=docSource。Sections(j)。Range。TextSetrngDatarange=docMaillist。Tables(1)。Cell(j，1)。RangerngDatarange。End=rngDatarange。End-1。To=rngDatarangeFori=2TodocMaillist。Tables(1)。Columns。CountSetrngDatarange=docMaillist。Tables(1)。Cell(j，i)。RangerngDatarange。End=rngDatarange。End-=NothingNextjdocMaillist。ClosewdDoNotSaveChanges如果Outlook是由该宏打开的，则关闭OutlookIfbStartedThenoOutlookApp。QuitEndIfMsgBox“共发送”&lSectionsCount&"封邮件。""清空Outloook实例SetoOutlookApp=NothingEndSub在这里，大部分工作已经基本完成。""清空Outloook实例SetoOutlookApp=NothingEndSub在这里，大部分工作已经基本完成。(代码中，我没有删除那两句编程，只是会someone@examplemail。com修改为我自己的email地址)现在，合并电子邮件生成Word文档，包括需要发送给所有客人的电子邮件。然后运行刚刚完成的宏。需要特别注意的一点是，用于生成客人电子邮件地址和附件列表的电子邮件合并的数据源与生成电子邮件本身的电子邮件合并的数据源**相同，否则可能会导致向错误客人发送错误的附件。合并前的邮件主文件↓合并后的邮件文件↓*为了便于测试，一开始不要有太多的数据源，只有2或3个记录，然后发送电子邮件代码“。Send”给成“。Display这样，邮件不会立即发送，而是会打开邮件。这样可以检查程序是否正确运行。*通过Office中的程序测试，在Office中会出来安全警告，每封信都有。如果不提前设置，需要点击每封信允许，我就点了几百次，累死了。这个可以在outlook信任中心(工具)信任中心在编程访问中，选择从不给我可疑的警告。若您感觉良好，请采纳谢谢亲。。c爱，你知道的，搜索

　　中企动力是一家专业的网络推广公司，我们拥有丰富的网络推广经验和专业的团队，能够为企业提供全方位的网络推广服务。我们为企业提供网站建设、网站优化、平台推广等服务，帮中企动力业在网络上提升知名度、扩大影响力、提升销售额。如果您有网络推广的需求，欢迎联系中企动力加微信：CE4006608066，我们将竭诚为您服务。