@@Вопрос по Microsoft Outlook 2007@@
Здравствуйте. Нужна помощь.
Есть электронная почта Outlook, нужно во входящих письмах (внешней почты) скопировать все адреса. Как это можно сделать???? Там же в графе От КОГО написано Ф.И.О., а адрес как бы скрыт. А мне нужны именно адреса. |
Что в итоге хотите получить? Просто список всех адресов отправителей?
|
Да. Нужны адреса.
|
Если сильно надо, попозже попробую на VBA что-нить придумать.
|
Очень надо!!:)
Я,конечно, извиняюсь, :) а что такое VBA?? |
просвещайтесь http://ru.wikipedia.org/wiki/VBA
|
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 |
Это работает в 2003-ем, в 2007, думаю, тоже.
Правда, адреса идут с повторами, без повторов будет сложнее. Если не сможете сами прикрутить код к Outlook, высылайте мне файл .pst |
Спасибо большое!!! Буду пробовать!
|
в 2007. есть команда перекинуть отправителей почтовых писем закинуть сразу в контакты. (они там есть). от туда можно даже синхронизнуться с моб. телефоном и все пререгонется прямо на трубу (если это нужно)
стукните завтра в аську (441-754-881) (не раньше трех плз) я вам объясню. |
Часовой пояс GMT +4, время: 06:01. |
Powered by vBulletin® Version 3.8.7 Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод на русский язык - idelena