Public Sub
|
Public Sub WorkEmail() With Application.EmailOptions.EmailSignature If Selection.LanguageID = wdRussian Then .NewMessageSignature = "Подпись" .ReplyMessageSignature = "Подпись" Else .NewMessageSignature = "sign1" .ReplyMessageSignature = "sign1" End If Debug.Print .NewMessageSignature End With End Sub |
| Листинг 1.18. |
| Закрыть окно |