我从供应商那里收到一个Unicode字符串。我相信他们使用的是UTF-16。我需要将其转换为UTF-8,以便我可以在我的代码中进行操作。我正在使用ICU来处理Unicode。在尝试toUTF8String方法时,我得到的字符显示为颠倒的问号“¿¿¿¿¿¿¿¿¿”。在尝试提取方法时,我也得到相同的输出。
Option Explicit
Sub AttachmentInBody()
Dim OutMail As MailItem
Set OutMail = Application.CreateItem(0)
With OutMail
.To = "MailList"
.CC = ""
.BCC = ""
.Subject = "Teddy Bear Test"
.Display
If .BodyFormat <> olFormatRichText Then .BodyFormat = olFormatRichText
.body = "Hello Team:" & vbCr & vbCr & "Thank You" & vbCr
.Attachments.Add teddybear.xlsx, , 999
End With
Set OutMail = Nothing
End Sub
我的数据库显示以下内容: ¿¿¿¿¿¿¿¿¿¿{FaultResponse sequenceNumber =“10000001”} {Exception type =“System.ArgumentException”} {message}没有插入或更新的记录{/ message} {detail} System.ArgumentException:没有插入或更新的记录{/ detail} {/例外} {/ FaultResponse}攀