Public Sub WorkWithMail()
	'Работа с почтовыми сообщениями
	Dim MyAddr As String, MyName As String
	Dim MailLab As CustomLabel
	MyName = Application.MailingLabel.DefaultLabelName
	Debug.Print MyName
	
	Set MailLab = Application.MailingLabel.CustomLabels _
	.Add(Name:="My Friend", DotMatrix:=True)
	MyAddr = "Россия" & vbCrLf & "Мой город" & vbCr & "Моя улица, 41, 7" & vbCr _
		& "Моему другу"
	'MailLab.PageSize = wdCustomLabelLetter
	If Documents("DocOne").Bookmarks.Exists("EnvelopeAddress") Then
		Application.MailingLabel.PrintOut _
			Name:=MyName, ExtractAddress:=True, SingleLabel:=True
	End If
	
	Application.MailingLabel.CreateNewDocument _
		Name:="My Friend", Address:=MyAddr
	
End Sub