直接用通訊錄Excel群發電子郵件

clown_發表於2016-09-28

  筆者都是使用記有好友Email地址的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中執行透過,並且對“通訊錄”和“全自動傳送郵件”宏程式碼稍作修改就可以完成任何形式的大量郵件的傳送。

相關文章