Главная > Exchange Server, Microsoft Office > Получение списка отправителей в Outlook

Получение списка отправителей в Outlook

Возникла задача получить список отправителей писем в определенной папке. Переписывать руками 500 адресов — очень сомнительное удовольствие, поэтому первое решение, которое наиболее эффективно, — использование Outlook. Для работы необходимо нажать Alt+F11, создать форму, добавить кнопку gogogo, надпись progress и скопировать этот код в модуль формы.
 
Модуль очень простой и позволяет подключаться к любой папке и составлять список адресов отправителей (фактически, любых полей, доступных для письма в Outlook).
 
Буду признателен за любые идеи по тому, как сделать эту «увлекательную» процедурку более интересной.
 
Dim mailItems As Items
Dim mailmsg As MailItem
Dim xls As Excel.Application
 
Private Sub gogogo_Click()
Set xls = New Excel.Application ‘ создание документа Excel
xls.Workbooks.Add ‘ Добавление рабочей книги
‘ Получение списка писем
Set mailItems = Application.GetNamespace(«MAPI»). _
    Folders.Item(«MailBox name»). _
    Folders.Item(«Inbox»). _
    Folders.Item(«Level1 folder»). _
    Folders.Item(«LevelN folder»). _
    Items
   
‘ Выбор с помощью диалогового окна
Set mailItems = Application.GetNamespace(«MAPI»).PickFolder.Items
res = «»: i = 1
For Each mailmsg In mailItems
    With mailmsg
        xls.ActiveCell(i, 1) = .SenderName
        xls.ActiveCell(i, 2) = .SenderEmailAddress
        xls.ActiveCell(i, 3) = .Subject
    End With
progress.Caption = i & » из » & mailItems.Count
i = i + 1
Next
xls.Visible = True
Set xls = Nothing
Application.Quit
End Sub
Реклама
  1. Комментариев нет.
  1. No trackbacks yet.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: