2021 01 3 VBA利用企業郵箱自動傳送郵件

2021-10-13 18:58:39 字數 1680 閱讀 4748

按照上面的資料格式轉化為pdf檔案 下面展示一些內聯**片

sheets(「郵件傳送」).exportasfixedformat type:=xltypepdf, filename:= _

下面展示一些內聯**片

strsubject = "貨物傳送提醒"

strmsg = ""

strmsg = strmsg & "親,公司已經為您的客戶發出貨物:

" strmsg = strmsg & "今日發貨占用資金:" & range("l10").value & "元

" strmsg = strmsg & "日資金成本:" & range("l11").value & "元

"

set cdomail = createobject("cdo.message")

'發信設定

cdomail.from = strsend 『發信人有限

cdomail.to = stremail

cdomail.subject = strsubject '郵件主題

cdomail.htmlbody = strmsg '郵件內容

cdomail.addattachment strattach '附件未知

stul = "" '微軟伺服器**

with cdomail.configuration.fields

.item(stul & "smtpserver") = "smtp.exmail.qq.com" 'smtp伺服器位址

' .item(stul & "smtpserverport") = 25 'smtp伺服器端口

.item(stul & "sendusing") = 2 '傳送埠

.item(sutl & "smtpusessl") = 1 '加密方式

.item(stul & "smtpauthenticate") = 1 '遠端伺服器需要驗證

.item(stul & "sendusername") =strsend'傳送方郵箱名稱

.item(stul & "sendpassword") = strpass '傳送方郵箱密碼

.item(stul & "smtpconnectiontimeout") = 60 '連線超時(秒)

.update

end with

通過windows系統的任務計畫,定時開啟xlsm檔案,並在workopen事件中新增函式執行,就可以自動傳送郵件提醒了。

利用vba編寫少量的**就可以實現了自動服務功能,整個工具**行不到500行,可以定時自動傳送郵件,解決了erp系統中最後一公尺的定製化問題,提高了客戶體驗度和滿意度。

Word中利用VBA匯入樣式

由於經常編輯文字資料,需要匯入自己定義的樣式,比較麻煩。我利用巨集錄製了一些vba程式。下面是乙個示例。sub 匯入樣式表集 匯入樣式表集 巨集 destination e 待編輯文件.doc name 詩詞標題樣式 object wdorganizerobjectstyles destinatio...

利用VBA篩選重複資料

目標 在重複資料中按照一定規則提取 組合。sub match dim i,j,z,n,flag,a,b,c set a worksheets sheet1 usedrange set b worksheets sheet2 usedrange set c worksheets sheet3 used...

VBA利用ADO合併多個CSV

sub 合併多個csv檔案為乙個檔案 dim cnn as object,sql mypath myfile m set cnn createobject adodb.connection set rs createobject adodb.recordset mypath thisworkbook...