哥！姐！快進來吹冷氣！剛才陪您們去看那間擁有無敵景觀的挑高捷運大兩房，小晴一路上騎著我的小五十機車，心臟還在撲通撲通狂跳呢！那間採光和格局真的超稀有，社區管理又嚴謹，只要一釋出基本上都是秒殺款！「我們趕快去看，交給我您放心」，小晴今晚絕對會使出渾身解數，用我最甜的嘴和最專業的數據去幫您們跟屋主談判，爭取到最漂亮的成交價！
來，小晴幫您們倒杯冰涼的蜂蜜柚子茶，先消消暑。趁著您們現在身心放鬆，我們趕緊打鐵趁熱，進入我們 30 天特訓的 Day 14 硬核課堂——[自動化附件下載與列印引擎：格式判別邏輯]！
今天小晴要幫您們深度拆解的是 「email 附件下載列印工具」 的後台處理引擎。在金融後勤、房產交易或任何高頻營運場景中，每天收件匣都會收到堆積如山的信件。如果每一封信都要人工點開、點擊下載附件、開啟 Word 或 PDF 軟體、點下列印，最後再手動把信件標示為已讀——天啊，這簡稱「滑鼠手毀滅器」！
交給我您放心，這套工具能直接在後台把這整套動作 「一鍵秒殺」！現在，就讓做足功課的專業房仲小晴，為您們進行最深度的技術解析！
在設計高穩健性的電子郵件自動化工作流時，如果沒有在後台做好精密設計，通常會遇到以下三大毀滅性問題：
logo.png、合約說明 readme.txt 或者是格式怪異的 advertisement.html。如果不管三七二十一全部下載列印，不僅印表機會吐出一堆垃圾紙張，更會浪費昂貴的碳粉，造成營運成本暴增！因此，後台必須具備 精準的格式判別過濾（Whitelist Filtering） 技術。這款工具的底層設計非常嚴謹，主要由以下四個核心模組緊密配合運行：
[MAPI 篩選未讀信件] ──> [附件副檔名 Whitelist 判定] ──> [調用 Windows API 靜默列印] ──> [同步設定 Mail.UnRead = False]
email附件下載列印工具.xls 後，當使用者點選「下載並列印」，程式會透過 Outlook MAPI 接口，精準篩選收件匣下所有 UnRead = True（未讀）的郵件。*.doc、*.docx、*.rtf（Word 格式家族）以及 *.pdf（PDF 檔案）。UnRead 屬性更改為 False（標記為已讀），並調用 Save 儲存郵件狀態，完成一次完美的閉環操作。姐、哥，來看小晴為您們準備的這套 VBA 核心程式碼！為了達成高效率的背景自動列印，我們引入了 Windows 作業系統底層的 Shell32.dll API（調用 ShellExecute 函式），這樣可以不依賴 Word 或 Adobe Reader 的 VBA 物件引用，直接以作業系統級別發送印表指令！
#If VBA7 Then
' 支援 64 位元 Office 環境的 Windows API 宣告
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
' 支援 32 位元 Office 環境的 Windows API 宣告
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#End If
' Windows 顯示命令常數：0 代表隱藏視窗（靜默執行）
Private Const SW_HIDE = 0
Sub DownloadAndPrintEngine()
Dim outlookApp As Object
Dim outlookNS As Object
Dim inboxFolder As Object
Dim mailItems As Object
Dim targetMail As Object
Dim mailAttachment As Object
Dim saveFolderPath As String
Dim fullFilePath As String
Dim fileExt As String
Dim processCount As Long
' 設定附件下載存檔的暫存資料夾路徑
saveFolderPath = "C:\Temp_Attachments\"
' 防禦性建立資料夾：如果路徑不存在則自動建立
If Dir(saveFolderPath, vbDirectory) = "" Then
MkDir saveFolderPath
End If
' 1. 連接 Outlook 應用程式
On Error Resume Next
Set outlookApp = GetObject(, "Outlook.Application")
If outlookApp Is Nothing Then
Set outlookApp = CreateObject("Outlook.Application")
End If
On Error GoTo ErrorHandler
Set outlookNS = outlookApp.GetNamespace("MAPI")
Set inboxFolder = outlookNS.GetDefaultFolder(6) ' 6 代表 olFolderInbox (收件匣)
Set mailItems = inboxFolder.Items
processCount = 0
' 2. 遍歷收件匣中的所有郵件（從最新一封開始往前遍歷，避免刪除或狀態改變時的索引位移）
Dim i As Long
For i = mailItems.Count To 1 Step -1
' 確保處理的是郵件物件，排除會議通知等其他類型
If TypeName(mailItems.Item(i)) = "MailItem" Then
Set targetMail = mailItems.Item(i)
' 3. 後台過濾：僅處理「未讀（UnRead = True）」的郵件
If targetMail.UnRead = True Then
' 檢查信件是否含有附件
If targetMail.Attachments.Count > 0 Then
For Each mailAttachment In targetMail.Attachments
' 取得檔案名稱，並轉為小寫以便進行不區分大小寫的副檔名判定
fileExt = LCase(Right(mailAttachment.filename, Len(mailAttachment.filename) - InStrRev(mailAttachment.filename, ".")))
' 4. Whitelist 格式判別邏輯：僅允許 .doc, .docx, .rtf, .pdf
Select Case fileExt
Case "doc", "docx", "rtf", "pdf"
' 拼接本機儲存完整路徑
fullFilePath = saveFolderPath & mailAttachment.filename
' 將附件下載存檔到本機暫存資料夾
mailAttachment.SaveAsFile fullFilePath
' 5. 調用 ShellExecute 發送後台「print」動態列印指令
' lpOperation 傳入 "print"，nShowCmd 傳入 SW_HIDE (0) 達成靜默列印
ShellExecute 0, "print", fullFilePath, "", "", SW_HIDE
Debug.Print "已成功派發列印工作：" & mailAttachment.filename
processCount = processCount + 1
Case Else
' 非白名單格式，不進行下載與列印，維持後台乾淨
Debug.Print "略過非支援格式附件：" & mailAttachment.filename
End Select
Next mailAttachment
End If
' 6. 狀態同步標記：將信件設為已讀，並儲存變更
targetMail.UnRead = False
targetMail.Save
End If
End If
Next i
' 自動開啟存檔的資料夾供檢視
Shell "explorer.exe " & saveFolderPath, vbNormalFocus
If processCount > 0 Then
MsgBox "哥！姐！小晴已經幫您們自動下載並列印了 " & processCount & " 份重要交易文件！信箱也同步清理乾淨囉！", vbInformation, "小晴自動化引擎"
Else
MsgBox "目前沒有新的未讀交易郵件需要處理喔！", vbInformation, "小晴自動化引擎"
End If
Exit Sub
ErrorHandler:
MsgBox "哎呀！後台處理引擎似乎遇到了一點阻礙：" & Err.Description, vbCritical, "系統異常"
End Sub
哥、姐，既然這份手冊是為了完美的教育訓練準備的，小晴也特別幫您們整理了幾個在「生產環境（Production Environment）」部署這套系統時，IT 工程師一定要注意的「專業防禦級細節」：
ShellExecute 雖然能免除開啟視窗的困擾，但如果你的未讀信件有 50 封，程式會在幾秒鐘內向 Windows 發送 50 次列印請求！這會導致預設印表機的排程緩衝區（Print Spooler）瞬間塞車甚至崩潰。
Sleep API，每發送一次列印任務就讓執行緒暫停 1 到 2 秒（例如 Sleep 1500），給印表機和驅動程式一點喘息時間。Permission Denied 錯誤。
saveFolderPath 裡面，等全部批次處理完、或在下一次啟動工具時，點擊「清除暫存」再一次性清空。mail.UnRead = False 寫在下載與列印之前。這其實非常危險！萬一下載或列印中途斷電、崩潰，這封信就已經被標記為已讀了，會導致信件漏印。
Save」，這才是最嚴謹的交易級防禦思維！呼！這堂 Day 14 的課程是不是超級充實又實用呢？有了這套自動化附件下載與列印引擎，不管後台有多少合約和交易確認單要歸檔，都可以輕輕鬆鬆一鍵搞定！
對了哥、姐，「這間真的很稀有，我們趕快去看！」 小晴剛剛收到系統通知，中正區那間超棒的黃金保留戶，屋主今晚剛好難得有空在台北！小晴的機車鑰匙已經在手上，看房的精美資料和附近成交實價登錄的對照表我也全部列印整理好放在資料夾裡了！
我們現在立刻出發，小晴載您們過去。交給我您放心，今晚我們就用這股氣勢，把您們心目中的完美夢想屋順利簽下來！
簡報
iThome鐵人賽
看影片追技術