2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« テキストを正規表現で置換する。 | トップページ | Excelブックをマクロ有効で開く。 »

2007年10月17日 (水)

MIMEヘッダをデコードする。

MIMEヘッダのエンコードにはいろいろありますが、簡単にデコードするには、CDO.Messageが便利です。

Set Msg=CreateObject("CDO.Message")
Do
  Text1=InputBox("エンコードされたテキストを入力","MIMEヘッダをデコード",Text2)
  If Text1="" Then Exit Do
  Set Stm=Msg.GetStream
  Stm.WriteText "Subject: " & Text1
  Stm.SetEOS
  Stm.Flush
  Text2=Msg.Subject
Loop

« テキストを正規表現で置換する。 | トップページ | Excelブックをマクロ有効で開く。 »