Как связать приложения Office 2000 с помощью VBA. На примере Outlook и Excel
Листинг 1. Процедура SetState: проверка готовности данных для формирования письма
Sub SetState() ‘ Блокирует кнопку “Отправить”, пока ‘ не введена вся информация cmdSend.Enabled = False ‘ Переустанавливает цвета меток ‘ Примечание: недостаток использования стандартных элементов ‘ управления в MSForms Designer состоит в том, что там не поддерживаются массивы элементов управления lblState1.ForeColor = vbBlack lblState2.ForeColor = vbBlack lblState3.ForeColor = vbBlack lblState4.ForeColor = vbBlack ‘ Устанавливает цвет в соответствии с текущим ‘ значением свойства State объекта EMailMerge Select Case EMailMerge.State Case mmStart lblState1.ForeColor = vbRed cmdDataRangeSelect.Enabled = False cmdNewDraft.Enabled = Fals Case mmGetRange lblState2.ForeColor = vbRed cmdDataRangeSelect.Enabled = True cmdNewDraft.Enabled = False Case mmGetAddressCol lblState3.ForeColor = vbRed cmdDataRangeSelect.Enabled = True cmdNewDraft.Enabled = False Case mmGetTemplate lblState4.ForeColor = vbRed cmdDataRangeSelect.Enabled = True cmdNewDraft.Enabled = True Case mmReadyToMerge ‘ Введена вся необходимая информация ‘ Разблокирует кнопку “Отправить” cmdSend.Enabled = True End Select End Sub