郵件自動分發 02 含有兩個附件

2021-09-24 02:19:49 字數 1118 閱讀 3326

系統: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...