с почтовыми сообщениями Dim MyAddr
|
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 |
| Листинг 1.16. |
| Закрыть окно |
