Sn:srht1907
Alt F11 ile kod sayfasına geçerek kod içerisinde açıklama olan yerde mail adresinizi yazacaksınız.

Private Sub CommandButton1_Click()

ActiveSheet.Range("A1:C1").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = "Günü Gelenler"

.Item.To = "xxxxxxxx@gmail.com" 'Email adresiniz buraya yazılacaktır

.Item.Subject = "Bakım"

.Item.Send

End With

End Sub