Sub Wyśli()
ActiveSheet.Range("A19:aq34").Select
' envelope
ActiveWorkbook.EnvelopeVisible = True
' opcje
With ActiveSheet.MailEnvelope
.Introduction = "Urlop."
.Item.To = " xxxxxxx@xxx.pl"
.Item.Subject = "Urlop Imię i nazwisko"
.Item.Send
End With
End Sub |