首页 新闻 安徽 体育 财经 黄梅 旅游 军事 娱乐 法治 教育 伊人 健康
繁体中文
 IT 彩信 读书 汽车 演艺 音乐 徽商 书库 邮件 论坛 贺卡 相册 交友
简体中文
精彩图库 业界动态 观察分析 手机数码 电脑教室 软件下载 游戏人间 本地市场
精彩推荐
v微软在瘦身版Windows中做手脚 欧盟展开调查
v3G最后测试4月份将出结果 牌照发放悄悄提速
v南邮教授为月租费正名 电话收月租符合惯例
v中兴通讯联姻中超 一场备受关注的隐秘恋情
v手机电磁辐射标准望今年出台 国内不会高于国际
v超越音乐梦幻 索爱W31S第一时间试用感受
v时尚女孩往这看 本月精品MP3播放器推荐
v野性的呼唤:《魔兽世界》性感内衣秀
v新游《先锋:英雄传奇》惊人画面公开
精彩图片
  您当前的位置 :IT地带 > 电脑教室 > 办公一族 正文
教你如何用Excel发送电子邮件

中安网  2005-04-08 14:04

  赛迪网--中国电脑教育报4月8日报道 一年之计在于春,在这春风拂面的季节里,笔者总要通过E-mail为亲友送去一份祝福。以往笔者都是使用Excel自动给所有亲友发送电子邮件,这种方法不仅方便快捷,而且这些邮件的收件人、主题、内容、附件都不相同。

  一、建立亲友通讯录

  如图所示,在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。

  二、使用宏实现自动发送电子邮件

  打开“工具→宏→Visual Basic编辑器”,单击“插入→模块”插入一个模块,在“工程”窗口中双击插入的模块,打开它的代码窗口,并输入以下宏:

  Sub全自动发送邮件()

  "要能正确发送并需要对Microseft Outlook进行有效配置

  On Error Resume Next

  Dim rowCount, endRowNo

  Dim objOutlook As New Outlook.Application

  Dim objMail As MailItem

  "取得当前工作表与Cells(1,1)相连的数据区行数

  endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

  "创建objOutlook为Outlook应用程序对象

  Set objOutlook = New Outlook.Application

  "开始循环发送电子邮件

  For rowCount = 2 To endRowNo

  "创建objMail为一个邮件对象

  Set objMail = objOutlook.CreateItem(olMailItem)

  With objMail

  "设置收件人地址(从通讯录表的“E-mail地址”字段中获得)

  .To = Cells(rowCount, 2)

  "设置邮件主题

  .Subject ="新年好![来自朋友弗人的问候] "

  "设置邮件内容(从通讯录表的“内容”字段中获得)

  .Body = Cells(rowCount, 3)

  "设置附件(从通讯录表的“附件”字段中获得)

  .Attachments.Add Cells(rowCount, 4)

  "自动发送邮件

  .Send

  End With

  "销毁objMail对象

  Set objMail = Nothing

  Next

  "销毁objOutlook对象

  Set objOutlook = Nothing

  "所有电子邮件发送完成时提示

  MsgBox rowCount-1 & "个朋友的问候信发送成功!"

  End Sub

  以上代码在Excel 2000中执行通过,并且对“通讯录”和“全自动发送邮件”宏代码稍作修改就可以完成任何形式的大量邮件的发送。(程森奇)

编辑: 丁毅
 ∷【相 关 报 道】∷
-Office应用技巧 用Excel给学生编班三部曲   05-03-28 11:38
-文档个性化 Excel 2003页眉页脚的另类设置   05-03-25 16:28
-【图文】用Excel的语音工具“解放”双手   05-03-24 16:41
-教你如何在Excel中一次打开多个文件   05-03-24 16:41
-教你如何在Excel中添加常用文件夹   05-03-24 16:41
 

中国安徽在线网站(中安在线)版权所有 未经允许 请勿复制或镜像
皖ICP证 030106号