平淡
發(fā)送郵件使用Outlook組件。啟動(dòng)Outlook后登錄發(fā)送郵件的賬戶(hù),然后發(fā)送一封測(cè)試郵件,確??梢哉0l(fā)送郵件。
定位到D2單元格并輸入公式“=IFS(TODAY()-C2>=365,"禁用",TRUE,"正常")”,下拉填充公式到相應(yīng)的單元格,即可完成客戶(hù)狀態(tài)的判斷(圖2)。
公式解釋?zhuān)?/p>
使用IFS函數(shù)將當(dāng)天日期和客戶(hù)上一次更改密碼的日期相減,如果差值大于等于365天(表示1年未更改過(guò)密碼了),那么客戶(hù)狀態(tài)會(huì)顯示為“禁用”,否則顯示為“正?!?。
定位到E2單元格并輸入公式“=IFS(D2="禁用","因?yàn)槟拿艽a更改時(shí)間已經(jīng)超過(guò)"&ROUND(TODAY()-C2,0)&"天",TRUE,"")”,然后下拉填充公式。這里同樣使用IFS函數(shù)做出判斷,同時(shí)嵌套R(shí)OUND函數(shù)對(duì)實(shí)際天數(shù)取整,這樣在“原因”一欄中就可以顯示客戶(hù)“當(dāng)天-上一次更改密碼日期”的間隔天數(shù)了(圖3)。
批量發(fā)送郵件可以通過(guò)V B A代碼來(lái)完成。先到“https://share.weiyun.com/Dcmcb4n7”下載所需的代碼,打開(kāi)后全選代碼并復(fù)制,接著在E xc e l中按下“Alt+F11”組合鍵打開(kāi)VBA編輯窗口,依次點(diǎn)擊“插入→模塊”,將剛剛復(fù)制的代碼粘貼到代碼框中(圖4)。
代碼解釋?zhuān)?/p>
這里通過(guò)Outlook發(fā)送郵件,設(shè)置了幾個(gè)不同的變量來(lái)實(shí)現(xiàn)對(duì)客戶(hù)的郵箱地址、賬戶(hù)狀態(tài)、原因的引用,最后通過(guò)For語(yǔ)句遍歷查詢(xún)。這樣激活代碼后就會(huì)按照A列中的郵箱地址,依次將引用的內(nèi)容作為郵件正文發(fā)送給客戶(hù)。其中“useremail =Cells(iCounter, 1).Value”,表示客戶(hù)的郵箱地址是從A2單元格,即Cells(2.1)開(kāi)始引用。客戶(hù)姓名、賬戶(hù)狀態(tài)、原因的引用與之類(lèi)似。如果你的文件結(jié)構(gòu)和本文有所不同,按圖示更改相應(yīng)的代碼即可(圖5)。
因?yàn)橹恍枰o賬戶(hù)狀態(tài)異常的客戶(hù)發(fā)送郵件,所以先要添加篩選條件。新建工作表Sheet2,接著返回原來(lái)的工作表(假設(shè)為Sheet1),定位到D列并點(diǎn)擊“數(shù)據(jù)→篩選”,添加篩選按鈕。然后依次點(diǎn)擊“開(kāi)發(fā)工具→錄制宏”,錄制下面的操作:
點(diǎn)擊D1單元格中的篩選按鈕,去除“全選”的勾選,僅選擇“禁用”。然后返回Sheet1并復(fù)制A1:E40數(shù)據(jù)區(qū)域,再切換到Sheet 2并定位到A1單元格,依次點(diǎn)擊“開(kāi)始→粘貼”,將篩選過(guò)的數(shù)據(jù)粘貼到Sheet 2中。最后結(jié)束宏的錄制,將其另保存為“宏1”,并為其設(shè)置一個(gè)運(yùn)行快捷鍵,如“Ctrl+Shift+W”(圖6)。
以后小王只要定期從系統(tǒng)中導(dǎo)出數(shù)據(jù),然后分別將其粘貼到Sheet1中的A~C列。當(dāng)需要批量發(fā)送郵件時(shí),按下“Ctrl+Shif t+W”快捷鍵先完成賬戶(hù)狀態(tài)的篩選和復(fù)制,接著切換到Sheet2,依次點(diǎn)擊“開(kāi)發(fā)工具→宏→發(fā)送郵件→執(zhí)行”,Excel就會(huì)自動(dòng)調(diào)用Outlook來(lái)發(fā)送郵件了,在任務(wù)欄的托盤(pán)中可以看到調(diào)用Outlook的狀態(tài)(圖7)。
發(fā)送完郵件后打開(kāi)Outlook,切換到“已發(fā)送郵件”,即可看到給客戶(hù)發(fā)送的提醒郵件,郵件正文就是上述VBA中設(shè)置的內(nèi)容(圖8)。
大家也可以參考上述的方法,在E xc el中預(yù)先設(shè)置好員工的生日祝福內(nèi)容,在生日到來(lái)之前批量發(fā)送給員工。