none
VBA Outlook 2007 - Где служебный заголовок письма - в .ItemProperties? RRS feed

  • Общие обсуждения

  • Имею целью сделать макрос в Outlook 2007, чтобы он просматривал письма в папке нежелательной почты и формировал список IP-адресов, с которых были отправлены эти письма, чтобы затем с помощью скрипта PowerShell добавлять их в "черный список" на почтовике. Вроде бы все просто - заглянуть в служебный заголовок и достать оттуда IP отправителя. Насколько я понял, служебный заголовок нужно искать в .ItemProperties. Просмотр всех его элементов для всех писем в папке нежелательной почты сделал так:
    ------------------------
    Sub ShowJunkProp ()
        Dim mailItems As Object
        Dim mailmsg As Object
        Dim Cr As String
        Cr = Chr(13) & Chr(10)
        Set mailItems = Application.Session.GetDefaultFolder(olFolderJunk).Items
        For Each mailmsg In mailItems
            With mailmsg
                For i = 0 to .ItemProperties.Count - 1
                    MsgBox("FromEmail: " + . SenderEmailAddress + Cr +"Item №" + CStr(i) + Cr + "Type:" +  .ItemProperties.Item(i).Type + Cr + "Value: " + CStr(.ItemProperties.Item(i)))
                Next i
            End With
        Next
    End Sub
    ------------------------
    Всего этих свойств 85. Оказалось, что свойства с номерами 4,5,6,28,46,54,64,65,72,78 не отображаются, выходит всплывающее окно с ошибкой "Invalid Procedure call or argument".
    Тип этих элементов (свойство .Type) показывает 0, то есть строковые.
    Посоветуйте каким образом их можно посмотреть? Или вообще может быть я не там ищу?
    5 февраля 2009 г. 11:08