[gannet]

А у меня конструктивное предложение - написать скрипт

подсмотрено на просторах интернета, ну и проверено\доделано

Код:

Sub UtfToKoi8RMessageRule(Item As Outlook.MailItem)
'Естественно, для каждого правила\набора кодировок нужна своя процедура
'Указываем входящую и нужную кодировку
    Item.Body = ChangeTextCharset(Item.Body, "utf-8", "koi8-r")
End Sub

Function ChangeTextCharset(ByVal txt$, ByVal DestCharset$, _
                           Optional ByVal SourceCharset$) As String
    ' функция перекодировки (смены кодировки) текстовой строки
    ' В качестве параметров функция получает текстовую строку txt$,
    ' и название кодировки DestCharset$ (в которую будет переведён текст)
    ' Функция возвращает текст в новой кодировке
    On Error Resume Next: Err.Clear
    With CreateObject("ADODB.Stream")
        .Type = 2: .Mode = 3
        If Len(SourceCharset$) Then .Charset = SourceCharset$    ' указываем исходную кодировку
        .Open
        .WriteText txt$
        .Position = 0
        .Charset = DestCharset$    ' назначаем новую кодировку
        ChangeTextCharset = .ReadText
        .Close
    End With
End Function

И прицепить его к правилу на нужные адреса.