Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Управление в маркетинге средствами электронной почты. Учебное пособие
.pdf
51
Добавьтеполевстандартнуюформу.4.
Помимо формы в режиме конструктор на рисунке должно
появиться диалоговое окно Выбор поля. Если диалоговое окно
окажетсяскрытым,выполнитепоследовательностькоманд
МенюФормаВыбратьполе
Вдиалоговомокневраскрывающемсяспискевыберитеопцию
Часто используемые поля,авспискеполей — полеИзменено.Это
поле будет показывать дату последнего редактирования Контакта.
ФормаКонтактдостаточноплотноскомпонована.Наиболеепросто
найтинеобходимоеместодляновогополяможно,еслиуменьшить
размерыполядлязаметок(щелкнитемышьюпоэтомуполюиуменьшитеегоразмеры).АдалееперетащитеполеИзмененовформу.
Создайтепользовательскоеполе.5.
ЧтобысоздатьпользовательскоеполевдиалоговомокнеВыбор
полящелкнитепокнопкеСоздать.ПоявитсядиалоговоеокноНовое
поле.Определитеимяполя,типполяиформат.Послетогокаквы
щелкнитепокнопкеOK,враскрывающемсяспискедиалоговогоокна
Выбор поляпоявитсястрокаПоля пользователя в папке,авсписке
этогоокна—Все поля пользователя,втомчислеивновьсозданное
поле.Далеенеобходимоперетащитьсозданноеполевформу,также,
какэтобылосделаносоСтандартным полем Outlook.
Рисунок19показываетстандартнуюформуКонтактврежимеконструкторасдобавленнымиполямиАббревиатураиИзме-
нено(онирасположенывышеполядлязаметок).
Выполнитеформу.6.
Представляетинтерессразужепослередактированияформы
протестироватьееработу.Для этогонеобходимо выполнить последовательностькоманд
МенюФомаВыполнитьформу
Рисунок 20 иллюстрирует отредактированную стандартную
форму,вкоторуювнесеныданныеоКонтакте.
Сохраненаэта информациябудетвпапкеКонтакты.ИсозданнаяформабудетсвязанасэтимКонтактом.Есливысчитае-
те,чтоэтаформаприрешенииопределенныхзадачдлявасболее
52
Рис. 19.Стандартная форма Outlook сдобавленнымполемАббревиатура
Рис. 20.Результатвыполненияотредактированнойстандартнойформы
53
удобна,чемстандартнаяформаOutlook,ивынамереныснейработать,этуформунеобходимоопубликовать.
Опубликуйте7. Форму.
Чтобыопубликоватьформу,необходимовыполнитьпоследовательностькоманд
МенюСервисФормыОпубликоватьформу
Рисунок 21 иллюстрирует публикацию Формы. Разместить
ФормуможновпапкеБиблиотека личных форм.
Рис. 21. ПубликацияотредактированнойСтандартной формы
Выберите эту опцию в раскрывающемся списке Папки,
авполеНазваниевведитеназваниесозданнойформы,послечего
нажмитекнопкуОпубликовать.
Ещеразподчеркнемдвеособенности.
54
Чтобы обеспечить доступ к данным (полям элементов1.
Outlook), необходимо перетаскивать поля из диалогового окна
Выбор поля,но не засчет использования,например,текстового
окнапанелиэлементовуправления.
Форма будет связана с конкретным элементом данных.2.
Есливыввелиданные,используянекоторуюформу,тоипросмотреныэтиданныемогутбытьсредствамиэтойформы.Таблица3
даетпредставлениеовозможностяхпоработесоСтандартными
формамиOutlook.
Message Да Да Да
Post Да Да Да
Appointment Нет Да Да
MeetingRequest Нет Да Да
Contact Да Да Да
Task Нет Да Да
TaskRequest Нет Да Да
JournalEntry Нет Да Да
Notes Нет Нет Нет
Основная
страница
Изтаблицывидно,чтовозможностиорганизацииинтерфейса
практическинеограничены.Иесли,например,отсутствуетвозможность редактировать страницу по умолчанию стандартной
формыЗадачи,тоничтонемешаетпользователювоспроизвести
интерфейсифункциональностьстраницыпоумолчаниювпользовательскойформе.Ато,чтостандартнаяформаЗаметкивовсех
столбцахтаблицыимеетНет,такэтолишьследствиеограниченного применения этой папки и примитивности ее интерфейса,
55
ибовнемдействительноничегопоопределениюизмененобыть
неможет.
Изменение порядка обхода полей
ЗаполняяСтандартную формуOutlook, пользователь часто
перемещаеткурсорпополямФормыспомощьюмыши.Быстрее
формуможнозаполнить,еслидляперемещенияпополямиспользоватьклавишутабуляции.Нопоскольку,например,Стандарт-
ная форма КонтактсодержитнавкладкеОбщие13полей,томо-
жетпотребоватьсянескольколишних,несвязанныхсвводоминформациинажатийнаклавишутабуляции.Избежатьэтогоможно,изменивпорядокобходаполей,длячегонеобходимоперейти
врежимконструктора,открытьнеобходимуюформу(например,
формуКонтакт)ивыполнитьпоследовательностькоманд
МенюМакетПоследовательностьперехода
Рисунок22иллюстрируетрезультатвыполненияалгоритма.
Рис. 22. Вызовокнаопределенияпоследовательностиобходаполей
56
Интересующей нас информации (фамилия, имя, домашний
телефон,сотовыйтелефон)будутсоответствоватьпервыетризаписивсписке.Определяетсяпорядокпереходасиспользованием
кнопокMove UpиMoveDown.Послеопределенияпорядкапереходанеобходимоопубликоватьформу.
Удаление формы из библиотеки форм
Следует подчеркнуть, что Стандартные формы Outlook,
формыиз папки Библиотека стандартных формудалены быть
немогут.Дляудаленияпользовательскойформынеобходимовыполнитьследующуюпоследовательностьдействий.
Вменю1. СервисвыберитекомандуПараметры.
Перейдитена вкладку2. Дополнительнои нажмитекнопку
Дополнительные параметры.
Нажмитекнопку3. Дополнительные формы.
Нажмитекнопку4. Управление формами.
Выберите необходимую форму в5. Библиотеке личных
форм или Библиотеке форм организации и нажмите кнопку
Удалить.
Чтобыпросмотретьсписокформ,сгруппированныхпока-6.
тегориям,установитефлажокПо категориям.
Помимо пользовательских форм на основе стандартных
форм Outlook возможно и создание чисто пользовательских
форм.Этиформысоздаютсятакже,каквдругихприложениях
MSOfce.Точнеесказать: если выумеете работать вформами
вWordилиExcel,вамнетруднобудетсоздатьпользовательскую
формувOutlook.Всвязисэтимрассмотримпрактическийпример создания пользовательской формы сопровождения Кон-
тактов.
Стандартные формы, безусловно, хороши. Особенно
как первый шаг в работе. Но правомерно и желание отказатьсяотиспользованияСтандартных форм.Чем этоможет
57
быть продиктовано? Во-первых, когда в форме 15–20 полей,
аинформациивводитсятольков2–3изних,работаполучается неэффективной (приходитсямного переключаться с работы с клавиатуройнаработусмышьюи обратно). Во-вторых,
возможно, вам понадобится большее пространство для работыс полем Заметка, а вы не любите работатьс полосами
прокрутки. В-третьих, возможно, вы захотите иметь в форме
нефотографию3на4, ахотябы6на9. Вовсехэтихслучаях
необходимоизменитьстандартнуюформу.Нуи,наконец,если
выличность утонченнаяи хотите создатьформу собственного дизайна. Да,возможны некоторые частные решения. Одно
из них — определение порядка обхода. Но, в общем, есть
смыслосвоитькакредактированиестандартнойформOutlook,
такисозданиепользовательскихформ.
Пользовательская форма сопровождения Контактов
На первом этапе работы возможно возникновение ситуации, когда в папкеокажется несколько десятков Контактов,
свойствакоторыхопределенынесовсемкорректно.Например,
присутствуютпробелыслеваисправа,нарушенпорядокслов
вполеПолное имяит.д.Такиеситуациимогутвозникать,когда
выполучаетеконтактыизвнешнихисточников.ТакиеКонтак-
тынеобходимопросмотретьиотредактировать.Еслипользоватьсястандартной формой, топридется,во-первых, перебиратьвкладки,во-вторых,многоинформациивводитьвручную.
Более эффективной будет работа, если создатьпользовательскуюформу, чтобы появлялисьтолькосвойства,которыепозволятидентифицироватьКонтакт,асвойства определять—
используяэлементуправленияСписок.
Рисунок 23 иллюстрирует один из возможных вариантов
пользовательскойформыработысэлементомКонтакт.
Листинг 5 составлен из процедур обработки событий Эле-
ментов управления пользовательскойформы. Группа элементов
управленияPerson позволяет уточнитьсвойстваКонтакта, ис-
58
Рис. 23. ПользовательскаяформаКонтакт
ходя из полученного опыта. Например, свойство Краткое имя
может быть определено неформально при тесном знакомствес
человеком.ДлячеловекастаршеговозрастаКраткое имяможет
быть определено какотчество. Возможно, что для незнакомого
человекапо фамилии выне сможетеопределить пол.Но после
знакомствасчеловекомвыможетеуточнитьсвойстваКонтакта.
ЭлементыуправленияЭлементы папкиобеспечиваютнавигацию
поКонтактампапки.
Некоторуюинформациюпоработесформойможнопочерпнутьизкомментариевкмакросам.
59
Листинг 5. Процедуры обработки событий пользовательской формы
Option Explicit
'Блок объявления переменных
Dim aOl As Outlook.Application
Dim oNS As Outlook.NameSpace 'объект NameSpace
Dim iM As MailItem ‘элемент Сообщение электронной почты
Dim iCn As Outlook.ContactItem 'элемент Контакт
Dim iNote As Outlook.NoteItem 'элемент Заметка
Dim oFCn As Outlook.MAPIFolder 'объект - папка Контакты
Dim oFN As Outlook.MAPIFolder 'объект - папка Заметки
Dim cCn As Outlook.items ‘коллекция Контактов
Dim cM As Outlook.items ‘коллекция Сообщений электронной почты
Dim cN As Outlook.items ‘коллекция Заметок
Dim oE As Outlook.Explorer ‘элемент Проводник
Dim oS As Outlook.Selection 'объект выделенные элементы Outlook
Dim стрПоискФамилии As String
Dim стрПоискИмени As String
Dim стрПоискОтчество As String
Dim strFindNickName As String
Dim i As Integer 'текущая запись
Dim N As Integer ‘число записей в папке
Private Sub btnGoTo_Click()
Set iCn = cCn.GetFirst
i = 0
N = Int(Val(тстЗаписейВсего))
Do While i <> N
Set iCn = cCn.GetNext
i = i + 1
Loop
Call мкрПоказатьКонтакт
End Sub
Private Sub btnFind_Click()
cCn.GetFirst
60
стрПоискИмени = тстИмя
стрПоискОтчество = тстОтчество
strFindNickName = «[NickName] = « & txtNickName
Set iCn = cCn.Find(strFindNickName)
If iCn Is Nothing Then
MsgBox «Nothing»
Else
iCn.Display
End If
End Sub
Private Sub CommandButton3_Click()
cCn.GetFirst
стрПоискИмени = тстИмя
стрПоискОтчество = тстОтчество
strFindNickName = txtNickName
If Len(стрПоискИмени) > 0 Then
стрПоискФамилии = «[LastName] = « & тстФамилия
Set iCn = cCn.Find(стрПоискФамилии)
Call мкрПоказатьКонтакт
End If
strFindNickName = «[NickName] = « & strFindNickName
'Set icn = cCn.Find(strFindNickName)
If iCn Is Nothing Then
MsgBox «Контакт не найден»
Else
iCn.Display
End If
End Sub
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]