多條告白如次劇本只需引入一次

本質處事中常常會遇到批量發郵件的需要,比方發送報酬條、節日歌頌、按期回報處事功效、晚報、周報、月報等，固然即使發送的郵件不是很多的話實足不妨細工發送,一旦遇到批量發送的場景,細工一份一份的發送就會變得板滯而反復處事了。今天性享一個Excel挪用電腦OutLook批量發送郵件的本領，小搭檔們不妨，先保藏，等要用到的功夫不妨防患未然，平靜應付，旁人加班的功夫你還不妨準點放工，那豈不是很樂哉！

一、先看看咱們須要實行的功效。

發郵件跟寫公式一律大略^-^

二、還好嗎才不妨實行？

道理：經過VBA設置一個發郵件的因變量，到達批量發送郵件時跟普遍公式的用法一律大略的功效。

上頭的功效圖中咱們設置了一個sendmail的因變量，即使你此刻翻開你的excel找這個因變量是找不到的，由于這個并不是office的內置因變量,但微軟給office產物都安置了一個神本領“宏”,表親們該當都聽過這個，這次咱先不去探求這究竟是什么貨色,先看怎樣實行。

簡直辦法：

興建一個空缺的Excel文獻。翻開Excel文獻,按趕快鍵ALT+F11加入VBE界面。點擊左邊的工程窗口,點擊鼠標右鍵,興建一個模塊。把代碼貼入到模塊中。回到Excel界面,發端考證發郵件因變量。上頭筆墨沒看懂的請看底下的演練。三、發郵件的VBA代碼。

感愛好的童鞋們不妨復制以次代碼按上頭的操縱試一試。

'發送郵件因變量sendto收件人多個用英文分號鏈接subj郵件中心mbody郵件正文filepath附屬類小部件路途PublicFunctionsendmail(sendtoAsString,subjAsString,mbodyAsString,filepathAsString)OnErrorResumeNextDimoLappAsObjectDimoItemAsObjectSetoLapp=CreateObject("Outlook.application")SetoItem=oLapp.createitem(0)WithoItem.Subject=subj.To=sendto.htmlbody=mbody'加上這一句就不妨增添附屬類小部件.Attachments.Addfilepath.Send'確定能否發送勝利IfErr.Number=0Thensendmail="發送勝利"Else'即使發送波折則歸來波折因為sendmail="發送波折:"&Err.DescriptionEndIfEndWithSetoLapp=NothingSetoItem=NothingEndFunction四、生存咱們設置的郵件因變量。

即使你的Excel是2007及之上本子的，生存的功夫會展示如次提醒。生存時請采用起用宏的處事簿即可。彌補證明：

2007本子及之上的Excel為了保護安定性,強迫了含VBA代碼的專用文獻格,常用存為xl******。

2003本子的Excel,后綴是xls的Excel文獻不妨徑直保存VBA代碼,不須要另存為其余***。