@@Вопрос по Microsoft Outlook 2007@@

[Yulechka]

Здравствуйте. Нужна помощь.

Есть электронная почта Outlook, нужно во входящих письмах (внешней почты) скопировать все адреса. Как это можно сделать???? Там же в графе От КОГО написано Ф.И.О., а адрес как бы скрыт. А мне нужны именно адреса.

[Nikum]

Что в итоге хотите получить? Просто список всех адресов отправителей?

[Yulechka]

Да. Нужны адреса.

[Nikum]

Если сильно надо, попозже попробую на VBA что-нить придумать.

[Yulechka]

Очень надо!!
Я,конечно, извиняюсь, а что такое VBA??

[Экспрессия]

просвещайтесь http://ru.wikipedia.org/wiki/VBA

[Nikum]

Public Sub GetSenderEmailAddress()
Dim oOutlook As New Outlook.Application
Dim oNamespace As Outlook.NameSpace
Dim oChildFolder As Outlook.MAPIFolder
Set oNamespace = oOutlook.GetNamespace("MAPI")
Dim oFolder As Outlook.MAPIFolder
Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox )
For Each oChildFolder In oFolder.Parent.Folders
DoFolder oChildFolder
Next
End Sub

Public Sub DoFolder(ByVal oFolder As MAPIFolder)
Dim oChildFolder As Outlook.MAPIFolder
Dim oMailItem As Object
For Each oChildFolder In oFolder.Folders
For Each oMailItem In oChildFolder.Items
If TypeOf oMailItem Is MailItem And Not oMailItem Is Nothing Then
Debug.Print oMailItem.SenderEmailAddress
End If
Next
DoFolder oChildFolder
Next
End Sub

[Nikum]

Это работает в 2003-ем, в 2007, думаю, тоже.
Правда, адреса идут с повторами, без повторов будет сложнее.
Если не сможете сами прикрутить код к Outlook, высылайте мне файл .pst

[Yulechka]

Спасибо большое!!! Буду пробовать!

[Let4ik]

в 2007. есть команда перекинуть отправителей почтовых писем закинуть сразу в контакты. (они там есть). от туда можно даже синхронизнуться с моб. телефоном и все пререгонется прямо на трубу (если это нужно)
стукните завтра в аську (441-754-881) (не раньше трех плз)
я вам объясню.