Outlook VBA教程:InternetCodepage属性

返回或设置项目所用的 Internet 代码页。Long 类型。Internet 代码页定义了该项目使用的文本编码方案。可读写。

expression.InternetCodepage

expression  必选。该表达式返回“应用于”列表中的一个对象。

VBA示例

以下示例搜索用户的“收件箱”,并显示所有 Internet 代码页值为 1256 的邮件项目发件人的姓名。该值相当于阿拉伯文字的 Internet 代码页值。如果没有找到邮件项目,就向用户显示一条消息。


Sub FindArabicUsers()
'Displays information about an Internet code page
    Dim olApp As Outlook.Application
    Dim objMail As MailItem
    Dim objItems As Items
    Dim strUsers As String
    Const cstArabic As String = "1256"
    Set olApp = Outlook.Application
    Set objItems = _
        olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items
    For Each objMail In objItems
        If objMail.InternetCodepage = cstArabic Then
            strUser = strUser & objMail.SenderName & vbCr
        End If
    Next objMail
    If strUsers = "" Then
        MsgBox "There are no Mail items in the Inbox from users with the specified " _
            & "Internet code page."
    Else
        MsgBox "The following users use the specified foreign Internet code page value:" _
                & vbCr & strUser
    End If
End Sub

上页:Outlook VBA教程:Instance属性 下页:Outlook VBA教程:InternetFreeBusyAddress属性

Outlook VBA教程:InternetCodepage属性:相关链接

Outlook VBA教程:InternetFreeBusyAddress属性 Outlook VBA教程:Interval属性
Outlook VBA教程:IsConflict属性 Outlook VBA教程:ISDNNumber属性
Outlook VBA教程:IsOnlineMeeting属性 Outlook VBA教程:IsReadOnly属性
Outlook VBA教程:IsRecurring属性 Outlook VBA教程:IsSynchronous属性
Outlook VBA教程:IsUserProperty属性 Outlook VBA教程:IsVisible属性
Outlook VBA教程:Item属性 Outlook VBA教程:ItemProperties属性
Outlook VBA教程:Items属性 Outlook VBA教程:JobTitle属性
Outlook VBA教程:Journal属性 Outlook VBA教程:Language属性
Outlook VBA教程:LanguageSettings属性 Outlook VBA教程:LastFirstAndSuffix属性
Outlook VBA教程:LastFirstNoSpace属性 Outlook VBA教程:LastFirstNoSpaceAndSuffix属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号