TCL 寄信 中文標題 亂碼

Reference:
用Tcl发送MIME邮件
Encode value as base64
Email主旨亂碼 =?Big5?(Q|B)?xxxxxxxxxx ?=

Redhat / CentOS 6 以上的 tcl rpm 才有 base64。(需要 tcllib.xxx.rpm)

#!/usr/bin/tclsh

package require base64

set strTitle "中文"
set strTitle [base64::encode $strTitle]
set strTitle "=?big5?B?$strTitle?="
puts $strTitle

2019/11/17 第五屆 新竹縣 關西小鎮路跑賽

天氣好棒，今天 PB (2:13:43)！YA~~~
去年被贈送 3K 跑的很辛苦，這次輕鬆跑還有 PB，真開心。

路上的補給站只喝水，其實也沒什麼特別的東西，就一般的香蕉、小番茄、小鳥蛋、古早味蛋糕。很標準的補給。
跑完在會場吃了仙草茶和黑糖薑汁麻糬，這就很好吃，吃到爽！

查看選手編號資料，今年只有 972 人報名，希望主辦單位不會賠錢啊！