sql 发送邮件网络附件_利用VBA发送附件电子邮件
生活随笔
收集整理的這篇文章主要介紹了
sql 发送邮件网络附件_利用VBA发送附件电子邮件
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
大家好,我們今日講解“利用VBA發(fā)送附件電子郵件”,這節(jié)內(nèi)容是“VBA信息獲取與處理”教程中第五個專題“利用VBA發(fā)送電子郵件”的第一節(jié)。
第一節(jié)利用VBA發(fā)送附件電子郵件
這個專題的第一節(jié)是利用VBA發(fā)送附件電子郵件,用電子郵件發(fā)送一個附件,在我們?nèi)粘9ぷ髦惺请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)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: valorant皮肤怎么获得_王者荣耀狂
- 下一篇: # 睡眠3秒_小儿睡眠呼吸暂停综合征