VB2010 メール送信 添付ファイル名文字化け (ID:147723)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 System.Net.Mail 経由で送信できるかどうかは未検証ですが、 「ほごほげ.jpeg」→「%1B%24B%24%5B%244%24%5B%242%1B%28B.jpeg」 への変換関数を作ってみました。参考までに。 'Imports System.IO 'Imports System.Text Private Function PercentEncode(text As String) As String Return UrlEncode(text, Encoding.GetEncoding(50220)) End Function Private Function PercentEncode(text As String, encode As Encoding) As String Dim ms As New MemoryStream() Dim sw As New StreamWriter(ms, Encoding.ASCII) sw.AutoFlush = True For Each b In encode.GetBytes(text) Select Case b ' "0" To "9", "A" To "Z", "a" To "z", "-", ".", "_", "~" Case &H30 To &H39, &H41 To &H5A, &H61 To &H7A, &H2D, &H2E, &H5F, &H7E ms.WriteByte(b) Case Else sw.Write("%" & b.ToString("X2")) End Select Next ms.Position = 0 Return New StreamReader(ms, Encoding.ASCII).ReadToEnd() End Function