Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]
..........................................................................................................................


Как добавить новый контакт в папку Outlook

Это производится приблизительно следующим образом:

Листинг 1.



Dim myNewContact As ContactItem

' создание объекта "Контакт"  

Set myNewContact = Application.CreateItem(olContactItem)  

' далее заполняются нужные поля формы  

myNewContact.FirstName = "Василий"  

myNewContact.LastName = "Васильев"  

myNewContact.Email1Address = "vasya@mail.ru"  

myNewContact.Close olSave    ' сохранить

Можно также выдать диалоговое окно «Контакты» для заполнения пользователем:

Листинг 2.

myNewContact.Display

Однако данная конструкция записывает новый контакт в стандартную папку «Контакты». Если вам нужно работать с какой-то индивидуальной папкой, вы должны написать такой код (здесь мы вдобавок создаем новую папку):

Листинг 3.



Dim myNewContact As ContactItem 

Dim myNewFolder As MAPIFolder  

' Создание папки типа "Контакты"  

Set myNewFolder = Application.GetNamespace("MAPI"). _  

     GetDefaultFolder(olFolderContacts).Folders.Add("Личная")  

' создание объекта "Контакт" для данной папки  

Set myNewContact = myNewFolder.Items.Add(olContactItem)  

myNewContact.FirstName = "Александр"  

...


..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]
..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic
Рассылка 'По страницам сайта Visaul Progs' >>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!! >>>Если у вас есть статья которой нет на сайте
пришлите ее мне-------->
Послать статью
>>>Если вы хотите задать вопрос
пишите-------->
Мне нужна помощь


Рейтинг сайтов YandeG Rambler's Top100
Реклама:

...:::Design by Mystf0rse 2005-2010 year:::...