大家好,我們今日講解“利用VBA發(fā)送附件電子郵件”，這節(jié)內(nèi)容是“VBA信息獲取與處理”教程中第五個專題“利用VBA發(fā)送電子郵件”的第一節(jié)。

第一節(jié)利用VBA發(fā)送附件電子郵件

這個專題的第一節(jié)是利用VBA發(fā)送附件電子郵件，用電子郵件發(fā)送一個附件，在我們?nèi)粘９ぷ髦惺请S處可見的，也是我們大多數(shù)日常工作處理事務(wù)之一，如果你處在一個管理部門，下發(fā)一些通知類的附件是非常正常的工作，我們在工作中最常用的是群發(fā)。但這種郵件往往不能體現(xiàn)部門的針對性，很多職能部門對于郵件的處理是有區(qū)別對待的，對于這類群發(fā)的郵件往往重視不足。如果做到郵件的下發(fā)具有針對性能呢？我們來看下面的實例：上圖中，我要利用VBA將某個安全生產(chǎn)的通知文件下發(fā)給各個工廠，同時提供了每個部門的郵箱(示例給的郵件是測試用的，均為同樣的地址)。要發(fā)送的是附件和上述工作表的一個界面文件，該如何做到呢？

1? 利用工作表的相關(guān)屬性完成在工作表界面發(fā)送郵件

為了完成上面的任務(wù)，我們看下面的代碼：Sub myNZ()???Sheets("Sheet1").Select???Application.EnableEvents = False???'設(shè)置附件的地址???strWJ = ThisWorkbook.Path & "\005關(guān)于安全生產(chǎn)的通知.docx"???i = 3???Do While Cells(i, 1) <> ""??????? '如果沒有選擇，那么將發(fā)送整個工作表的內(nèi)容。??????? Range("B1:E" &Range("E2").End(xlDown).Row).Select??????? ActiveWorkbook.EnvelopeVisible = True '可以添加標(biāo)題設(shè)置注釋??????? With ActiveSheet.MailEnvelope??????????? '設(shè)置添加的可選介紹字段文本到電子郵件正文，標(biāo)題設(shè)置注釋??????????? strText = Cells(i, 2) & "" & Cells(i, 3) & " " & Cells(i, 4) & "您好：" & vbCrLf &"?? 附件是給您"& _??????????????? "的重要文件，請查收！"??????????? .Introduction = strText??????????? With .Item??????????????? .To = Cells(i, 1).Value '收件人??????????????? .CC = "nesang@189.cn"'抄送地址??????????????? .Subject = "重要文件發(fā)放" '郵件名稱??????????????? '添加附件???????????????? .Attachments.Add strWJ???????????????? '發(fā)送郵件???????????????? .Send??????????? End With??????? End With??i = i + 1??Loop???ActiveWorkbook.EnvelopeVisible = False???Application.EnableEvents = True?End Sub代碼截圖：

2? 附帶附件郵件的發(fā)送過程講解

1)Application.EnableEvents= False 這句代碼是屏蔽了事件的觸發(fā)過程，這樣做的目的是避免形成一個死循環(huán)2)strWJ =ThisWorkbook.Path & "\005關(guān)于安全生產(chǎn)的通知.docx"? 這句代碼的意義是設(shè)置附件的地址，注意是fullname，包括路徑，ThisWorkbook.Path是指當(dāng)前文件的路徑，本文中的例子就是放在當(dāng)前文件的同文件夾下面。附件是“005關(guān)于安全生產(chǎn)的通知.docx”，是一個word文檔。3)Range("B1:E"& Range("E2").End(xlDown).Row).Select? 這句代碼的意義是選擇發(fā)送工作表的范圍，如果沒有選擇，那么將發(fā)送整個工作表的內(nèi)容，由于我們的工作表中有發(fā)送按鈕所以沒有必要發(fā)送整個工作表，如圖：上面紅色部分是將要發(fā)生工作表的范圍。4)? ActiveWorkbook.EnvelopeVisible = True??????? With ActiveSheet.MailEnvelope??????????? '設(shè)置添加的可選介紹字段文本到電子郵件正文，標(biāo)題設(shè)置注釋??????????? strText = Cells(i, 2) & "" & Cells(i, 3) & " " & Cells(i, 4) & "您好：" & vbCrLf &"?? 附件是給您"& _??????????????? "的重要文件，請查收！"??????????? .Introduction = strText上面的代碼首先設(shè)置為可以添加標(biāo)題設(shè)置注釋，然后設(shè)置這段文字為strText = Cells(i, 2) & "" & Cells(i, 3) & " " & Cells(i, 4) & "您好：" & vbCrLf &"?? 附件是給您"& "的重要文件，請查收！"，添加的動作是.Introduction = strText。5)????? With .Item??????????????? .To = Cells(i, 1).Value '收件人??????????????? .CC = "nesang@189.cn"'抄送地址??????????????? .Subject = "重要文件發(fā)放" '郵件名稱??????????????? '添加附件???????????????? .Attachments.Add strWJ???????????????? '發(fā)送郵件???????????????? .Send??????? End With上面的代碼將對郵件的發(fā)送進行設(shè)置，.To = Cells(i, 1).Value 是設(shè)置收件人；.CC = nesang@189.cn是設(shè)置郵件的抄送地址；.Subject= "重要文件發(fā)放" 是設(shè)置郵件的名稱；.Attachments.Add strWJ，是設(shè)置添加附件；.Send是發(fā)送郵件的動作。6) ActiveWorkbook.EnvelopeVisible= False???Application.EnableEvents = True上述代碼是關(guān)閉郵件的注釋及打開事件的觸發(fā)。?

3? 郵件的發(fā)送效果

當(dāng)我們單擊：“利用VBA發(fā)送帶附件的郵件”，這個時候會按行給每個行的郵件地址分別發(fā)送郵件,效果如下：?注意點：在發(fā)送郵件的時候，注意OUTLOOK要處于打開的狀態(tài)。?本節(jié)知識點回向：如何實現(xiàn)工作表界面發(fā)送帶附件的電子郵件？如何實現(xiàn)工作表界面指的范圍內(nèi)容的發(fā)送？?本專題參考程序文件：005工作表.XLSM?VBA是利用Office實現(xiàn)自己小型辦公自動化的有效手段，這是我對VBA的應(yīng)用界定。在取代OFFICE新的辦公軟件沒有到來之前，誰能在數(shù)據(jù)處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！學(xué)習(xí)VBA是個過程，也需要經(jīng)歷一種枯燥的感覺，如太白詩云：眾鳥高飛盡，孤云獨去閑。相看兩不厭，只有敬亭山?！八评f物而不爭”，綿綿密密，微則無聲，巨則洶涌。學(xué)習(xí)亦如此，知道什么是自己所需要的，不要蜷縮在一小塊自認(rèn)為天堂的世界里，待到暮年時再去做自欺欺人的言論。要努力提高自己，用一顆充滿生機的心靈，把握現(xiàn)在，這才是進取。越是有意義的事情，困難會越多。愿力決定始終，智慧決定成敗。不管遇到什么，都是風(fēng)景?？吹姞?#xff0c;看輕得失。茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。去感悟真實的時間，靜下心，多學(xué)習(xí)，積累福報。而不是天天混日子，也不是天天熬日子。在后疫情更加嚴(yán)峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。學(xué)習(xí)時微而無聲，利用時則巨則洶涌。我記得20年前自己初學(xué)VBA時，那時的資料甚少，只能看源碼自己琢磨,真的很難。20年過去了，為了不讓學(xué)習(xí)VBA的朋友重復(fù)我之前的經(jīng)歷，我根據(jù)自己多年VBA實際利用經(jīng)驗，推出了六部VBA專門教程。第一套：VBA代碼解決方案是VBA中各個知識點的講解，覆蓋絕大多數(shù)的VBA知識點，初學(xué)必備；第二套：VBA數(shù)據(jù)庫解決方案數(shù)據(jù)庫是數(shù)據(jù)處理的專業(yè)利器，教程中詳細(xì)介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學(xué)習(xí)。第三套：VBA數(shù)組與字典解決方案??數(shù)組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學(xué)習(xí)，是初級及中級人員代碼精進的手段。第四套：VBA代碼解決方案之視頻是專門面向初學(xué)者的視頻講解，可以快速入門，更快的掌握這門技能。第五套：VBA中類的解讀和利用這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細(xì)的學(xué)習(xí)可以促進自己VBA理論的提高。第六套教程：《VBA信息獲取與處理》，這是一部高級教程，涉及范圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應(yīng)用程序信息獲得、隨機信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時操作，剪切板應(yīng)用、Split函數(shù)擴展、工作表信息與其他應(yīng)用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。如需要可以可以WeChat: NZ9668學(xué)習(xí)的過程也是修心的過程，修一個平靜的心。在代碼的世界中，心平靜了，心情好了，身體自然而然就好。心靜則正，內(nèi)心里沒有那么多邪知邪見，也就沒有那么多妄想。利人就是利己。這些教程也是為幫助大家起航，助上我自己之力，我的上述教程是我多的經(jīng)驗的傳遞，大家可以根據(jù)以上資料1,3,2,6,5或者是4,3,2,6,5的順序逐漸深入的逐漸學(xué)習(xí)。?每一分收獲都是成長的記錄，怎無憑，正是這種執(zhí)著，成就了朝霞的燦爛。最后將一闕詞送給致力于VBA學(xué)習(xí)的朋友,讓大家感受一下學(xué)習(xí)過程的枯燥與執(zhí)著：?浮云掠過，暗語無聲，唯有清風(fēng)，驚了夢中啼鶯。望星，疏移北斗，奈將往事雁同行。阡陌人，昏燈明暗，忍顧長亭。多少VBA人，暗夜中，悄聲尋夢，盼卻天明。怎無憑！分享成果，隨喜正能量有啟發(fā) 點在看，轉(zhuǎn)給朋友?約作者 請留言，直接交流

更多關(guān)聯(lián)閱讀

與50位技術(shù)專家面對面20年技術(shù)見證，附贈技術(shù)全景圖

總結(jié)

以上是生活随笔為你收集整理的sql 发送邮件网络附件_利用VBA发送附件电子邮件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。