Dim bHTM() As Byte
Dim objStream As New ADODB.Stream
''' read resource file into strMailContent
bHTM = LoadResData(101, "CUSTOM")
objStream.Mode = adModeReadWrite
objStream.Type = adTypeBinary
objStream.Open
objStream.Write bHTM
objStream.Position = 0
objStream.Type = adTypeText
objStream.Charset = "BIG5"
strMailContent = objStream.ReadText
Dim objStream As New ADODB.Stream
''' read resource file into strMailContent
bHTM = LoadResData(101, "CUSTOM")
objStream.Mode = adModeReadWrite
objStream.Type = adTypeBinary
objStream.Open
objStream.Write bHTM
objStream.Position = 0
objStream.Type = adTypeText
objStream.Charset = "BIG5"
strMailContent = objStream.ReadText
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/11411056/viewspace-733850/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/11411056/viewspace-733850/