乔布斯最有魅力的10封电子邮件曝光
乔布斯最有魅力的10封电子邮件曝光
【TechWeb报道】12月3日消息，据CNN财经网报道，尽管苹果创始人史蒂夫&乔布斯告别我们已有3年，但他的各种声音仍继续对我们的生活产生影响，甚至被用作对抗苹果的武器。
昨日，乔布斯在2003年发出的一封邮件成为苹果iPod音乐播放器反垄断案的关键证据。乔布斯在邮件中提到：&当Music Match发布其音乐下载商店时，我们要确保他们不能使用iPod，能搞定吗？& 看吧，就是这么直白，但这一次它可能会害了苹果。
不管怎样，乔布斯的直白唐突的特点并不只表现在面对面的交流，他的邮件以真性情为特点。现在，能坐上CEO职位的高管通常都受过规范的邮件书写训练，乔布斯的这种风格真是少之又少，这些大白话太容易被拿到法庭当证据了。
也不知道乔布斯现在晓得这点不，或是他根本不在乎。以下这10封电子邮件展示了乔布斯的严格、直言无讳，以及机智诙谐的个性，这也使他成为了那个时代最有魅力的CEO之一。
以下为文章内容摘要：
1、致一名iPhone 4用户，他是&天线门&事件的受害者
乔布斯说：&别用那种方式拿手机就行了。&
2、致iPodRip应用的开发商，苹果准备要起诉该开发商。
乔布斯说：&把你们的软件名称改了。这不是什么大事。&
3、致一名Mac用户，这位用户的电脑进水了，又过了保修期。
乔布斯说：&这是由于你的MacBook Pro进水所致。它们是专业的计算机，不喜欢水。你好像只是想找一个人来发泄怒气。&
4、致苹果员工，描述苹果2011年战略。
乔布斯说：&2011年：与谷歌圣战。&
5、 致一家广告商，他指责乔布斯在移动广告方面是个&蠢蛋&。
乔布斯回：&顺便说下，你以前还是个超级销售员呢。&
6、致Palm公司CEO爱德华&卡里干（Ed Colligan），当时Palm拒绝收回其挖角苹果的决定。
乔布斯说：&我相信，你知道我们两家公司的财务资源是不对等的。我的建议是，在你作出最终决定前，先看看我们的专利布局吧。&
7、 致苹果人力资源主管，在得知谷歌开除了公司一名挖角苹果员工的人力资源主管（两家公司曾签署互不挖角协议）
乔布斯在邮件中写道：& :-)&（笑脸）。
8、致新闻集团高管詹姆斯&默多克（James Murdoch），他掌管着图书发行商HarperCollins&&亚马逊的竞争对手，当时亚马逊试图提高电子的价格
乔布斯说：&投资苹果吧，看看我们能不能创建一个真正主流的电子书市场，售价在12.99美元至14.99美元。&
9、致一名急切的大学生记者，她因为没有得到苹果媒体关系团队的回复而感到崩溃
乔布斯说：&请别烦我们。&
10、致苹果高管，关于阻止竞争对手服务与iPod相兼容
乔布斯说：&当Music Match发布其音乐下载商店时，我们要确保他们不能使用iPod，能搞定吗？&
官方微博/微信
每日头条、业界资讯、热点资讯、八卦爆料，全天跟踪微博播报。各种爆料、内幕、花边、资讯一网打尽。百万互联网粉丝互动参与，TechWeb官方微博期待您的关注。
↑扫描二维码
想在手机上看资讯资讯和科技八卦吗？想第一时间看独家爆料和深度报道吗？请关注TechWeb官方微信公众帐号：1.用手机扫左侧二维码；2.在添加朋友里，搜索关注TechWeb。
乔布斯电子邮件
乔布斯电邮
相关的资讯有：
乔布斯电子邮件
乔布斯电邮
相关的博文有：
2015转眼已经过半，这半年来智能手机行业发布的新机可一点都不少，这些旗舰产品也被看...
不久之前，小米雷军已经宣布小米Note全网通版将会在6月30日到来，不过雷军并未透露该...
Mate 7的热卖，让华为决心继续推行高端智能手机的战略，而到了P8，他们显然要玩的更大...
前不久，由于中国区业绩不佳，联想集团移动业务集团总裁刘军卸任，杨元庆也放出重话，...
北京时间6月26日消息，据科技博客AppleInsider报道，为了庆祝美国在LGBT(女同性恋者、...
Windows10表面需求的旺盛（还有待市场的最终检验）更多是在其在传统PC市场再次纠错和...
在我的世界生存模式中，挖矿是玩家必须要从事的活动，掌握一些挖矿技巧很有必要，就来......
《我叫MT2》6月新版本即将震撼登场，各位勇士们是不是迫不及待想要知道新版本的内容了......
在昨日炉石传说更新了版本为9166的补丁，但目前炉石传说新版本并没有激活和提供玩家下......
奇迹暖暖公测开启啦！新玩家们进入游戏首先要做的当然是先把剧情通一遍。下面蚕豆网小......
Copyright (C)
All rights reserved.
京公网安备号
请选择一张图片分享
要转发到新浪微博，请
要转发到QQ空间，请& 电子邮件
大小：363.4MB更新时间：软件类型：电子邮件&免费软件
Microsoft Office Outlook 2007 提供了一个用于管理时间和信息、进行跨边界连接以及控制您收到的信息的集成解决方案。此安装包可选安装Outlook、excel、word等微软Office 2007办公套件。...
大小：32.94MB更新时间：软件类型：电子邮件&免费软件
foxmail邮箱是腾讯公司出品的一款优秀电子邮箱客户端软件。Foxmail提供的电子邮件收发功能。中关村在线提供最新安全纯净的foxmail下载。ZOL提供foxmail官方下载。 继Foxmail 6.5 正式版后，时隔两年，Foxmail客户端官网再次更新——F...
大小：35.56MB更新时间：软件类型：电子邮件&共享软件
Csmail是北京方标讯业自主开发的基于Linux系统上的安全邮件系统，是企业用户期待着新一代大容量、高安全、高可靠、高稳定性、高可扩展性的邮件系统，CSmail填补了邮件行业领域多项空白，满足了众多大中企事业单位的需求。...
大小：10.38MB更新时间：软件类型：电子邮件&免费软件
网易闪电邮正式版是一款网易自主研发的优秀电子邮件客户端软件，可同时管理包括网易六大邮箱、QQ、新浪、搜狐、gmail等主流电子邮箱商及企业邮箱等在内的多个邮箱帐户；独创网易专有邮件协议（NMMP邮件协议），同时支持POP3、IMAP邮箱...
大小：2.24MB更新时间：软件类型：电子邮件&免费软件
网易邮箱助手是网易邮箱2010年的重点客户端产品，是网易针对邮箱用户推出的一款轻桌面式管理邮件软件。软件采用业界最先进的Push mail技术，提供实时的新邮件提醒、一键登录网易免费邮箱等操作，用户安装此软件后，只要添加对应的邮箱帐户...
大小：0.91MB更新时间：软件类型：电子邮件&免费软件
1.随时随地检测邮件状况，若有新邮件，则会以卡通动画形式提醒。 2.可以检测多个邮箱，你再也不用为管理繁多的邮箱发愁。 3.鼠标一点，自动接收/发送邮件，快捷方便，你不用再为了接收邮件进行复杂的操作。 4.不用再记每个邮箱的密码，邮...
大小：2.69MB更新时间：软件类型：电子邮件&免费软件
THE Gmail Notifier全新推出的邮箱检测程序，可以在系统栏显示Gmail的状态。此外,您还可以阅读电子邮件,删除一些垃圾的电子邮件。...
大小：0MB更新时间：软件类型：电子邮件&共享软件
捷易网易163邮箱自动注册机是一款全自动邮箱批量注册器，目前支持网易163,126,yeah.net,qq,21cn邮箱,最完美的全自动邮箱注册工具。软件功能特点： 1、支持远程验证码自动识别，无需手动输入.优化了验证码识别错误不能正常报错的验证问题2...
大小：1.77MB更新时间：软件类型：电子邮件&共享软件
爱博QQ邮箱搜索机根据腾讯网站的QQ达人，按照设定的地区（省市县）、年龄段、性别等条件，扫描搜索活跃的QQ号码，并用QQ号码生成QQ邮箱。需要指出的是，本软件是真实扫描QQ网站上的QQ号码，而不是根据阿拉伯数字自动生成的数字串！这...
大小：9.06MB更新时间：软件类型：电子邮件&免费软件
DreamMail梦幻快车是一款非常人性化的电子邮件客户端软件，拥有众多巧妙地功能设计。如特有的破乱码技术，可以轻松对付各种乱码邮件；内建了邮件压缩存储，能减少硬盘空间的占用；编辑邮件时可以自动存盘防止死机断电；拖曳附件到预览窗口...
大小：25.76MB更新时间：软件类型：电子邮件&免费软件
随着科学技术的发展，信息的迅速膨胀。越来越多的人把手机短信作为工作的一个重要环节，有时还把它作为一种凭证，比如、银行、证券、医院、法院、等等，人们把短信导出或许是留作纪念，或许是为了更好的了解一个客户，或许是是把它当成一...
大小：0MB更新时间：软件类型：电子邮件&免费软件
139手机邮箱是中国移动官方出品的电子邮箱产品，为您带来前所未有的邮箱体验！本客户端专为139网页版用户设计，在保留现有操作习惯的基础上，客户端为微软Surface平板电脑做了适配：邮件正文/邮件列表/日期列表切换：通过快捷键，可以快速...
大小：0.01MB更新时间：软件类型：电子邮件&免费软件
重新打包了各自的完整安装包（RAR格式，请先保证自己系统中带有WinRAR/WinZIP/7-ZIP其中一款压缩&解压软件）……顺便解释下为什么不能卸载以及卸载方法……由于系统限制&性格懒散，本人只提供x86平台版本的安装包，x64用户请自行下载...
大小：14.04MB更新时间：软件类型：电子邮件&免费软件
mac上现在有了更酷的foxmail。不用有压力，无需费心思考。清晰明快的界面让每一个功能区域一目了然。手势的一拖一拽间，心之所想，动之所至。从今开始，在foxmail中体验处理邮件的快感。...
大小：0.01MB更新时间：软件类型：电子邮件&免费软件
抽空把hMailserver5.3做了一下汉化1 把chinese.ini文件复制到 hMailServer 安装目录下的 \Languages2 编辑 \Bin\hMailServer.INI 文件，在 ［GUILanguages］ 字段中的 ValidLanguages 项添加 “chinese”； Windows平台开源的,这个时...
大小：1.54MB更新时间：软件类型：电子邮件&共享软件
GoGoMail 2010 是由Kafox小组开发的一款优秀的国产邮件、短信发送软件, 其主要目的是为了改善并提高办公人员对邮件发送、短信发送的工作效率，使其从繁琐、枯燥的邮件、短信发送中解脱出来。它是一套集邮件群发分发、短信群发分发为主要...
大小：29.2MB更新时间：软件类型：电子邮件&共享软件
基于Microsoft .NET Framework 2.0而开发的营销软件，是一款无插件无病毒的绿色软件！广泛应用于网站推广、产品宣传、多客户联系等领域。软件的实质是一个多工具运行平台，主要功能及特色：1、通过关键字采集行业QQ群，导出群成员QQ号...
大小：10.57MB更新时间：软件类型：电子邮件&免费软件
IncrediMail 是一个与众不同的E-mail软件。它具有非常酷的视窗介面、寄信动画效果、可爱的收件信差。还有很多的信签、动画、音效、卡片等，可以组合成出非常炫的电子邮件。让写E-mail和看E-mail都变成新鲜的体验。...
大小：1.32MB更新时间：软件类型：电子邮件&共享软件
ClickYes Pro 允许你配置哪个应用软件可以使用 Microsoft Outlook 自动地发送电子邮件或者访问存储在你的 Outlook 地址簿当中的电子邮件地址.该软件在系统托盘当中运行并且可以允许应用软件访问 Outlook 而不需要任何延迟或者安全提示....
大小：3.83MB更新时间：软件类型：电子邮件&共享软件
思达电子邮箱地址收集工具这是一款专业的电子邮件地址搜索和提取软件,专门从互联网上搜集电子邮箱地址。它具有强大的搜索和提取能力，支持网站、论坛和关键字搜索，你只要输入一个网址或一个关键字，系统将立即自动搜索并提取电子邮件地址...
可用“&”或“&”方向键快速翻页
12345678910
12345678910电子邮件(email)使用完全手册_科技时代_新浪网
您现在使用的主要电子邮件软件是什么？
Netscape Mail
　　　　电子邮件（又称为“妹儿”）对上网的人而言，是如此的难以离弃，但是，病毒，这个可恨的家伙，披上“妹儿”的外衣后，如此猖獗，令我们对可爱的“妹儿”不禁有了一丝疑虑：她是否仍然可爱依旧呢?现在笔者就来告诉大家，其实我们可以这样来分辨我们的“妹儿”的。 >>　　　　如今，使用E-mail的人少有不被垃圾邮件困扰：各种你不希望看到的商业广告、产品介绍、色情信息、邮件炸弹及许多来历不明的邮件，有时会排山倒海般地涌入你的邮箱，常常会让你检查得眼发花、删除到手发软。这些邮件，既占用了我们的时间和金钱，又影响了正常的网络通信。不过也别紧张，只要依据垃圾邮件的特征，建立起一定的邮件规则或采取必要的防范措施，仍能还你的邮箱一片净土。这里以我个人的体会教你七个远离垃圾邮件的绝招！>>　　　　我常用Outlook Express收发邮件，邮件都存放在自己的硬盘，不知不觉邮件所占有的空间越来越大。而且也不好管理，经过一段时间的摸索，我找到了上、中、下三个策略。>>
　　电子邮件软件大观&&
(1月15日 15:57)
(1月7日 11:30)
(1月7日 11:23)
(1月7日 11:18)
(1月2日 11:33)
(1月1日 12:29)
(12月3日 09:43)
(12月2日 09:07)
(11月18日 09:07)
(11月18日 09:06)
(11月18日 09:03)
(9月30日 09:17)
(9月22日 09:08)
(9月15日 10:37)
(7月2日 10:57)
(1月2日 17:34)
(12月10日 14:03)
(10月11日 10:59)
(7月31日 14:40)
(7月29日 14:14)
　　电子邮件使用技巧&&
(11月19日 08:55)
(11月7日 09:04)
(10月20日 14:17)
(9月8日 10:24)
(9月4日 14:03)
(8月28日 14:29)
(7月23日 13:09)
(6月26日 11:00)
(6月26日 10:34)
(6月11日 10:49)
(6月11日 10:46)
(1月24日 15:37)
(1月8日 15:21)
(12月26日 10:40)
(12月20日 15:30)
(12月18日 14:48)
(12月12日 09:00)
(12月10日 16:18)
(9月30日 14:47)
(9月19日 13:47)
　　如何防范垃圾邮件&&
(12月31日 13:19)
(12月31日 13:17)
(11月14日 09:30)
(11月10日 09:30)
(9月25日 09:47)
(7月28日 10:49)
(7月2日 10:12)
(12月25日 15:53)
(12月2日 15:10)
(9月4日 15:34)
(8月15日 11:47)
(5月9日 13:31)
(4月11日 14:42)
(11月8日 15:11)
(9月13日 15:14)
(7月20日 16:14)
(5月14日 14:34)
(5月14日 14:31)
(4月27日 16:30)
(4月9日 17:31)
　　电子邮件相关立法&&
(11月6日 18:09)
(11月6日 18:08)
(11月6日 18:06)
(11月6日 18:04)
(11月6日 18:01)
　　电子邮件病毒防范&&
(5月18日 13:44)
(5月18日 13:43)
(5月18日 13:41)
(11月22日 11:47)
责编：顾晓斌电话：010-分机：5063点击
　电话：010-8　　　欢迎批评指正 |
Copyright & 1996 - 2004 SINA Inc. All Rights Reserved　新浪网23174人阅读
利用Excel批量快速发送电子邮件，分两步：
1. 准备待发送的数据：
& &a.) 打开Excel，新建Book1.xlsx
& &b.) 填入下面的内容，
第一列：接收人，第二列：邮件标题，第三列：正文，第四列：附件路径
注意：附件路径中可以有中文，但是不能有空格
这里你可以写更多内容，每一行作为一封邮件发出。
注意：邮件正文是黑白文本内容，不支持加粗、字体颜色等。（如果你需要支持彩色的邮件，后面将会给出解决办法）
2. 编写宏发送邮件
& a.) Alt + F11 打开宏编辑器，菜单中选：插入-&模块
& b.) 将下面的代码粘贴到模块代码编辑器中：
‘代码list-1
Public Declare Function SetTimer Lib &user32& _
(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib &user32& _
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib &kernel32& (ByVal dwMilliseconds As Long)
Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As Long
KillTimer 0, idEvent
'使用Alt+S发送邮件，这是本文的关键之处，免安全提示自动发送邮件全靠它了
Application.SendKeys &%s&
End Function
' 发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)
Dim objOL As Object
Dim itmNewMail As Object
'引用Microsoft Outlook 对象
Set objOL = CreateObject(&Outlook.Application&)
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.subject = subject
.body = body
.To = to_who
.Attachments.Add attachement '附件，如果你不需要发送附件，可以把这一句删掉即可，Excel中的第四列留空，不能删哦
'启动Outlook发送窗口
SetTimer 0, 0, 0, AddressOf WinProcA
Set objOL = Nothing
Set itmNewMail = Nothing
'批量发送邮件
Sub BatchSendMail()
Dim rowCount, endRowNo
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'逐行发送邮件
For rowCount = 1 To endRowNo
SendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4)
最终代码编辑器中的效果如下图：
为了正确执行代码，你还需要在
菜单中选择： 工具-&引用 中的Microseft Outlook X.0 Object Library &勾选上 （X.0是版本号，不同机器可能不一样）
& &c.) 粘贴好代码、勾选上上面的东东后可以发送邮件了，点击上图A红圈所示的绿色三角按钮，会弹出下图所示的对话框，点运行，就开始批量发送邮件了。
& &d.) 如果你想确认你的邮件是否都发出去了，可以去Outlook的“已发送邮件”文件夹中查看，是否有你希望发出的邮件，如果有，恭喜你，收工~~
---------------------------------------------------------------------
1. 如何发送彩色的邮件
2. 如何替换正文中的部分内容，例如，每一封邮件中可能最开始的称呼不同，给对方报出的数字不同等
3. 如何发送多附件
---------------------------------------------------------------------
1.&如何发送彩色邮件
发送彩色邮件需要两步，
第一步：上面的代码需要改一句（红色加粗文本，body改成HTMLBody）：
‘代码list-2
' 发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)
& & Dim objOL As Object
& & Dim itmNewMail As Object
& & '引用Microsoft Outlook 对象
& & Set objOL = CreateObject(&Outlook.Application&)
& & Set itmNewMail = objOL.CreateItem(olMailItem)
& & With itmNewMail
& & & & .subject = subject &'主旨
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
.HTMLbody = body & '正文本文，仅仅这一行跟前面不同，其余都是一样的哦~
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
& & & & .To = to_who &'收件者
& & & & .Attachments.Add attachement '附件
& & & & .Display &'启动Outlook发送窗口
& & & & SetTimer 0, 0, 0, AddressOf WinProcA&
& End With& & Set objOL = Nothing
& & Set itmNewMail = NothingEnd Sub
第二步：修改excel第三列（C列）的内容，这需要你懂一点点HTML语言
例如，希望在邮件中将“报税单”三个字变红，加粗，则将第三列的内容修改为：
您好，下面是这一周的&font color=&red&&&b&报税单&/b&&/font&，…
最终效果如图：
去发件箱里看看效果吧：
注意：在Excel里面编辑正文，进行加粗、加颜色的操作不会生效哦。必须用HTML自己来，sorry哦&不会HTML的朋友可以新浪微博follow我帮忙：@研究员Raywill
2.&如何替换正文部分内容
1. 换Excel内容
1. 换Excel内容：
将变化的部分用[==xxxx==]这样的形式替换掉。注意：中间没有空格。
例如上图，数字[==1==]会被E列的内容替换掉，[==2==]会被F列的内容替换掉，依此类推，如果有更多，就添加更多列，[==3==], [==4==]等等。
2. 换代码，将 &批量发送邮件&这一段程序完全替换成下面的代码：
'批量发送邮件
Sub BatchSendMail()
Dim rowCount, endRowNo
Dim newBody
Dim replaceCount, maxReplaceCount
Dim pattern
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'逐行发送邮件
For rowCount = 1 To endRowNo
' 替换当前行模板内容
maxReplaceCount = 2
' 有几处替换就写几，例子中有两处，就写2
newBody = Cells(rowCount, 3)
For replaceCount = 1 To maxReplaceCount
pattern = &[==& & CStr(replaceCount) & &==]&
newBody = WorksheetFunction.Substitute(newBody, pattern, Cells(rowCount, 4 + replaceCount))
' 替换好了，发邮件咯！
SendMail Cells(rowCount, 1), Cells(rowCount, 2), newBody, Cells(rowCount, 4)
注意：上面“maxReplaceCount = 2&这一行代码，2需要改成你自己的值，替换几个地方就写几（新添加了几个列就写几）上面添加了E、F两列，就是2，如果你添加了3处替换（E、F、G列），就写3.
不过，对于需要重复替换的内容，不需要添加新列，例如，《大话西游》在邮件中出现了两次，可以重复使用[==2==]来代表。
3.&如何发送多附件
在实际应用场景中可能需要发送多封附件，其实很简单，将SendMail子程序修改成下面的样子即可：
' 发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)
Dim objOL As Object
Dim itmNewMail As Object
Dim attaches
Dim attach
'引用Microsoft Outlook 对象
Set objOL = CreateObject(&Outlook.Application&)
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.subject = subject
.HTMLbody = body
.To = to_who
'启动Outlook发送窗口
attaches = Split(attachement, &;&)
For Each attach In attaches
If (Len(attach) & 0) Then
.Attachments.Add attach
SetTimer 0, 0, 0, AddressOf WinProcA
Set objOL = Nothing
Set itmNewMail = Nothing
在Excel的附件列（第三列），多个附件用半角的分号分隔开（是”;&，不是”；“），例如：
c:\doc\毕业证书附件.c:\doc\校方证明书.docx
最终代码如下：
汇总了批量替换、彩色邮件、多附件功能
Public Declare Function SetTimer Lib &user32& _
(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib &user32& _
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib &kernel32& (ByVal dwMilliseconds As Long)
Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As Long
KillTimer 0, idEvent
'使用Alt+S发送邮件，这是本文的关键之处，免安全提示自动发送邮件全靠它了
Application.SendKeys &%s&
End Function
' 发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String)
Dim objOL As Object
Dim itmNewMail As Object
Dim attaches
Dim attach
'引用Microsoft Outlook 对象
Set objOL = CreateObject(&Outlook.Application&)
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.subject = subject
.HTMLbody = body
.To = to_who
'启动Outlook发送窗口
attaches = Split(attachement, &;&)
For Each attach In attaches
If (Len(attach) & 0) Then
.Attachments.Add attach
SetTimer 0, 0, 0, AddressOf WinProcA
Set objOL = Nothing
Set itmNewMail = Nothing
'批量发送邮件
Sub BatchSendMail()
Dim rowCount, endRowNo
Dim newBody
Dim replaceCount, maxReplaceCount
Dim pattern
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'逐行发送邮件
For rowCount = 1 To endRowNo
' 替换当前行模板内容
maxReplaceCount = 2
' 有几处替换就写几，例子中有两处，就写2
newBody = Cells(rowCount, 3)
For replaceCount = 1 To maxReplaceCount
pattern = &[==& & CStr(replaceCount) & &==]&
newBody = WorksheetFunction.Substitute(newBody, pattern, Cells(rowCount, 4 + replaceCount))
' 替换好了，发邮件咯！
SendMail Cells(rowCount, 1), Cells(rowCount, 2), newBody, Cells(rowCount, 4)
参考文献：
本文发送邮件过程中不会弹出安全提示框，发件速度极快；)
网友反馈：
发件人：angel3814
时间： 10:35:30
您好，经过测试，该方法对于大量发送邮件（大于100封。几十封没有问题。）有一些问题，因为程序必须在建立完成所有word发送窗口后，才会统一alt+S发送，很容易造成内存不足，并且，最后的alt+S便不再执行，在实际应用中，我只能再写一个按钮，每次发送5封，发送完成计数+5，手工再点；想跟您请教，是否能有更好的改进方法？
非常感谢angel3814提供的解决方案：
Sub BatchSendMail()
Dim rowCount, endRowNo, csheet As Worksheet, ssheet As Worksheet, i As Integer, j As Integer
endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
'逐行发送邮件
Set csheet = Worksheets(&邮件内容&)
Set ssheet = Worksheets(&发送&)
i = ssheet.Cells(2, 1).Value
j = ssheet.Cells(2, 2).Value
For rowCount = i To j
SendMail csheet.Cells(rowCount, 1), csheet.Cells(rowCount, 2), csheet.Cells(rowCount, 3), csheet.Cells(rowCount, 4)
ssheet.Cells(2, 1).Value = i + 5
ssheet.Cells(2, 2).Value = j + 5
点一次，自动+5，再点
之所以用5，是测试发现，10以上，就有很大几率alt+S事件不生效（可能还是延迟问题？）
另外，对于希望批量发送邮件的同学，可以不用把思维局限在Outlook上。如果你知道公司的邮件服务器的pop3地址，不妨用命令行工具来实现邮件的批量自动发送。
例如：Blat：http://www.blat.net/syntax/syntax.html
先用任意工具将一封封的邮件准备好，保存为一个个文本文件，然后用Blat逐个循环发送即可。
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：635288次
积分：9452
积分：9452
排名：第745名
原创：310篇
转载：62篇
评论：290条
(2)(6)(4)(4)(4)(1)(1)(1)(2)(2)(1)(3)(3)(2)(2)(3)(3)(6)(1)(3)(13)(2)(1)(1)(7)(3)(6)(7)(5)(3)(3)(2)(6)(15)(13)(5)(4)(5)(10)(5)(10)(11)(1)(8)(5)(1)(5)(4)(2)(3)(3)(4)(1)(3)(3)(5)(4)(7)(8)(1)(4)(6)(10)(2)(2)(1)(3)(3)(3)(12)(5)(6)(3)(1)(2)(5)(9)(4)(1)(1)(3)(1)(1)(1)(4)(2)(13)(5)(4)(6)(2)