、建立親友通訊錄
如圖所示,在工作表中建立乙個包含不同收件人、主題、內容和附件的親友通訊錄。
二、使用巨集實現自動傳送電子郵件
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 這裡是傳...