MailItem.InternetCodepage 属性 (Outlook)

返回或设置一个 Long ,确定项目所用的互联网代码页。 读/写。

语法

表达式InternetCodepage

表达 一个代表 MailItem 对象的变量。

备注

Internet 代码页定义了项目使用的文本编码方案。

下表列出了支持的 InternetCodePage 属性的值。

名称 字符集 代码页
阿拉伯语 (ISO) iso-8859-6 28596
阿拉伯语 (Windows) windows-1256 1256
波罗的海字符 (ISO) iso-8859-4 28594
波罗的海字符 (Windows) windows-1257 1257
中欧字符 (ISO) iso-8859-2 28592
中欧字符 (Windows) windows-1250 1250
简体中文(GB2312) gb2312 936
简体中文(HZ) hz-gb-2312 52936
繁体中文(Big5) big5 950
塞瑞利克字符 (ISO) iso-8859-5 28595
塞瑞利克字符 (KOI8-R) koi8-r 20866
塞瑞利克字符 (KOI8-U) koi8-u 21866
塞瑞利克字符 (Windows) windows-1251 1251
希腊语 (ISO) iso-8859-7 28597
希腊语 (Windows) windows-1253 1253
希伯来文(ISO-逻辑) ISO-8859-8-I 38598
希伯来语 (Windows) windows-1255 1255
日语(EUC) euc-jp 51932
日语(JIS) iso-2022-jp 50220
日文(JIS - 允许 1 字节假名) csISO2022JP 50221
日文(Shift-JIS) iso-2022-jp 932
韩语 ks_c_5601-1987 949
朝鲜语(EUC) euc-kr 51949
拉丁语 3 (ISO) iso-8859-3 28593
拉丁文 9 (ISO) iso-8859-15 28605
泰语 (Windows) windows-874 874
土耳其语 (ISO) iso-8859-9 28599
土耳其语 (Windows) windows-1254 1254
Unicode (UTF-7) UTF-7 65000
Unicode (UTF-8) utf-8 65001
US-ASCII US-ASCII 20127
越南语 (Windows) windows-1258 1258
西欧语 (ISO) iso-8859-1 28591
西欧(Windows) Windows -1252 1252

下表列出了 Microsoft 建议你用于与旧电子邮件系统的最佳兼容性的代码页。

名称 字符集 代码页
阿拉伯语 (Windows) windows-1256 1256
波罗的海字符 (ISO) iso-8859-4 28594
中欧字符 (ISO) iso-8859-2 28592
简体中文(GB2312) gb2312 936
繁体中文(Big5) big5 950
塞瑞利克字符 (KOI8-R) koi8-r 20866
塞瑞利克字符 (Windows) windows-1251 1251
希腊语 (ISO) iso-8859-7 28597
希伯来语 (Windows) windows-1255 1255
日语(JIS) iso-2022-jp 50220
朝鲜语 ks_c_5601-1987 949
泰语 (Windows) windows-874 874
土耳其语 (ISO) iso-8859-9 28599
Unicode (UTF-8) utf-8 65001
US-ASCII US-ASCII 20127
越南语 (Windows) windows-1258 1258
西欧语 (ISO) iso-8859-1 28591

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例显示当前电子邮件项目的发件人名称(如果其 Internet 代码页值为 1256)。 此值相当于阿拉伯语文本的 Internet 代码页值。

Sub FindArabicUser() 
 
 'Tells if the sender of the current item used the Arabic codepage 
 
 Dim objMail As Outlook.MailItem 
 
 Const cstArabic As Long = 1256 
 
 
 
 Set objMail = Application.ActiveInspector.CurrentItem 
 
 If objMail.InternetCodePage = cstArabic Then 
 
 MsgBox objMail.SenderName & " uses an Arabic code page." 
 
 End If 
 
 Set objMail = Nothing 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。