2017年11月
      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ブックをマクロ有効で開く。 »