InternetCodepage Property

Returns or sets a Long that determines the Internet code page used by the item. The Internet code page defines the text encoding scheme used by the item. Read/write.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example searches through the user's Inbox and displays the sender names for all mail items with the Internet code page value 1256. This value corresponds to the Internet code page value for Arabic text. If no mail items are found, a message is displayed to the user.

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