Как связать приложения 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

Возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует