aktif excel sayfasını mail gövdesinde gönderme

[halilerdem]

aktif excel sayfasını mail gövdesine yapıştırarak outlooktan otomatik mail için bir kod aradım fakat bulamadım yardımcı olabilecek var mı ?

 

[halilerdem]

konuyu canlandırmak için yazıyorum , bayağı kişi merak edip görüntülemiş , ustaların ellerin öperim

 

[halilerdem]

farklı bir yerden kodu edindim işimi , gördü belki başkalarına da lazım olur

Sub mail_gonder()
Application.ScreenUpdating = False
If ActiveCell Then

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.Introduction = "mail içeriği"

.Item.To = "deneme@gmail.com"

.Item.Subject = "mail başlığı"

.Item.Send

End With
End If
Application.ScreenUpdating = True
End Sub