1.新增引用microsoft outlook 11.0 object library。（這裡用的是microsoft outlook 2003）
2.定義傳送郵件過程。
public sub sendemail(receiver as string, subjecttext as string, bodytext as string, attachedobject as string)
dim outlookitem as outlook.mailitem
on error goto sendemail_error
with outlookitem
.to = receiver '收件人位址
.subject = subjecttext '郵件主題
.body = bodytext '郵件內容
.attachments.add attachedobject '貼上附件
.send '傳送郵件
end with
sendemail_exit:
exit sub
sendemail_error:
msgbox err.description
resume sendemail_exit
end sub
3.呼叫傳送郵件過程。
sendemail "
", "需求分析", "現有一專案需開發，詳情請見附件。", "e:/需求分析.doc"
4.在outlook中新增新電子郵件帳戶。
VBA 通過VBA實現EXCEL真正的全屏顯示
說明 通過vba實現真正的全屏顯示excel介面。測試 private sub commandbutton1 click if commandbutton1.caption 全屏顯示 then displayfullscreen true 基本全屏 commandbars 1 enabled fal...
在Sqlite中通過Replace來實現插入和更新
你可能在批量處理乙個事務的時候，想要批量插入一系列的資料，但是這些資料當新增完一次之後，重新新增的時候，你不想要重新新增，只是想將原有的資料進行更新，例如 我想要通過excel將一系列的圖書匯入到資料庫中，而這些圖書在你下一次編輯之後，重新匯入，只是對原有的資料進行修改。以上是乙個業務的場景。在ms...
在SQL Server中通過SQL語句實現分頁查詢
建立表 create table testtable id int identity 1,1 not null firstname nvarchar 100 collate chinese prc ci as null lastname nvarchar 100 collate chinese pr...