| |
|
|
| | У кого есть наработки в этом деле.
Хотя бы саму функцию запихивания строки с разделителями в оутлук. | |
| |
| |
| |
|
|
| | Кое что нашёл тут.
"http://hiprog.com/index.php?option=com_content&task=view&id=251661546"
Function ListOLContacts()
'спиcок Контактов
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderContsct As Outlook.MAPIFolder
Dim OL_ItemContact As Outlook.ContactItem
Dim OL_Attachment As Outlook.AddressEntry
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
'получаем ссылку на папку "Контакты"
Set OL_FolderContsct = OL_NameSpace.GetDefaultFolder(olFolderContacts)
' перебираем все контакты в папке
For Each OL_ItemContact In OL_FolderContsct.Items
With OL_ItemContact
'выводим имя, 3 возможных E-mail, домашний и моблиный телефоны
Debug.Print "Имя: " & .Subject
Debug.Print "E-mai №1: " & .Email1Address
Debug.Print "E-mai №2: " & .Email2Address
Debug.Print "E-mai №3: " & .Email3Address
Debug.Print "Домашний телефон: " & .HomeTelephoneNumber
Debug.Print "Мобильный телефон: " & .MobileTelephoneNumber
End With
Debug.Print "_______________________________________________"
Next
End Function
|
теперь надо как-то приспособить под нужду.
а нужно мне - из текстового файла перегнать емейл адреса в адресную книгу оутлука
никогда в жизни не пользовался оутлуком. :-( | |
| |
| |
| |
|
|
| | и что смущает?
http://msdn.microsoft.com/en-us/library/office/ff869448.aspx
http://msdn.microsoft.com/en-us/library/office/ff868663.aspx | |
| |
| |
| |
|
|
| | Привет.
пока не знаю.  | |
| |
| |
