« テキストを正規表現で置換する。 | トップページ | 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ブックをマクロ有効で開く。 »