系統:windows 7
軟體:excel 2010
分發乙個郵件,含有兩個附件郵件分發結果
其它郵件資訊
sub 郵件預警()
set sht = thisworkbook.worksheets("示例")
currentpath = thisworkbook.path
file1 = currentpath & "\" & "附件1.txt"
file2 = currentpath & "\" & "附件2.xlsx"
emailreceiver = sht.cells(2, "a")
esubject = sht.cells(2, "b")
econtent = sht.cells(2, "c")
mail.to = emailreceiver
mail.subject = esubject
mail.body = econtent
mail.attachments.add (file1)
mail.attachments.add (file2)
mail.send
set mail = nothing
msgbox "已分發郵件"
end sub
**截圖
currentpath = thisworkbook.path
,獲取當前excel所在位址
下節精彩:如果想分發的郵件內容帶有格式呢?例如字型顏色,**形式展示
郵件自動分發 08 帶附件的會議邀請
系統 windows 7 軟體 excel 2016 分發乙個會議邀請包括以下資訊 outlook效果 sub 郵件預警 設定為會議邀請型別 mail.meetingstatus olmeeting 會議主題 mail.subject 會議邀請 會議地點 mail.location 會議室123 會...
C 自學02 兩個小練習
using system using system.collections.generic using system.linq using system.text using system.threading.tasks namespace 02 兩個小練習 天是週零天 days,weeks,day...
java 比較兩個list中是否有含有相同的資料
list updatelist new arraylist mapupdatemap new hashmap updatemap.put customerno test110 updatemap.put oprphone 176214566471 updatemap.put opridno 1234...