常見情況
每到年底的時候,很多公司都可能為所有員工準備了一封信,内容包括績效評估結果,調薪比例,最新工資等;
在進行校園招聘面試結束之後,HR也會大批量的給不同的候選人發送錄用通知書;
這些批量發送的過程如果手動挨個進行郵件附件的插入,内容的書寫,勢必會非常消耗時間,如果時間緊迫,還可能被迫要加班。。。
解決思路遇到批量操作,首先想到的一般都是用宏的方法來操作,本案例分享代碼及修改操作,不熟悉的小夥伴可以照着以下方法拿去即用。
步驟操作■ 郵件合并
郵件合并的步驟相信很多人都不會陌生,先來準備好需要的Word文檔,比如錄用通知書,空出後期所有需要填寫文字的部分,如:
再準備進行鍊接的Excel工作簿,準備好後期要填入的内容部分,如:
然後通過郵件合并的方式将Word與Excel進行鍊接,在Word中将Excel裡的相應字段插入到需要填寫的部分(這部分内容的步驟省略,不會的小夥伴可以去我的《Excel從起步到起飛》中找到學習内容):
■ 插入代碼
在Word文檔中,利用Alt F11調出代碼框,将已經準備好的代碼複制粘貼到其中:(繼續往後看,後面有具體修改的講解)
完成之後,這個代碼窗口可以關閉了,然後将word文檔另存為後綴名為.docm的格式。
這個代碼包含了兩部分的内容,第一是批量将Word文檔以Excel中的姓名字段為名稱保存為單個的word文檔;第二個是批量将這些單個的Word文檔轉換為pdf的文件進行保存。
在Excel文檔中,同樣利用快捷鍵ALT F11調出代碼窗口,雙擊左側的Thisworkbook,将代碼複制粘貼至其中,如:
這段代碼的作用就是将生成後的PDF文檔以附件的方式插入到郵件之中,并進行郵件的批量發送(含郵件主題,收件人,郵件正文等)。
■ 文件位置
了解代碼之前,先說一下案例我文件的位置放置,後面大家都可以根據自己的習慣進行修改。
這個案例我是放在桌面上的,桌面上建立了一個文件夾,如:
打開這個文件夾後,文件的保存位置:
word文檔放在這裡了,新建了一個pdf的文件夾,後面生成的PDF文檔都會放置在PDF的文件夾中,Excel的文件我也放置在PDF文件夾中了,如:
■ 代碼解釋 修改
因為每個人的電腦的用戶名都不一樣,所有這些文件如果在你自己的電腦中,你需要對文件的位置在代碼中進行修改,word文檔中的代碼:
第一段:
紅色框中标注的位置,也就是:C:\Users\demon\Desktop\批量轉PDF文件并發送郵件
這部分内容請修改為你的word文檔放置的位置,注意後面的“\”要保留!
第二段代碼中涉及到文件的位置,同樣要進行修改:
上述紅框中最後一個是生成PDF文件後放置的位置,所以多了個pdf\字樣,這個也根據你pdf想放置的位置來進行修改。
再來看Excel文件中的代碼:
Cells(i,2)意思是第i行,第二列的單元格。
myitem.To = .Cells(i, 8)的意思是:
發送郵件給第i行第8列單元格中的收件人,因為收件人的郵箱是在Excel文檔中對應的第8列,所有這裡是8;
myitem.Subject = .Cells(i, 2)的意思是:
郵件的主題,這裡的主題是放置在第2列中的,所有是2;
myitem.Body = .Cells(i, 1) & ",你好!" & vbNewLine & vbNewLine & .Cells(i, 7)的意思是:
郵件的正文,Cells(i,1)和Cells(i,7)表示的是對應單元格中的内容,文字部分大家可以修改成你們需要寫的文字部分;
vbNewLine是換行的意思;
如果你嫌郵件挨個打開預覽很麻煩,可以直接将上述代碼中的display修改為send。不過還是建議大家在正式發送之前,預覽檢查一下比較穩妥,頂多就是挨個郵件點擊一下發送按鈕嘛。
■ 代碼運行
上述全部完成之後,如何運行呢?
回到word文檔中,在開發工具菜單欄中,點擊宏,如:
彈出對話框中選擇:myMailMerge
再點擊右側的運行,稍等片刻後,在PDF文件夾中你就會看到生成的對應的pdf文檔了,如:
word完成他的使命後會自動關閉的,再來打開Excel文件,同樣的方法,打開開發工具欄菜單,點擊宏:
彈出對話框中選擇:ThisWorkbook.sendemail,點擊執行。
稍等片刻之後,郵件預覽就自動出現了:
檢查一下,如果沒有毛病就發送吧。當然,還是我上述提到的,如果你要批量發送上百封郵件,内容無誤的話,請相信系統,直接可以無須預覽進行發送的,畢竟點100多下發送郵件按鈕也是很辛苦的一件事情。
能看到最後,說明你真的有需要,那麼直接公衆号(查查成長營)回複:郵件發送
獲取源文件進行運用吧。
好了,如果你還有不明白的地方,可以直接留言或私信,大家一起交流學習。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!