belirli hücreleri mail atma

[musa yüksel]

merhaba,
bir kaç saat araştırma ve deneme yanılma ile bu şekilde bir makro yazdım fakat body kısmına a2:h14 hücrelerinin kopyalanıp yapıştırılmasını istiyorum
birçok yere baktım genelde tüm sayfayı mail atma veya dosya olarak göndermeyi örnek vermişler
body kısmına ne yazmalıyım ki a2:h14 hücreleri body kısmına eklesin

Sub MAIL()
'
' MAIL Makro

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
.to = "kdslnfs"
.cc = "sfdalfsjsaılf"
.Subject = "Growth Report"
.Body = Range("A2:H14").SpecialCells(xlCellTypeVisible)

.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Korhan Ayhan]

Merhaba,

İnceleyiniz.

Sorgu için arama sonuçları: RangetoHTML

www.excel.web.tr

 

[musa yüksel]

Merhaba,

İnceleyiniz.

Sorgu için arama sonuçları: RangetoHTML

www.excel.web.tr

Korhan bey ilginiz için teşekkürler ama fark ettiyseniz mesajı gecenin 3 de atmışım, işin içinden çıkamadım için yardım istedim , bahsetmiş olduğunuz linkte ki makrolar çözebilseydim konuyu açmazdim

 

[musa yüksel]

body kısmına nasıl bir kod yazmam gerekiyor ki kopyalanan kısmı yapıştırsın

Sub MAIL()
'
' MAIL Makro

Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

Range("A2:H14").Select
    Selection.Copy
    
With OutMail
.To = "afasfasdf"
.CC = "sfdsfsdfs"
.Subject = "sfdsfds"
.Body = ActiveSelection.Paste    (bu kısma ne yazmam gerekiyor)

 Range("A2:H14").Select
    Selection.Copy
        
.display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[Korhan Ayhan]

Öncelikle verdiğim linkte RangetoHTML isminde fonksiyon var onu kendi dosyanızdaki modüle almalısınız

Sonrasında body kısmını aşağıdaki gibi düzenleyip kullanabilirsiniz.

.Body = RangetoHTML(Range("A1:Z10"))