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