很多時(shí)候斑匪，我們會(huì)遇到這種需要針對(duì)不同主體發(fā)送不同內(nèi)容的場(chǎng)景风皿。一般情況下，我們會(huì)一個(gè)個(gè)的逐一去發(fā)璃谨，但是沙庐，如果你需要發(fā)送的內(nèi)容以及附件達(dá)到上百個(gè)或者更多的時(shí)候，再這樣手工去發(fā)送就太困難了佳吞。
實(shí)際上拱雏，有更好的辦法，那就是使用程序自動(dòng)批量發(fā)送底扳。理論上铸抑，任何程序語(yǔ)言都可以做到，在此花盐，先不考慮其它高級(jí)語(yǔ)言的實(shí)現(xiàn)辦法羡滑，我還是使用最簡(jiǎn)單的VBA來(lái)做。
1算芯、制作郵件內(nèi)容列表
在此柒昏，需要把郵件里面的主要內(nèi)容，收件人名稱熙揍、收件人郵箱职祷、郵件主題、郵件正文届囚、郵件附件路徑全部放到列表里面有梆，具體如下圖：
2、編寫(xiě)執(zhí)行發(fā)送郵件的VBA代碼
以下是執(zhí)行發(fā)送郵件的核心代碼部分意系。在此泥耀，使用到了微軟CDO對(duì)象。此部分代碼可以適用大部分的郵箱發(fā)送蛔添，只要修改使用郵箱的相關(guān)配置參數(shù)即可痰催。在此兜辞，我使用的是126的郵箱發(fā)送，相關(guān)配置參數(shù)也是126的夸溶。以下代碼中已做了詳細(xì)的注釋逸吵。
3、發(fā)送效果
以下是執(zhí)行后的具體效果缝裁。
4扫皱、總結(jié)
以上，僅僅做了單次發(fā)送的一個(gè)案例捷绑。如果需要針對(duì)大批量的發(fā)送韩脑，那么只要循環(huán)數(shù)據(jù)列表即可，也就是把發(fā)送郵件的主代碼寫(xiě)入數(shù)據(jù)列表循環(huán)體內(nèi)即可粹污。這部分就由諸位自行研究修改扰才，出于對(duì)各位的負(fù)責(zé)，還是不打算全部一次性寫(xiě)完厕怜，得給各位朋友留出自行學(xué)習(xí)的空間衩匣。
——————————————————————
創(chuàng)作不易，轉(zhuǎn)載請(qǐng)注明來(lái)源粥航！
