Основы офисного программирования и документы Word

Dim mes As MailMessage


Public Sub WorkWithMailMessage() Dim mes As MailMessage Documents("test").Activate Set mes = Application.MailMessage If Not (mes Is Nothing) Then Debug.Print mes.Application.Name 'mes. DisplaySelectNamesDialog 'mes.CheckName 'mes.GoToNext 'mes. DisplayMoveDialog End If End Sub
Листинг 1.17.
Закрыть окно
Содержание раздела