用Excel也能傳送電子郵件

2021-06-16 04:34:08 字數 1057 閱讀 4711

、建立親友通訊錄

如圖所示,在工作表中建立乙個包含不同收件人、主題、內容和附件的親友通訊錄。

二、使用巨集實現自動傳送電子郵件

sub 全自動傳送郵件()

"要能正確傳送並需要對microseft outlook進行有效配置

on error resume next

dim rowcount, endrowno

dim objmail as mailitem

"取得當前工作表與cells(1,1)相連的資料區行數

endrowno = cells(1, 1).currentregion.rows.count

"建立objoutlook為outlook應用程式物件

"開始迴圈傳送電子郵件

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中執行通過,並且對「通訊錄」

傳送電子郵件

傳送電子郵件 param emaillist 的物件 param data 傳送的資料 throws ioexception throws addres ception private void sendemail listemaillist,listdata throws ioexception,...

用Socket傳送電子郵件 php

用socket傳送電子郵件 hello this is a test 生成mime類例項 mime new mime mail chatme 263.net to,str 新增html附件 mime attach html data,html,base64 注釋掉,採用我的傳送郵件處理 mime s...

Python傳送電子郵件

源 sendemail.py import smtplib from email.mime.text import mimetext msg mimetext the body of the email is here 這裡是你的信件中的內容 msg from ltoddy 163.com 這裡是傳...