教你如何用Excel發送電子郵件--IT地帶
 首頁 新聞 安徽 體育 財經 黃梅 旅游 軍事 娛樂 法治 教育 伊人 健康
繁體中文
 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號