按照上面的資料格式轉化為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...